-2008-05-05 Carsten Dominik <dominik@science.uva.nl>
++2008-05-08 Carsten Dominik <dominik@science.uva.nl>
+
- * textmodes/org.el (org-read-date-get-relative): Interpret lone
++ * org/org.el (org-read-date-get-relative): Interpret lone
+ weekday abbreviation as relative to today.
+
-2008-05-01 Nick Roberts <nickrob@snap.net.nz>
+2008-05-08 Juanma Barranquero <lekktu@gmail.com>
- * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Don't
- throw error if no file is found.
-
-2008-04-28 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-replace-environment-variables): Remove it.
- There is a more simple solution.
- (tramp-file-name-handler): Apply `substitute-in-file-name' w/o
- Tramp file name handlers.
-
-2008-04-28 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Make breakpoint
- icons work for assembler, i.e. FILE.s, FILE.S (not disassembly).
- (gdb-goto-breakpoint): Likewise for visiting breakpoints.
- (gdb-assembler-custom): Be careful not to match other addresses.
-
-2008-04-27 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-replace-environment-variables): New defun.
- (tramp-file-name-handler): Use it.
-
-2008-04-25 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-hunk-header-re-unified): Allow elided line counts.
- (diff-end-of-hunk, diff-unified->context, diff-fixup-modifs)
- (diff-sanity-check-hunk): Adjust code accordingly.
-
-2008-04-23 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-ts-active-input-buf): Move defvar to macterm.c.
-
-2008-04-12 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-init-buffer): New function.
- (gdb-set-gud-minor-mode-existing-buffers)
- (gdb-info-breakpoints-custom, gdb-get-location)
- (gdb-set-gud-minor-mode-existing-buffers-1): Use it.
- Previously gdb-create-define-alist wasn't always run and added to
- after-save-hook.
-
- * progmodes/gud.el (gud-tooltip-tips): Use tooltip-event-buffer
-
-2008-04-12 Kevin Ryde <user42@zip.com.au>
-
- * progmodes/make-mode.el (makefile-fill-paragraph): Treat indented
- comments like unindented ones.
-
-2008-04-12 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-ae-open-documents): Adjust selection range
- parameter origins.
-
-2008-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el (python-mode): Don't mess with hippie-expand.
-
-2008-04-11 Chong Yidong <cyd@stupidchicken.com>
-
- * woman.el (woman2-TH): Use string-equal instead of string-match.
-
-2008-04-11 Kevin Ryde <user42@zip.com.au>
-
- * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
- Bind print-level to ensure output forms aren't truncated if
- print-level is set to eval-expression-print-level when going via
- eval-defun and friends, or has been otherwise fiddled with.
-
-2008-04-09 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-find-file-name-coding-system-alist):
- New defun.
- (tramp-handle-insert-file-contents, tramp-handle-write-region):
- Use it.
-
- * net/trampver.el: Update release number.
-
-2008-04-09 Alan Mackenzie <acm@muc.de>
-
- * font-lock.el (font-lock-extend-after-change-region-function):
- Make it buffer local.
-
-2008-04-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/cc-mode.el (c-basic-common-init): Don't set
- font-lock-extend-after-change-region-function globally.
-
-2008-04-08 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org-export-latex.el: New file.
-
- * textmodes/org-irc.el: New file.
-
- * textmodes/org-mac-message.el: New file.
-
- * textmodes/org-publish.el: New file.
-
- * textmodes/org.el (org-agenda-collect-markers)
- (org-create-marker-find-array)
- (org-check-agenda-marker-table, org-extract-log-state-settings)
- (org-nofm-to-completion, org-refile-goto-last-stored)
- (org-export-html-convert-special-strings, org-first-list-item-p)
- (org-imenu-new-marker, org-imenu-get-tree)
- (org-speedbar-set-agenda-restriction)
- (org-agenda-set-restriction-lock)
- (org-agenda-remove-restriction-lock)
- (org-agenda-maybe-redo, org-compute-latex-and-specials-regexp)
- (org-do-latex-and-special-faces, org-read-date-display)
- (org-select-remember-template, org-agenda-copy-local-variable)
- (org-read-date-get-relative, org-columns-cleanup-item)
- (org-find-entry-with-id)
- (org-insert-columns-dblock, org-listtable-to-string)
- (org-dblock-write:columnview, org-columns-capture-view)
- (org-edit-headline, org-parse-local-options)
- (org-in-clocktable-p, org-property-or-variable-value)
- (org-get-tags-string, org-up-heading-safe)
- (org-fast-todo-selection, org-get-wdays)
- (org-switch-to-buffer-other-window, org-agenda-deadline-face)
- (org-add-link-type, org-columns-content, org-columns-widen)
- (org-columns-next-allowed-value, org-columns-edit-allowed)
- (org-columns-store-format)
- (org-columns-uncompile-format, org-columns-redo)
- (org-columns-edit-attributes, org-delete-property)
- (org-set-property, org-columns-update, org-columns-compute)
- (org-columns-eval)
- (org-columns-not-in-agenda, org-columns-compute-all)
- (org-property-next-allowed-value)
- (org-columns-compile-format, org-fill-paragraph-experimental)
- (org-string-to-number, org-property-action, org-columns-move-left)
- (org-columns-new)
- (org-column-number-to-string, org-property-previous-allowed-value)
- (org-at-property-p, org-columns-delete)
- (org-columns-previous-allowed-value)
- (org-columns-move-right, org-columns-narrow)
- (org-property-get-allowed-values)
- (org-verify-version, org-column-string-to-number)
- (org-delete-property-globally)
- (org-get-property-block, org-entry-properties, org-entry-get)
- (org-entry-delete, org-entry-get-with-inheritance)
- (org-entry-put, org-buffer-property-keys, org-new-column-overlay)
- (org-overlay-columns)
- (org-overlay-columns-title, org-remove-column-overlays)
- (org-column-show-value, org-column-quit, org-column-edit)
- (org-cached-entry-get, org-table-put-field-property)
- (org-get-columns-autowidth-alist, turn-on-orgstruct)
- (orgstruct-error, orgstruct-setup)
- (orgstruct-make-binding, org-context-p, org-get-local-variables)
- (org-run-like-in-org-mode)
- (org-make-link-regexps, org-remove-keyword-keys)
- (org-get-todo-face, org-export-get-title-from-subtree)
- (org-assign-fast-keys, org-get-min-level)
- (org-get-wdays, org-clock-find-position)
- (org-clock-goto, org-fontify-priorities)
- (org-get-date-from-calendar)
- (org-entry-add-to-multivalued-property)
- (org-entry-remove-from-multivalued-property)
- (org-entry-member-in-multivalued-property)
- (org-entry-is-todo-p, org-entry-is-done-p, org-get-todo-state)
- (org-agenda-get-restriction-and-command)
- (org-open-link-from-string, org-columns-open-link)
- (org-go-to-remember-target, org-remember-insinuate)
- (org-icalendar-cleanup-string, org-first-sibling-p)
- (org-back-over-empty-lines, org-skip-whitespace)
- (org-goto-local-auto-isearch)
- (org-clocktable-steps, org-refile-get-location)
- (org-kill-line, org-remove-timestamp-with-keyword)
- (org-local-logging): New functions.
- (org-agenda-marker-table, org-log-note-how)
- (org-goto-local-auto-isearch-map)
- (org-last-remember-storage-locations)
- (org-imenu-markers, org-agenda-restriction-lock-overlay)
- (org-speedbar-restriction-lock-overlay)
- (org-massive-special-regexp)
- (org-verbatim-re, org-read-date-display-live)
- (org-agenda-file-regexp, org-complex-heading-regexp)
- (org-completion-fallback-command, org-todo-log-states)
- (org-goto-exit-command, org-goto-selected-point)
- (org-todo-key-alist, org-todo-key-trigger, org-agenda-remove-date)
- (org-agenda-after-show-hook, org-agenda-skip-unavailable-files)
- (org-fast-tag-selection-can-set-todo-state, org-local-properties)
- (org-store-link-functions, org-columns-top-level-marker)
- (orgstruct-mode-map, org-entry-property-inherited-from)
- (org-column-overlays, org-current-columns-fmt)
- (org-current-columns-maxwidths, org-column-map)
- (org-cached-props): New variables.
- (org-special-ctrl-k, org-goto-auto-isearch)
- (org-agenda-todo-keyword-format)
- (org-remember-use-refile-when-interactive)
- (org-imenu-depth, org-highlight-latex-fragments-and-specials)
- (org-agenda-skip-scheduled-if-done, org-extend-today-until)
- (org-agenda-window-frame-fractions, org-fontify-priorities)
- (org-agenda-deadline-leaders, org-use-property-inheritance)
- (org-clock-into-drawer, org-agenda-compact-blocks)
- (org-use-fast-todo-selection, org-fast-tag-selection-include-todo)
- (org-edit-timestamp-down-means-later, org-todo-keyword-faces)
- (org-agenda-deadline-faces, org-remember-store-without-prompt)
- (org-default-columns-format)
- (org-agenda-default-appointment-duration)
- (org-export-with-footnotes, org-clock-out-when-done)
- (org-global-properties, org-todo-keyword-faces)
- (org-archive-save-context-info)
- (org-edit-timestamp-down-means-later)
- (org-scheduled-past-days, org-export-with-drawers)
- (org-read-date-prefer-future, org-hide-emphasis-markers)
- (org-clock-heading-function, org-clock-in-switch-to-state)
- (org-export-with-special-strings): New options.
- (org-link-store, org-link-follow, org-latex)
- (org-remember-templates, org-time-stamp-rounding-minutes)
- (org-back-over-empty-lines, org-find-base-buffer-visiting)
- (org-columns-new): Fix typos in docstrings.
- (org-ctrl-c-star): Implement a missing branch in the decision tree.
- (org-select-remember-template): Clean the code.
- (org-prepare-dblock): Add the extra :content parameter.
- (org-write-agenda): New output type ".ics" files.
- (org-write-agenda): Call `org-icalendar-verify-function', both for
- time stamps and for TODO entries.
- (org-export-as-html): Revert the change that killed the html
- buffer. Side effects first need to be studied carefully.
- (org-get-tags-at): Fix the structure of the condition-case statement.
- (org-ts-regexp0, org-repeat-re, org-display-custom-time)
- (org-timestamp-change): Fix regulear expressions to swallow the
- extra character for repeat-shift control.
- (org-auto-repeat-maybe): Implement the new repeater mechanisms.
- (org-get-legal-level): Alias to `org-get-valid-level'.
- (org-dblock-write:clocktable): Add a :link parameter, linking
- headlines to their location in the Org agenda files.
- (org-get-tags-at): Bugfix: prevent `org-back-to-heading' from
- throwing an error when getting tags before headlines.
- (org-timestamp-change, org-modify-ts-extra)
- (org-ts-regexp1): Fix timestamp editing.
- (org-agenda-custom-commands-local-options): New constant.
- (org-agenda-custom-commands):
- Use `org-agenda-custom-commands-local-options' to improve customize
- type. "htmlize": Removed hack to fix face problem with htmlize,
- it no longer seem necessary.
- (org-follow-link-hook): New hook.
- (org-agenda-custom-commands): Add "Component" as a tag for each
- item in a command serie.
- (org-open-at-point): Run `org-follow-link-hook'.
- (org-agenda-schedule): Bugfix: don't display marker type when it
- is nil.
- (org-store-link): org-irc required.
- (org-set-regexps-and-options): Parse the new logging options.
- (org-todo): Handle the new ways of recording state change stuff.
- (org-columns-open-link): Fix bug with opening link in column view.
- (org-todo): Make sure that LOGGING properties are honoured.
- (org-todo-keywords): Improve docstring.
- (org-startup-options): Cleanup startup options.
- (org-set-regexps-and-options): Process the "!" markers.
- (org-todo): Respect the new logging stuff.
- (org-add-log-maybe): New parameter HOW that defines how logging
- should be done and also overrides PURPOSE. Add a docstring.
- (org-add-log-note): Check if we really need to ask for a note.
- (org-get-current-options): Digest the new keyword.
- (org-agenda-reset-markers): Rename from
- `org-agenda-maybe-reset-markers'. Remove FORCE argument.
- (org-diary, org-agenda-quit, org-prepare-agenda): Call the renamed
- function, without force argument.
- (org-buffer-property-keys): Bind local variables s and p.
- (org-make-tags-matcher): Allow "" to match an empty or
- non-existent property value.
- (org-export-as-html): Join unsorted lists when they directly
- follow each other. Such lists may be created by headlines that
- are converted to lists.
- (org-export-as-html): Use :html-extension instead of
- org-export-html-extension.
- (org-store-link): Support for links from `rmail-summary-mode'.
- (org-columns-new, org-complete, org-set-property): Set the
- `include-columns' argument in the call to `org-buffer-property-keys'.
- (org-buffer-property-keys): New argument `include-columns', to
- include properties expected by any of the COLUMS formats in the
- current buffer.
- (org-cleaned-string-for-export): Get rid of drawers first, so that
- they will be removed also in the text before the first headline.
- (org-clock-report): Show the clocktable when found.
- (org-refile): Fix positioning bug when `org-reverse-note-order' is nil.
- (org-version): With prefix argument, insert `org-version' at point.
- (org-agenda-goto): Recenter the window after finding the target
- location, to make sure the correct position will be displayed.
- (org-agenda-get-deadlines): Don't scale priority with the warning
- period.
- (org-insert-heading): Don't break line in the middle of the line.
- (org-agenda-get-deadlines): Allow `org-deadline-warning-days' to
- be 0.
- (org-update-checkbox-count): Revamp to deal with hierarchical
- beckboxes. This was a patch from Miguel A. Figueroa-Villanueva.
- (org-schedule, org-deadline): Use `org-remove-timestamp-with-keyword'
- to make sure all such time stamps are removed.
- (org-mode): Support for `align'.
- (org-agenda-get-deadlines): Make sure priorities increase as the
- due date approaches and is passed.
- (org-remember-apply-template): Fix problem with tags that contain
- "_" or "@".
- (org-make-link-regexps): Improve the regular expression for plain
- links.
- (org-agenda-get-closed): List each clocking entry.
- (org-set-tags): Only tabify before tags if indent-tabs-mode is t.
- (org-archive-all-done): Fix incorrect number of stars in regexp.
- (org-global-tags-completion-table): Add the value of org-tag-alist
- in each buffer, to make sure that also unused tags will be
- available for completion.
- (org-columns-edit-value)
- (org-columns-next-allowed-value): Only update if not in agenda.
- (org-dblock-write:clocktable): Call `org-clocktable-steps'.
- (org-archive-subtree): Add the outline tree context as a property.
- (org-closest-date): New optional argument `prefer'.
- (org-goto-map, org-get-location): Implement auto-isearch.
- (org-goto-local-search-forward-headings)
- (org-get-entries-from-diary): Require diary-lib.
- (org-agenda-sunrise-sunset): Require solar.
- (org-export-html-style): Doc fix.
- (org-get-legal-level): New obsolete alias.
- (org-get-valid-level): Rename from `org-get-legal-level'.
- (org-promote, org-demote, org-archive-subtree)
- (org-remember-handler, org-refile, org-put-clock-overlay): Use it.
- (org-info): Use info rather than Info-goto-node.
- (org-entry-properties): Let-bind `clocksum'.
- (org-unmodified, org-cycle-emulate-tab)
- (org-descriptive-links, org-link-file-path-type)
- (org-remember-use-refile-when-interactive)
- (org-agenda-skip-timestamp-if-done, org-agenda-scheduled-leaders)
- (org-export-ascii-bullets, org-agenda-deadline-faces)
- (turn-on-orgstruct++, orgtbl-to-texinfo, org-mhe-get-header)
- (org-batch-agenda, org-batch-agenda-csv, org-fix-agenda-info)
- (org-kill-note-or-show-branches): Fix typos in docstrings.
- (org-html-do-expand): `org-export-html-convert-special-strings'
- added to the list of conversion.
- (org-infile-export-plist, org-get-current-options): Add support
- for "-" in the #+OPTION line to let user switch on/off special
- strings conversion.
- (org-export-plist-vars): New :html-table-tag property.
- (org-export-as-html, org-format-org-table-html)
- (org-format-table-table-html) Use the :html-table-tag property
- instead of the `org-export-html-table-tag' global value.
- (org-additional-option-like-keywords): Add "TBLFM".
- (org-entry-properties): Include the CLOCKSUM special property.
- (org-columns-edit-value): Do not allow to edit the special
- CLOCKSUM property.
- (org-flag-drawer): Use the original value of `outline-regexp'.
- (org-remember-handler): Add invisible-ok flag to call to
- `org-end-of-subtree'.
- (org-agenda-highlight-todo): Respect `org-agenda-todo-keyword-format'.
- (org-infile-export-plist): No restriction while searching for
- options.
- (org-remember-handler): Remove comments at the end of the buffer.
- (org-table-sort-lines): Make sure sorting works on link
- descritions only, and ignores the link.
- (org-sort-entries-or-items): Make sure the end of the subtree is
- included.
- (org-refile-use-outline-path): New allowed values `file' and
- `full-file-path'.
- (org-get-refile-targets): Respect new values for
- `org-refile-use-outline-path'.
- (org-agenda-get-restriction-and-command): DEL goes back to initial
- list.
- (org-export-as-xoxo): Restore point when done.
- (org-open-file): Allow multiple %s in command.
- (org-get-refile-targets): Interpret the new maxlevel setting.
- (org-refile-targets): New option `:maxlevel'.
- (org-copy-subtree): Include empty lines before but not after subtree.
- (org-move-item-down, org-move-item-up): Include empty lines before
- but not after item.
- (org-remember-apply-template): Defaults, completions and history
- for template prompts. Also, interpret new `%!' escape.
- (org-context-choices): New constant.
- (org-bound-and-true-p): New macro.
- (org-agenda-restriction-lock): New face.
- (org-open-at-point): Remove obsolete way to do redirection in
- shell links.
- (org-imenu-and-speedbar): New customization group.
- (org-entry-properties): Return keyword-less time strings.
- (org-clock-in): Use `org-clock-heading-function'.
- (org-calendar-holiday): Try to use `calendar-check-holidays'
- instead of the obsolete `check-calendar-holidays'.
- (org-export-html-special-string-regexps): New constant.
- (org-latex-and-export-specials): New face.
- (org-link-escape-chars): Use characters instead of strings.
- (org-link-escape-chars-browser, org-link-escape)
- (org-link-unescape): Use characters instead of strings.
- (org-export-html-convert-sub-super, org-html-do-expand): Check for
- protected text.
- (org-emphasis-alist): Additional `verbatim' flag.
- (org-set-emph-re): Handle the verbatim flag and compute
- `org-verbatim-re'.
- (org-cleaned-string-for-export): Protect verbatim elements.
- (org-additional-option-like-keywords): Add new keywords.
- (org-get-entry): Rename from `org-get-cleaned-entry'.
- (org-agenda-get-scheduled, org-agenda-get-blocks):
- Use `org-agenda-skip-scheduled-if-done'.
- (org-prepare-agenda-buffers): Allow buffers as arguments.
- (org-entry-properties): Add CATEGORY as a special property.
- (org-use-property-inheritance): Allow a list of properties as a value.
- (org-eval-in-calendar): No longer update the prompt.
- (org-read-date-popup-calendar): Rename from
- `org-popup-calendar-for-date-prompt'.
- (org-remember-apply-template): Define `remember-finalize' if it is
- not yet defined.
- (org-read-date): Respect the setting of
- `org-read-date-prefer-future'. Use `org-read-date-analyze'.
- (org-set-font-lock-defaults): Use `org-archive-tag' instead of a
- hardcoded string.
- (org-remember-apply-template): Use `remember-finalize' instead of
- `remember-buffer'.
- (org-columns-compute, org-column-number-to-string)
- (org-columns-uncompile-format, org-columns-compile-format)
- (org-columns-compile-format): Handle printf format specifier.
- (org-columns-new, org-column-number-to-string)
- (org-columns-uncompile-format, org-columns-compile-format):
- Support for new currency summary type.
- (org-tree-to-indirect-buffer): Do not kill old buffer when
- `org-indirect-buffer-display' is `new-frame'.
- (org-indirect-buffer-display): Document that `new-frame' leads to
- indiret buffer proliferation.
- (org-agenda-list): Use `org-extend-today-until'.
- (org-format-org-table-html): Use lower-case for <col> tag.
- (org-agenda-execute): New command.
- (org-agenda-mode-map): Keybindings of "g" "G", "e" modified.
- (org-remember-apply-template): Use `org-select-remember-template'.
- (org-region-active-p): Use `use-region-p'.
- (org-cycle-hide-archived-subtrees)
- (org-table-rotate-recalc-marks, org-mark-ring-push)
- (org-follow-info-link, org-mhe-get-message-folder-from-index)
- (org-auto-repeat-maybe, org-store-log-note, org-delete-property)
- (org-evaluate-time-range, org-edit-agenda-file-list):
- (org-paste-subtree):
- (org-calendar-holiday): Use calendar-check-holidays instead of the
- obsolete check-calendar-holidays.
- (org-table-formula-substitute-names): Remove forgotten temporary
- debugging code.
- (org-agenda-get-restriction-and-command): Use `mapc' instead of
- `mapcar'.
- (org-agenda-list): Numeric prefix argument can specify the number
- of days.
- (remember-register, remember-buffer): Prevent byte compiler from
- complaining.
- (org-todo): Save and restore match data.
- (org-no-warnings): New macro.
- (org-columns-eval): Use `org-no-warnings'.
- (org-version): Change to 5.13e.
- (org-agenda-file-regexp): Fix typo in docstring.
- (org-add-planning-info): Fix bug in parenthesis settings.
- (org-scan-tags): Catch the case of indirect buffers with no filename.
- (org-fast-tag-selection, org-export-as-ascii, org-export-as-html):
- Re-install switch to mapc, had been removed by accident.
- (org-columns-map): New binding `C-c C-o'.
- (org-columns-menu): Change menu text and added new entry.
- (org-columns-eval): Document the use of `next-line'.
- (org-columns-follow-link): Remove function.
- (org-read-date-get-relative): Fix typo in docstring.
- (org-read-date-get-relative): Leading +/- is not optional.
- (org-agenda-get-restriction-and-command): Always resize window on
- first loop cycle.
- (org-agenda-open-link): Make sure the link abbreviations are
- present in the agenda buffer.
- (org-agenda-files): Allow directories in the variable.
- (org-agenda): Use `org-agenda-get-restriction-and-command'.
- (org-todo-blocker-hook, org-todo-trigger-hook): New hooks.
- (org-remember-apply-template): Catch C-g and make sure window
- configuration is restored.
- (org-agenda-open-link): Make it work with several links in the line.
- (org-drawers, org-set-regexps-and-options)
- (org-get-current-options): Add support for a DRAWERS in-buffer option.
- (org-fit-agenda-window): Use `org-agenda-window-frame-fractions'.
- (org-agenda-to-appt): Require calendar.
- (org-entry-get-with-inheritance): Widen for search.
- (org-columns-display-here): Don't mark buffer as modified when
- adding space characters to accomodate column overlays.
- (org-export-as-html): Better formatting of tags in the toc.
- (org-columns-display-here): Make the ITEM column as compact as
- possible.
- (org-remember-templates): Customization interface improved.
- (org-export-with-property-drawer): Variable removed.
- (org-sort-entries): Rewrite using `sort-subr'.
- (org-set-property): More appropriate completion during interactive use.
- (org-sort-entries): Allow sorting by property.
- (org-additional-option-like-keywords): Add more values.
- (org-sort-entries-or-items): Rename from `org-sort-entries'.
- (org-at-timestamp-p, org-timestamp-change)
- (org-remember-templates): First element of each entry is now a
- name for the template.
- (org-store-log-note): Check for `org-note-abort'.
- (org-kill-note-or-show-branches): New command.
- (org-cut-subtree, org-copy-subtree): New argument N to act on N
- sequential subtrees.
- (org-paste-subtree): Fix the level at which a tree is pasted.
- (org-fit-agenda-window): Limitations on window size removed.
- (org-agenda-find-same-or-today-or-agenda): Rename from
- `org-agenda-find-today-or-agenda'.
- (org-agenda-scheduled-leaders)
- (org-agenda-get-deadlines): Use `org-agenda-deadline-leaders'.
- (org-agenda-get-scheduled): Use `org-agenda-scheduled-leaders'.
- (org-export-with-tags, org-export-plist-vars)
- (org-infile-export-plist): New "tags" option.
- (org-cached-entry-get): Use `org-use-property-inheritance'.
- (org-remember-apply-template): Fix typo.
- (org-additional-option-like-keywords): New constant.
- (org-complete): Use `org-additional-option-like-keywords'.
- (org-clock-report): Only update the table at point, or insert a
- new one.
- (org-open-file): Use `start-process-shell-command' instead of
- `shell-command' with an ampersand.
- (org-deadline, org-schedule): New argument REMOVE to remove the
- date from the entry.
- (org-agenda-schedule, org-agenda-deadline): Pass the prefix
- argument to `org-schedule' and `org-deadline'.
- (org-trim): Use the correct expressions for beginning and end of
- the string.
- (org-get-cleaned-entry): Trim the string before returning it.
- (org-agenda-tags-column): Rename from
- `org-agenda-align-tags-to-column'.
- (org-agenda-align-tags): Allow negative values for
- `org-agenda-tags-column'.
- (org-insert-labeled-timestamps-before-properties-drawer): Remove var.
- (org-agenda-to-appt): New optional argument FILTER.
- (org-complete): Use `org-completion-fallback-command'.
- (org-find-base-buffer-visiting): Catch the case that there is no
- buffer visiting the file.
- (org-todo): Use `org-property-or-variable-value'
- (org-prepare-agenda, org-agenda-list): Use `org-agenda-compact-blocks'.
- (org-agenda-schedule, org-agenda-deadline):
- Call `org-agenda-show-new-time'.
- (org-agenda-show-new-time): New argument PREFIX.
- (org-colgroup-info-to-vline-list): Fix but that cause a shift in
- the vertical lines.
- (org-buffer-property-keys): New argument INCLUDE-DEFAULTS.
- (org-maybe-renumber-ordered-list, org-cycle-list-bullet)
- (org-indent-item): No arg in call to `org-fix-bullet-type'.
- (org-fix-bullet-type): Remove argument.
- (org-read-date): Check for am/pm twice, to catch the end time.
- (org-goto-map): Use `suppress-keymap'.
- (org-remember-apply-template): Respect the dynamically scoped
- selection character.
- (org-kill-is-subtree-p): Use `org-outline-regexp'.
- (org-outline-regexp): New constant.
- (org-remember-handler): Throw error when the target file is not in
- org-mode.
- (org-cleaned-string-for-export): No longer call
- `org-export-latex-cleaned-string' with an argument.
- (org-get-tags): Returns now a list, not a string.
- (org-archive-subtree): No need to split return of `org-get-tags'.
- (org-set-tags, org-entry-properties): Call `org-get-tags-string'
- instead of `org-get-tags'.
- (org-agenda-format-date): Rename from `org-agenda-date-format'.
- (org-time-from-absolute, org-agenda-format-date-aligned): New funs.
- (org-compatible-face): New argument INHERITS. Inherit from this
- face if possible.
- (org-level-1, org-level-2, org-level-3, org-level-4)
- (org-level-5, org-level-6, org-level-7, org-level-8)
- (org-special-keyword, org-drawer, org-column, org-warning)
- (org-archived, org-todo, org-done, org-headline-done, org-table)
- (org-formula, org-code, org-agenda-structure)
- (org-scheduled-today, org-scheduled-previously)
- (org-upcoming-deadline, org-time-grid): Call `org-compatible-face'
- in the new way.
- (org-get-heading): New argument NO-TAGS.
- (org-fast-tag-selection-include-todo): Made defvar instead of
- defcustom, feature is not deprecated.
- (org-remember-store-without-prompt): New default value t.
- (org-set-regexps-and-options): #+TODO is an alias for SEQ_TODO.
- Compute the log states.
- (org-goto-map): More commands copied from global map. Also bind
- `org-occur'.
- (org-goto): Made into a general lookup command.
- (org-get-location): Complete rewrite.
- (org-goto-ret, org-goto-left, org-goto-right, org-goto-quit):
- Set the new variables.
- (org-paste-subtree): Whitespace insertion strategy revised.
- (org-remember-apply-template): Protect v-A from the possibility
- that v-a might be nil.
- (org-remember-handler): Insertion rules revised.
- (org-todo): Respect org-todo-log-states.
- (org-entry-get-with-inheritance): Use `org-up-heading-safe'.
- (org-confirm-shell-link-function)
- (org-confirm-elisp-link-function): Doc fixes.
- (org-re): Also replace the :alpha: class.
- (org-todo-tag-alist): Variable removed.
- (org-log-done): Docstring fixed.
- (org-deadline-warning-days): New default value 14.
- (org-tag-alist): Docstring fixed.
- (org-export-language-setup): New languages added.
- (org-set-regexps-and-options): Compute the new variables.
- (org-paste-subtree): Cleaning up.
- (org-remember-apply-template): New escape %A.
- (org-todo): Call fast TODO selection.
- (org-add-log-note): Allow prefix for abort exit.
- (org-at-property-p, org-entry-properties)
- (org-columns-get-autowidth-alist): Use :alpha: class.
- (org-agenda-get-deadlines): Use `org-get-wdays'.
- (org-agenda-get-deadlines): Reverse ee before returning.
- (org-format-agenda-item): New argument REMOVE-RE.
- (org-agenda-convert-date): Baha'i calendar added.
- (org-infile-export-plist): Also find DATE line.
- (org-export-as-html, org-export-as-ascii): Use the date format.
- (org-shiftup, org-shiftdown): Use.
- `org-edit-timestamp-down-means-later'.
- (org-columns-compile-format)
- (org-columns-get-autowidth-alist, org-buffer-property-keys)
- (org-entry-properties, org-at-property-p): Allow [:alnum:] in
- property names.
- (org-export-visible): Fix drawers before export.
- (org-do-sort): Allow sorting by priority.
- (org-agenda-files): Ignore non-existing files.
- (org-ellipsis): All a face as value.
- (org-mode): Interprete the face value of `org-ellipsis'.
- (org-archive-subtree): Store context info in archived entry.
- (org-fast-tag-selection): Allow setting TODO states through this
- interface.
- (org-cycle): Docstring updated.
- (org-set-font-lock-defaults, org-agenda-highlight-todo):
- Use `org-get-todo-face'.
- (org-table-edit-field, org-table-show-reference)
- (org-table-edit-formulas, org-add-log-note)
- (org-fast-tag-selection, org-agenda, org-prepare-agenda)
- (org-timeline): Use `org-switch-to-buffer-other-window' instead of
- `switch-to-buffer-other-window' to make sure that the temporary
- windows show up on the current frame.
- (org-mhe-get-message-real-folder, org-batch-store-agenda-views)
- (org-get-entries-from-diary, org-replace-region-by-html):
- Don't allow pop-up frames.
- (org-agenda-get-deadlines, org-agenda-get-scheduled): Fix problems
- with time-of-day.
- (org-agenda-get-scheduled, org-agenda-get-deadlines): Fix problems
- with listing items that are DONE.
- (org-change-tag-in-region): New command.
- (org-agenda-skip-scheduled-if-done)
- (org-agenda-skip-deadline-if-done): Docstring clarified.
- (org-mode): Hide drawers on startup.
- (org-set-regexps-and-options): Use `org-remove-keyword-keys'.
- (org-agenda-skip): Allow a form for `org-agenda-skip-function'.
- (org-agenda-redo): Re-use local settings.
- (org-agenda): Store local settings.
- (org-agenda-get-deadlines, org-agenda-get-scheduled): Also handle
- entries on their due date.
- (org-agenda-get-timestamps): No longer handle the due dates of
- schedules and deadline items.
- (org-insert-link-global, org-open-at-point-global): New commands.
- (org-export-as-ascii): Call `org-cleaned-string-for-export' with a
- :for-ascii parameter.
- (org-skip-comments): Function removed.
- (org-cleaned-string-for-export): Handle special table lines.
- (org-entry-get-with-inheritance): Check global properties.
- (org-set-regexps-and-options): Find the #+PROPERTY line.
- (org-link-types): Change type into variable (was constant).
- (org-link-re-with-space, org-link-re-with-space2)
- (org-angle-link-re, org-plain-link-re, org-bracket-link-regexp)
- (org-bracket-link-analytic-regexp, org-any-link-re): Creation of
- these regular expressions happens now in the function
- `org-make-link-regexps'.
- (org-store-link): Call the functions in
- `org-store-link-functions'.
- (org-activate-tags): Force matches to be in headlines.
- (org-batch-store-agenda-views): Fix bug with killing agenda buffer.
- (org-columns-display-here): Make sure this works in a narrowed
- buffer by checking for point-min.
- (org-columns-display-here): Make the rest of the line intangible,
- so that point never can be there.
- (org-cleaned-string-for-export): Use `with-current-buffer'.
- (org-replace-region-by-html): Use `with-current-buffer'.
- (org-unfontify-region, org-do-occur, org-columns-display-here)
- (org-columns-remove-overlays, org-columns-quit)
- (org-columns-edit-value, org-columns-next-allowed-value)
- (org-eval-in-calendar, org-agenda-undo, org-no-read-only)
- (org-finalize-agenda, org-remove-subtree-entries-from-agenda)
- (org-agenda-todo, org-agenda-change-all-lines)
- (org-agenda-align-tags, org-agenda-priority)
- (org-agenda-set-tags, org-agenda-toggle-archive-tag)
- (org-agenda-show-new-time, org-cleaned-string-for-export)
- (org-export-grab-title-from-buffer)
- (org-export-as-ascii, org-export-as-html): Use `inhibit-read-only'
- instead of `buffer-read-only'.
- (org-export-as-html): Set `coding-system-for-write'.
- (org-archive-subtree): Fix bug with modifying TODO keyword.
- (org-beginning-of-line): Also treat C-a special in items.
- (org-table-convert-refs-to-rc): Fix problem with column
- reference after "..".
- (org-columns-compute): Don't mark buffer modified because of text
- properties.
- (org-batch-store-agenda-views): Use the variable
- `default-directory', not the function.
- (org-clock-out-if-current): Respect `org-clock-out-when-done'.
- (org-html-entities): Add HTML entities for smileys.
- (org-end-of-line): Move to end of line if in headline without tags.
- (org-agenda-day-view, org-agenda-week-view): Remember span as default.
- (org-columns-edit-value): Rename from `org-column-edit'.
- (org-columns-display-here-title): Rename from
- `org-overlay-columns-title'.
- (org-columns-remove-overlays): Rename from
- org-remove-column-overlays.
- (org-columns-get-autowidth-alist): Rename from
- `org-get-columns-autowidth-alist'.
- (org-columns-display-here): Rename from `org-overlay-columns'.
- (org-columns-new-overlay): Rename from `org-new-column-overlay'.
- (org-columns-quit): Rename from `org-column-quit'.
- (org-columns-show-value): Rename from `org-column-show-value'.
- (org-columns-current-fmt): Rename from `org-current-columns-fmt'.
- (org-columns-overlays): Rename from `org-column-overlays'.
- (org-columns-map): Rename from `org-column-map'.
- (org-columns-current-maxwidths): Rename from
- `org-current-columns-maxwidths'.
- (org-columns-begin-marker, org-columns-current-fmt-compiled)
- (org-previous-header-line-format)
- (org-columns-inhibit-recalculation)
- (org-columns-default-format): Rename from
- `org-default-columns-format'.
- (org-property-re): New constant.
- (orgstruct-mode): New minor mode.
- (org-cycle-list-bullet): New command.
- (org-special-properties, org-property-start-re)
- (org-property-end-re): New constants.
- (org-with-point-at): New macro.
- (org-insert-property-drawer): New command.
- (org-column): New face.
- (org-column-menu): New menu.
- (org-columns, org-agenda-columns): New commands.
- (org-properties): New customize group.
- (org-priority): Realign tags after changing priority.
- (org-preserve-lc): New macro.
- (org-update-checkbox-count): Catch case when there is no headline.
- (org-agenda-quit): Remove any column overlays.
- (org-beginning-of-item-list): Fix bug when non-item line is
- indented too deep.
- (org-make-tags-matcher): Handle property matches.
- (org-table-recalculate): Swap evaluation order: Field formula
- first, then column formulas, but don't allow them to overwrite the
- field formulas.
- (org-table-eval-formula): New argument untouchable.
- (org-export-as-html): Fix replacement bug for XEmacs.
-
-2008-04-06 Chong Yidong <cyd@stupidchicken.com>
-
- * dired.el (dired-dnd-handle-local-file):
- Obey dired-backup-overwrite for copy, move, and link operations.
-
- * dired-aux.el (dired-overwrite-confirmed): Undo last change.
-
-2008-04-06 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-langs.el (c-before-font-lock-function): Correct a
- typo in the doc string.
-
- * progmodes/cc-mode.el (c-extend-after-change-region):
- New function, used in font-lock-extend-after-change-region-function,
- thus superseding advice on the Font Lock after change functions.
-
-2008-04-06 Chong Yidong <cyd@stupidchicken.com>
-
- * dired-aux.el (dired-overwrite-confirmed): Supply initial value.
-
-2008-04-04 Stephen Berman <Stephen.Berman@gmx.net>
-
- * newcomment.el (comment-enter-backward): Be careful to restore
- position changed during narrowing.
-
-2008-04-03 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-mouse-set-clear-breakpoint):
- Fix in disassembly buffer (regression in 22.2).
-
-2008-04-03 Chong Yidong <cyd@stupidchicken.com>
-
- * shell.el (shell-dynamic-complete-filename): New fun.
- (shell-dynamic-complete-functions): Use it.
-
-2008-04-02 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-defun-name, c-cpp-define-name):
- New optimised functions to get the name of the current defun/macro.
-
- * add-log.el (add-log-current-defun): Move the functionality which
- gets the current function name for C like modes to cc-cmds.el,
- thus optimising for speed.
-
-2008-04-02 Eli Zaretskii <eliz@gnu.org>
-
- * ps-print.el (ps-generate-postscript-with-faces): If the face
- specified by the overlay's `face' property is a string, assume
- it's a string name and intern it to get the face symbol.
-
-2008-04-01 Chong Yidong <cyd@stupidchicken.com>
-
- * find-dired.el (find-dired-filter): Fix last patch to handle
- multi-line process input. Pad link numbers too.
-
-2008-04-01 Jari Aalto <jari.aalto@cante.net>
-
- * find-dired.el (find-dired-filter): Align columns by padding file
- sizes.
-
-2008-04-01 Jay Belanger <jay.p.belanger@gmail.com>
-
- * calc/calc.el: Autoload `calc-yank'.
- (calc-mode-map): Add keybindings for `calc-yank'.
- * calc/calc-ext.el (calc-init-extensions): Remove keybinding
- assignments for `calc-yank'.
-
-2008-03-31 Martin Rudalics <rudalics@gmx.at>
-
- * emacs-lisp/find-func.el (find-function-search-for-symbol):
- Strip extension from .emacs.el to make sure symbol is searched
- in .emacs too.
-
-2008-03-29 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc.el (vc-do-command): Don't show internal temp buffers.
-
-2008-03-29 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-ae-reopen-application): New function.
- (mac-apple-event-map): Bind "reopen application" Apple event to it.
-
-2008-03-29 Juanma Barranquero <lekktu@gmail.com>
-
- * term/mac-win.el (mac-dnd-drop-data): Remove redundant check.
-
-2008-03-26 Chong Yidong <cyd@stupidchicken.com>
-
- * Version 22.2 released.
-
-2008-03-25 Johan Bockg\e,Ae\e(Brd <bojohan@gnu.org>
-
- * info.el (Info-isearch-search): Always return point.
-
-2008-03-23 Andreas Schwab <schwab@suse.de>
-
- * menu-bar.el (menu-bar-showhide-fringe-ind-menu) [mixed]:
- Fix radio button condition.
- [box]: Likewise.
- [customize]: Add radio button.
-
-2008-03-20 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-bzr.el (vc-bzr-print-log): Ensure it works when passed a
- single file argument.
- (vc-bzr-show-log-entry): Fix typo.
-
-2008-03-19 Wilson Snyder <wsnyder@wsnyder.org>
-
- * progmodes/verilog-mode.el (verilog-easy-menu-filter):
- New function.
- (verilog-stmt-menu, verilog-menu): Add :help.
- (verilog-customize, verilog-font-customize)
- (electric-verilog-backward-sexp, electric-verilog-forward-sexp)
- (verilog-mode): Update documentation strings to match tool tips.
- (verilog-auto-search-do, verilog-auto-re-search-do)
- (verilog-skip-forward-comment-or-string): Fix verilog-auto
- expansion when a .* appears inside a string.
- (verilog-re-search-forward, verilog-re-search-backward):
- Add comment to recall how this works.
-
-2008-03-19 Reiner Steib <Reiner.Steib@gmx.de>
-
- * net/tls.el (open-tls-stream): Reindent.
-
-2008-03-19 Glenn Morris <rgm@gnu.org>
-
- * net/tls.el: Don't require rx when compiling.
- (tls-end-of-info): Rewrite without using rx.
- (open-tls-stream): Use with-current-buffer.
-
-2008-03-18 Dan Nicolaescu <dann@ics.uci.edu>
-
- * font-lock.el (font-lock-comment-face): Set the foreground for
- the light background 8 colors case.
-
- * vc-bzr.el (vc-bzr-print-log): Insert a file marker. Run the log
- command for each file in the list.
- (vc-bzr-log-view-mode): Recognize the file marker.
- (vc-bzr-show-log-entry): Make regexp match more cases.
-
-2008-03-18 Wilson Snyder <wsnyder@wsnyder.org>
-
- * verilog-mode.el (verilog-read-decls): Fix AUTOINPUT/AUTOOUTPUT
- mis-including genvars.
-
-2008-03-18 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-bzr.el (vc-bzr-log-view-mode, vc-bzr-annotate-command)
- (vc-bzr-annotate-time, vc-bzr-annotate-extract-revision-at-line):
- Revision numbers can include ".".
-
- * diff-mode.el (diff-end-of-hunk): Be careful not to overlook trailing
- "+" lines not accounted for by counting "-" and context lines.
-
-2008-03-16 Juri Linkov <juri@jurta.org>
-
- * dired.el (dired-warn-writable): Rename to `dired-perm-write'.
- (dired-perm-write): Rename from `dired-warn-writable'.
- Change parent face from `font-lock-warning-face' to
- `font-lock-comment-delimiter-face'.
- (dired-warn-writable-face): Rename to `dired-perm-write-face'.
- (dired-perm-write-face): Rename from `dired-warn-writable-face'.
- (dired-font-lock-keywords): Replace `dired-warn-writable-face'
- with `dired-perm-write-face'.
-
-2008-03-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-service-open-file): Use file URL instead of
- file name string.
-
-2008-03-14 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-bzr.el (vc-bzr-registered): Fail if `bzr' is not installed.
- (vc-bzr-annotate-command): Preserve line alignment.
- (vc-bzr-annotate-time): Accept space used to preserve alignment.
-
-2008-03-13 Richard Stallman <rms@gnu.org>
-
- * mouse.el (mouse-yank-secondary): Nice error msg if no secondary sel.
-
- * emacs-lisp/advice.el (defadvice): Add usage pattern.
-
-2008-03-11 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (set-mark-command): Doc fix.
-
-2008-03-10 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el: Add advice about using Cygwin GDB (from a
- thread in [h-e-w]).
-
-2008-03-08 Johan Bockg\e,Ae\e(Brd <bojohan@gnu.org>
-
- * subr.el (while-no-input): Don't splice BODY directly into the
- `or' form.
-
-2008-03-06 Kim F. Storm <storm@cua.dk>
-
- * help.el (view-emacs-todo): Rename from view-todo. Change users.
- (describe-gnu-project): Rename from describe-project. Change users.
- Define obsolete function aliases for the old names.
-
-2008-03-05 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/lisp.el (parens-require-spaces): Doc fix.
- Reported by Drew Adams <drew.adams@oracle.com>.
-
-2008-03-05 Juanma Barranquero <lekktu@gmail.com>
-
- * iswitchb.el (iswitchb-use-faces): Doc fix.
- (iswitchb-buffer-ignore, iswitchb-read-buffer): Fix typos in docstrings.
-
-2008-03-03 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (verilog-highlight-grouping-keywords):
- Fix typo.
- (verilog-type-font-keywords): Reindent.
-
-2008-03-03 Michael McNamara <mac@mail.brushroad.com>
-
- * verilog-mode.el (verilog-font-grouping-keywords): Fix bug in the
- grouping-keyword regular expression.
- (verilog-font-lock-keywords): Allow users to toggle special
- highlight of grouping-keywords.
- (verilog-highlight-grouping-keywords): The toggle for special
- highlighting of grouping keywords.
-
-2008-03-02 Juri Linkov <juri@jurta.org>
-
- * startup.el: Revert 2008-02-28 change that adds initial message
- to *scratch* buffer regardless of the value of `inhibit-startup-screen'.
-
-2008-03-01 Dan Nicolaescu <dann@ics.uci.edu>
-
- * textmodes/css-mode.el (css-indent-offset, css-electric-keys):
- * textmodes/bibtex-style.el (bibtex-style-indent-basic):
- * progmodes/verilog-mode.el (verilog-mode):
- * net/socks.el (socks):
- * vc-mtn.el (vc-mtn-mode-line-rewrite): Add :version.
-
-2008-03-01 Juanma Barranquero <lekktu@gmail.com>
-
- * desktop.el (desktop-read): Set `desktop-dirname' to nil before
- running `desktop-not-loaded-hook' to allow modifying it.
- Don't show warning message if `desktop-dirname' was modified.
-
-2008-03-01 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-mode.el (c-neutralize-syntax-in-CPP): Fix coding bug.
-
- * progmodes/cc-langs.el (c-before-font-lock-function): Fix bug in
- doc-string, "c-old-LEN" -> "c-old-END".
-
-2008-02-29 Glenn Morris <rgm@gnu.org>
-
- * allout.el (allout-topic-encryption-bullet)
- (allout-passphrase-verifier-handling, allout-passphrase-hint-handling)
- (allout-encrypt-unencrypted-on-saves): Change defcustom :version
- from 22.0 to 22.1.
-
-2008-02-29 Juanma Barranquero <lekktu@gmail.com>
-
- * desktop.el (desktop-save): Save the buffer name if the
- uniquified base name is empty.
-
-2008-02-29 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-sanity-check-hunk): Only accept an empty line if
- we still expect more lines.
-
-2008-02-28 Juri Linkov <juri@jurta.org>
-
- * startup.el (normal-splash-screen): Add argument `concise'.
- Remove unused binding `prev-buffer'. Let-bind `splash-buffer'
- to the created buffer. If `concise' is non-nil, call
- `display-buffer', otherwise `switch-to-buffer'. Doc fix.
- (display-startup-screen): Add argument `concise' to the call to
- `normal-splash-screen'.
-
-2008-02-28 Kim F. Storm <storm@cua.dk>
-
- * startup.el (startup-echo-area-message): Check for about-emacs.
-
-2008-02-28 Juri Linkov <juri@jurta.org>
-
- * startup.el: Always add initial message to *scratch* buffer if
- `initial-scratch-message' is non-nil regardless of the value of
- `inhibit-startup-screen'.
- (inhibit-startup-screen, initial-scratch-message): Doc fix.
- (command-line-1): Move code that inserts `initial-scratch-message'
- up before the if-form that checks for `inhibit-startup-screen'.
- Suggested by Jonathan Rockway <jon@jrock.us>.
-
-2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/fill.el (fill-comment-paragraph): Don't try to do
- comment-paragraph filling if the commark doesn't match
- comment-start-skip.
-
- * uniquify.el (uniquify-buffer-base-name): Undo last change.
-
-2008-02-28 Daiki Ueno <ueno@unixuser.org>
-
- * international/utf-7.el (utf-7-encode): Never skip the trailing - for
- the `imap' variant.
-
-2008-02-27 Juanma Barranquero <lekktu@gmail.com>
-
- * uniquify.el (uniquify-buffer-base-name): If the base name is an
- empty string, return nil to allow the caller to default to the
- buffer name. Reported by Martin Fischer <parozusa@web.de>.
-
-2008-02-26 Jason Rumney <jasonr@gnu.org>
-
- * files.el (make-auto-save-file-name): Encode more characters in
- non-file buffer names. Use url-encoding.
-
-2008-02-26 Juanma Barranquero <lekktu@gmail.com>
-
- * net/net-utils.el (ftp-program): Fix typo in docstring.
- (ifconfig-program-options, netstat-program-options)
- (arp-program-options, route-program-options, nslookup-program-options)
- (ftp-program-options, smbclient-program-options)
- (dns-lookup-program-options, arp, route): Doc fixes.
-
- * progmodes/gdb-ui.el (gdb-pc-address, gdb-source-file-list)
- (gdb-cpp-define-alist-program, gdb-mouse-jump, gdb-get-buffer-create)
- (gdb-set-gud-minor-mode-existing-buffers-1, gdb-debug-log):
- Fix typos in docstrings.
- (gdb-pending-triggers): Reflow docstring.
- (gdb, gdb-init-1): Fix typos in docstrings of gud-def definitions.
-
-2008-02-25 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-mode.el (c-neutralize-syntax-in-CPP): Fix a bug on
- typing "#" at EOB.
-
-2008-02-25 Chong Yidong <cyd@stupidchicken.com>
-
- * files.el (shell-quote-wildcard-pattern): Quote ' and " as well.
-
-2008-02-24 Jason Rumney <jasonr@gnu.org>
-
- * files.el (file-name-invalid-regexp): Fix octal/decimal confusion.
-
-2008-02-23 Ulrich Mueller <ulm@gentoo.org> (tiny change)
-
- * textmodes/bibtex.el (bibtex-convert-alien): Fix sit-for ags.
-
-2008-02-22 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * dired.el (dired-mark-prompt): Don't count/display the t element.
- Reported by Carsten Blaauw <it-media.blaauw@daimler.com>.
-
-2008-02-22 Bill Meier <wmeier@newsguy.com> (tiny change)
-
- * progmodes/sh-script.el (sh-indent-comment): Docstring fix.
-
-2008-02-21 Glenn Morris <rgm@gnu.org>
-
- * subr.el (sit-for): Fix obsolete form for nil second argument.
-
-2008-02-21 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (eval-when-compile): Don't define
- add-submenu.
- (verilog-xemacs-menu): Add :keys for C-M-a, C-M-e and C-M-h.
- Remove. Move contents to the only use ...
- (verilog-menu): ... here.
- (verilog-statement-menu): Remove. Move contents to the only use ...
- (verilog-stmt-menu): ... here.
- (verilog-mark-defun): Simply call mark-defun for Emacs.
- (occur-pos-list): Declare for byte compiler.
- (mode-popup-menu): Don't defvar.
- (verilog-add-statement-menu): Remove.
- (verilog-mode-hook): Don't add verilog-add-statement-menu.
- (verilog-mode): Call easy-menu-add and set mode-popup-menu for XEmacs.
-
-2008-02-21 Michael McNamara <mac@mail.brushroad.com>
-
- * progmodes/verilog-mode.el (verilog-xemacs-menu): Remove XEmacs
- conditional.
- (verilog-font-grouping-keywords-face): Make the begin..end
- keywords standout more than other verilog keywords.
- (verilog-type-font-keywords): Move the begin..end out of this list
- to facilitate making them to (potentially) stand out more.
- (verilog-backward-token): Fix indent of bare always{_*}?, initial,
- function & task blocks.
- (verilog-behavioral-block-beg-re): Fix indent of bare always{_*}?,
- initial, function & task blocks.
- (verilog-forward-sexp): Handle the new "disable fork" statement of
- IEEE-1800 Verilog.
- (verilog-beg-block-re-ordered): Handle the new "disable fork"
- statement of IEEE-1800 Verilog.
- (verilog-calc-1): Handle the new "disable fork" statement of
- IEEE-1800 Verilog.
- (verilog-disable-fork-re): Add const to help handle the new
- "disable fork" statement of IEEE-1800 Verilog.
- (verilog-declaration-core-re): Add port directions by themselves,
- with no qualification, as base item of a declaration.
- (verilog-pretty-declarations): Add new flag to ask it to refrain
- from printing to the message buffer.
- (verilog-pretty-expr): Add a QUIET flag to ask it to refrain from
- printing to the message buffer. Improve handling of the many
- types of expression line up.
- (verilog-just-one-space): Remove printing of an empty message.
- (verilog-get-lineup-indent): Rework to support the better handling
- of expression lineup for verilog-pretty-expr.
- (verilog-auto-wire): Pass the quiet flag to verilog-pretty-expr.
-
-2008-02-20 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-mode.el (c-extend-region-for-CPP): Bug fix from
- yesterday's commit.
-
-2008-02-20 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-mouse-set-clear-breakpoint): Fall back
- to mouse-set-point in buffers that aren't associated with files.
-
- * progmodes/gud.el: Rename menu item to "Show GUD tooltips".
-
-2008-02-20 Glenn Morris <rgm@gnu.org>
-
- * mail/rmail.el (rmail-autodetect): Add .exe extension to movemail
- on Windows.
-
-2008-02-19 Alan Mackenzie <acm@muc.de>
-
- Set of changes so that "obtrusive" syntactic elements in a
- C/C++/ObjC preprocessor line (e.g. an unbalanced string quote or
- unmatched paren) don't interact syntactically with stuff outside
- the CPP line.
-
- * progmodes/cc-awk.el (c-awk-beyond-logical-line, c-awk-old-ByLL):
- Replace c-awk-end-of-logical-line and c-awk-old-EoLL to solve an
- off-by-one bug.
- (c-awk-record-region-clear-NL): Replaces c-awk-before-change, with
- a bit of refactoring.
- (c-awk-extend-and-syntax-tablify-region): Takes some of the
- functionality of c-awk-advise-fl-for-awk-region, which has been
- refactored away.
-
- * progmodes/cc-defs.el (c-clear-char-property-with-value-function)
- (c-clear-char-property-with-value): New function and macro which
- remove text-properties `equal' to a supplied value.
-
- * progmodes/cc-engine.el: Comment about text properties amended.
-
- * progmodes/cc-fonts.el (c-cpp-matchers): Make it put regexp
- parens around "error\\|warning".
-
- * progmodes/cc-langs.el (c-get-state-before-change-function)
- (c-before-font-lock-function, c-anchored-cpp-prefix):
- New language variables.
- (c-cpp-message-directives): Handle "#warning" in C, C++ and ObjC.
-
- * progmodes/cc-mode.el (c-basic-common-init): C and ObjC now use
- syntax-table text properties.
- (c-common-init): Call language specific before/after-change
- functions at mode initialisation.
- (c-new-BEG, c-new-END, c-old-BOM, c-old-EOM): New variables.
- (c-extend-region-for-CPP, c-neutralize-CPP-line)
- (c-neutralize-syntax-in-CPP): New functions.
- (c-before-change, c-after-change): Call the new language specific
- change functions defined in cc-langs.el.
- (c-advise-fl-for-region): New macro.
- (awk-mode): Remove AWK specific stuff which has been refactored
- into language independent stuff.
-
-2008-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-file-junk-re): New const.
- (diff-beginning-of-file-and-junk): Use it.
- (diff-file-kill): Make sure we were really inside a file diff.
-
- * diff-mode.el: Make it more robust in the presence of empty context
- lines in unified hunks.
- (diff-valid-unified-empty-line): New var.
- (diff-unified->context, diff-sanity-check-hunk): Obey it.
- (diff-end-of-hunk): Obey it. New arg `donttrustheader'.
- (diff-fixup-modifs, diff-post-command-hook): Use this new arg.
- (diff-hunk-header-re-unified): New const.
- (diff-font-lock-keywords, diff-hunk-header-re, diff-split-hunk)
- (diff-fixup-modifs, diff-unified->context, diff-next-complex-hunk)
- (diff-sanity-check-hunk): Use it.
-
-2008-02-19 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdba): Recreate as an alias for gdb.
- (gdb): (Re)set gdb-flush-pending-output to nil here...
- (gdb-init-1): ...instead of here (before gdb-prompt).
-
-2008-02-18 Juanma Barranquero <lekktu@gmail.com>
-
- * progmodes/verilog-mode.el (customize): Fix typo in error message.
- (verilog-mode, verilog-mode-indent, verilog-mode-actions)
- (verilog-mode-auto, verilog-indent-level-module)
- (verilog-minimum-comment-distance, verilog-library-flags)
- (verilog-library-directories, verilog-library-files)
- (verilog-auto-reset-widths, verilog-imenu-generic-expression)
- (verilog-xemacs-menu, verilog-set-compile-command)
- (verilog-set-compile-command, verilog-mode-syntax-table, verilog-mode)
- (verilog-get-expr, verilog-strip-comments, verilog-one-line)
- (verilog-lint-off, verilog-batch-auto, verilog-batch-delete-auto)
- (verilog-batch-inject-auto, verilog-batch-indent)
- (verilog-continued-line, verilog-type-keywords)
- (verilog-read-sub-decls-sig, verilog-read-sub-decls-line)
- (verilog-read-inst-pins, verilog-read-arg-pins)
- (verilog-read-auto-template, verilog-read-signals, verilog-getopt-file)
- (verilog-add-list-unique, verilog-symbol-detick, verilog-modi-filename)
- (verilog-auto-star, verilog-auto-inst, verilog-auto-wire)
- (verilog-enum-ascii, verilog-sk-begin, verilog-sk-fork)
- (verilog-sk-datadef, verilog-colorize-include-files-buffer)
- (verilog-mode-version, verilog-mode-release-date)
- (verilog-mode-release-emacs, verilog-linter, verilog-coverage)
- (verilog-simulator, verilog-compiler)
- (verilog-auto-sense-defines-constant, verilog-company)
- (verilog-project, verilog-mark-defun, verilog-submit-bug-report):
- Fix typos in docstrings.
- (verilog-set-auto-endcomments, verilog-calculate-indent)
- (verilog-inject-auto, verilog-auto-arg, verilog-auto-inout-module):
- Reflow docstrings.
- (verilog-tab-always-indent, verilog-highlight-p1800-keywords)
- (verilog-auto-star-save, verilog-auto-inst-vector, verilog-mode-hook)
- (electric-verilog-forward-sexp, verilog-in-case-region-p)
- (verilog-in-struct-region-p, verilog-in-generate-region-p)
- (verilog-leap-to-head, verilog-current-indent-level)
- (verilog-case-indent-level, verilog-cpp-keywords)
- (verilog-defun-keywords, verilog-block-keywords, verilog-tf-keywords)
- (verilog-case-keywords, verilog-separator-keywords, verilog-completion)
- (verilog-signals-not-in, verilog-symbol-detick-text)
- (verilog-modi-cache-preserve-tick, verilog-modi-cache-preserve-buffer)
- (verilog-forward-close-paren, verilog-backward-open-paren)
- (verilog-backward-open-bracket): Doc fixes.
-
- * progmodes/gud.el (gud-def, gud-last-speedbar-stackframe): Doc fixes.
- (gud-symbol, gud-expansion-speedbar-buttons, gud-speedbar-buttons)
- (gud-gdb-run-command-fetch-lines, gud-dbx-use-stopformat-p)
- (gud-jdb-classpath, gud-jdb-find-source-using-classpath, jdb)
- (gud-find-class, gdb-script-mode, gud-tooltip-event, gud-tooltip-tips):
- Fix typos in docstrings.
-
-2008-02-17 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/ada-mode.el (ada-font-lock-syntactic-keywords):
- Recognize ''' just like any other char-constant.
-
-2008-02-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-hooks.el (vc-find-root): Remove initial loop because it's not
- careful enough. Detect the uid-change all within the main loop.
-
-2008-02-14 Stefan Monnier <monnier@pastel.home>
-
- * textmodes/sgml-mode.el (sgml-mode): Fix comment syntax.
-
-2008-02-13 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * hilit-chg.el (highlight-save-buffer-state): New macro.
- (highlight-save-buffer-state, hilit-chg-set-face-on-change)
- (hilit-chg-clear): Use it to preserve the modified-p flag.
- (highlight-changes-rotate-faces): Don't mess with the undo-list.
-
-2008-02-13 Michael Albinus <michael.albinus@gmx.de>
-
- * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.
-
-2008-02-12 Juri Linkov <juri@jurta.org>
-
- * startup.el (fancy-startup-screen, normal-splash-screen):
- Set default-directory to command-line-default-directory.
-
- * desktop.el (after-init-hook): Set inhibit-startup-screen to t
- after reading the desktop.
-
-2008-02-12 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * font-lock.el (font-lock-set-defaults): Unset previously set variables
- when needed.
-
-2008-02-12 Juanma Barranquero <lekktu@gmail.com>
-
- * uniquify.el (uniquify-buffer-base-name): New function.
- Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
-
- * desktop.el (uniquify-managed): Don't defvar.
- (desktop-buffer-info): Use `uniquify-buffer-base-name', not
- `uniquify-managed'. Return also the buffer's base name.
- (desktop-save): When saving the buffer info, filter out the base name,
- and save it as buffer name if the buffer is managed by uniquify.
-
-2008-02-10 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-beginning-of-file-and-junk): If we're on the
- Index: line, don't search backward for the previous one.
-
-2008-02-10 \e,AF\e(Bvar Arnfj\e,Av\e(Br\e,Ap\e(B Bjarmason <avar@cpan.org> (tiny change)
-
- * net/rcirc.el (rcirc-url-regexp): Replace definition by copying
- from gnus-button-url-regexp.
-
-2008-02-09 Eli Zaretskii <eliz@gnu.org>
-
- * progmodes/compile.el (compilation-next-error): Doc fix.
- (compilation-find-file): Doc fix.
-
-2008-02-09 Glenn Morris <rgm@gnu.org>
-
- * net/net-utils.el (ipconfig-program, ipconfig-program-options):
- Add obsolete aliases to the old names.
-
-2008-02-08 Richard Stallman <rms@gnu.org>
-
- * net/net-utils.el (ifconfig): Rename from ipconfig.
- (ipconfig): Alias to ifconfig.
- (ifconfig-program): Rename from ipconfig-program.
- (ifconfig-program-options): Rename from ipconfig-program-options.
-
-2008-02-08 Glenn Morris <rgm@gnu.org>
-
- * custom.el (custom-theme-set-variables): Sort symbols that are
- dependencies before symbols that depend on them.
- (custom-enabled-themes): Set after custom-theme-directory.
-
-2008-02-04 Juanma Barranquero <lekktu@gmail.com>
-
- * w32-vars.el (w32-system-shells): Add TCC (new name for 4NT).
-
-2008-02-04 Michael McNamara <mac@mail.brushroad.com>
-
- * progmodes/verilog-mode.el (verilog-declaration-core-re):
- Add port directions by themselves, with no qualification, as base
- item of a declaration.
- (verilog-pretty-declarations): Add new flag that inhibits printing
- to the message buffer.
- (verilog-pretty-expr): Add new flag that inhibits printing to the
- message buffer. Improve handling of the many types of expression
- line up.
- (verilog-just-one-space): Don't print an empty message.
- (verilog-get-lineup-indent): Rework to support the better handling
- of expression lineup for verilog-pretty-expr.
- (verilog-auto-wire): Pass the quiet flag to verilog-pretty-expr.
- (verilog-mode-version, verilog-mode-release-date): Update.
-
-2008-02-04 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * subr.el (cancel-change-group): Don't move point.
-
-2008-02-02 Michael Albinus <michael.albinus@gmx.de>
-
- Sync with Tramp 2.0.57.
-
- * net/tramp.el (tramp-handle-make-auto-save-file-name)
- (tramp-completion-dissect-file-name, tramp-find-executable):
- Use `mapc' instead of `mapcar'.
- (tramp-open-connection-setup-interactive-shell): Send only single
- prompt setting commands, in order to avoid double-prompt.
-
- * net/tramp-vc.el (tramp-vc-do-command): Use `mapc' instead of
- `mapcar'.
-
- * net/trampver.el: Update release number.
-
-2008-02-01 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/etags.el (next-file): Improve revert message.
-
-2008-02-01 Juanma Barranquero <lekktu@gmail.com>
-
- * term/w32-win.el (image-library-alist): Prefer libpng12 to libpng13,
- because the latter is in fact a 1.2.8 build distributed with GTK+ (as
- of today, the most recent libpng is 1.2.24).
-
-2008-02-01 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * vc.el (vc-update): Fix bug: Specify branch tip as
- vc-checkout REVISION. Reported by Dan Nicolaescu.
-
-2008-02-01 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * simple.el (reindent-then-newline-and-indent): Be careful about the
- unusual case where indent-according-to-mode moves point.
-
-2008-02-01 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (verilog-sk-prompt-msb)
- (verilog-sk-module, verilog-sk-function, verilog-sk-begin)
- (verilog-sk-if, verilog-sk-wire, verilog-sk-for)
- (verilog-sk-state-machine): Quote all calls to
- "auxiliary skeleton"s to prevent infloops.
-
-2008-01-31 Jason Rumney <jasonr@gnu.org>
-
- * w32-fns.el: Partially revert 2007-11-10 change.
-
-2008-01-31 Martin Rudalics <rudalics@gmx.at>
-
- * mail/rmail.el (rmail-highlight): Fix specification.
- Reported by pod <pod@herald.ox.ac.uk>.
-
-2008-01-31 Jason Rumney <jasonr@gnu.org>
-
- * term/w32-win.el (image-library-alist): Prefer libxpm.dll.
-
-2008-01-30 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-set-format-regexp): New constant.
- (gdb-var-set-format-handler): New function.
- (gdb-var-set-format): Use it.
-
-2008-01-29 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-langs.el (c-block-stmt-1-kwds, c-block-stmt-2-kwds)
- (c-simple-stmt-kwds): New Objective C keywords: @finally, @try,
- @catch, @synchronized, @throw.
-
- * progmodes/cc-langs.el (c-specifier-key): Exclude "template"
- from this regexp; part of same fix as next change to cc-engine.el.
-
- * progmodes/cc-engine.el (c-guess-basic-syntax, CASE 5A.5):
- Anchor the "{" of a template function correctly on "template", not the
- following "<".
-
- * progmodes/cc-defs.el (c-version): Increase to 5.31.5.
-
-2008-01-29 Richard Stallman <rms@gnu.org>
-
- * progmodes/etags.el (tags-query-replace): Delete unused optional args.
- Doc fix.
-
- * files.el (hack-local-variables): Don't query about fake variables.
-
-2008-01-27 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-create-define-alist): Don't call
- gdb-cpp-define-alist-program if file is nil (currently only
- " *partial-output-...").
-
-2008-01-27 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-awk.el, progmodes/cc-engine.el: Correct typos,
- enhance comments.
-
-2008-01-27 Richard Stallman <rms@gnu.org>
-
- * allout.el: Many doc fixes.
- (allout-encrypt-string): Fix error message.
-
-2008-01-26 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-vars.el (c-hanging-braces-alist): New element for
- arglist-cont-nonempty.
-
- * progmodes/cc-cmds.el (c-brace-newlines): Determine the newlines
- for a brace with syntax arglist-cont-nonempty.
-
- * progmodes/cc-styles.el (c-style-alist): Add elements for
- arglist-cont-nonempty into 5 styles (gnu, ellemtel, linux, python,
- awk).
-
-2008-01-26 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-defs.el (c-save-buffer-state):
- Bind buffer-file-name and buffer-file-truename to nil, to prevent
- primitives generating "buffer is read only" messages.
-
-2008-01-26 Eli Zaretskii <eliz@gnu.org>
-
- * progmodes/etags.el (tags-query-replace): Doc fix.
-
-2008-01-26 Phil Sung <psung@mit.edu> (tiny change)
-
- * wdired.el (wdired-get-filename): Change `(1+ beg)' to `beg' so
- that the filename end is found even when the filename is empty.
- Fixes error and spurious newlines when marking files for deletion.
-
-2008-01-25 Juanma Barranquero <lekktu@gmail.com>
-
- * allout.el (allout-unload-function): New function.
-
-2008-01-25 Sven Joachim <svenjoac@gmx.de>
-
- * view.el (kill-buffer-if-not-modified): Don't pass t to
- buffer-modified-p.
-
-2008-01-25 Juanma Barranquero <lekktu@gmail.com>
-
- * allout.el (allout-prefix-data): Doc fix.
- (allout-show-current-subtree): Reflow docstring.
- (allout-use-mode-specific-leader, allout-use-hanging-indents)
- (produce-allout-mode-map, allout-overlay-interior-modification-handler)
- (allout-next-heading, allout-previous-heading, allout-rebullet-heading)
- (allout-rebullet-topic, allout-rebullet-topic-grunt, allout-kill-topic)
- (allout-copy-topic-as-kill, allout-listify-exposed)
- (allout-process-exposed, allout-encrypted-key-info)
- (allout-update-passphrase-mnemonic-aids)
- (allout-next-topic-pending-encryption)
- (allout-tests-globally-true): Fix typos in docstrings.
-
-2008-01-24 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc.el (vc-version-diff): Make sure we shrink the right window.
-
-2008-01-23 Jason Rumney <jasonr@gnu.org>
-
- * lpr.el (printer-name): Do not set on MS Windows.
-
-2008-01-20 Glenn Morris <rgm@gnu.org>
-
- * progmodes/python.el: Quote all calls to "auxiliary skeleton"s to
- prevent infloops.
-
-2008-01-20 Martin Svenson <phromo@gmail.com> (tiny change)
-
- * progmodes/python.el (python-imports): Default to "None".
-
-2008-01-19 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/sh-script.el (sh-basic-offset):
- * progmodes/cc-vars.el (c-syntactic-indentation)
- (c-syntactic-indentation-in-macros): Mark as safe.
-
-2008-01-18 Richard Stallman <rms@gnu.org>
-
- * icomplete.el (icomplete-get-keys):
- Look up KEYS using all maps in proper buffer.
-
-2008-01-16 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-vars.el (c-constant-symbol): Put this defun inside an
- eval-and-compile, so as to permit byte-compiling (e.g. in bootstrap).
-
-2008-01-16 Juanma Barranquero <lekktu@gmail.com>
-
- * frame.el (display-mm-height, display-mm-width):
- * whitespace.el (whitespace-check-leading-whitespace)
- (whitespace-check-trailing-whitespace)
- (whitespace-check-spacetab-whitespace)
- (whitespace-check-indent-whitespace)
- (whitespace-check-ateol-whitespace):
- * progmodes/ada-xref.el (ada-convert-file-name): Fix typo in docstring.
-
-2008-01-16 Glenn Morris <rgm@gnu.org>
-
- * comint.el (comint-regexp-arg): Fix no-input case.
-
-2008-01-16 Ulf Jasper <ulf.jasper@web.de>
-
- * calendar/icalendar.el (icalendar-export-file)
- (icalendar-import-file): Restore significant trailing whitespace
- in `interactive' prompts.
-
-2008-01-15 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-arch.el (vc-arch-delete-rej-if-obsolete): Remove the
- after-save-hook so that it is not called multiple times.
-
- * vc-svn.el (vc-svn-resolve-when-done): Likewise.
-
-2008-01-15 Glenn Morris <rgm@gnu.org>
-
- * diff-mode.el (diff-end-of-hunk): Revert 2008-01-08 change.
-
-2008-01-14 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-vars.el (c-constant-symbol): New function which
- supersedes c-const-symbol. During a customize-.. call it enables
- an element of (e.g.) c-hanging-braces alist to have its name
- displayed, even when the default value of c-h-b etc. doesn't
- include the elemnt. Replace uses of the old function by the new.
-
- * progmodes/cc-vars.el (c-hanging-braces-alist): Remove the
- obscure non-working fragment ":value c-".
-
- * progmodes/cc-engine.el (c-guess-basic-syntax): Prevent a macro
- call inside a struct being recognised as a K&R argument.
-
-2008-01-14 Jason Rumney <jasonr@gnu.org>
-
- * image.el (image-type): Use image-type-from-file-name (from trunk
- 2007-05-21 Chong Yidong <cyd@stupidchicken.com>).
-
-2008-01-12 Glenn Morris <rgm@gnu.org>
-
- * woman.el (woman-parse-numeric-arg): Change handling of `==':
- can be interned without a function definition.
-
-2008-01-12 Eli Zaretskii <eliz@gnu.org>
-
- * view.el (view-file-other-window, view-file-other-frame):
- Don't kill the buffer if it is modified. Doc fixes.
- (kill-buffer-if-not-modified): New function.
- (view-file): Don't kill the buffer if it is modified.
-
- * progmodes/ebrowse.el (ebrowse-view-file-other-window): Delete.
- (ebrowse-view/find-file-and-search-pattern):
- Call view-file-other-window instead of ebrowse-view-file-other-window.
- (ebrowse-view-file-other-frame): Don't call
- current-window-configuration. Fix second argument in the call to
- view-mode-enter. Doc fix.
-
-2008-01-11 Richard Stallman <rms@gnu.org>
-
- * subr.el (atomic-change-group): Prevent undo list truncation.
-
-2008-01-11 Martin Rudalics <rudalics@gmx.at>
-
- * cus-start.el (all): Add missing version entries.
-
-2008-01-10 Dan Nicolaescu <dann@ics.uci.edu>
-
- * files.el (safe-local-eval-forms):
- Mark (add-hook 'write-file-hooks 'time-stamp) as safe.
-
-2008-01-10 Nick Roberts <nickrob@snap.net.nz>
-
- * comint.el (comint-insert-input): Set point first.
-
- * progmodes/gdb-ui.el (gdb-dequeue-input): Make doubly sure
- session doesn't hang because gdb-pending-triggers is non-nil.
- (gdb-frame-handler): Use buffer-file-name instead of
- buffer-name in case of duplicate file names.
-
-2008-01-10 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (verilog-mode-map): Don't bind C-M-a,
- C-M-e and C-M-h for emacs, they work by default.
- (verilog-emacs-features): Remove.
- (verilog-setup-dual-comments, verilog-populate-syntax-table):
- Remove. Move syntax table initialization ...
- (verilog-mode-syntax-table): ... here.
- (verilog-mode): Don't initialize the syntax table here.
- (verilog-mark-defun): Only do something useful for XEmacs, Emacs
- does not need it.
-
-2008-01-10 Glenn Morris <rgm@gnu.org>
-
- * shell.el (shell-dirtrack-verbose, shell-mode)
- (shell-directory-tracker, shell-dirtrack-mode): Doc fix.
- (dirtrack-toggle, dirtrack-mode): No longer alias to
- shell-dirtrack-mode.
-
-2008-01-10 Kenichi Handa <handa@ni.aist.go.jp>
-
- * international/mule-cmds.el (select-safe-coding-system):
- When a buffer is modified, cancel the writing.
-
-2008-01-09 Wilson Snyder <wsnyder@wsnyder.org>
-
- * progmodes/verilog-mode.el (verilog-booleanp): New function for
- backward compatibility. Replace all uses of booleanp with
- verilog-booleanp.
-
-2008-01-09 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-diff): Don't pass an empty string.
-
-2008-01-09 Wilson Snyder <wsnyder@wsnyder.org>
-
- * progmodes/verilog-mode.el (top-level): Fix spacing.
- (verilog-mode-version, verilog-mode-release-date): Update version
- number.
- (verilog-mode-release-emacs): New variable.
- (compile-command, reporter-prompt-for-summary-p): Define for byte
- compiler.
- (verilog-startup-message-lines)
- (verilog-startup-message-displayed)
- (verilog-display-startup-message): Remove.
- (verilog-highlight-p1800-keywords): Improve docstring.
- (sigs-in, sigs-out, got-sig, got-rvalue, uses-delayed)
- (vector-skip-list): Only defvar at compile time.
- (verilog-highlight-translate-off, verilog-indent-level)
- (verilog-indent-level-module, verilog-indent-level-declaration)
- (verilog-indent-declaration-macros, verilog-indent-lists)
- (verilog-indent-level-behavioral)
- (verilog-indent-level-directive, verilog-cexp-indent)
- (verilog-case-indent, verilog-auto-newline)
- (verilog-auto-indent-on-newline, verilog-tab-always-indent)
- (verilog-tab-to-comment, verilog-indent-begin-after-if)
- (verilog-align-ifelse, verilog-minimum-comment-distance)
- (verilog-auto-lineup, verilog-highlight-p1800-keywords)
- (verilog-auto-endcomments, verilog-auto-read-includes)
- (verilog-auto-star-expand, verilog-auto-star-save)
- (verilog-library-flags, verilog-library-directories)
- (verilog-library-files, verilog-library-extensions)
- (verilog-active-low-regexp, verilog-auto-sense-include-inputs)
- (verilog-auto-sense-defines-constant, verilog-auto-reset-widths)
- (verilog-assignment-delay, verilog-auto-inst-vector)
- (verilog-auto-inst-template-numbers)
- (verilog-auto-input-ignore-regexp)
- (verilog-auto-inout-ignore-regexp)
- (verilog-auto-output-ignore-regexp)
- (verilog-auto-unused-ignore-regexp, verilog-typedef-regexp):
- Add safe-local-variable properties.
- (verilog-statement-menu, verilog-company)
- (verilog-re-search-forward, verilog-re-search-backward)
- (verilog-error-regexp-add, verilog-end-block-re)
- (verilog-emacs-features, verilog-populate-syntax-table)
- (verilog-setup-dual-comments, verilog-type-font-keywords)
- (verilog-inside-comment-p, electric-verilog-backward-sexp)
- (verilog-backward-sexp, verilog-forward-sexp)
- (verilog-font-lock-init, verilog-mode)
- (electric-verilog-terminate-line, electric-verilog-semi)
- (electric-verilog-tab, verilog-insert-1, )
- (verilog-insert-indices, verilog-generate-numbers)
- (verilog-comment-region, verilog-label-be)
- (verilog-beg-of-statement, verilog-in-case-region-p)
- (verilog-in-struct-region-p, verilog-in-generate-region-p)
- (verilog-in-fork-region-p, verilog-backward-case-item)
- (verilog-set-auto-endcomments, verilog-get-expr)
- (verilog-expand-vector-internal, verilog-surelint-off)
- (verilog-batch-execute-func, verilog-calculate-indent)
- (verilog-calc-1, verilog-calculate-indent-directive)
- (verilog-leap-to-head, verilog-continued-line)
- (verilog-backward-token, verilog-backward-syntactic-ws)
- (verilog-forward-syntactic-ws, verilog-backward-ws&directives)
- (verilog-forward-ws&directives, verilog-at-constraint-p)
- (verilog-skip-backward-comments, verilog-indent-line-relative)
- (verilog-do-indent, verilog-indent-comment)
- (verilog-more-comment, verilog-pretty-declarations)
- (verilog-pretty-expr, verilog-just-one-space)
- (verilog-indent-declaration, verilog-get-completion-decl)
- (verilog-goto-defun, verilog-showscopes, verilog-header)
- (verilog-signals-combine-bus, verilog-read-decls)
- (verilog-read-always-signals-recurse, verilog-read-instants)
- (verilog-read-auto-template, verilog-set-define)
- (verilog-read-defines, verilog-read-signals, verilog-getopt)
- (verilog-is-number, verilog-expand-dirnames)
- (verilog-modi-lookup, verilog-modi-cache-results)
- (verilog-insert-one-definition, verilog-make-width-expression)
- (verilog-delete-autos-lined, verilog-auto-save-check)
- (verilog-auto-arg, verilog-auto-inst-port, verilog-auto-inst)
- (verilog-auto-inst-param, verilog-auto-reg)
- (verilog-auto-reg-input, verilog-auto-wire, )
- (verilog-auto-output, verilog-auto-output-every)
- (verilog-auto-input, verilog-auto-inout)
- (verilog-auto-inout-module, verilog-auto-sense)
- (verilog-auto-reset, verilog-auto-tieoff, verilog-auto-unused)
- (verilog-auto-ascii-enum, verilog-auto)
- (verilog-sk-define-signal, verilog-mode-mouse-map)
- (verilog-load-file-at-mouse, verilog-load-file-at-point)
- (verilog-library-files): Cleanup spacing of )'s they should not be
- on unique lines. Fix checkdoc warnings.
-
-2008-01-09 Glenn Morris <rgm@gnu.org>
-
- * ffap.el (ffap-string-at-point-mode-alist): Add `\' to file
- entry, for Windows.
-
-2008-01-09 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Some face attributes (like :strike-through) was not
- being recognised. Reported by Leo <sdl.web@gmail.com>.
- (ps-face-strikout-p, ps-face-overline-p, ps-face-box-p): New funs.
- (ps-screen-to-bit-face): Fix code.
-
-2008-01-08 Kevin Ryde <user42@zip.com.au>
-
- * progmodes/compile.el (compilation-error-regexp-alist-alist):
- For perl, allow "during global destruction" at end.
-
-2008-01-08 Glenn Morris <rgm@gnu.org>
-
- * diff-mode.el (diff-end-of-hunk): Don't match empty lines in
- unified format.
-
- * mouse.el (mouse-major-mode-menu): Suppress duplicate menus.
-
-2008-01-08 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-list-children-1): Put varnum in
- quotes in case of spaces, e.g. STL containers (not pretty).
-
-2008-01-07 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-log-view-mode): Handle the user field better.
-
-2008-01-07 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gud-gdb-command-name):
- Explain "--annotate=3" option is necessary for the Graphical Interface.
-
-2008-01-07 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-dir-state): Pass the dir argument to vc-hg-command.
-
-2008-01-07 Glenn Morris <rgm@gnu.org>
-
- * calc/calc-help.el (calc-full-help): Use emacs-copyright.
-
-2008-01-06 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/hideif.el (hide-ifdef-mode-menu): Put hide-ifdef commands
- on menu bar.
-
-2008-01-06 Michael Albinus <michael.albinus@gmx.de>
-
- * ffap.el (ffap-read-file-or-url): Let-bind
- `file-name-handler-alist' due to `rfn-eshadow-update-overlay'.
-
-2008-01-05 Sven Joachim <svenjoac@gmx.de>
-
- * vc-bzr.el: Fix typo in header.
-
-2008-01-05 Eli Zaretskii <eliz@gnu.org>
-
- * Makefile.in (custom-deps, finder-data): Depend on autoloads
- instead of loaddefs.el.
-
-2008-01-05 Glenn Morris <rgm@gnu.org>
-
- * progmodes/verilog-mode.el: Replace all instances of
- string-to-int with string-to-number, insert-string with insert,
- and read-input with read-string.
- (top-level): No need to require imenu, reporter, dinotrace, vc,
- font-lock when compiling. Always require compile. Relegate remaining
- compatibility cruft to XEmacs. Don't require font-lock.
- (verilog-version): Remove superfluous concat.
- (dinotrace-unannotate-all, zmacs-activate-region, customize-apropos):
- No need to define.
- (verilog-regexp-opt): On Emacs, just make it an alias for regexp-opt.
- (verilog-font-lock-keywords, verilog-font-lock-keywords-1)
- (verilog-font-lock-keywords-2, verilog-font-lock-keywords-3)
- (verilog-startup-message-displayed): These are variables, not constants.
- (verilog-batch-execute-func, verilog-auto-inst)
- (verilog-auto-inst-param): Use mapc rather than mapcar.
- (sigs-in, sigs-inout, sigs-out): Define for compiler rather than
- actually defining.
- (verilog-modi-get-decls, verilog-modi-get-sub-decls)
- (verilog-modi-get-outputs, verilog-modi-get-inouts)
- (verilog-modi-get-inputs, verilog-modi-get-wires)
- (verilog-modi-get-regs, verilog-modi-get-assigns)
- (verilog-modi-get-consts, verilog-modi-get-gparams)
- (verilog-modi-get-sub-outputs, verilog-modi-get-sub-inouts)
- (verilog-modi-get-sub-inputs): Move inline functions earlier in
- the file.
- (sigs-in, sigs-out): Don't declare multiple times.
- (got-sig, got-rvalue, uses-delayed): Define for compiler with just
- `defvar'.
- (verilog-auto): Call dinotrace-unannotate-all only if bound.
- (verilog-module-inside-filename-p): No need to wrap fboundp test
- in condition-case.
- (reporter-submit-bug-report): Autoload it.
- (verilog-mark-defun): Call zmacs-activate-region only if bound.
- (verilog-font-customize): Call customize-apropos only if bound.
- (verilog-getopt-flags, verilog-auto-reeval-locals):
- Use make-local-variable rather than make-variable-buffer-local.
- (verilog-company, verilog-project, verilog-modi-cache-list):
- Move make-variable-buffer-local calls to top-level.
- (font-lock-defaults-alist): Don't define it.
- (verilog-need-fld): Remove.
- (verilog-font-lock-init): Don't set font-lock-defaults-alist.
- (verilog-mode): Only call make-local-hook on XEmacs.
- Set font-lock-defaults rather than using verilog-font-lock-init.
-
- * progmodes/verilog-mode.el (top-level): Don't require compile.
- (compilation-error-regexp-alist, compilation-last-buffer):
- Define for compiler.
- (verilog-insert-1): New function.
- (verilog-insert-indices, verilog-generate-numbers): Doc fixes.
- Use verilog-insert-1.
- (verilog-surelint-off): Use next-error-last-buffer if bound.
- Check compile buffer is live.
-
-2008-01-05 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-cvs.el (vc-cvs-annotate-time): Don't move backward when text
- gets inserted out-of-order.
-
-2008-01-04 Riccardo Murri <riccardo.murri@gmail.com>
-
- * vc-bzr.el: Copyright and version headers update.
- Remove some outdated comments through the whole file.
- (vc-bzr-program-args): Remove because unused.
- (vc-bzr-log-switches): New customization option.
- (vc-bzr-command): Use LC_MESSAGES=C instead of LC_ALL=C. No longer
- use `vc-bzr-program-args'.
- (vc-bzr-register): Fix for working with both 22.1 and CVS version of
- `vc-find-root' (patch by Andreas Hoenen).
- (vc-bzr-status): Update regex to match latest Bzr output.
- Remove redundant test.
- (vc-bzr-init-version): New function.
- (vc-bzr-unregister): Must not delete file.
- (vc-bzr-find-version): New function.
- (vc-bzr-checkout): Argument `rev' is explicit revision only if it's
- a non-empty string, otherwise take head revision.
- (vc-bzr-print-log): Pass `vc-bzr-log-switches' to "bzr log".
- (vc-bzr-diff): Simpler build of the revision spec string.
- (vc-annotate-convert-time, vc-bzr-annotate-difference):
- Remove: compatibility hacks for Emacs21, not needed in Emacs 22.
- (vc-bzr-dir-state): Add code comments. Removed redundant statement.
- (vc-bzr-dired-state-info): Only provide custom strings for
- overloaded VC state 'edited; otherwise fallback to
- `vc-default-dired-state-info'.
-
-2008-01-04 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-git.el (vc-git-dir-state):
- * vc-hg.el (vc-hg-dir-state): Set the vc-backend property.
-
-2008-01-04 Richard Stallman <rms@gnu.org>
-
- * delsel.el (delete-selection-mode): Doc fix.
-
-2008-01-04 Glenn Morris <rgm@gnu.org>
-
- * version.el (emacs-copyright): Update to 2008.
-
-2008-01-03 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-def): Do nothing if gud-running is t.
- (gud-speedbar-menu-items): Add item for gdb-var-set-format below.
-
- * progmodes/gdb-ui.el (gdb-var-set-format): Set the output format
- of watch expressions (only works fully with GDB 6.7 or later).
-
-2008-01-03 Dan Nicolaescu <dann@ics.uci.edu>
-
- * time-stamp.el (time-stamp-time-zone):
- * whitespace.el (whitespace-check-buffer-leading)
- (whitespace-check-buffer-trailing)
- (whitespace-check-buffer-indent)
- (whitespace-check-buffer-spacetab)
- (whitespace-check-buffer-ateol):
- * progmodes/sh-script.el (sh-indentation):
- * textmodes/ispell.el (ispell-local-pdict):
- Add safe-local-variable properties.
-
-2007-12-31 Richard Stallman <rms@gnu.org>
-
- * cus-edit.el (custom-add-parent-links): New arg DOC-INITIAL-STRING.
- Defaults for INITIAL-STRING and DOC-INITIAL-STRING do not include
- `parent'.
- (custom-group-value-create): Pass two args to custom-add-parent-links.
-
-2007-12-29 Richard Stallman <rms@gnu.org>
-
- * font-lock.el (font-lock-prepend-text-property)
- (font-lock-append-text-property): Canonicalize the face and
- font-lock-face properties.
-
- * faces.el (facep): Doc fix.
-
- * startup.el (fancy-startup-tail, fancy-about-text)
- (fancy-startup-text): Regularize format of face property.
-
- * facemenu.el (list-colors-print): Use :background and :foreground
- instead of background-color and foreground-color.
-
-2007-12-29 Drew Adams <drew.adams@oracle.com>
-
- * cus-edit.el (custom-add-parent-links):
- Fill the "Parent documentation" text.
-
-2007-12-29 Eli Zaretskii <eliz@gnu.org>
-
- * textmodes/ispell.el (ispell-grep-command): Use "grep" on
- MS-Windows and MS-DOS.
- (ispell-grep-options): Use "-Ei" on MS-Windows and MS-DOS.
-
-2007-12-28 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * progmodes/grep.el (rgrep): Fix last change.
-
-2007-12-27 Richard Stallman <rms@gnu.org>
-
- * progmodes/compile.el (compilation-start): Set initial visible
- point properly even when compilation buffer already current.
-
-2007-12-26 Richard Stallman <rms@gnu.org>
-
- * files.el (conf-mode-maybe): New function.
- (auto-mode-alist): Use conf-mode-maybe for .conf etc.
-
-2007-12-26 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/fill.el (fill-find-break-point): Fix doc-string typo.
-
-2007-12-25 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/asm-mode.el (asm-mode-map): Add a major mode menu.
-
-2007-12-25 Richard Stallman <rms@gnu.org>
-
- * comint.el (comint-mode-map): Explicitly bind `delete' and `kp-delete'
- so they never do EOF.
-
-2007-12-23 Richard Stallman <rms@gnu.org>
-
- * dired-aux.el: Load dired.el at run time too.
-
- * faces.el (copy-face): Create the new face explicitly if it
- does not exist already.
-
-2007-12-23 Andreas Schwab <schwab@suse.de>
-
- * files.el (switch-to-buffer-other-frame): Return the buffer
- switched to.
-
-2007-12-23 Juri Linkov <juri@jurta.org>
-
- * term/mac-win.el (mac-apple-event-map): Bind About Emacs menu
- item to about-emacs instead of display-splash-screen.
-
-2007-12-22 Eli Zaretskii <eliz@gnu.org>
-
- * simple.el (minibuffer-history, shell-command-history)
- (set-variable-value-history):
- * replace.el (regexp-history):
- * international/mule-cmds.el (input-method-history):
- * files.el (file-name-history): Add reference to history-length in
- the doc string.
-
-2007-12-22 Richard Stallman <rms@gnu.org>
-
- * comint.el (comint-password-prompt-regexp): Match `Enter Password'.
-
-2007-12-21 Jason Rumney <jasonr@gnu.org>
-
- * find-dired.el (find-name-arg): New custom variable.
- (find-name-dired): Use it.
- (find-dired-find-program): Remove.
- (find-dired): Use find-program.
- (find-grep-dired): Use grep-program.
-
- * progmodes/grep.el (rgrep): Use find-name-arg.
-
-2007-12-21 Martin Rudalics <rudalics@gmx.at>
-
- * autoinsert.el (auto-insert-alist): Remove nonsensical precision
- specifier from format-string. Reported by Ye Wenbin.
-
-2007-12-19 Martin Rudalics <rudalics@gmx.at>
-
- * cus-start.el: Use correct group name for members of mode-line group.
-
-2007-12-17 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * progmodes/cc-vars.el (defcustom-c-stylevar):
- Revert to pre-2007-12-12 version.
-
-2007-12-15 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/find-func.el (find-function-after-hook): Add :type.
-
- * info.el (Info-clone-buffer): Rename from Info-clone-buffer-hook.
- Use changed.
-
- * startup.el (fancy-splash-help-echo): Var deleted.
- (fancy-splash-insert): Get help-echo from (startup-echo-area-message).
- (fancy-about-screen): Don't display fancy-splash-help-echo.
-
- * menu-bar.el (menu-bar-describe-menu): Remove dots from menu text.
-
-2007-12-12 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * progmodes/cc-vars.el (defcustom-c-stylevar): Rewrite.
-
-2007-12-11 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (set-buffer-menubar): Remove unused
- function.
- (add-submenu): Only define for XEmacs.
- (verilog-regexp-words): Revert previous change, keep the other
- definition.
-
-2007-12-09 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/perl-mode.el (perl-continued-statement-offset)
- (perl-continued-brace-offset, perl-brace-offset)
- (perl-brace-imaginary-offset, perl-label-offset):
- * progmodes/cperl-mode.el (cperl-brace-offset)
- (cperl-continued-brace-offset, cperl-label-offset)
- (cperl-continued-statement-offset)
- (cperl-extra-newline-before-brace, cperl-merge-trailing-else):
- Add safe-local-variable properties.
-
-2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (verilog-mode-map)
- (verilog-template-map, verilog-mode-mouse-map): Fix typos.
- (verilog-colorize-include-files): Use only overlay functions so
- that it can work on both Emacs and XEmacs.
- (set-extent-keymap): Remove unused defun.
- (verilog-kill-existing-comment, verilog-insert-date)
- (verilog-insert-year): Rename in order not to pollute the global
- namespace from kill-existing-comment, insert-date and
- insert-year, respectively.
- (verilog-set-auto-endcomments, verilog-header): Update callers.
-
- * files.el (auto-mode-alist): Recognize verilog files.
-
- * progmodes/verilog-mode.el (verilog-string-replace-matches)
- (verilog-string-remove-spaces, verilog-re-search-forward)
- (verilog-re-search-backward, verilog-re-search-forward-quick)
- (verilog-re-search-backward-quick, verilog-get-beg-of-line)
- (verilog-get-end-of-line, verilog-within-string): Move definitions
- before first use. No code changes.
-
-2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/verilog-mode.el (verilog-mode-version)
- (verilog-mode-release-date): Don't use expanding keywords.
- (provide): Move to the end of file.
- (fboundp): Don't check if eval-when-compile is bound, it is used
- later in the file without checking.
- (when, unless): Copy definitions from subr.el.
- (char-before, defcustom, defface, customize-group)
- (verilog-batch-error-wrapper): Don't use old style backquotes.
- (verilog-regexp-opt): Avoid using the cl function case.
- (verilog-regexp-words): Remove duplicated definition.
- (verilog-mode-abbrev-table): Remove, duplicate.
- (verilog-mode-map, verilog-template-map, verilog-mode-mouse-map):
- Declare and initialize in one step.
- (verilog-declaration-prefix-re, verilog-declaration-re)
- (verilog-end-of-statement, verilog-indent-declaration)
- (verilog-get-lineup-indent): Remove trailing whitespace.
- (verilog-mode): Fix autoload cookie.
- Set beginning-of-defun-function and end-of-defun-function.
- Use when instead of if.
- (verilog-emacs-features, verilog-auto-ascii-enum)
- (verilog-insert-indices): Escape braces in doc strings.
-
-2007-12-08 Michael McNamara <mac@verilog.com>
- Wilson Snyder <wsnyder@wsnyder.org>
-
- * progmodes/verilog-mode.el: New file.
-
-2007-12-08 Eli Zaretskii <eliz@fencepost.gnu.org>
-
- * international/latexenc.el (latexenc-find-file-coding-system):
- If both coding-system-for-write and buffer-file-coding-system of
- latex-main-file are nil, use `undecided'.
-
-2007-12-06 Jason Rumney <jasonr@gnu.org>
-
- * mouse.el (mouse-buffer-menu-alist): Keep buffer names left aligned.
-
-2007-12-04 Juanma Barranquero <lekktu@gmail.com>
-
- * ido.el (ido-save-history): Use emacs-mule coding system
- instead of utf-8 to save filenames (it's safer in Emacs 22).
- Set the `coding' local variable on the first line of the file.
-
-2007-12-04 Karl Fogel <kfogel@red-bean.com>
-
- * saveplace.el (save-place-alist-to-file): Save with 'emacs-mule'
- coding system. This ports revisions 1.40 and 1.41 over to the
- EMACS_22_BASE branch, but with the right coding system for Emacs
- 22 to reliably record filenames. Suggested by Eli Zaretskii.
-
-2007-12-01 Richard Stallman <rms@gnu.org>
-
- * wid-edit.el (widget-type): Doc fix.
-
-2007-12-01 Dan Nicolaescu <dann@ics.uci.edu>
-
- * emacs-lisp/byte-run.el (declare-function): Change to a macro.
-
-2007-12-01 Alexandre Julliard <julliard@winehq.org>
-
- * vc-git.el (vc-git-dir-state): Fix the git command arguments.
-
-2007-11-30 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
- Don't match "sub { (...) ... }".
-
-2007-11-29 Richard Stallman <rms@gnu.org>
-
- * international/mule-cmds.el (toggle-input-method-active): New var.
- (toggle-input-method): Bind toggle-input-method-active to t.
- Error if it was already non-nil.
-
-2007-11-29 Glenn Morris <rgm@gnu.org>
-
- * calendar/time-date.el (with-decoded-time-value): Doc fix.
-
-2007-11-29 Ari Roponen <ari.roponen@gmail.com> (tiny change)
-
- * calendar/time-date.el (encode-time-value): Doc fix.
-
-2007-11-26 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/bytecomp.el (batch-byte-recompile-directory): Doc fix.
-
-2007-11-24 Kenichi Handa <handa@m17n.org>
-
- * international/ucs-tables.el (ucs-8859-7-alist): Update the table.
-
-2007-11-22 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-gtk-map-stock): Check if FILE is a string.
-
-2007-11-21 Juanma Barranquero <lekktu@gmail.com>
-
- * textmodes/paragraphs.el (forward-sentence): Doc fix.
- Reported by Drew Adams <drew.adams@oracle.com>.
-
-2007-11-20 Glenn Morris <rgm@gnu.org>
-
- * emacs-lisp/byte-run.el (declare-function): Define as a no-op,
- for compatibility with Emacs 23.
-
-2007-11-19 Juanma Barranquero <lekktu@gmail.com>
-
- * replace.el (map-query-replace-regexp): Doc fix (revert part of
- 2000-05-21T17:04:47Z!fx@gnu.org made on 2000-05-21 with no ChangeLog entry).
-
-2007-11-19 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el: Update commentary.
-
-2007-11-16 Eli Zaretskii <eliz@gnu.org>
-
- * international/mule-cmds.el (set-locale-environment):
- Set default-file-name-coding-system _after_ keyboard and terminal
- coding systems. This fixes last change.
-
- * mail/rmail.el (rmail-current-subject-regexp): Allow more than
- one space after "Subject:".
-
-2007-11-16 Juanma Barranquero <lekktu@gmail.com>
-
- * subr.el (make-variable-frame-local):
- Fix typo in obsolescence declaration.
-
-2007-11-16 Glenn Morris <rgm@gnu.org>
-
- * mail/mail-extr.el (mail-extr-all-top-level-domains): Update domains.
-
-2007-11-16 Rob Riepel <riepel@Stanford.EDU>
-
- * emulation/tpu-extras.el (tpu-next-line, tpu-previous-line)
- (tpu-forward-line, tpu-backward-line, tpu-scroll-window-down)
- (tpu-scroll-window-up): Replace next-line-internal -> line-move.
-
-2007-11-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs-parse.el (cvs-parse-table): Ignore errors when looking up files
- in order to determine if there's a conflict.
-
-2007-11-16 Juri Linkov <juri@jurta.org>
-
- * man.el (Man-heading-regexp): Add 0-9.
- (Man-first-heading-regexp): Remove leading space [ \t]* before NAME.
-
-2007-11-15 Juanma Barranquero <lekktu@gmail.com>
-
- * progmodes/cc-engine.el (c-crosses-statement-barrier-p):
- Fix typo in docstring.
-
- * emulation/cua-base.el (cua-paste-pop): Fix typo in docstring.
- (cua-highlight-region-shift-only): Doc fix.
-
-2007-11-15 Richard Stallman <rms@gnu.org>
-
- * bindings.el (esc-map): Bind C-M-l here; moved from reposition.el.
-
- * reposition.el (reposition-window):
- Binding C-M-l moved to bindings.el.
-
- * bindings.el (ctl-x-4-map): Bind C-x 4 a here; moved from add-log.el.
-
- * add-log.el (add-change-log-entry-other-window):
- Key binding C-x 4 a moved to bindings.el.
-
- * bindings.el (minibuffer-local-map): Bind C-tab here; moved
- from filecache.el.
-
- * filecache.el: Minibuffer map bindings moved to bindings.el.
-
-2007-11-14 Jason Rumney <jasonr@gnu.org>
-
- * international/mule-cmds.el (set-locale-environment):
- Set default-file-name-coding-system from system defaults on Windows.
-
-2007-11-14 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-parent-bptno-enabled): New variable.
- (gdb-breakpoint-regexp, gdb-mouse-toggle-breakpoint-margin)
- (gdb-mouse-toggle-breakpoint-fringe, gdb-delete-breakpoint)
- (gdb-goto-breakpoint): Generalise for breakpoints with multiple
- locations.
- (gdb-info-breakpoints-custom, gdb-assembler-custom)
- (gdb-toggle-breakpoint): Update for new gdb-breakpoint-regexp.
- (gdb-put-breakpoint-icon): Only display icon for parent breakpoint.
-
-2007-11-11 Juanma Barranquero <lekktu@gmail.com>
-
- * international/iso-cvt.el (iso-translate-conventions): Doc fix.
- (iso-aggressive-german-trans-tab, iso-conservative-german-trans-tab)
- (iso-tex2iso-trans-tab, iso-gtex2iso-trans-tab): Reflow docstring.
- (iso-spanish, iso-german, iso-iso2tex, iso-tex2iso, iso-gtex2iso)
- (iso-iso2gtex, iso-iso2duden, iso-iso2sgml, iso-sgml2iso):
- Rewrite in active voice.
-
-2007-11-10 Juri Linkov <juri@jurta.org>
-
- * startup.el: Backport startup screen related changes from the trunk.
- (initialization): Change group to `environment'.
- (inhibit-startup-screen): Rename from `inhibit-splash-screen'.
- (inhibit-splash-screen): Make alias to `inhibit-startup-screen'.
- (inhibit-startup-message): Change alias to `inhibit-startup-screen'.
- (initial-scratch-message): Fix docstring.
- (startup-screen-inhibit-startup-screen)
- (pure-space-overflow-message): New variables.
- (command-line): Rename `inhibit-startup-message' to
- `inhibit-startup-screen'.
- (initial-scratch-message): Doc fix.
- (fancy-splash-text): Remove variable.
- (fancy-startup-text, fancy-about-text, splash-screen-keymap):
- New variables.
- (fancy-splash-delay, fancy-splash-max-time)
- (fancy-current-text, fancy-splash-stop-time)
- (fancy-splash-outer-buffer, fancy-splash-last-input-event):
- Remove variables.
- (fancy-splash-insert): Use help-echo from the 3rd element of the
- link specification list, or "Follow this link" if it's nil. Doc fix.
- Allow functions for face and link specs.
- (fancy-splash-tail): Remove function.
- (fancy-startup-tail): New function.
- (fancy-splash-default-action, fancy-splash-special-event-action)
- (fancy-splash-screens): Remove functions.
- (fancy-about-screen): New function.
- (normal-splash-screen): Rename argument `hide-on-input' to `startup'.
- Fix docstring. Use argument `startup' to conditionally display
- different texts for Startup and About screens. Don't display Help
- commands on the About screen. Remove `unwind-protect' `sit-for'
- delay and `kill-buffer' after it.
- (normal-mouse-startup-screen, normal-splash-screen)
- (normal-no-mouse-startup-screen): New functions.
- (startup-echo-area-message): Change text of the echo area.
- (display-splash-screen): Remove function.
- (display-startup-screen, display-about-screen): New functions.
- (about-emacs): Make alias to `display-about-screen'.
- (display-splash-screen): Make alias to `display-startup-screen'.
- (command-line-1): Rename `inhibit-startup-message' to
- `inhibit-startup-screen'. Inhibit startup screen when Emacs is
- started with command line options "-f", "-funcall", "-e", "-eval",
- "-execute", "-insert", "-find-file", "-file", "-visit".
- Inhibit startup screen when Emacs is started with a file name only
- on tty (i.e. don't inhibit it when started with a file name like
- "emacs FILE..." on a window system).
- Comment out unused code for coping with the old sit-for behavior.
- If file-count > 0, then display the concise version in another
- window, otherwise display full version in the same window.
- * loadup.el: Add `button'. Move up `startup'.
- * help.el (help-map, help-for-help-internal): Add `C-h C-a'.
- * version.el (emacs-copyright): Add emacs-copyright.
- * menu-bar.el (menu-bar-help-menu):
- Move "About Emacs" and "About GNU" to the end of the Help menu.
- Move "Emacs Psychotherapist" after "Send Bug Report...".
- Move "External Packages" after "Find Emacs Packages".
-
-2007-11-10 Jason Rumney <jasonr@gnu.org>
-
- * w32-fns.el: Sync charset names with setup-default-fontset.
- Append "-1" where second part missing.
-
- * term/w32-win.el: Enable SJIS fonts before creating any fontsets.
-
-2007-11-10 Juanma Barranquero <lekktu@gmail.com>
-
- * ido.el (ido-save-history): Write the history file in UTF-8,
- and add `coding' file-local variable.
-
-2007-11-09 Juanma Barranquero <lekktu@gmail.com>
-
- * international/iso-cvt.el (iso-spanish, iso-german, iso-iso2tex)
- (iso-tex2iso, iso-gtex2iso, iso-iso2gtex, iso-iso2duden): Doc fixes.
- (iso-iso2duden-trans-tab): Add docstring.
-
-2007-11-09 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * faces.el (face-normalize-spec): Remove function.
- (frame-set-background-mode): Undo last change.
-
-2007-11-09 Juanma Barranquero <lekktu@gmail.com>
-
- * files.el (enable-local-variables): Doc fix.
-
-2007-11-08 David Hansen <david.hansen@gmx.net> (tiny change)
-
- * eshell/em-dirs.el (eshell-expand-multiple-dots): Change regexp to
- match dir like "a...b".
-
-2007-11-07 Johan Bockg\e,Ae\e(Brd <bojohan@gnu.org>
-
- * eshell/esh-mode.el (eshell-output-filter):
- * eshell/esh-proc.el (eshell-insertion-filter, eshell-sentinel):
- Use `with-current-buffer'.
-
-2007-11-05 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-gdb): Remove vestigial gdba doc and code.
-
-2007-11-04 Riccardo Murri <riccardo.murri@gmail.com>
-
- * net/tls.el: Require rx when compiling.
- (tls-end-of-info): New variable.
- (open-tls-stream): Keep reading input until `tls-end-of-info' is
- matched.
-
-2007-11-03 Ulrich Mueller <ulm@gentoo.org> (tiny change)
-
- * simple.el (bad-packages-alist): Anchor semantic regexp.
-
-2007-11-02 Drake Wilson <drake@begriffli.ch> (tiny change)
-
- * files.el (hack-local-variables): Fix membership tests to avoid
- treating all variables as safe if `enable-local-variables' is
- set to :safe (CVE-2007-5795).
-
-2007-11-02 Glenn Morris <rgm@gnu.org>
-
- * progmodes/etags.el (tags-table-mode): Disable undo.
-
- * simple.el (bad-packages-alist): Revert previous change.
-
-2007-11-01 Dan Nicolaescu <dann@ics.uci.edu>
-
- * printing.el (printing): Fix :version, printing.el was included
- in emacs-22.1.
- (pr-path-style, pr-path-alist, pr-txt-name)
- (pr-txt-printer-alist, pr-ps-name, pr-ps-printer-alist)
- (pr-temp-dir, pr-ps-temp-file, pr-file-modes, pr-gv-command)
- (pr-gs-command, pr-gs-switches, pr-gs-device, pr-gs-resolution)
- (pr-print-using-ghostscript, pr-file-tumble, pr-auto-region)
- (pr-auto-mode, pr-mode-alist, pr-ps-utility)
- (pr-ps-utility-alist, pr-menu-char-height, pr-menu-char-width)
- (pr-setting-database, pr-visible-entry-list)
- (pr-delete-temp-file, pr-list-directory, pr-buffer-name)
- (pr-buffer-name-ignore, pr-buffer-verbose): Remove incorrect
- :version.
-
-2007-11-01 Glenn Morris <rgm@gnu.org>
-
- * simple.el (bad-packages-alist): Add an entry for standalone vc-svn.
-
- * mail/footnote.el (footnote-numeric-regexp)
- (footnote-english-upper-regexp, footnote-english-lower-regexp)
- (footnote-roman-lower-regexp, footnote-roman-upper-regexp):
- Match multi-character footnotes.
-
- * textmodes/nroff-mode.el (nroff-mode): Set indent-line-function.
- (nroff-indent-line-function): New function.
- (nroff-count-text-lines): Use nroff-forward-text-line rather than
- obsolete alias.
-
-2007-10-31 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-open-connection-telnet)
- (tramp-open-connection-rsh, tramp-open-connection-su)
- (tramp-open-connection-multi): Set $LC_ALL to "C".
-
-2007-10-31 Sven Joachim <svenjoac@gmx.de>
-
- * dired-aux.el (dired-copy-file-recursive):
- Preserve directory permissions.
-
-2007-10-31 Juanma Barranquero <lekktu@gmail.com>
-
- * whitespace.el (whitespace-write-file-hook): Remove interactive spec.
- (whitespace-unload-function): New-style unload function. When run,
- unintern `whitespace-unload-hook' and call `unload-feature' recursively
- to stop the old hook from messing with the unloading.
-
- * strokes.el (strokes-alphabetic-lessp): Doc fix.
-
-2007-10-31 Sean O'Rourke <sorourke@cs.ucsd.edu>
-
- * emacs-lisp/find-func.el (find-library): Use library at
- point as default interactive argument.
-
-2007-10-31 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/elp.el (elp-report-limit, elp-restore-all)
- (elp-unset-master, elp-results): Fix typos.
- (elp-sort-by-function, elp-use-standard-output, elp-recycle-buffers-p):
- Doc fixes.
-
- * msb.el (msb--many-menus): Remove variable.
- (msb-max-menu-items, msb--add-to-menu): Doc fixes.
- (msb-menu-cond, msb-item-handling-function, msb--create-function-info)
- (msb--toggle-menu-type): Fix typos in docstrings.
-
- * shadowfile.el (shadow-inhibit-overload, shadow-remove-from-todo)
- (shadow-insert-var): Doc fixes.
- (shadow-file-match, shadow-define-cluster, shadow-define-regexp-group):
- Reflow docstrings.
- (shadow-parse-fullname, shadow-read-files): Fix typos in docstrings.
-
-2007-10-30 Juanma Barranquero <lekktu@gmail.com>
-
- * ediff-hook.el (ediff, ediff-files, ediff-buffers, ebuffers, ediff3)
- (ediff-files3, ediff-buffers3, ebuffers3, erevision, ediff-revision):
- Fix typos in autoload docstrings.
-
- * loadhist.el (unload-feature): Remove redundant check.
-
-2007-10-30 Richard Stallman <rms@gnu.org>
-
- * savehist.el (savehist-save): Obey savehist-ignored-variables.
-
-2007-10-30 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-delete-out-of-scope): New option.
- (gdb-var-update-handler-1): Use it.
-
-2007-10-30 Juanma Barranquero <lekktu@gmail.com>
-
- * loadhist.el (unload-feature): Remove erroneous check for the
- FEATURE-unload-function variable; check the existence of the
- function (that's what the docstring says, and it makes more sense).
-
- * follow.el (follow-unload-function): Add docstring.
- (follow-unload-function): Remove variable.
-
- * server.el (server-unload-function): Remove variable.
- (server-unload-function): Unbind `server-edit' from `C-x #'.
-
- * uniquify.el (uniquify-unload-function): Add docstring.
- (uniquify-unload-function): Remove variable.
-
- * ses.el (ses-unload-function): New function.
-
-2007-10-29 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/unsafep.el (unsafep, unsafep-function)
- (unsafep-progn, unsafep-let): Fix typos in docstrings.
-
- * uniquify.el (uniquify-maybe-rerationalize-w/o-cb): Define it
- before use to avoid a warning in packages that require uniquify.
- (uniquify-unload-function): New function and var.
-
-2007-10-29 Juanma Barranquero <lekktu@gmail.com>
-
- * loadhist.el (unload-feature-special-hooks):
- Add `delete-frame-functions'.
-
- * server.el (server-unload-function): Rename from `server-unload-hook'
- and adapt to new `unload-feature' functionality. Remove hook from
- `kill-buffer-hook' buffer-locally.
- (server-unload-hook): Remove.
- (server-unload-function): New var; replaces `server-unload-hook'.
-
-2007-10-27 Juanma Barranquero <lekktu@gmail.com>
-
- * desktop.el (uniquify-managed): Pacify byte compiler.
- (desktop-buffer-info): If the buffer name is managed by uniquify,
- save the base name, not the uniquified one.
- (desktop-create-buffer): Allow `rename-buffer' to generate a new
- name in case of conflict.
-
-2007-10-26 Glenn Morris <rgm@gnu.org>
-
- * emacs-lisp/bytecomp.el (byte-compile-warnings): Autoload the
- safe-local-variable property.
-
-2007-10-26 Gwern Branwen <gwern0@gmail.com> (tiny change)
-
- * net/browse-url.el (browse-url-browser-function): Delete grail.
- (browse-url-grail): Function and variable deleted.
- (browse-url-browser-function): Delete IXI Mosaic.
- (browse-url-default-browser): Don't try IXI Mosaic.
- (browse-url-iximosaic): Function deleted.
- (browse-url-browser-function): Delete MMM.
- (browse-url-default-browser): Don't try MMM.
- (browse-url-mmm): Function deleted.
-
-2007-10-25 Glenn Morris <rgm@gnu.org>
-
- * progmodes/f90.el (f90-indented-comment-re)
- (f90-directive-comment-re, f90-break-delimiters):
- * progmodes/fortran.el (fortran-comment-line-start-skip)
- (fortran-directive-re):
- * textmodes/conf-mode.el (conf-space-keywords): Mark these regexps
- as safe if they are strings.
-
-2007-10-25 Richard Stallman <rms@gnu.org>
-
- * progmodes/ps-mode.el (ps-mode-map): Delete C-c v binding.
-
-2007-10-24 Richard Stallman <rms@gnu.org>
-
- * savehist.el (savehist-save): Omit unreadable elements.
-
- * loadhist.el (unload-function-defs-list): Renamed from
- unload-function-features-list.
- (unload-feature-special-hooks, unload-feature): Doc fixes.
-
- * indent.el (indent-to-left-margin): If point's in the indentation,
- move to the end of the indentation.
-
- * cus-edit.el (customize-changed-options): Make arg optional.
-
-2007-10-24 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs-select, bs-select-other-window): Fix typos in docstrings.
-
-2007-10-23 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/css-mode.el: Require CL.
- (comment-continue): Declare.
-
- * subr.el (make-variable-frame-localizable): Remove.
- (make-variable-frame-local): Mark obsolete.
-
-2007-10-23 Juanma Barranquero <lekktu@gmail.com>
-
- * ibuf-ext.el (ibuffer-switch-to-saved-filters)
- (ibuffer-switch-to-saved-filter-groups): Doc fixes.
-
-2007-10-23 Chris Moore <christopher.ian.moore@gmail.com>
-
- * comint.el (comint-password-prompt-regexp):
- Handle `[sudo] password'-style prompt.
-
-2007-10-23 Glenn Morris <rgm@gnu.org>
-
- * progmodes/f90.el (f90-do-indent, f90-if-indent)
- (f90-type-indent, f90-program-indent)
- (f90-continuation-indent, f90-comment-region)
- (f90-beginning-ampersand, f90-smart-end)
- (f90-break-before-delimiters, f90-auto-keyword-case)
- (f90-leave-line-no, f90-mode-hook):
- Give an appropriate safe-local-variable property.
- (f90-font-lock-keywords-2): Fix `go to' regexp.
-
- * progmodes/fortran.el (fortran-tab-mode-default)
- (fortran-tab-mode-string, fortran-do-indent, fortran-if-indent)
- (fortran-structure-indent, fortran-continuation-indent)
- (fortran-comment-indent, fortran-comment-line-extra-indent)
- (fortran-comment-line-start)
- (fortran-minimum-statement-indent-fixed)
- (fortran-minimum-statement-indent-tab)
- (fortran-comment-indent-char, fortran-line-number-indent)
- (fortran-check-all-num-for-matching-do)
- (fortran-blink-matching-if, fortran-continuation-string)
- (fortran-comment-region, fortran-electric-line-number)
- (fortran-column-ruler-fixed, fortran-column-ruler-tab)
- (fortran-analyze-depth, fortran-break-before-delimiters):
- Give an appropriate safe-local-variable property.
-
-2007-10-23 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/tex-mode.el (tex-uptodate-p): Don't signal an error if one
- of the subdirs is unreadable.
-
-2007-10-22 Martin Rudalics <rudalics@gmx.at>
-
- * progmodes/fortran.el (fortran-mode-map, fortran-window-create):
- Use window-full-width-p.
-
-2007-10-22 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emulation/tpu-edt.el (tpu-edt-old-global-values): New var.
- (tpu-edt-off): Use it.
- (tpu-edt-on): Set it. Make sure the tpu-global-map is not already on
- the global-map before adding it to global-map.
-
- * menu-bar.el (global-buffers-menu-map): New var.
- (global-map, menu-bar-update-buffers): Use it.
- * msb.el (msb-menu-bar-update-buffers): Use it.
- (msb-sort-by-directory, msb--choose-menu, msb--mode-menu-cond)
- (msb--most-recently-used-menu, msb--create-buffer-menu-2):
- Use with-current-buffer.
-
-2007-10-21 Dan Nicolaescu <dann@ics.uci.edu>
-
- * hexl.el (hexl-menu): New major mode menu.
-
-2007-10-20 Glenn Morris <rgm@gnu.org>
-
- * progmodes/f90.el (f90-font-lock-keywords-2)
- (f90-looking-at-type-like): Fix regexp typos.
-
-2007-10-19 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs-mode): Add mode name (accidentally left out
- in the 2007-10-16 change).
-
-2007-10-19 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs--track-window-changes): Don't refresh the whole list.
- (bs-mode): Set mode-class property to special.
-
- * follow.el (follow-unload-function): New function.
-
- * loadhist.el (unload-function-features-list):
- Rename from `unload-hook-features-list'.
- (unload-hook-features-list): Add as obsolete alias.
- (unload-feature): Use `unload-function-features-list'
- and new FEATURE-unload-function.
-
-2007-10-18 Juanma Barranquero <lekktu@gmail.com>
-
- * loadhist.el (unload-feature-special-hooks):
- Update list of special hooks.
-
- * textmodes/fill.el (fill-individual-paragraphs): Doc fix.
- (adaptive-fill-function): Doc fix. Remove * from docstring.
-
-2007-10-18 Glenn Morris <rgm@gnu.org>
-
- * ibuf-ext.el (ibuffer-saved-filter-groups): Doc fix.
-
-2007-10-17 Aaron Hawley <aaronh@garden.org>
-
- * tutorial.el (tutorial--save-tutorial): Display message when tutorial
- position is not saved.
-
-2007-10-17 Chong Yidong <cyd@stupidchicken.com>
-
- * longlines.el (longlines-wrap-follows-window-size): Integer value
- specifies wrapping margin.
- (longlines-mode, longlines-window-change-function):
- Set window-specific wrapping margin based on the above.
-
-2007-10-17 John Wiegley <johnw@newartisans.com>
-
- * eshell/esh-cmd.el (eshell-complex-commands): Add "ls".
-
-2007-10-17 Glenn Morris <rgm@gnu.org>
-
- * progmodes/cc-menus.el (cc-imenu-c++-generic-expression):
- Tweak regexp to avoid stack overflow.
-
-2007-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * simple.el (reindent-then-newline-and-indent): Don't assume that
- indent-according-to-mode preserves point.
-
-2007-10-16 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs--window-config-coming-from): Revert 2006-11-09 change.
- (bs--restore-window-config): Keep the selected frame.
- (bs--track-window-changes, bs--remove-hooks): New functions.
- (bs-mode): Use `define-derived-mode'. Set hook to track window changes.
- (bs--show-with-configuration): Revert 2006-11-09 change.
- Don't reuse window unless it is visible on the selected frame.
- Restore window configuration (possibly in a different frame)
- before creating any window.
-
-2007-10-16 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/advice.el (ad-get-advice-info): Change to a function.
- (ad-get-advice-info-macro): New macro, like old ad-get-advice-info.
- (ad-is-advised, ad-get-advice-info-field)
- (ad-set-advice-info-field): Use ad-get-advice-info-macro.
-
-2007-10-16 Glenn Morris <rgm@gnu.org>
-
- * simple.el (blink-matching-open): Don't report false errors with
- the `$' syntax class.
-
-2007-10-15 Juanma Barranquero <lekktu@gmail.com>
-
- * filesets.el (filesets-alist-get): Use `let' rather than `let*'.
- (filesets-ormap, filesets-sort-case-sensitive-flag)
- (filesets-remake-shortcut, filesets-ingroup-collect-files):
- Fix typos in docstrings.
- (filesets-data-get-name, filesets-data-get-data)
- (filesets-data-set, filesets-cmd-query-replace-getargs)
- (filesets-ingroup-collect, filesets-find-or-display-file): Doc fixes.
-
-2007-10-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el: Don't require url when compiling, as url-type is
- no longer a macro.
-
-2007-10-14 Glenn Morris <rgm@gnu.org>
-
- * progmodes/etags.el (select-tags-table): Disable undo in the
- `*Tags Table List*' buffer.
-
-2007-10-13 Eli Zaretskii <eliz@gnu.org>
-
- * dired.el (dired-warn-writable): New face.
- (dired-warn-writable-face): New variable.
- (dired-font-lock-keywords): Use dired-warn-writable-face, instead
- of dired-warning-face, for group- and world-writable files.
-
-2007-10-13 Glenn Morris <rgm@gnu.org>
-
- * progmodes/octave-mod.el (octave-looking-at-kw): Add doc string.
- (octave-re-search-forward-kw, octave-re-search-backward-kw):
- Add doc string, and an explicit COUNT argument.
- (octave-scan-blocks, octave-beginning-of-defun): Explicitly pass
- `inc' to search functions.
-
-2007-10-13 John W. Eaton <jwe@octave.org>
-
- * progmodes/octave-mod.el (octave-looking-at-kw)
- (octave-re-search-forward-kw, octave-re-search-backward-kw):
- New functions.
- (octave-in-defun-p, calculate-octave-indent)
- (octave-blink-matching-block-open, octave-beginning-of-defun)
- (octave-auto-fill): Use octave-looking-at-kw instead of looking-at,
- to search for regexps that contain case-sensitive keywords.
- (octave-beginning-of-defun): Likewise, for octave-re-search-backward-kw.
- (octave-scan-blocks): Likewise, for octave-re-search-forward-kw.
-
-2007-10-13 Richard Stallman <rms@gnu.org>
-
- * files.el (directory-abbrev-alist): Doc fix.
-
-2007-10-13 Jari Aalto <jari.aalto@cante.net>
-
- * comint.el (comint-password-prompt-regexp): Add 'LDAP'.
-
-2007-10-12 Martin Rudalics <rudalics@gmx.at>
-
- * frame.el (set-frame-configuration): Assign name parameter only
- if it has been set explicitly before.
-
- * window.el (handle-select-window): Revert part of 2007-10-06
- change setting the input focus.
-
-2007-10-12 Glenn Morris <rgm@gnu.org>
-
- * cus-edit.el (custom-variable-menu, custom-face-menu)
- (custom-group-menu): Check init-file-user rather than
- user-init-file, in case cus-edit is loaded by site-run-file.
-
-2007-10-11 Juanma Barranquero <lekktu@gmail.com>
-
- * follow.el (follow-stop-intercept-process-output):
- Use `follow-call-process-filter' rather than `process-filter'.
-
-2007-10-11 Tom Tromey <tromey@redhat.com>
-
- * progmodes/gdb-ui.el (gdb-info-stack-custom): Ensure current
- frame is visible.
-
-2007-10-10 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/debug.el (debugger-setup-buffer): Disable undo
- in *Backtrace*.
-
- * faces.el (face-font-selection-order): Doc fix.
-
- * loadhist.el (unload-feature): Doc fix.
-
-2007-10-10 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Fix the usage of :foreground and :background face
- attributes. Reported by Nikolaj Schumacher <n_schumacher@web.de>.
- (ps-print-version): New version 6.7.6.
- (ps-face-attributes, ps-face-attribute-list, ps-face-background):
- Fix code.
- (ps-face-foreground-color-p, ps-face-background-color-p)
- (ps-face-color-p): New inline funs.
-
-2007-10-10 Juanma Barranquero <lekktu@gmail.com>
-
- * follow.el: Change all instances of "Follow Mode" to "Follow
- mode" in docstrings and messages.
-
-2007-10-09 Juanma Barranquero <lekktu@gmail.com>
-
- * faces.el (face-font-selection-order): Doc fix.
-
- * follow.el (follow-mode-hook, follow-mode): Doc fixes.
- (follow-mode-off-hook): Mark as obsolete.
-
-2007-10-08 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/edebug.el (edebug-install-custom-print-funcs)
- (edebug-install-custom-print, edebug-reset-print-funcs)
- (edebug-uninstall-custom-print, edebug-uninstall-custom-print-funcs):
- Functions deleted.
- (edebug-prin1, edebug-print, edebug-prin1-to-string)
- (edebug-format, edebug-message): Define directly as aliases.
-
-2007-10-08 Juanma Barranquero <lekktu@gmail.com>
-
- * follow.el (follow-mode): Don't run hooks twice. Use `when'.
-
-2007-10-07 Glenn Morris <rgm@gnu.org>
-
- * simple.el (bad-packages-alist): Clarify Semantic and CEDET
- version numbers.
-
-2007-10-06 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-completion-mode): Extend doc-string.
- (tramp-completion-mode-p): Revert change from 2007-09-24.
- Checking for `return' etc as last character is not sufficient, for
- example in dired-mode when entering <g> (revert-buffer) or
- <s> (dired-sort).
-
-2007-10-06 Martin Rudalics <rudalics@gmx.at>
-
- * window.el (mouse-autoselect-window-cancel): Don't cancel for
- select-window or select-frame events.
- (handle-select-window): When autoselecting window set input
- focus. Restructure.
-
- * frame.el (focus-follows-mouse): Moved to frame.c.
- * cus-start.el (all): Add focus-follows-mouse.
-
-2007-10-05 Chris Moore <dooglus@gmail.com>
-
- * server.el (server-kill-new-buffers): Doc fix.
-
-2007-10-05 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs-mode): Make sure global-font-lock-mode doesn't
- activate font-locking in the *buffer-selection* buffer.
- (bs-show-sorted): Doc fix.
-
- * bs.el (bs--get-marked-string, bs--get-modified-string)
- (bs--get-readonly-string, bs--get-size-string, bs--get-name)
- (bs--get-mode-name, bs-mode): Fix typos in docstrings.
- (bs--format-aux): Doc fix.
-
-2007-10-04 Juanma Barranquero <lekktu@gmail.com>
-
- * image-dired.el (image-dired-image-at-point-p): Fix typo in docstring.
-
-2007-10-04 Micha\e,Ak\e(Bl Cadilhac <michael@cadilhac.name>
-
- * progmodes/gud.el (gud-gud-gdb-command-name): Fix typo in docstring.
-
-2007-10-04 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-gud-gdb-command-name): New option.
- (gud-gdb): New function for old M-x gdb (text command mode).
- (gud-gdb-command-name, gdb): Move to...
-
- * progmodes/gdb-ui.el: ...here and adapt doc string.
- (gud-gdba-command-name, gdba): Delete.
-
-2007-10-03 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el: Don't defvar `font-lock-verbose'.
- (bs-config-clear, bs-kill, bs-string-show-normally, bs-sort-functions)
- (bs--get-file-name): Fix typos in docstrings.
- (bs--show-header): Use `dolist' instead of `mapcar'.
- (bs-mode): Set `show-trailing-whitespace' to nil.
- (bs-buffer-sort-function, bs-mouse-select-other-frame)
- (bs-visits-non-file, bs-sort-buffer-interns-are-last, bs-show):
- Doc fixes.
-
-2007-10-02 Adam Hupp <adam@hupp.org> (tiny change)
-
- * progmodes/gdb-ui.el (pdb): Specify file for gud-break.
-
-2007-10-02 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gdb): Make graphical mode the default and
- switch to text command mode if appropriate, i.e., reverse previous
- arrangement.
- (gud-gdb-marker-filter): Adapt for above change.
-
- * progmodes/gdb-ui.el (gdb-init-1): Don't set the values
- gud-minor-mode and gud-marker-filter.
- (gdb-fullname-regexp): New variable.
- (gud-gdba-marker-filter): Use it to switch to text command
- mode if appropriate.
-
-2007-10-02 Richard Stallman <rms@gnu.org>
-
- * frame.el (cursor-in-non-selected-windows): Doc fix.
-
-2007-10-01 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-display-line): Find source buffer even when
- GUD buffer has its own frame.
-
-2007-10-01 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (icon-map-list): Set to nil for 22.1 compatibility.
-
-2007-09-29 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-gtk-stock-map): Version is 22.2.
-
-2007-09-29 Martin Rudalics <rudalics@gmx.at>
-
- * allout.el (allout-before-change-handler): Replace got-char by
- goto-char.
-
-2007-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-svn.el (vc-svn-resolve-when-done, vc-svn-find-file-hook): New funs.
- Used to try and automatically enabled smerge-mode in the presence of
- conflicts and to call `svn resolved' when the conflicts are gone.
- (vc-svn-parse-status): Remember the svn-specific status.
-
- * newcomment.el (comment-choose-indent): New function extracted
- from comment-indent. Improve the alignment algorithm.
- (comment-indent): Use it.
-
-2007-09-27 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/eldoc.el (eldoc-message-commands-table-size)
- (eldoc-message-commands, eldoc-current-idle-delay):
- Fix typos in docstrings.
-
- * progmodes/python.el (python-eldoc-function): Doc fix.
-
-2007-09-26 Eli Zaretskii <eliz@gnu.org>
-
- * menu-bar.el (menu-bar-search-documentation-menu): Rename from
- menu-bar-apropos-menu. All users changed.
- (menu-bar-help-menu): Change menu symbols to better match the text
- displayed by the menu.
-
-2007-09-25 Glenn Morris <rgm@gnu.org>
-
- * view.el (view-search-no-match-lines): Add a doc string.
- Rewrite to simplify and work better.
-
-2007-09-24 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-completion-mode-p): Rename from
- `tramp-completion-mode'. Revert logic, check `return', `newline'
- and such alike. Packages like Icicles tend to use other completion
- characters but `tab' and `space' only.
- (top): Require cl.el, when `copy-tree' is not available otherwise.
-
- * net/tramp-vc.el (tramp-vc-user-login-name): Get argument by
- `ad-get-arg'.
-
-2007-09-24 Ville Skytt\e,Ad\e(B <scop@xemacs.org> (tiny change)
-
- * net/tramp-vc.el (tramp-vc-user-login-name):
- Use `vc-find-version' instead of `process-file' to check whether we
- have a new enough vc that doesn't need the defadvice.
-
-2007-09-23 Dan Nicolaescu <dann@ics.uci.edu>
-
- * files.el (file-name-sans-versions): Use [:alnum:] and also allow
- #, @, : and ^.
-
-2007-09-23 Glenn Morris <rgm@gnu.org>
-
- * ses.el (ses-calculate-cell): Don't evaluate unsafe formulae.
-
-2007-09-22 Dan Nicolaescu <dann@ics.uci.edu>
-
- * pcvs-defs.el (cvs-mode-map): Bind TAB and backtab.
-
- * log-view.el (log-view-mode-map): Likewise.
-
- * diff-mode.el (diff-mode-shared-map): Likewise.
-
-2007-09-21 Francesco Potort\e,Al\e(B <pot@gnu.org>
-
- * progmodes/octave-inf.el (inferior-octave-mode): Use add-hook to
- add inferior-octave-directory-tracker to the buffer-local value
- of comint-input-filter-functions.
-
-2007-09-22 Dan Nicolaescu <dann@ics.uci.edu>
-
- * files.el (file-name-sans-versions): Also allow `A-Z'.
-
- * vc.el: Mention all supported VC backends.
-
-2007-09-22 Richard Stallman <rms@gnu.org>
-
- * wid-edit.el (widget-specify-button): Don't merge mouse-face with
- neighbouring buttons.
-
-2007-09-22 Andreas Schwab <schwab@suse.de>
-
- * files.el (file-name-sans-versions): Also allow `_'.
-
-2007-09-22 Glenn Morris <rgm@gnu.org>
-
- * eshell/esh-mode.el (eshell-output-filter-functions):
- Add eshell-postoutput-scroll-to-bottom.
-
-2007-09-21 Dan Nicolaescu <dann@ics.uci.edu>
-
- * files.el (file-name-sans-versions): Allow - and a-z in version names.
-
- * log-view.el (log-view-mode-map, log-view-mode-menu):
- Bind log-view-annotate-version.
- (log-view-beginning-of-defun, log-view-end-of-defun)
- (log-view-annotate-version): New functions.
- (log-view-mode): Use log-view-beginning-of-defun and
- log-view-end-of-defun.
-
-2007-09-21 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/easy-mmode.el (define-minor-mode): Fix staging.
-
-2007-09-21 Kevin Ryde <user42@zip.com.au>
-
- * international/mule.el (sgml-html-meta-auto-coding-function):
- Bind `case-fold-search' to t.
-
-2007-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * wid-edit.el (widget-image-insert): Don't merge mouse-face with
- neighbouring buttons.
-
- * progmodes/compile.el (compilation-error-regexp-alist-alist):
- Recognize gcc's use of "note" for informational messages.
-
-2007-09-20 Glenn Morris <rgm@gnu.org>
-
- * textmodes/tex-mode.el (tex-validate-buffer): Use paragraph
- motion functions, rather than hard-coding "\n\n".
- (tex-validate-region): Check for eobp, to speed up.
- (tex-next-unmatched-end): Doc fix.
-
-2007-09-19 Glenn Morris <rgm@gnu.org>
-
- * textmodes/tex-mode.el (tex-terminate-paragraph):
- Use backward-paragraph.
-
-2007-09-18 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/css-mode.el (css-electric-keys): electrick->electric.
- (css-mode): Update correspondingly.
-
-2007-09-18 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-arch.el (vc-arch-extra-menu-map): New var and fun.
-
- * vc-hooks.el (vc-menu-entry): New var.
- (vc-mode-line-map): Use it so that this menu also uses the extra-menu.
- (menu-bar-tools-menu): Add the VC menu here rather than in menu-bar.el.
- (vc-menu-map): Declare and initialize in one step.
-
- * menu-bar.el (vc-menu-map): Don't setup any more.
- Instead, just create the proper spot in the menu.
-
-2007-09-18 Dan Nicolaescu <dann@ics.uci.edu>
- Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc.el: Document new VC operation `extra-menu'.
-
- * vc-hooks.el (vc-default-extra-menu, vc-menu-map-filter): New fun.
-
-2007-09-17 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-git.el (vc-git-log-view-mode): Add font-lock patterns for
- Signed-off-by, Acked-by and Merge.
-
-2007-09-17 Glenn Morris <rgm@gnu.org>
-
- * textmodes/tex-mode.el (tex-compilation-parse-errors): Prefer the
- filename from `--file-line-error', if it is available.
-
-2007-09-17 Joe Wells <jbw@macs.hw.ac.uk> (tiny change)
-
- * textmodes/tex-mode.el (tex-compilation-parse-errors): Also match
- TeX `--file-line-error' format.
-
-2007-09-17 Glenn Morris <rgm@gnu.org>
-
- * textmodes/tex-mode.el (tex-region): Simplify previous change,
- handling the case where the region is not in `tex-main-file'.
- (tex-region-1): Delete.
- (tex-region-header): New function, doing the header part of the
- old tex-region-1.
-
-2007-09-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * ediff-init.el (ediff-verbose-p): This var is not a constant.
-
-2007-09-16 Drew Adams <drew.adams@oracle.com>
-
- * cus-edit.el (custom-face-edit-activate): Doc fix.
-
-2007-09-16 Glenn Morris <rgm@gnu.org>
-
- * textmodes/tex-mode.el (tex-region): Handle the case where the
- region is not in `tex-main-file'. Move the old code that applies
- to both cases...
- (tex-region-1): ...to this new function.
-
-2007-09-15 Martin Rudalics <rudalics@gmx.at>
-
- * simple.el (blink-matching-open): Don't display message when no
- paren is found within blink-matching-paren-distance characters.
- Don't search prompt in blink-matching-paren-distance nil case.
-
-2007-09-14 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Add C-M- bindings.
-
-2007-09-14 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-mtn.el: New file.
-
- * vc-hooks.el (vc-handled-backends): Add Mtn.
-
-2007-09-13 Eli Zaretskii <eliz@gnu.org>
-
- * files.el (find-file, find-file-other-window)
- (find-file-other-frame, find-file-existing, find-file-read-only)
- (find-file-read-only-other-window)
- (find-file-read-only-other-frame)
- (find-alternate-file-other-window, find-alternate-file): Doc fixes.
-
-2007-09-13 Jari Aalto <jari.aalto@cante.net>
-
- * man.el (Man-default-man-entry): At end of line, continue looking
- to the next line for possible end of hyphenated command.
-
-2007-09-13 Chris Moore <dooglus@gmail.com>
-
- * shell.el (shell-resync-dirs): Don't move the cursor relative to
- the command being edited.
-
-2007-09-13 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gdb-ready): New variable.
- (gdb): Set it to nil. Set gud-running to nil here...
- (gud-common-init): ...instead of here.
-
- * progmodes/gdb-ui.el (gdba, gdb-send, gdb-source-info):
- Use gdb-ready. Discard input until GDB is ready to accept it.
-
-2007-09-12 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Add bindings for M-S- and
- C-M-S- keys.
-
-2007-09-12 Martin Rudalics <rudalics@gmx.at>
-
- * dired.el (dired-warning): Inherit from font-lock-warning-face to
- make it show up with eight colors.
-
-2007-09-12 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-sanity-check-hunk): Fix up the case when unified
- diffs are concatenated with no intervening line.
-
-2007-09-10 Dave Love <fx@gnu.org>
-
- * progmodes/python.el: Merge changes from Dave Love's v2007-Sep-10.
- (python-font-lock-keywords): Update to the 2.5 version of the language.
- (python-quote-syntax): Let-bind font-lock-syntactic-keywords to nil.
- (python-backspace): Only behave funny in code.
- (python-compilation-regexp-alist): Add PDB stack trace regexp.
- (inferior-python-mode): Add PDB prompt regexp.
- (python-fill-paragraph): Refine the fenced-string regexp.
- (python-find-imports): Handle imports spanning several lines.
- (python-mode): Add `class' to hideshow support.
-
-2007-09-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs.el (cvs-mode-add-change-log-entry-other-window): Use
- add-log-buffer-file-name-function rather than bind buffer-file-name,
- so we dont end up calling change-log-mode in *cvs* when `fi' is the
- ChangeLog file itself.
-
- * outline.el (outline-flag-region): Use front-advance.
-
-2007-09-07 Ilya Zakharevich <ilyaz@cpan.org>
-
- * progmodes/cperl-mode.el: Merge upstream 5.23.
- (cperl-where-am-i): Remove function.
- (cperl-backward-to-noncomment): Don't go too far when skipping POD/HEREs
- (cperl-sniff-for-indent): De-invert [string] and [comment].
- When looking for label, skip s:m:y:tr.
- (cperl-indent-line): Likewise.
- (cperl-mode): Don't assume `font-lock-multiline' is auto-local.
- (cperl-windowed-init): Wrong `ps-print' handling.
- Both thanks to Chong Yidong.
- (cperl-look-at-leading-count): Could fail with unfinished RExen.
- (cperl-find-pods-heres): If the second part of s()[] is missing,
- don't try to highlight delimiters...
-
-2007-09-07 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/compile.el (compilation-get-file-structure): Complete last
- change by also using spec-directory in the puthash.
-
-2007-09-07 Riccardo Murri <riccardo.murri@gmail.com>
-
- * vc-bzr.el (vc-bzr-admin-lastrev): New constant.
- (vc-bzr-file-name-relative): Use 'when' instead of 'and'.
- (vc-bzr-status): Fix shadowing of variable 'status'.
- (vc-bzr-workfile-version): Use correct path to 'last-revision' file.
- Use `expand-file-name' instead of `concat'.
- (vc-bzr-annotate-command): Use option name '--long' instead of '-l'.
- Update annotation line regexp. Fixes launchpad.net [Bug 137435].
-
-2007-09-05 Jason Rumney <jasonr@gnu.org>
-
- * frame.el (focus-follows-mouse): Doc-fix. Change default on w32.
-
-2007-09-02 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/lisp-mode.el (lisp-indent-offset): Make defcustom.
- Add `safe-local-variable' property.
- (lisp-body-indent): Likewise.
-
-2007-09-02 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * info.el (info-tool-bar-map): Add :rtl keyword to right/left-arrow and
- prev/next-node.
-
- * term/x-win.el (x-gtk-stock-map, icon-map-list): New variables.
- (x-gtk-map-stock): New function.
-
-2007-09-02 Glenn Morris <rgm@gnu.org>
-
- * comint.el (comint-mode): Don't set scroll-conservatively.
-
- * eshell/em-unix.el (eshell/time): Stringify and flatten the
- non-command arguments.
-
-2007-09-01 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * emacs-lisp/bytecomp.el (byte-recompile-directory):
- Fix bug: Don't expand top-level file name more than once.
- Reported by Dmitry Antipov <dmantipov@yandex.ru>.
-
-2007-09-01 Richard Stallman <rms@gnu.org>
-
- * files.el (hack-local-variables-confirm): Rename arg VARS to ALL-VARS.
- Add doc string.
-
-2007-08-30 Richard Stallman <rms@gnu.org>
-
- * speedbar.el (speedbar-frame-reposition-smartly)
- (speedbar-set-mode-line-format, speedbar-reconfigure-keymaps)
- (speedbar-check-vc): Don't use dframe-xemacsp.
-
-2007-08-30 Martin Rudalics <rudalics@gmx.at>
-
- * files.el (backup-buffer-copy): Try to overwrite old backup first.
-
-2007-08-29 Martin Rudalics <rudalics@gmx.at>
-
- * repeat.el (repeat): Use last-repeatable-command instead of
- real-last-command. Run pre- and post-command hooks for
- self-insertion. Update doc-string.
-
-2007-08-28 Glenn Morris <rgm@gnu.org>
-
- * progmodes/cc-langs.el (c-constant-kwds): Add java: true, false, null.
-
-2007-08-27 Alexandre Julliard <julliard@winehq.org>
-
- * vc-git.el (vc-git-state): Call git-add --refresh to update the
- state of the file.
- (vc-git-workfile-unchanged-p): Delegate implementation to vc-git-state.
- (vc-git-create-repo): Fix invalid command.
-
-2007-08-27 Richard Stallman <rms@gnu.org>
-
- * textmodes/flyspell.el (flyspell-mode):
- Catch errors in flyspell-mode-on.
-
-2007-08-27 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * progmodes/modula2.el (m2-definition, m2-module):
- Don't use previous-line. Reported by T. V. Raman.
-
-2007-08-27 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-handle-toolbar-switch-mode): Add explicit
- argument to tool-bar-mode call.
-
-2007-08-27 Glenn Morris <rgm@gnu.org>
-
- * diff-mode.el (diff-find-file-name): Only accept regular files,
- to rule out /dev/null, directories, etc.
-
-2007-08-25 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/cperl-mode.el (cperl-indent-level): Autoload the
- safe-local-variable setting.
- * progmodes/perl-mode.el (perl-indent-level): Likewise.
-
-2007-08-25 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * uniquify.el (uniquify-rationalize-file-buffer-names): Check liveness
- of buffers in uniquify-managed.
-
- * simple.el (invisible-p): Rename from text-invisible-p.
- Update callers.
-
-2007-08-25 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-langs.el (c-other-decl-block-key-in-symbols-alist):
- new language variable.
-
- * progmodes/cc-engine.el (c-brace-anchor-point): New function.
- (c-add-stmt-syntax): Give accurate anchor points for "namespace",
- "extern" etc., rather than BOI. Fix addition of spurious
- syntactic-symbol 'defun-block-intro, replacing it with
- 'innamespace, etc.
-
-2007-08-25 Reiner Steib <Reiner.Steib@gmx.de>
-
- * pcvs.el (cvs-query-directory): Only prompt when prefix is given.
- Don't behave differently when executed via M-x. Add doc string.
-
-2007-08-24 Ulrich Mueller <ulm@gentoo.org> (tiny change)
-
- * files.el (backup-buffer-copy): Don't wrap delete in
- condition-case, only try to delete if file exists.
-
-2007-08-24 Glenn Morris <rgm@gnu.org>
-
- * files.el (backup-buffer-copy): Revert 2007-08-22 change.
-
-2007-08-23 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/cperl-mode.el (defcustom, x-color-defined-p, cperl-is-face)
- (cperl-is-face, cperl-force-face, cperl-etags-snarf-tag, cperl-mode)
- (cperl-etags-snarf-tag, cperl-etags-goto-tag-location, cperl-init-faces)
- (cperl-etags-goto-tag-location): Use new style backquotes.
-
- * subr.el (complete-with-action): Backport from trunk (for vc-arch.el).
- (dynamic-completion-table): Use it it.
-
- * net/browse-url.el: Remove spurious * in custom docstrings.
- (browse-url-filename-alist): Use new-style backquote.
-
- * emacs-lisp/backquote.el (backquote-unquote-symbol)
- (backquote-splice-symbol): Clarify they're not new-style unquotes.
-
- * emacs-lisp/edebug.el (edebug-list-form, edebug-match-symbol, \,)
- (\,@): Backslash the , and ,@ which are not new-style unquotes.
-
- * textmodes/texinfmt.el (\,): Clarify it's not a new-style unquote.
-
- * net/socks.el (socks-username/password-auth-filter):
- Remove unused vars `state' and `desired-len'.
- (socks-parse-services, socks-nslookup-host): Use with-current-buffer.
- (socks-wait-for-state-change): Use new-style backquotes.
-
- * pcvs.el (cvs-mode-status): Fix long-standing typo.
-
- * emacs-lisp/bytecomp.el (byte-compile-from-buffer): Check old-style
- backquotes after each `read' rather than once per buffer.
-
- * dframe.el: Remove spurious * in custom docstrings.
- (dframe-xemacsp): Remove, use (featurep 'xemacs) instead.
- (dframe-xemacs20p): Remove, inline at the sole use point.
- (defface): Don't defvar the face, don't use old-style backquote.
- (defcustom): Don't use old-style backquote.
- (dframe-frame-parameter, dframe-mouse-event-p):
- Make it obvious that it's always defined.
- (dframe-popup-kludge): New function to replace
- dframe-xemacs-popup-kludge and dframe-xemacs-popup-kludge.
- (dframe-frame-mode, dframe-set-timer-internal)
- (dframe-mouse-set-point): Remove use of with-no-warnings from
- XEmacs-specific code.
- (dframe-set-timer-internal): Fix very old bug with
- post-command-idle-hook.
-
- * emacs-lisp/byte-opt.el (byte-optimize-featurep): Handle `sxemacs'.
-
-2007-08-22 Chong Yidong <cyd@stupidchicken.com>
-
- * image-mode.el (image-minor-mode): Use image-mode-text-map.
-
-2007-08-22 Reiner Steib <Reiner.Steib@gmx.de>
-
- * sort.el (sort-fold-case, sort-numeric-base): Mark as
- safe-local-variable.
-
-2007-08-22 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * net/browse-url.el (browse-url-emacs): New function.
-
-2007-08-22 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/bytecomp.el (byte-compile-from-buffer): Display a big fat
- warning if the file uses old style backquotes.
-
- * emacs-lisp/bytecomp.el (byte-compile-log-file)
- (byte-recompile-directory, byte-compile-file)
- (byte-compile-from-buffer): Use with-current-buffer.
-
- * simple.el (text-invisible-p): Rename from line-move-invisible-p.
- (line-move-invisible-p): Keep as an obsolete alias, just to be safe.
- (line-move-1, line-move-finish, line-move-to-column)
- (move-end-of-line, move-beginning-of-line): Use new name.
-
-2007-08-22 Glenn Morris <rgm@gnu.org>
-
- * files.el (backup-buffer-copy): Check backup directory is
- writable, to avoid infloop deleting old backup.
-
- * mail/rmail.el (rmail-movemail-variant-p): Call on load to set
- movemail related variables.
- (rmail-insert-inbox-text): Use only rmail-movemail-program, which
- will now be set before this is called.
-
-2007-08-21 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/backquote.el (backquote-delay-process): Fix last change.
-
- * progmodes/ada-mode.el: Fix up comment style in header.
- (ada-check-emacs-version): Remove.
- (ada-mode): Set parse-sexp-* even if they don't exist: can't hurt.
- (ada-region-selected): Use (featurep 'xemacs) rather than contortions
- to try and quieten the byte-compiler.
- (ada-create-keymap): Use [(..)] keys, which work on both (X)Emacs.
-
- * vc.el (vc-annotate-warp-version): Don't use previous-line.
-
-2007-08-20 Johannes Weiner <hannes@saeurebad.de> (tiny change)
-
- * emacs-lisp/lisp-mode.el (preceding-sexp): New fun, the code was
- extracted from `eval-last-sexp-1'.
- (eval-last-sexp-1): Call `preceding-sexp'.
-
-2007-08-19 Glenn Morris <rgm@gnu.org>
-
- * Makefile.in (custom-deps, finder-data, autoloads, recompile)
- (progmodes/cc-mode.elc, mh-e/mh-loaddefs.el): Use $(emacs) rather
- than $(EMACS), so that EMACSLOADPATH is set. Prevents any system
- shadow files messing up the compilation.
-
-2007-08-18 Glenn Morris <rgm@gnu.org>
-
- * progmodes/scheme.el (scheme-mode-variables):
- Set font-lock-comment-start-skip.
-
-2007-08-18 Martin Rudalics <rudalics@gmx.at>
-
- * progmodes/ada-mode.el (ada-create-syntax-table):
- Move set-syntax-table from here to ...
- (ada-mode): ... here. Don't change global value of comment-multi-line.
- Call new function ada-initialize-syntax-table-properties.
- Add ada-handle-syntax-table-properties to font-lock-mode-hook.
- (ada-deactivate-properties, ada-initialize-properties):
- Replace by new functions ...
- (ada-handle-syntax-table-properties, ada-set-syntax-table-properties)
- (ada-initialize-syntax-table-properties): ... to set up syntax-table
- properties uniformly, independently from whether font-lock-mode
- is enabled or not. Handle read-only buffers and do not change
- undo-list when setting syntax-table properties.
- (ada-after-change-function): Use ada-set-syntax-table-properties.
-
-2007-08-17 Bob Rogers <rogers-emacs@rgrjr.dyndns.org> (tiny change)
-
- * progmodes/cperl-mode.el (cperl-look-at-leading-count)
- (cperl-find-pods-heres): Fix an error when typing expressions like
- `s{a}{b}'.
-
-2007-08-17 Glenn Morris <rgm@gnu.org>
-
- * progmodes/compile.el (compilation-get-file-structure): Make use
- of the directory part when checking for an existing entry, to
- handle files with same basename in different directories.
-
-2007-08-16 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el (ps-header-font-size, ps-header-title-font-size)
- (ps-footer-font-size, ps-line-number-font-size, ps-line-spacing)
- (ps-paragraph-spacing): Docstring fix.
-
-2007-08-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * smerge-mode.el (smerge-resolve): New arg `safe'.
- (smerge-resolve-all, smerge-batch-resolve): New function.
- (smerge-refine): Make sure `diff' returns the expected result.
- (smerge-parsep-re): New const.
- (smerge-mode): Use it to adjust paragraph-separate.
-
- * progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
- Correctly match / regexp matchers as first char on a line when
- fontifying only that line.
-
- * emacs-lisp/cl-macs.el (cl-transform-lambda): Preserve the match-data.
-
-2007-08-16 Glenn Morris <rgm@gnu.org>
-
- * ps-print.el (ps-font-size): Doc fix.
-
-2007-08-15 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-bzr.el: Don't fiddle with vc-handled-backend.
- (vc-bzr-registered): Don't redundantly protect against
- file-error. Actually use the format-specific code.
- (vc-bzr-buffer-nonblank-p): Remove.
- (vc-bzr-status): Change `kindchange' -> `kindchanged'.
-
-2007-08-15 Glenn Morris <rgm@gnu.org>
-
- * mail/undigest.el (rmail-digest-parse-rfc1153sloppy): Be even
- sloppier, for the sake of GNU Mailman.
- (rmail-digest-rfc1153): Initialize `result' correctly.
-
-2007-08-14 Glenn Morris <rgm@gnu.org>
-
- * simple.el (bad-packages-alist): New constant.
- (bad-package-check): New function. Together, these two add
- elements to `after-load-alist' to check for problematic external
- packages.
- * emulation/cua-base.el: Move CUA-mode check to `bad-packages-alist'.
-
-2007-08-13 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * pcvs-parse.el (cvs-parse-table): Handle additional instance of
- optional quotes around files in NEED-UPDATE . REMOVED case.
-
- * progmodes/ada-xref.el (ada-gnatls-args): Fix docstring.
- (ada-treat-cmd-string): Improve error message.
- (ada-do-file-completion): Call `ada-require-project-file', so
- project variables are set properly.
- (ada-prj-find-prj-file): Delete Emacs 20.2 support.
- (ada-gnatfind-buffer-name): New constant.
- (ada-find-any-references): Use new constant. Set buffer name
- properly in compilation-start. Toggle read-only properly.
- (ada-find-in-src-path): Fix spelling error in docstring.
-
- * progmodes/vhdl-mode.el (vhdl-update-progress-info): Avoid divide
- by zero error.
-
-2007-08-13 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-send): Handle CTRL-D more carefully.
-
-2007-08-12 Richard Stallman <rms@gnu.org>
-
- * pcvs.el (cvs-reread-cvsrc, cvs-checkout, cvs-mode-checkout)
- (cvs-execute-single-file): Use new name split-string-and-unquote.
- (cvs-header-msg): Use new name combine-and-quote-strings.
-
- * emulation/vi.el (vi-next-line): Ignore return value of line-move.
-
- * progmodes/gud.el (gud-common-init): Use new name
- split-string-and-unquote.
-
- * progmodes/flymake.el (flymake-err-line-patterns): Fix infloop
- in javac regexp.
-
- * pcvs-util.el (cvs-qtypedesc-strings): Use new names
- combine-and-quote-strings and split-string-and-unquote.
-
- * subr.el (combine-and-quote-strings): Rename from strings->string.
- (split-string-and-unquote): Rename from string->strings.
-
-2007-08-10 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * log-view.el (log-view-font-lock-keywords): Use `eval' so as to adapt
- to buffer-local settings.
-
- * emacs-lisp/backquote.el (backquote-delay-process): New function.
- (backquote-process): Add internal arg `level'. Use the two to
- correctly handle nested backquotes.
-
-2007-08-09 Riccardo Murri <riccardo.murri@gmail.com>
-
- * vc-bzr.el (vc-bzr-registered): Use \0 instead of literal NULs.
- (vc-bzr-state-words): Add "kind changed" state word.
- (vc-bzr-status): New function. Return Bzr idea of file status,
- which is different from VC's.
- (vc-bzr-state): Use vc-bzr-status.
- (vc-workfile-unchanged-p): Use vc-bzr-status.
- (vc-bzr-revert): Use synchronous process; expect exitcode 0.
- (vc-dired-state): Process "kind changed" state word.
-
-2007-08-09 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-hooks.el (vc-default-find-file-not-found-hook): Do nothing.
-
- * vc-rcs.el (vc-rcs-find-file-not-found-hook):
- Move from vc-default-find-file-not-found-hook.
-
-2007-08-09 Edward O'Connor <hober0@gmail.com> (tiny change)
-
- * url/url-auth.el (url-basic-auth): When prompting for username
- and password, default to the username and password in the URL.
-
-2007-08-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * man.el: Remove spurious * in docstrings.
- Merge defvars and toplevel setq-defaults.
- (Man-highlight-references0): Limit=nil rather than point-max.
- (Man-mode-map): Move initialization into the declaration.
- (Man-strip-page-headers, Man-unindent): Use dolist & inhibit-read-only.
- (Man-view-header-file): Use expand-file-name rather than concat.
- (Man-notify-when-ready, Man-bgproc-sentinel): Use with-current-buffer.
-
- * man.el (Man-next-section): Make sure we do not move backward.
-
-2007-08-08 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el (ps-default-fg, ps-default-bg): Docstring fix.
- (ps-begin-job): Use ps-default-fg and ps-default-bg only when
- ps-print-color-p is neither nil nor black-white. Reported by Christian
- Schlauer <cs-muelleimer-rubbish.bin@arcor.de>.
-
-2007-08-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * files.el (auto-mode-alist): Use the purecopied text (duh!).
-
-2007-08-08 Andreas Schwab <schwab@suse.de>
-
- * mail/mailabbrev.el (sendmail-pre-abbrev-expand-hook): Check for
- self-insert-command, not self-insert.
-
-2007-08-08 Glenn Morris <rgm@gnu.org>
-
- * emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Remove `iff'.
-
- * Replace `iff' in doc-strings and comments.
-
- * help-mode.el (help-make-xrefs): Search for symbol constituents,
- rather than just `-'.
-
-2007-08-08 Martin Rudalics <rudalics@gmx.at>
-
- * dired.el (dired-pop-to-buffer):
- * mouse-drag.el (mouse-drag-should-do-col-scrolling):
- * calendar/calendar.el (generate-calendar-window):
- * progmodes/compile.el (compilation-set-window-height):
- * textmodes/two-column.el (2C-two-columns, 2C-merge):
- Use window-full-width-p instead of comparing frame-width and
- window-width.
-
- * progmodes/compile.el (compilation-find-buffer): Remove extra
- argument in call to compilation-buffer-internal-p.
-
-2007-08-07 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-handle-file-remote-p): Handle optional
- parameters IDENTIFICATION and CONNECTED.
- (tramp-handle-insert-file-contents): VISIT must be handled after
- insertion of the local copy. Reported by Peter Gordon
- <peter@pg-consultants.com>.
- (tramp-file-name-handler): No special handling for
- `expand-file-name'. But for `file-name-as-directory'.
- (tramp-find-shell, tramp-open-connection-telnet)
- (tramp-open-connection-rsh, tramp-open-connection-su)
- (tramp-open-connection-multi)
- (tramp-open-connection-setup-interactive-shell): Guard against
- $PROMPT_COMMAND shell var. Reported by Steve Youngs
- <steve@sxemacs.org>.
- (tramp-append-tramp-buffers): Replace "sensible" by "sensitive" in
- the hint.
-
- * net/trampver.el: Update release number.
-
-2007-08-07 Tom Tromey <tromey@redhat.com>
-
- * progmodes/tcl.el (tcl-indent-level, tcl-continued-indent-level):
- Add safe-local-variable property.
-
-2007-08-07 Chong Yidong <cyd@stupidchicken.com>
-
- * image-mode.el (image-toggle-display): Use image-refresh.
-
- * longlines.el (longlines-decoded): New variable.
- (longlines-mode): Avoid encoding or decoding the buffer twice.
-
-2007-08-07 Riccardo Murri <riccardo.murri@gmail.com>
-
- * vc-bzr.el: Remove comments about vc-bzr.el being a modified
- unofficial version.
- (vc-bzr-command): Remove redundant setting of process-connection-type.
- (vc-bzr-admin-checkout-format-file): Add autoload.
- (vc-bzr-root-dir): Remove in favor of vc-bzr-root.
- (vc-bzr-root): Switch to implementation of vc-bzr-root-dir.
- (vc-bzr-registered): Compare dirstate format tag with known good
- value, abort parsing if match fails. Warn user in docstring.
- (vc-bzr-workfile-version): Case for different Bzr branch formats.
- See bzrlib/branch.py in Bzr sources.
- (vc-bzr-diff): First argument FILES may be a string rather than a list.
- (vc-bzr-shell-command): Remove in favor of
- vc-bzr-command-discarding-stderr.
- (vc-bzr-command-discarding-stderr): New function.
-
-2007-08-06 Riccardo Murri <riccardo.murri@gmail.com>
-
- * vc-bzr.el (vc-bzr-registered): Gracefully handle missing "bzr"
- program, and return nil
- (vc-bzr-state): Gracefully handle missing "bzr" program, and return nil.
- (vc-bzr-state): Look for path names relative to the repository
- root after status keyword.
- (vc-bzr-file-name-relative): New function.
- (vc-bzr-admin-dirname): Reinstate, as other vc-bzr-admin-... paths
- depend on it.
- (vc-bzr-admin-dirname, ...-checkout-format-file)
- (...-branch-format-file, ...-revhistory): Paths to some Bzr internal
- files that we now parse directly for speed.
- (vc-bzr-root-dir): Use `vc-bzr-admin-checkout-format-file' as witness.
- (vc-bzr-registered): Only parse vc-bzr-admin-dirstate file if it exists.
- (vc-bzr-state): "bzr status" successful only if exitcode is 0
- (vc-bzr-root): Use `vc-bzr-shell-command'. Stderr may contain
- Bzr warnings, so we must discard it.
- (vc-bzr-workfile-version): Speedup counting lines from
- `vc-bzr-admin-revhistory' file, but fallback to spawning "bzr revno"
- if that file doesn't exist.
- (vc-bzr-responsible-p): Use `vc-bzr-root' instead of
- `vc-bzr-root-dir' for speed. Add `vc-bzr-admin-dirname'
- (not ".bzr"!) to `vc-directory-exclusion-list'
- (vc-bzr-shell-command): New function.
-
-2007-08-06 Tom Tromey <tromey@redhat.com>
-
- * diff-mode.el (diff-unified->context, diff-reverse-direction)
- (diff-fixup-modifs): Typo in docstring.
-
-2007-08-06 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emulation/tpu-edt.el (tpu-current-line): Use posn-at-point and
- count-screen-lines.
- (tpu-edt-off): Disable relevant pieces of advice.
-
- * emulation/tpu-extras.el (tpu-before-save-hook): Rename from
- tpu-write-file-hook. Activate it with add-hook on buffer-save-hook.
- (newline, newline-and-indent, do-auto-fill): Use advice instead of
- redefining the function.
- (tpu-set-scroll-margins): Activate the pieces of advice.
-
-2007-08-06 Michael Albinus <michael.albinus@gmx.de>
-
- * net/ange-ftp.el (ange-ftp-hook-function): Catch also errors in
- process-filter.
-
-2007-08-06 Martin Rudalics <rudalics@gmx.at>
-
- * help.el (resize-temp-buffer-window): Use window-full-width-p
- instead of comparing frame-width and window-width.
-
-2007-08-05 Peter Povinec <ppovinec <at> yahoo.com> (tiny change)
-
- * term.el: Honor term-default-fg-color and term-default-bg-color
- settings when modifying term-current-face.
- (term-default-fg-color, term-default-bg-color): Initialize from
- default term-current-face.
- (term-mode, term-reset-terminal): Set term-current-face with
- term-default-fg-color and term-default-bg-color.
- (term-handle-colors-array): term-current-face has term-default-fg-color
- and term-default-bg-color after reset escape sequence.
- (term-handle-colors-array): Set term-current-color with
- term-default-fg/bg-color instead of ansi-term-color-vector when the
- index (term-ansi-current-color or term-ansi-current-bg-color) is zero.
-
-2007-08-05 Michael Albinus <michael.albinus@gmx.de>
-
- * files.el (set-auto-mode): Handle also remote files wrt
- `auto-mode-alist'.
-
- * net/tramp.el (tramp-handle-file-remote-p): Return a string as
- remote identification.
-
-2007-08-04 Glenn Morris <rgm@gnu.org>
-
- * autorevert.el (auto-revert-tail-mode): auto-revert-tail-pos is
- zero, not nil, when the library is first loaded. Check for a file
- that has been modified on disk.
-
- * progmodes/cperl-mode.el (cperl-compilation-error-regexp-alist):
- Remove duplicate defvar preventing initialization.
- (cperl-mode): Fix compilation-error-regexp-alist-alist setting.
-
-2007-08-03 Miles Bader <miles@gnu.org>
-
- * vc-hooks.el (vc-handled-backends): Change capitalization of VC
- backend names for new backends to `Git', `Hg', and `Bzr'.
- * vc-hg.el (vc-hg-dired-state-info): Use `Hg' as VC backend name,
- not `HG'.
- * vc-git.el (vc-git-dired-state-info): Use `Git' as VC backend
- name, not `GIT'.
- * vc-bzr.el (vc-bzr-dir-state, vc-bzr-dired-state-info)
- (vc-bzr-unload-hook): Use `Bzr' as VC backend name, not `BZR'.
-
-2007-08-03 Glenn Morris <rgm@gnu.org>
-
- * net/telnet.el (telnet-mode): Set comint-use-prompt-regexp to t.
-
-2007-08-02 Richard Stallman <rms@gnu.org>
-
- * mail/rmailsum.el (rmail-make-summary-line): Find end of msg number
- to update deleted flag.
-
- * cus-edit.el (customize-apropos, customize-apropos-options)
- (customize-apropos-faces, customize-apropos-groups): Improve prompt.
-
- * menu-bar.el (menu-bar-help-menu): Add "About GNU" menu item.
-
- * startup.el (fancy-splash-head, startup-echo-area-message):
- Change message text.
-
- * emulation/tpu-edt.el (next-line-internal): Setting deleted.
- All callers use line-move.
-
- * progmodes/compile.el (compilation-find-buffer): Return current
- buffer immediately if suitable.
- (compile, compilation-buffer-name, compilation-start): Doc fixes.
-
-2007-08-02 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-bzr.el (vc-bzr-admin-dirstate): Rename from `...-dirname'.
- Make it more discriminating and more useful.
- (vc-bzr-root-dir): Use new name.
- (vc-bzr-registered): Use new name and look at the dirstate file to
- determine if it's registered or not without running `bzr'.
-
-2007-08-01 Eric Hanchrow <offby1@blarg.net> (tiny change)
-
- * ibuf-ext.el (ibuffer-mark-old-buffers): Docstring fix.
-
-2007-07-31 Drew Adams <drew.adams@oracle.com>
-
- * cus-edit.el (custom-group-value-create, custom-goto-parent):
- Fix parent groups link.
-
-2007-07-31 Daiki Ueno <ueno@unixuser.org>
-
- * faces.el (face-normalize-spec): New function.
- (frame-set-background-mode): Normalize face-spec before calling
- face-spec-match-p.
-
-2007-07-31 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-bzr.el: New file (copied from the trunk).
-
- * vc-hooks.el (vc-handled-backends): Add BZR.
- (vc-find-file-hook): Failsafe if the backend's `registered'
- function burps.
-
- * server.el (server-window): Add switch-to-buffer-other-frame option.
-
-2007-07-30 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-git.el (vc-directory-exclusion-list, vc-handled-backends): Remove.
- (vc-git-revision-completion-table): Enable.
-
- * vc-hooks.el (vc-handled-backends): Add GIT and HG.
-
- * vc.el (vc-directory-exclusion-list): Add .git and .hg.
-
- * vc-hg.el (vc-hg-revision-completion-table): Re-enable.
- (vc-hg-registered): Set the vc-state property.
-
- * diff-mode.el (diff-mode-menu): New entries.
-
-2007-06-30 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-beginning-of-file-and-junk): New function.
- (diff-file-kill): Use it.
- (diff-beginning-of-hunk): Add arg `try-harder' using it.
- (diff-restrict-view, diff-find-source-location, diff-refine-hunk):
- Use it so they find the hunk even when we're in the file header.
-
- * vc.el: Add new VC operation `revision-completion-table'.
- (vc-default-revision-completion-table): New function.
- (vc-version-diff, vc-version-other-window): Use it to provide
- completion of revision names if the backend provides it.
-
- * vc-arch.el (vc-arch--version-completion-table)
- (vc-arch-revision-completion-table): New functions to provide
- completion of revision names.
-
- * vc-cvs.el: Require CL.
- (vc-cvs-revision-table, vc-cvs-revision-completion-table):
- New functions to provide completion of revision names.
-
-2007-07-29 Kimit Yada <kimitto@gmail.com> (tiny change)
-
- * emacs-lisp/copyright.el (copyright-update-year, copyright-update)
- (copyright-fix-years, copyright): Correctly handle the case where
- copyright-limit is nil.
-
-2007-07-28 Konstantin Novitsky <knovitsk@Bear.com> (tiny change)
-
- * progmodes/python.el (run-python): Fix path separator under w32.
-
-2007-07-28 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-git.el: New File.
-
-2007-07-28 Alan Mackenzie <acm@muc.de>
-
- Fix problem with modes derived from CC Mode:
- * progmodes/cc-mode.el (c-make-emacs-variables-local): Move this
- macro to cc-langs.
- (c-init-language-vars-for): Remove call to above macro.
- * progmodes/cc-langs.el (c-make-emacs-variables-local): Macro has
- been moved to here.
- (c-make-init-lang-vars-fun): Call c-make-emacs-variables-local.
-
-2007-07-28 Eli Zaretskii <eliz@gnu.org>
-
- * net/trampver.el: Fix the `coding' cookie.
-
-2007-07-25 Nick Roberts <nickrob@snap.net.nz>
-
- * add-log.el (change-log-redate): Remove (not needed anymore and
- doesn't appear to work).
-
-2007-07-25 Glenn Morris <rgm@gnu.org>
-
- * Relicense all FSF files to GPLv3 or later.
-
- * COPYING: Switch to GPLv3.
-
-2007-07-25 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs.el (cvs-temp-buffer): Undo last ill-conceived change.
- Replace it with another one which disables undo before calling
- erase-buffer and then turns it back on if needed.
-
-2007-07-24 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Problem with foreground and background color when
- printing a buffer with and without faces. Reported by Christian
- Schlauer <cs-muelleimer-rubbish.bin@arcor.de>.
- (ps-print-version): New version 6.7.5.
- (ps-default-fg): Change default value to nil, so black color is used
- when a face does not specify a foreground color.
- (ps-default-bg): Change default value to nil, so white color is used
- for background color.
- (ps-begin-job): Fix code.
-
-2007-07-24 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-revision-completion-table): Temporarily comment out.
-
-2007-07-24 Alan Mackenzie <acm@muc.de>
-
- * emacs-lisp/bytecomp.el (byte-compile-from-buffer):
- Initialise byte-compile-unresolved-functions before rather than
- after a compilation.
- (byte-compile-unresolved-functions): Amplify doc string.
-
-2007-07-24 Glenn Morris <rgm@gnu.org>
-
- * calendar/cal-tex.el (cal-tex-holidays, cal-tex-diary)
- (cal-tex-rules, cal-tex-buffer, cal-tex-24)
- (cal-tex-cursor-month-landscape, cal-tex-cursor-month)
- (cal-tex-cursor-week, cal-tex-cursor-week2)
- (cal-tex-cursor-week-iso, cal-tex-week-hours)
- (cal-tex-cursor-week-monday, cal-tex-weekly4-box)
- (cal-tex-cursor-filofax-2week, cal-tex-cursor-filofax-week)
- (cal-tex-cursor-filofax-daily, cal-tex-daily-page): Doc fix.
-
-2007-07-24 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs.el (cvs-temp-buffer): Disable undo in temp buffers.
-
-2007-07-23 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * ses.el (ses-cleanup): Prevent Emacs from spuriously checking if the
- underlying file is uptodate.
-
-2007-07-23 Richard Stallman <rms@gnu.org>
-
- * progmodes/octave-inf.el (inferior-octave-prompt): Accept .exe.
-
-2007-07-23 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-font-lock-backslash-quote)
- (sh-font-lock-flush-syntax-ppss-cache): New funs.
- (sh-font-lock-syntactic-keywords): Use them to distinguish the
- different possible cases for \'.
- (sh-font-lock-paren): Mark the relevant text with font-lock-multiline.
-
- * vc-hooks.el (vc-find-root): Walk up the tree to find an existing
- `file' from which to start the search and fix case where `file' is the
- current directory and the root as well.
-
- * pcvs.el (cvs-mode-add-change-log-entry-other-window): Use a directory
- name for buffer-file-name if it refers to a directory.
-
-2007-07-22 Jason Rumney <jasonr@gnu.org>
-
- * w32-fns.el (set-default-process-coding-system): Use dos line ends
- for input to cmdproxy on all versions of Windows.
- Use dos line ends for input to plink.
-
- * comint.el (comint-simple-send): Concat newline before sending.
- (comint-password-prompt-regexp): Recognize plink's passphrase prompt.
-
-2007-07-22 Juri Linkov <juri@jurta.org>
-
- * isearch.el (isearch-edit-string): Save old point and
- isearch-other-end to old-point and old-other-end before reading
- the search string from minibuffer. After exiting minibuffer set
- point to old-other-end if point and the search direction is the
- same as before reading the search string.
- (isearch-del-char): Don't set isearch-yank-flag to t. Put point
- to isearch-other-end. Instead of isearch-search-and-update call
- three functions isearch-search, isearch-push-state and isearch-update.
-
-2007-07-22 Ralf Angeli <angeli@caeruleus.net>
-
- * textmodes/reftex.el (reftex-access-parse-file): Do not risk
- destroying an existing buffer.
-
-2007-07-22 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * startup.el (command-line-x-option-alist): Use x-handle-no-bitmap-icon.
-
- * term/x-win.el (x-handle-no-bitmap-icon): New function.
-
-2007-07-22 Ralf Angeli <angeli@caeruleus.net>
-
- * textmodes/reftex.el (reftex-access-parse-file): Create parse
- file in a way that does not interfere with recentf.
-
-2007-07-21 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * image-dired.el (image-dired-sane-db-file): New func.
- (image-dired-write-tags, image-dired-remove-tag)
- (image-dired-list-tags, image-dired-write-comments)
- (image-dired-get-comment, image-dired-mark-tagged-files)
- (image-dired-create-gallery-lists): Call new func.
- Reported by Dieter Wilhelm <dieter@duenenhof-wilhelm.de>.
-
-2007-07-21 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-diff): Use vc-hg-command.
- (vc-hg-dir-state): Fix loop.
- (vc-hg-print-log): Fix expected return value for vc-hg-command.
- (vc-hg-next-version, vc-hg-delete-file, vc-hg-rename-file)
- (vc-hg-register, vc-hg-create-repo, vc-hg-checkin)
- (vc-hg-revert): Likewise.
- (vc-hg-revision-table, vc-hg-revision-completion-table): New functions.
-
-2007-07-21 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * emacs-lisp/lisp-mode.el (calculate-lisp-indent): In the
- case of alignment under a constant symbol, find and consider
- the sexp actually at indentation to be the "last sexp".
-
-2007-07-20 Eli Zaretskii <eliz@gnu.org>
-
- * makefile.w32-in (install-lisp-SH, install-lisp-CMD): New targets.
- (install): Use them to copy all *.el files before *.elc.
- (clean): Don't delete *~.
-
-2007-07-20 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-workfile-unchanged-p): New function.
-
-2007-07-19 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-registered): Replace if with when.
- (vc-hg-state): Deal with nonexistent files.
-
-2007-07-18 Juanma Barranquero <lekktu@gmail.com>
-
- * follow.el (follow-mode-hook, follow-mode-off-hook, follow-mode)
- (follow-delete-other-windows-and-split, follow-recenter)
- (follow-windows-aligned-p, follow-point-visible-all-windows-p)
- (follow-redisplay, follow-estimate-first-window-start)
- (follow-xemacs-scrollbar-support, follow-intercept-process-output):
- Fix typos in docstrings.
-
-2007-07-17 Thien-Thi Nguyen <ttn@gnuvola.org>
-
- * bookmark.el (bookmark-show-all-annotations):
- Make sure each inserted annotation ends with newline.
-
- (bookmark-maybe-sort-alist): Don't modify
- bookmark-alist. Instead, if not sorting, simply return it.
- (bookmark-bmenu-list): Call bookmark-maybe-sort-alist
- for its return value, not for its side effect.
-
-2007-07-17 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc.el: Add more info about the vc-registered function.
-
-2007-07-16 David Kastrup <dak@gnu.org>
-
- * emacs-lisp/advice.el (defadvice): Doc fix.
-
-2007-07-16 Juanma Barranquero <lekktu@gmail.com>
-
- * subr.el (when, unless): Doc fix.
-
-2007-07-16 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el (vc-hg-state): Handle removed files.
- (vc-hg-dir-state, vc-hg-dired-state-info): New functions.
- (vc-hg-checkout): Re-enable.
-
-2007-07-15 Richard Stallman <rms@gnu.org>
-
- * kmacro.el (kmacro-bind-to-key): Avoid comparisons on function keys.
-
- * tutorial.el (tutorial--find-changed-keys):
- Handle C-x specially like ESC.
-
-2007-07-15 Roland McGrath <roland@frob.com>
-
- * add-log.el (add-change-log-entry): Check add-log-full-name
- and add-log-mailing-address later, after change-log-mode-hook.
-
-2007-07-15 Richard Stallman <rms@gnu.org>
-
- * isearch.el (isearch-mode, isearch-done):
- Delete unintended code in previous change.
-
- * ps-print.el (ps-default-bg): Change to White.
-
-2007-07-15 Aaron Hawley <aaronh@garden.org>
-
- * tar-mode.el (tar-get-descriptor): No error for zero-length file.
-
-2007-07-15 Martin Rudalics <rudalics@gmx.at>
-
- * mouse.el (mouse-drag-track): Reset transient-mark-mode to nil
- when handling the terminating event.
-
-2007-07-15 Jeff Miller <jmiller@cablespeed.com> (tiny change)
-
- * calendar/calendar.el (calendar-goto-bahai-date): Autoload it.
-
-2007-07-13 Eli Zaretskii <eliz@gnu.org>
-
- * makefile.w32-in (install-lisp-SH, install-lisp-CMD): New targets.
- (install): Use them to copy all *.el files before *.elc.
-
-2007-07-13 Dan Nicolaescu <dann@ics.uci.edu>
-
- * replace.el (match): Use yellow1 instead of yellow.
-
- * progmodes/gdb-ui.el (breakpoint-enabled): Use red1 instead of red.
-
- * pcvs-info.el (cvs-unknown): Likewise.
-
-2007-07-12 Davis Herring <herring@lanl.gov>
-
- * desktop.el (desktop-buffer-info, desktop-save):
- Use `desktop-dirname' instead of `dirname'.
-
-2007-07-10 Jim Meyering <jim@meyering.net> (tiny change)
-
- * emacs-lisp/copyright.el (copyright-current-gpl-version): Set to 3.
-
- * autoinsert.el (auto-insert-alist): s/2/3/ in the generated comment.
-
-2007-07-10 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/lisp-mode.el (eval-defun):
- Explain special handling of `defface'.
-
-2007-07-09 Richard Stallman <rms@gnu.org>
-
- * isearch.el (isearch-edit-string): Call to isearch-push-state
- after the search.
-
-2007-07-08 Katsumi Yamaoka <yamaoka@jpl.org>
-
- * cus-start.el (file-coding-system-alist): Fix custom type.
-
-2007-07-08 Chong Yidong <cyd@stupidchicken.com>
-
- * longlines.el (longlines-wrap-region): Avoid marking buffer as
- modified.
- (longlines-auto-wrap, longlines-window-change-function):
- Remove unnecessary calls to set-buffer-modified-p.
-
-2007-06-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc.el (vc-default-log-view-mode): New function.
- (vc-print-log): Add new `log-view-mode' VC operation.
-
-2007-07-08 Nick Roberts <nickrob@snap.net.nz>
-
- * pcvs-util.el (cvs-strings->string, cvs-string->strings):
- Rename and move to...
-
- * subr.el (strings->string, string->strings): ...here.
-
- * pcvs.el (cvs-reread-cvsrc, cvs-header-msg, cvs-checkout)
- (cvs-mode-checkout, cvs-execute-single-file): Use new function names.
-
- * progmodes/gud.el (gud-common-init): Call string->strings instead
- of split-string.
-
-2007-07-07 Eli Zaretskii <eliz@gnu.org>
-
- * term/w32-win.el (menu-bar-open): New function.
- Bind <f10> to it.
-
-2007-07-07 Dan Nicolaescu <dann@ics.uci.edu>
-
- * log-view.el (log-view-mode-menu): New menu.
-
-2007-07-06 Dan Nicolaescu <dann@ics.uci.edu>
-
- * vc-hg.el: New file.
-
-2007-07-06 Andreas Schwab <schwab@suse.de>
-
- * emacs-lisp/lisp-mode.el (eval-last-sexp): Avoid introducing any
- dynamic bindings around the evaluation of the expression.
- Reported by Jay Belanger <jay.p.belanger@gmail.com>.
-
-2007-07-03 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/gud.el (auto-mode-alist): Match more valid gdb init
- file names.
-
-2007-07-02 Martin Rudalics <rudalics@gmx.at>
-
- * help-mode.el (help-make-xrefs): Skip spaces too when skipping tabs.
-
- * mouse.el (mouse-drag-mode-line-1): Quit mouse tracking when
- event is not a cons cell. Do not unread drag-mouse-1 events.
- Select right window in check whether space was stolen from
- window above.
-
-2007-07-01 Richard Stallman <rms@gnu.org>
-
- * files.el (find-file-visit-truename): Fix safe-local-variable value.
-
-2007-06-29 Juanma Barranquero <lekktu@gmail.com>
-
- * generic-x.el (generic-define-mswindows-modes)
- (generic-define-unix-modes, apache-log-generic-mode)
- (bat-generic-mode-keymap, java-manifest-generic-mode)
- (show-tabs-generic-mode): Fix typos in docstrings.
-
-2007-06-28 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * dnd.el (dnd-get-local-file-name): Set fixcase to t in call to
- replace-regexp-in-string.
-
-2007-06-28 Andreas Schwab <schwab@suse.de>
-
- * Makefile.in ($(lisp)/mh-e/mh-loaddefs.el): Depend on
- $(lisp)/subdirs.el.
-
-2007-06-28 Juanma Barranquero <lekktu@gmail.com>
-
- * speedbar.el (speedbar-handle-delete-frame): Don't try to delete
- the speedbar frame if nil; that deletes the current frame or
- causes an error if it is the only frame.
- Reported by Angelo Graziosi <Angelo.Graziosi@roma1.infn.it>.
-
-2007-06-24 Juanma Barranquero <lekktu@gmail.com>
-
- * desktop.el (desktop-read): Run `desktop-not-loaded-hook' in the
- directory where the desktop file was found, as the docstring says.
- (desktop-kill): Use `read-directory-name'.
-
- * desktop.el (desktop-load-locked-desktop): New option.
- (desktop-read): Use it.
- (desktop-truncate, desktop-outvar, desktop-restore-file-buffer):
- Use `when'.
-
-2007-06-24 Davis Herring <herring@lanl.gov>
-
- * desktop.el (desktop-save-mode-off): New function.
- (desktop-base-lock-name, desktop-not-loaded-hook): New variables.
- (desktop-full-lock-name, desktop-file-modtime, desktop-owner)
- (desktop-claim-lock, desktop-release-lock): New functions.
- (desktop-kill): Tell `desktop-save' that this is the last save.
- Release the lock afterwards.
- (desktop-buffer-info): New function.
- (desktop-save): Use it. Run `desktop-save-hook' where the doc
- says to. Detect conflicts, and manage the lock.
- (desktop-read): Detect conflicts. Manage the lock.
-
-2007-06-23 Eli Zaretskii <eliz@gnu.org>
-
- * ls-lisp.el (insert-directory): If an invalid regexp error is
- thrown, try using FILE as a literal file name, not a wildcard.
- Check for FILE as an existing file, not just a directory.
-
-2007-06-23 Juanma Barranquero <lekktu@gmail.com>
-
- * ruler-mode.el (ruler-mode): Prevent clobbering the original
- `header-line-format' when reentering ruler mode.
-
-2007-06-23 Eli Zaretskii <eliz@gnu.org>
-
- * ls-lisp.el (insert-directory): Don't treat FILE as a wildcard if
- FILE exists as a directory.
-
-2007-06-21 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/vera-mode.el (vera-mode): Fix `commend-end-skip' setting.
- (vera-font-lock-match-item): Fix doc string.
- (vera-in-comment-p): Remove unused function.
- (vera-skip-forward-literal, vera-skip-backward-literal): Improve code,
- use `syntax-ppss'.
- (vera-forward-syntactic-ws): Fix argument order.
- (vera-prepare-search): Use `with-syntax-table'.
- (vera-indent-line): Fix doc string.
- (vera-electric-tab): Fix doc string.
- (vera-expand-abbrev): Define alias instead of using `fset'.
- (vera-comment-uncomment-region): Use `comment-start-skip'.
-
-2007-06-20 Reto Zimmermann <reto@gnu.org>
-
- * progmodes/vera-mode.el: New file.
-
-2007-06-20 Juanma Barranquero <lekktu@gmail.com>
-
- * ido.el (ido-find-file-in-dir): Don't signal an error for
- empty directories.
-
-2007-06-18 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-mode.el (c-remove-any-local-eval-or-mode-variables):
- When removing lines, also remove the \n. Correction of patch of
- 2007-04-21.
-
-2007-06-17 Glenn Morris <rgm@gnu.org>
-
- * lpr.el (lpr-page-header-switches): Move %s to separate element
- for correct quoting. Doc fix.
-
-2007-06-13 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * term/xterm.el (terminal-init-xterm): Escape parens in character
- constants.
-
-2007-06-12 Ralf Angeli <angeli@caeruleus.net>
-
- * scroll-lock.el (scroll-lock-mode): Doc fix.
-
-2007-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * font-lock.el (font-lock-add-keywords): In case font-lock was only
- half-activated, forcefully activate it completely.
-
-2007-06-11 Richard Stallman <rms@gnu.org>
-
- * cus-edit.el (custom-variable-type): Doc fix.
-
-2007-06-09 Alfred M. Szmidt <ams@gnu.org> (tiny change)
-
- * mail/rmail.el (rmail-movemail-variant-in-use): Fix doc typo.
-
-2007-06-09 Davis Herring <herring@lanl.gov>
-
- * desktop.el (desktop-minor-mode-table): Doc fix.
-
-2007-06-08 Chong Yidong <cyd@stupidchicken.com>
-
- * image-mode.el (image-forward-hscroll, image-backward-hscroll)
- (image-next-line, image-previous-line, image-scroll-up)
- (image-scroll-down, image-bol, image-eol, image-bob, image-eob):
- New functions.
- (image-mode-map): Remap motion commands.
- (image-mode-text-map): New keymap for viewing images as text.
- (image-mode): Use image-mode-map.
- (image-toggle-display): Toggle auto-hscroll-mode and mode keymaps.
-
-2007-06-07 Michael Albinus <michael.albinus@gmx.de>
-
- 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 <rms@gnu.org>.
-
- * 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 <dak@gnu.org>
-
- * dired.el (dired-recursive-deletes, dired-recursive-copies):
- Change default to `top'.
-
-2007-06-07 Chong Yidong <cyd@stupidchicken.com>
-
- * dired.el (dired-mode-map): Remove spurious separator.
-
-2007-06-07 Juanma Barranquero <lekktu@gmail.com>
-
- * 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 <ams@gnu.org> (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 <lekktu@gmail.com>
-
- * progmodes/ebrowse.el (ebrowse-member-table):
- * textmodes/org.el (org-export-ascii-bullets): Fix typos in docstrings.
-
-2007-06-06 Juanma Barranquero <lekktu@gmail.com>
-
- * 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 <eliz@gnu.org>
-
- * 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 <monnier@iro.umontreal.ca>
-
- * textmodes/css-mode.el: New file.
-
-2007-06-06 Michael Albinus <michael.albinus@gmx.de>
-
- * 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 occurrences.
-
-2007-06-06 Juanma Barranquero <lekktu@gmail.com>
-
- * 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 <lekktu@gmail.com>
-
- * 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 <rgm@gnu.org>
-
- * files.el (auto-mode-alist): Open `.asd' files in lisp-mode.
-
-2007-06-05 Chong Yidong <cyd@stupidchicken.com>
-
- * files.el (auto-mode-alist): Add lower-priority match for names
- like ChangeLog.old.
-
-2007-06-04 Andreas Schwab <schwab@suse.de>
-
- * emacs-lisp/sregex.el (sregexq): Fix doc string quoting.
-
-2007-06-04 Davis Herring <herring@lanl.gov>
-
- * 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\e,Ak\e(Bl Cadilhac <michael@cadilhac.name>
-
- * 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 <rudalics@gmx.at>
-
- * hilit-chg.el (highlight-changes-rotate-faces): Don't set
- modified flag of buffer. Use `inhibit-modification-hooks'.
-
-2007-06-04 Katsumi Yamaoka <yamaoka@jpl.org>
-
- * mail/mail-extr.el (mail-extract-address-components):
- Recognize non-ASCII characters except for NBSP as words.
-
-2007-06-04 Ryan Yeske <rcyeske@gmail.com>
-
- * net/webjump.el (webjump-sample-sites): Add Wikipedia query.
-
-2007-06-04 Michael Olson <mwolson@gnu.org>
-
- * 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 <lekktu@gmail.com>
-
- * 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 <cyd@stupidchicken.com>
-
- * 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.
- (longlines-after-change-function)
- (longlines-post-command-function): Check longlines-auto-wrap.
-
-2007-06-02 Chong Yidong <cyd@stupidchicken.com>
-
- * Version 22.1 released.
-
-2007-06-01 Chong Yidong <cyd@stupidchicken.com>
-
- * paren.el (show-paren-function): Undo 2007-04-19 and 2007-04-20
- changes.
-
-2007-05-31 Richard Stallman <rms@gnu.org>
-
- * dired.el (dired-do-delete, dired-do-flagged-delete): Doc fixes.
-
-2007-05-29 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/table.el (table--point-entered-cell-function)
- (table--point-left-cell-function):
- Bind `inhibit-point-motion-hooks' to t.
-
-2007-05-29 Nikolaj Schumacher <n_schumacher@web.de> (tiny change)
-
- * emacs-lisp/rx.el (rx): Doc fix.
-
-2007-05-28 Chong Yidong <cyd@stupidchicken.com>
-
- * textmodes/sgml-mode.el (sgml-point-entered): Use condition-case.
-
-2007-05-27 Tetsurou Okazaki <okazaki@be.to> (tiny change)
-
- * log-edit.el (log-edit-changelog-paragraph): Return point-max
- as the end of the ChangeLog paragraph when it ends without a line
- termination.
-
-2007-05-25 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/fill.el (canonically-space-region): Make the second arg
- a marker if it's not already the case.
-
- * xt-mouse.el (xterm-mouse-truncate-wrap): New function.
- (xterm-mouse-event): Use it.
-
-2007-05-25 Miles Bader <miles@fencepost.gnu.org>
-
- * vc-hooks.el (vc-find-root): Fix file attribute test.
-
-2007-05-24 Richard Stallman <rms@gnu.org>
-
- * textmodes/flyspell.el (flyspell-correct-word-before-point):
- Don't let opoint be nil.
- (flyspell-emacs-popup): Explicit error if no dialogs.
-
-2007-05-23 Eli Zaretskii <eliz@gnu.org>
-
- * tar-mode.el (tar-file-name-handler): New function.
- (tar-extract): Bind file-name-handler-alist to it to force
- find-buffer-file-type-coding-system behave as if the file being
- extracted existed. Use last-coding-system-used to force
- buffer-file-coding-system to what decode-coding-region actually
- used to decode the file.
-
-2007-05-23 Nikolaj Schumacher <n_schumacher@web.de> (tiny change)
-
- * progmodes/compile.el (compilation-handle-exit):
- `compilation-finish-function' may change the current buffer.
-
-2007-05-22 Richard Stallman <rms@gnu.org>
-
- * files.el (set-auto-mode): Doc fix.
-
-2007-05-22 Eli Zaretskii <eliz@gnu.org>
-
- * dos-w32.el (find-buffer-file-type-coding-system): Doc fix.
-
-2007-05-21 Trent Buck <trentbuck@gmail.com> (tiny change)
-
- * net/rcirc.el (rcirc-fill-column): Allow `window-width'.
- (rcirc-print): Handle `window-width'.
- (rcirc-buffer-maximum-lines): Doc fix.
-
-2007-05-19 Kevin Ryde <user42@zip.com.au>
-
- * info.el (Info-fontify-node): Match https also.
-
-2007-05-18 Richard Stallman <rms@gnu.org>
-
- * simple.el (push-mark): Doc fix.
-
-2007-05-18 Rob Riepel <riepel@Stanford.EDU>
-
- * emulation/tpu-edt.el (CSI-map, SS3-map): Move from global-map to
- tpu-global-map.
- (tpu-original-global-map): Delete variable.
- (tpu-control-keys-map): New keymap variable.
- (tpu-set-control-keys): Use tpu-reset-control-keys rather than
- setting keymapping directly.
- (tpu-reset-control-keys): Use tpu-control-keys-map instead of
- tpu-global-map.
- (tpu-edt-on): Activate the tpu-global-map.
- (tpu-edt-off): Deactivate the tpu-global-map.
-
-2007-05-18 Ryan Yeske <rcyeske@gmail.com>
-
- * textmodes/ispell.el (ispell-get-word): Return markers
- for start and end positions.
- (ispell-word): Assume END is a marker.
-
-2007-05-17 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Use default color when foreground or background color
- are unspecified. Reported by Leo <sdl.web@gmail.com>.
- (ps-print-version): New version 6.7.4.
- (ps-rgb-color): New argument. Use default color when color is
- unspecified.
- (ps-begin-job): Fix code.
-
-2007-05-17 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/ispell.el (ispell-start-process): Defend against bad
- default-directory.
-
-2007-05-17 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-hooks.el (vc-find-root): Stop searching when the user changes.
-
-2007-05-16 Richard Stallman <rms@gnu.org>
-
- * buff-menu.el (Buffer-menu-sort-column): Doc fix.
-
-2007-05-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * files.el (magic-mode-alist, magic-fallback-mode-alist):
- Move the *ml, Postscript, and XmCD entries to the fallback part.
-
- * files.el (magic-fallback-mode-alist):
- Rename from file-start-mode-alist.
-
-2007-05-16 Nikolaj Schumacher <n_schumacher@web.de> (tiny change)
-
- * progmodes/compile.el (compilation-handle-exit): Quote first
- argument of `run-hook-with-args'.
-
-2007-05-16 Juanma Barranquero <lekktu@gmail.com>
-
- * buff-menu.el (Buffer-menu-sort-column):
- * dabbrev.el (dabbrev-upcase-means-case-search):
- * dired.el (dired-recursive-deletes, dired-recursive-copies):
- * info.el (Info-current-subfile):
- * ls-lisp.el (ls-lisp-verbosity):
- * msb.el (msb-menu-cond):
- * pcvs.el (cvs-dired-use-hook):
- * simple.el (set-mark-command-repeat-pop):
- * time.el (display-time-24hr-format, display-time-mail-file):
- Doc fixes.
-
- * tutorial.el (get-lang-string, tutorial--find-changed-keys):
- * printing.el (pr-ps-fast-fire): Fix typos in docstrings.
-
- * view.el (view-inhibit-help-message): Fix typo in docstring.
- (view-scroll-auto-exit, view-try-extend-at-buffer-end): Doc fixes.
-
-2007-05-14 Eli Zaretskii <eliz@gnu.org>
-
- * mail/rmail.el (rmail-convert-to-babyl-format):
- Check content-transfer-encoding _last_, because we need its position
- in base64-header-field-end.
-
-2007-05-14 Juanma Barranquero <lekktu@gmail.com>
-
- * files.el (mode-require-final-newline, require-final-newline)
- (enable-local-variables, enable-local-eval): Doc fixes.
-
-2007-05-10 Edward O'Connor <hober0@gmail.com> (tiny change)
-
- * progmodes/python.el (python-font-lock-keywords)
- (python-open-block-statement-p, python-mode): Add support for the new
- "with" keyword.
-
-2007-05-10 Richard Stallman <rms@gnu.org>
-
- * international/iso-cvt.el (iso-cvt-read-only): Ignore arguments.
- (iso-cvt-write-only): Likewise.
-
- * emacs-lisp/easy-mmode.el (define-minor-mode):
- Fix generated doc string.
-
- * startup.el (fancy-splash-text): Add URL of guided tour.
- Adjust horizontal and vertical whitespace.
-
- * progmodes/compile.el (compilation-handle-exit):
- Use run-hook-with-args to run compilation-finish-functions.
-
- * files.el (file-start-mode-alist): New variable.
- (magic-mode-regexp-match-limit): Doc fix.
- (set-auto-mode): Handle file-start-mode-alist.
- A little cleanup of structure.
-
-2007-05-10 Davis Herring <herring@lanl.gov>
-
- * calendar/timeclock.el (timeclock-in): Fix non-interactive
- workday specifications.
- (timeclock-log): Don't kill the log buffer if it already existed.
-
-2007-05-08 Richard Stallman <rms@gnu.org>
-
- * mail/mailabbrev.el (sendmail-pre-abbrev-expand-hook):
- Don't include non-self-insert commands in the exception for `-'.
-
-2007-05-08 David Reitter <david.reitter@gmail.com>
-
- * progmodes/python.el (python-guess-indent): Check non-nullness
- before comparing indent against the 2..8 interval.
-
-2007-05-07 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-ts-unicode-for-key-event): Check if text is
- available.
-
-2007-05-06 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/eldoc.el (turn-on-eldoc-mode): Doc fix.
-
-2007-05-03 Ryan Yeske <rcyeske@gmail.com>
-
- * net/rcirc.el (rcirc-timeout-seconds): Increase to prevent unwanted
- disconnections.
-
-2007-05-01 Romain Francoise <romain@orebokech.com>
-
- * dired-x.el: Revert 2007-04-06 change.
-
-2007-04-30 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-menu-map): Pdb can't handle SIGINT so
- don't put stop on toolbar.
-
-2007-04-29 Stephen Berman <Stephen.Berman@gmx.net>
-
- * find-dired.el (find-dired-filter): Propertize all text down to eob.
-
-2007-04-29 Richard Stallman <rms@gnu.org>
-
- * international/mule.el (auto-coding-alist): Add pdf => no-conversion.
-
-2007-04-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/cc-mode.el (c-before-change): Use point-min rather
- than 1.
-
-2007-04-28 Richard Stallman <rms@gnu.org>
-
- * progmodes/sh-script.el (sh-mode): Recognize .profile as sh style.
-
-2007-04-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-hooks.el (vc-ignore-dir-regexp): Add /.../ for the DFS filesystem.
-
-2007-04-28 Eli Zaretskii <eliz@gnu.org>
-
- * makefile.w32-in ($(lisp)/mh-e/mh-loaddefs.el): Use ./mh-e
- instead of $(lisp)/mh-e.
-
- * textmodes/fill.el (fill-paragraph): Doc fix.
-
-2007-04-28 Glenn Morris <rgm@gnu.org>
-
- * image-dired.el (image-dired-cmd-create-thumbnail-options)
- (image-dired-cmd-create-temp-image-options): Replace option
- +profile "*" with -strip.
-
-2007-04-27 Chong Yidong <cyd@stupidchicken.com>
-
- * textmodes/flyspell.el (flyspell-auto-correct-previous-word):
- Use window-start and window-end.
-
-2007-04-26 Glenn Morris <rgm@gnu.org>
-
- * progmodes/python.el: Restore file pending consideration of legal
- status.
-
-2007-04-26 Luc Teirlinck <teirllm@dms.auburn.edu>
-
- * locate.el (locate-in-alternate-database): Doc fix.
-
-2007-04-26 Glenn Morris <rgm@gnu.org>
-
- * button.el (button): Use underline if supported, else fall back
- to color.
-
-2007-04-25 Richard Stallman <rms@gnu.org>
-
- * hi-lock.el (hi-lock-file-patterns-policy): Default to `ask'.
-
-2007-04-25 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlwave.el (idlwave-beginning-of-subprogram)
- (idlwave-end-of-subprogram): Take optional NOMARK arg to prevent
- pushing mark.
- (idlwave-current-routine): Don't push mark.
-
-2007-04-25 Mathias Dahl <mathias.dahl@gmail.com>
-
- * image-dired.el (image-dired-display-image): Derive image-type from
- filename rather than assuming jpeg, in case no resizing was needed.
-
-2007-04-25 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * custom.el (defface): Doc fix.
-
-2007-04-24 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/python.el: Remove due to unclear legal issues.
-
-2007-04-24 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlw-shell.el (idlwave-shell-clear-all-bp):
- Don't re-query for each cleared BP.
- (idlwave-shell-clear-bp): Optionally skip BP query.
- (idlwave-shell-update-bp-overlays): Use set-window-margins instead
- of set-window-buffer, which incorrectly moves displayed region.
-
-2007-04-23 Jay Belanger <jay.p.belanger@gmail.com>
-
- * calc/calc.el (calc-bug-address): Update maintainer's address.
- * calc/*: Update maintainer's address.
-
-2007-04-23 Richard Stallman <rms@gnu.org>
-
- * simple.el (set-mark-command-repeat-pop): Doc fix.
- Put in `editing-basics' group.
-
-2007-04-23 Chong Yidong <cyd@stupidchicken.com>
-
- * info.el (Info-mouse-scroll-up, Info-mouse-scroll-down):
- New functions.
- (Info-mode-line-node-keymap): Bind mouse commands to
- Info-mouse-scroll-up/down instead of Info-scroll-up/down.
-
-2007-04-23 Luc Teirlinck <teirllm@auburn.edu>
-
- * locate.el (locate-local-prompt): New var.
- (locate-prompt-for-command): Doc fix.
- (locate-prompt-for-search-string): New function.
- (locate): New optional arg. Make locate-local-prompt
- buffer-local. Use locate-prompt-for-search-string.
- (locate-with-filter): New optional arg.
- Use locate-prompt-for-search-string.
- (locate-update): Bind locate-prompt-for-command.
-
-2007-04-23 Glenn Morris <rgm@gnu.org>
-
- * files.el (magic-mode-alist): `<!DOCTYPE HTML' in html-mode.
-
-2007-04-23 Nick Roberts <nickrob@snap.net.nz>
-
- * button.el (button): Inherit from link face on a tty.
-
-2007-04-23 Glenn Morris <rgm@gnu.org>
-
- * button.el (button): Use color for this face on a tty.
-
- * files.el (magic-mode-alist): Allow for carriage-returns in
- html-mode and sgml-mode entries.
-
-2007-04-22 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/easy-mmode.el (define-globalized-minor-mode):
- Improve doc string of generated command.
-
- * subr.el (read-number): Catch errors.
-
- * hi-lock.el (hi-lock-file-patterns-policy): Doc fix.
-
-2007-04-22 Chong Yidong <cyd@stupidchicken.com>
-
- * image-dired.el: Rename from thumbnails.el. All instances of
- "thumbnails" replaced with "image-dired".
-
- * dired.el (dired-mode-map): Rename "thumbnails" again, to
- "image-dired".
-
-2007-04-22 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-kill-buffer-at-head, ido-delete-file-at-head):
- Don't use kill-line.
-
-2007-04-22 Nick Roberts <nickrob@snap.net.nz>
-
- * t-mouse.el (t-mouse-make-event): Pass on mev's more informative
- error message.
-
-2007-04-22 Chong Yidong <cyd@stupidchicken.com>
-
- * dired.el: Rename "tumme" to "thumbnails".
-
- * thumbnails.el: Rename from tumme.el. All instances of "tumme"
- replaced with "thumbnails".
-
-2007-04-22 Glenn Morris <rgm@gnu.org>
-
- * hi-lock.el (hi-lock-file-patterns-policy): Make it a defcustom,
- and give it the risky-local-variable property.
-
- * textmodes/flyspell.el (flyspell-define-abbrev): Downcase abbrev
- before defining it.
-
-2007-04-21 Martin Rudalics <rudalics@gmx.at>
-
- * progmodes/cc-mode.el (c-remove-any-local-eval-or-mode-variables):
- Use delete-region instead of kill-line.
-
-2007-04-21 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-electric-slash): Replace wrong use of
- `kill-region' by `delete-region'.
-
-2007-04-21 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/perl-mode.el (perl-indent-command): Use delete-region
- instead of kill-region.
-
- * progmodes/mantemp.el (mantemp-make-mantemps-region)
- (mantemp-insert-cxx-syntax, mantemp-sort-and-unique-lines)
- (mantemp-remove-memfuncs): Use delete-region instead of kill-word
- and kill-line.
-
- * progmodes/vhdl-mode.el (vhdl-template-type)
- (vhdl-template-record, vhdl-template-nature)
- (vhdl-template-configuration-spec, vhdl-template-component-inst)
- (vhdl-template-break, vhdl-regress-line, vhdl-electric-tab):
- Use delete-region instead of kill-word and kill-line.
-
-2007-04-21 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * dired-x.el (dired-virtual-mode): Doc fix.
-
-2007-04-21 Richard Stallman <rms@gnu.org>
-
- * font-lock.el (font-lock-keywords-alist): Mark as risky.
-
- * subr.el (read-number): Doc fix.
-
- * simple.el (pop-to-mark-command): Display message "mark popped"
- if point does not move.
- (set-mark-command): Doc fix.
-
-2007-04-21 Luc Teirlinck <teirllm@auburn.edu>
-
- * locate.el: Revert 2006-09-09 and 2007-04-20 changes.
- (locate-local-filter, locate-local-search): New vars.
- (locate): Make variables local.
- (locate-update): Bind locate-buffer-name. Call locate using
- locate-local-filter and locate-local-search.
-
-2007-04-20 David Koppelman <koppel@ece.lsu.edu>
-
- * hi-lock.el (hi-lock-file-patterns-policy): New var.
- (hi-lock-find-patterns): Use hi-lock-file-patterns-policy.
- (hi-lock-mode): Update docstring.
-
-2007-04-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/fill.el (fill-move-to-break-point): Don't inhibit
- fill-nobreak-predicate when the break is past fill-column.
-
-2007-04-20 Francesco Potort\e,Al\e(B <pot@gnu.org>
-
- * locate.el (locate): Output from shell-command should go in the
- current buffer rather than *Shell Command Output*.
-
-2007-04-20 Chong Yidong <cyd@stupidchicken.com>
-
- * paren.el (show-paren-function): Fix last fix.
-
-2007-04-19 Kevin Ryde <user42@zip.com.au>
-
- * arc-mode.el (archive-find-type): lzh-exe for lzh self-extracting exe.
- (archive-lzh-summarize): Add optional start arg for where to start
- looking at the archive.
- (archive-lzh-exe-summarize, archive-lzh-exe-extract): New functions.
-
- * international/mule.el (auto-coding-alist): no-conversion for .exe
- and .EXE.
-
-2007-04-19 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-in-function-trailer-p): Fix this: when a
- function return type contains "struct", "union", etc.
- c-end-of-defun goes too far forward.
-
-2007-04-19 Chong Yidong <cyd@stupidchicken.com>
-
- * paren.el (show-paren-function): Reset window-start to avoid
- recentering.
-
-2007-04-19 Glenn Morris <rgm@gnu.org>
-
- * calendar/todo-mode.el: Fix typo: "threshhold" -> "threshold".
-
-2007-04-18 Glenn Morris <rgm@gnu.org>
-
- * calendar/diary-lib.el (diary-header-line-format): Add a custom
- :set function.
- (diary-list-entries): Only switch to diary-mode from
- default-major-mode (reverts 2007-03-21 change). Otherwise, if in
- diary-mode set header-line-format, in case of any customization.
-
-2007-04-18 Levin Du <zslevin@gmail.com> (tiny change)
-
- * calendar/parse-time.el (parse-time-string-chars): Check if CHAR
- is less than the length of parse-time-syntax.
-
-2007-04-17 David Kastrup <dak@gnu.org>
-
- * replace.el (query-replace-regexp-eval): Deprecate.
-
-2007-04-17 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-beginning-of-defun): With -ve arg and
- point too close to EOB, leave point at EOB rather than last `}'.
-
-2007-04-17 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-include-OPTkey)
- (bibtex-user-optional-fields, bibtex-entry-field-alist):
- Fix defcustom.
-
-2007-04-17 Glenn Morris <rgm@gnu.org>
-
- * calendar/cal-dst.el (calendar-dst-find-startend): If YEAR cannot
- be encoded, fall back to current year.
-
-2007-04-14 Kevin Ryde <user42@zip.com.au>
-
- * arc-mode.el (archive-lzh-summarize): Only apply the "downcase if
- all upcase" rule to OS-ID 0 "generic". Always downcase for OS-ID
- M "MSDOS".
-
-2007-04-16 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/python.el (python-end-of-block): Avoid looping forever
- if python-next-statement fails.
-
-2007-04-16 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-entry-field-alist): Use defcustom.
-
-2007-04-16 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/perl-mode.el (perl-indent-level): Mark as safe local var.
- * progmodes/cperl-mode.el (cperl-indent-level): Likewise.
-
-2007-04-15 Jay Belanger <belanger@truman.edu>
-
- * calc/calc.el (calc-version): New function.
- (calc-trail-mode): Shorten the title.
-
-2007-04-15 Chong Yidong <cyd@stupidchicken.com>
-
- * mail/footnote.el (footnote-style): Clarify docstring to state
- that customizing this only applies to future footnotes.
-
-2007-04-15 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-field-list): Use functionp.
- (bibtex-make-field): Check that INIT is a string. Use functionp.
-
-2007-04-14 Glenn Morris <rgm@gnu.org>
-
- * complete.el (PC-goto-end): New buffer-local variable.
- (PC-do-completion-end): Make buffer-local.
- (partial-completion-mode) <choose-completion-string-functions>:
- Do not go to the end of the minibuffer if PC-goto-end is non-nil.
- (PC-do-completion): New optional fourth argument GOTO-END. Add a
- doc string. Set PC-goto-end for choose-completion.
- (PC-lisp-complete-symbol): Pass non-nil GOTO-END arg to
- PC-do-completion.
-
- * textmodes/bibtex.el (bibtex-insert-kill): Pass non-nil NODELIM
- arg to bibtex-make-field.
- (bibtex-make-field): Add optional fourth arg NODELIM.
- Insert delimiters around INIT unless this arg is non-nil.
-
-2007-04-14 Nick Roberts <nickrob@snap.net.nz>
-
- * tmm.el (tmm-get-keybind): Use copy-sequence to ensure that the
- global map isn't modified.
-
-2007-04-14 Glenn Morris <rgm@gnu.org>
-
- * calendar/appt.el (appt-disp-window): Do not split small windows.
- Suggested by Jeff Miller <jmiller@cablespeed.com>.
-
-2007-04-13 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/compile.el (compilation-start): Revert 2007-03-25 change.
-
- * files.el: Ditto.
-
-2007-04-13 Juanma Barranquero <lekktu@gmail.com>
-
- * cus-edit.el (minibuffer, auto-save): Fix typos in docstrings.
-
- * term.el (term-buffer-maximum-size, term-exec, term-escape-char)
- (term-set-escape-char, term-termcap-format, term-get-old-input-default)
- (term-skip-prompt, term-send-string, term-send-region, term-pager-page)
- (term-pager-help): Fix typos in docstrings.
-
- * wid-edit.el (widget-documentation): Fix typo in docstring.
-
- * progmodes/ebnf2ps.el (ebnf-insert-style, ebnf-merge-style):
- Fix typos in error messages.
-
-2007-04-13 Martin Rudalics <rudalics@gmx.at>
-
- * emacs-lisp/edebug.el (edebug-pop-to-buffer): Don't select
- window marked as dedicated.
-
- * mail/footnote.el (footnote-latin-string): New variable.
- (footnote-latin-regexp): Redefine as regexp alternative.
- (Footnote-latin): Use footnote-latin-string instead of
- footnote-latin-regexp.
-
-2007-04-13 Glenn Morris <rgm@gnu.org>
-
- * tmm.el (tmm-get-keybind): Use car-safe to avoid errors with
- inherited keymaps.
-
-2007-04-12 Chong Yidong <cyd@stupidchicken.com>
-
- * outline.el (outline-get-next-sibling): Clarify docstring.
- (outline-get-last-sibling): Handle case where we are at the first
- heading. Clarify docstring.
-
-2007-04-12 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-minor-mode-map): Make go button same
- length as stop button to lessen flicker.
- (jdb): Add gud-print.
- (gud-find-expr): Jdb prints the expression with the value, so
- don't insert it in the output.
-
-2007-04-11 Jason Rumney <jasonr@gnu.org>
-
- * dnd.el (dnd-get-local-file-name): Decode both upper and lower
- case hex. Do not try to decode non-hex letters.
-
-2007-04-11 Markus Triska <markus.triska@gmx.at>
-
- * emacs-lisp/byte-opt.el (byte-optimize-backward-char)
- (byte-optimize-backward-word): Remove (move to bytecomp.el).
- (byte-optimize-form-code-walker): Evaluate pure function calls if
- possible.
- (byte-optimize-all-constp): New function.
-
- * emacs-lisp/bytecomp.el (byte-compile-char-before):
- Improve numeric argument case.
- (byte-compile-backward-char, byte-compile-backward-word):
- New functions, performing rewriting previously done in byte-opt.el.
- Fix their "Fixme" item (restriction to numeric arguments).
-
-2007-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * desktop.el (desktop-save, desktop-create-buffer): Replace mapcar
- with dolist.
- (after-init-hook): Don't quote lambda.
- (desktop-first-buffer): Don't wrap it in eval-when-compile.
- (desktop-internal-v2s): Remove unused var `el'.
- (desktop-buffer-major-mode, desktop-buffer-locals): Move out of
- desktop-restore-file-buffer.
- (desktop-buffer-ok-count, desktop-buffer-fail-count): Move out of
- desktop-create-buffer.
-
-2007-04-10 Chong Yidong <cyd@stupidchicken.com>
-
- * woman.el (woman-decode-buffer): Postpone macro-set check...
- (woman-decode-region): ...to here.
-
-2007-04-10 Thien-Thi Nguyen <ttn@gnu.org>
-
- * startup.el (tty-handle-args): Use %S to log ARGS.
-
-2007-04-10 Glenn Morris <rgm@gnu.org>
-
- * dframe.el (dframe-frame-mode): Do not set auto-show-mode, since
- it is obsolete and has no effect.
-
- * dos-w32.el (default-buffer-file-type): Add defvar to quieten
- byte-compiler.
-
- * progmodes/cperl-mode.el (cperl-mode): Remove unnecessary call to
- obsolete function make-local-hook.
-
- * progmodes/dcl-mode.el (top-level): Move (require 'tempo) to
- start to quieten byte-compiler.
-
-2007-04-10 Markus Triska <markus.triska@gmx.at>
-
- * emacs-lisp/byte-opt.el (byte-optimize-char-before): Remove (move
- to bytecomp.el as byte-compile-char-before).
- * emacs-lisp/bytecomp.el (byte-compile-char-before):
- New function (modified replacement for byte-optimize-char-before in
- byte-opt.el).
-
-2007-04-09 Alan Mackenzie <acm@muc.de>
-
- * startup.el (inhibit-splash-screen): Emphatically state that it
- can't be set in site-start.el.
-
-2007-04-09 Masatake YAMATO <jet@gyve.org>
-
- * progmodes/cc-subword.el (c-capitalize-subword): More closely
- mimic the behavior of `capitalize-word'. Do not move point with a
- negative argument. Based on tiny change by Paul Curry.
-
-2007-04-09 Paul Curry <dashteacup@gmail.com> (tiny change)
-
- * progmodes/cc-subword.el (c-downcase-subword, c-upcase-subword):
- Don't move point if ARG is negative.
-
-2007-04-09 Alan Mackenzie <acm@muc.de>
-
- Changes to make `narrow-to-defun' and `mark-defun' work properly
- in CC Mode:
-
- * progmodes/cc-defs.el (c-beginning-of-defun-1):
- * progmodes/cc-cmds.el (c-beginning-of-defun, c-end-of-defun):
- Bind beginning/end-of-defun-function to nil around calls to
- beginning/end-of-defun.
-
- * progmodes/cc-langs.el (beginning-of-defun-function)
- (end-of-defun-function): New c-lang-setvar's.
-
- * progmodes/cc-awk.el (c-awk-beginning-of-defun): Add "(or arg
- (setq arg 1))" to enable non-interactive call.
-
-2007-04-09 Eli Zaretskii <eliz@gnu.org>
-
- * simple.el (set-mark-command): Doc fix.
-
-2007-04-09 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gdb): Restore existing session if user
- tries to start a second one in graphical mode.
-
-2007-04-08 Martin Rudalics <rudalics@gmx.at>
-
- * cus-start.el <scroll-preserve-screen-position>: Add choices.
-
-2007-04-08 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * term/xterm.el (terminal-init-xterm): Fix key definitions.
- Add binding for C-M-SPC.
-
-2007-04-08 Richard Stallman <rms@gnu.org>
-
- * pcomplete.el (pcomplete-read-event): One single definition,
- and not a defsubst.
-
-2007-04-08 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/cc-cmds.el (c-end-of-defun): Tidy up, to eliminate
- byte-compiler warning "value unused".
-
-2007-04-08 Andreas Schwab <schwab@suse.de>
-
- * term/xterm.el (terminal-init-xterm): Add bindings for keypad keys.
-
-2007-04-07 Glenn Morris <rgm@gnu.org>
-
- * calendar/calendar.el (diary-font-lock-keywords, diary-live-p):
- Autoload these functions.
- (diary-date-forms): Add a custom :set form.
-
- * calendar/diary-lib.el (diary-set-maybe-redraw): Move definition
- before first use.
- (diary-font-lock-keywords): New function with old code for
- initialization of variable of same name.
-
-2007-04-07 David Hansen <david.hansen@gmx.net> (tiny change)
-
- * progmodes/cc-cmds.el (c-electric-paren): Fix space-before-funcall
- clean-up: only insert space when on identifier, etc.
-
-2007-04-07 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/grep.el (grep-find-use-xargs): Rewrite docstring.
-
- * net/tls.el (open-tls-stream): Properly handle case where there
- is no associated buffer.
-
-2007-04-07 Glenn Morris <rgm@gnu.org>
-
- * ffap.el (ffap-file-at-point): Lower the priority of the
- ffap-ftp-sans-slash-regexp check.
-
-2007-04-06 Alan Mackenzie <acm@muc.de>
-
- Fix fontification of labels, and other things with ":".
-
- * progmodes/cc-engine.el (c-forward-label): The function now
- returns 'goto-target, 'qt-2kwds-colon, 'qt-1kwd-colon, as well as
- the former t.
-
- * progmodes/cc-fonts.el (c-font-lock-declarations): Interpret the
- new return code from c-forward-label, fontifying tokens properly.
- Add some general comments throughout the file.
-
-2007-04-06 Chong Yidong <cyd@stupidchicken.com>
-
- * textmodes/flyspell.el (flyspell-duplicate, flyspell-incorrect):
- Revert 2006-01-27 change.
-
- * diff-mode.el (diff-mode): Revert 2007-03-04 change.
-
- * menu-bar.el (menu-bar-tools-menu): Revert 2003-07-25 change.
-
- * desktop.el (desktop-create-buffer, desktop-save):
- Revert 2004-11-12 change for lack of copyright papers.
-
- * dired-x.el (dired-guess-shell-case-fold-search): Delete var.
- (dired-guess-default): Respect case.
-
- * isearch.el (isearch-forward): Revert 1998-08-26 doc change.
-
- * emacs-lisp/byte-opt.el (byte-optimize-pure-func): Remove function;
- was originally checked in as byte-optimize-concat on 1997-11-02.
-
- * mail/sendmail.el (mail-text, mail-mode): Revert extant pieces of
- 1995-05-19 doc changes.
-
-2007-04-06 Kim F. Storm <storm@cua.dk>
-
- * loadhist.el (read-feature): Reimplement. New optional arg LOADED-P.
- (unload-feature): Update interactive spec accordingly.
-
- * progmodes/grep.el (grep-program): Remove commentary about zgrep.
-
-2007-04-06 John Paul Wallington <jpw@pobox.com>
-
- * subr.el (with-case-table): Use `make-symbol' to avoid variable
- capture. Restore the table in the same buffer.
-
- * font-lock.el (lisp-font-lock-keywords-2): Add `with-case-table'.
-
-2007-04-05 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/byte-opt.el (byte-optimize-form-code-walker):
- Print entire form.
-
-2007-04-05 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (breakpoint-disabled): Tweak face (again)
- for low-color displays.
-
-2007-04-05 Glenn Morris <rgm@gnu.org>
-
- * play/5x5.el, play/animate.el, play/dissociate.el, play/doctor.el,
- * play/gomoku.el, play/landmark.el, play/tetris.el, play/zone.el:
- Seed random number generator on loading.
-
- * emacs-lisp/authors.el (top-level): Provide self.
-
- * play/animate.el (top-level): Provide self.
-
-2007-04-04 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-vars.el (c-special-indent-hook): Amend doc-string
- to mention c-syntactic-indentation.
-
-2007-04-04 Chong Yidong <cyd@stupidchicken.com>
-
- * subr.el (with-case-table): New macro.
-
- * international/mule.el (ascii-case-table): New var.
-
- * mail/smtpmail.el (smtpmail-via-smtp): Use ascii-case-table when
- downcasing.
-
-2007-04-03 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-minor-mode-map): Simplify.
-
- * t-mouse.el (t-mouse-make-event-element): Don't use the left edge
- of the window if we're outside it e.g menu-bar.
-
- * xt-mouse.el (xterm-mouse-event): Don't use the left edge of the
- window if we're outside it e.g menu-bar.
-
-2007-04-03 Eli Zaretskii <eliz@gnu.org>
-
- * mail/rmail.el (rmail-convert-to-babyl-format): Don't try to
- decode base-64 encoded body if its content-type is something other
- than text/* or message/*.
-
-2007-04-03 Juanma Barranquero <lekktu@gmail.com>
-
- * simple.el (activate-mark-hook): Fix typo in docstring.
-
-2007-04-03 Nick Roberts <nickrob@snap.net.nz>
-
- * tmm.el (tmm-c-prompt): Initialize.
- (tmm-menubar): Deal with extended menu-items at top level.
- (tmm-get-keybind): Handle bindings redefined/undefined locally.
- (tmm-prompt): Handle visibility of top level menu-items.
-
- * progmodes/gud.el (gud-menu-map): Simplify.
- (gud-minor-mode-map): Add tool-bar like bindings to the text mode
- menubar.
-
-2007-04-02 Chong Yidong <cyd@stupidchicken.com>
-
- * mail/smtpmail.el (smtpmail-via-smtp): Revert last change.
-
- * comint.el (comint-send-input): Widen the buffer first.
-
- * info.el (Info-fontify-maximum-menu-size): Revert to 100000.
-
-2007-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Only obey
- emacs-lisp-docstring-fill-column in emacs-lisp-mode.
-
- * newcomment.el (comment-search-forward): Discard comment starters
- before point.
-
-2007-04-01 Guanpeng Xu <herberteuler@hotmail.com>
-
- * mouse.el (mouse-set-secondary): Update mouse-secondary-overlay.
-
-2007-04-01 Chong Yidong <cyd@stupidchicken.com>
-
- * mail/smtpmail.el (smtpmail-via-smtp): Use standard case table
- when downcasing.
-
- * button.el (previous-button): Rewrite to account for adjacent buttons.
-
-2007-04-01 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlwave.el (idlwave-auto-fill):
- Revert paragraph-separate change.
-
- * progmodes/idlw-shell.el (idlwave-shell-break-in):
- Simplify module calc.
- (idlwave-shell-set-bp-in-module): Compute module.
-
-2007-03-31 Glenn Morris <rgm@gnu.org>
-
- * emacs-lisp/timer.el (run-at-time): Doc fix.
-
- * emacs-lisp/warnings.el (display-warning): If we create the
- buffer displaying the warning, disable undo there.
-
-2007-03-31 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-register-file-name-handler)
- (tramp-register-completion-file-name-handler): New defsubst,
- derived from `tramp-register-file-name-handlers'. The split is
- necessary because Tramp's file name handlers must be registered at
- different startup places.
-
-2007-03-31 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/hideshow.el (turn-off-hideshow): New function.
- (hs-minor-mode): Use it instead of a lambda expression in
- change-major-mode-hook.
-
-2007-03-31 David Kastrup <dak@gnu.org>
-
- * woman.el (woman-Cyg-to-Win): Don't convert cons cells
- corresponding to MANPATH_MAP entries.
- (woman-man.conf-path, woman-parse-man.conf): Doc fix.
- (woman-parse-man.conf): Use more discriminating man.conf name.
- (woman-parse-man.conf): Parse MANPATH_MAP entries.
- (woman-manpath): Doc fix and type fix.
- (woman-cached-data): Check for MANPATH_MAP entries.
- (woman-expand-directory-path): Treat MANPATH_MAP entries.
-
-2007-03-31 Stuart Herring <herring@lanl.gov>
-
- * emacs-lisp/sregex.el (sregexq): Doc fix.
-
-2007-03-31 Markus Triska <markus.triska@gmx.at>
-
- * progmodes/flymake.el (flymake-err-line-patterns): Doc fix.
-
-2007-03-30 Reiner Steib <Reiner.Steib@gmx.de>
-
- * info.el (info-tool-bar-map): Use "exit" for Info-exit.
- Move to the right.
-
-2007-03-30 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-forward-to-nth-EOF-}): Fix EOB bug.
-
-2007-03-30 Thien-Thi Nguyen <ttn@gnu.org>
-
- * emacs-lisp/ewoc.el (ewoc--insert-new-node): Take additional arg DLL.
- Use it, passed in explicitly, instead of from the dynamic binding.
- (ewoc-create, ewoc-enter-before): Update to use new call sequence.
-
-2007-03-30 Juanma Barranquero <lekktu@gmail.com>
-
- * simple.el (blink-matching-open): When in minibuffer, don't
- search for a match inside the prompt.
-
-2007-03-30 Nick Roberts <nickrob@snap.net.nz>
-
- * tmm.el (tmm-menubar): Select the right menu item with the mouse.
- (tmm-prompt): Don't make the mouse user select the first menu
- item twice.
-
-2007-03-30 Chong Yidong <cyd@stupidchicken.com>
-
- * eshell/esh-proc.el (eshell/kill): Tweak regexp to recognize
- SIGUSR1 and SIGUSR2.
-
-2007-03-29 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-read-internal): When reading file or dir, only override
- minibuffer-local-filename-completion-map, otherwise only override
- minibuffer-local-completion-map.
-
-2007-03-29 Glenn Morris <rgm@gnu.org>
-
- * complete.el (partial-completion-mode): Set PC-do-completion-end
- to nil after use.
- (PC-lisp-complete-symbol): Create and use a marker at `end',
- rather than using point-marker.
-
-2007-03-28 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (next-error-highlight): Doc fix.
- (compose-mail): Revert 2007-03-19 change.
-
-2007-03-28 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/edebug.el (edebug-display): Don't go to
- edebug-outside-buffer if it is dead.
-
-2007-03-28 Juanma Barranquero <lekktu@gmail.com>
-
- * view.el (view-mode): Fix typos in docstring.
-
-2007-03-28 Stephen Berman <Stephen.Berman@gmx.net>
-
- * recentf.el (recentf-save-file): Add a custom :set function.
-
-2007-03-28 Glenn Morris <rgm@gnu.org>
-
- * complete.el (PC-do-completion-end): New variable.
- (partial-completion-mode) <choose-completion-string-functions>:
- Use PC-do-completion-end in the non-minibuffer case to replace the
- correct amount of text.
- (PC-do-completion): Set PC-do-completion-end for c-c-s-f.
- (PC-lisp-complete-symbol): Give marker the after-insertion type,
- to deal with improvements inserted after point.
-
-2007-03-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * button.el (make-text-button): Add explicit `button' property.
- (default-button): Don't put a `button' property on it.
-
- * progmodes/python.el (python-mode): Skip comments when parsing.
-
- * vc-arch.el (vc-with-current-file-buffer): New macro.
- (vc-arch-file-source-p): Use it to avoid infloop.
-
-2007-03-28 David Hansen <david.hansen@gmx.net> (tiny change)
-
- * emacs-lisp/lisp.el (lisp-complete-symbol):
- Fix call to get-buffer-window to find windows in other frames.
-
-2007-03-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * comint.el (comint-proc-query, comint-dynamic-list-completions):
- Fix calls to get-buffer-window to find windows in other frames.
- Reported by David Hansen <david.hansen@gmx.net>.
-
-2007-03-27 Kevin Ryde <user42@zip.com.au>
-
- * info.el (Info-display-images-node): On a text-only terminal,
- show the "text" or "alt" parts of the image blobs.
-
-2007-03-27 Glenn Morris <rgm@gnu.org>
-
- * complete.el (PC-do-completion): Compute completion-base-size in
- the non-filename case, rather than setting to nil.
- (PC-lisp-complete-end): New variable.
- (PC-lisp-complete-symbol): Use PC-lisp-complete-end to store the
- original end in a series of consecutive invocations.
-
- * calendar/calendar.el (calendar-mode-hook): Declare it.
-
- * calendar/diary-lib.el (diary-live-p): Do not check for
- diary-selective-display.
-
-2007-03-26 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * replace.el (occur-next-error): *Occur* might not be displayed in the
- selected frame. Reported by David Hansen <david.hansen@gmx.net>.
-
-2007-03-26 Richard Stallman <rms@gnu.org>
-
- * textmodes/flyspell.el (flyspell-large-region):
- Use ispell-call-process-region.
-
-2007-03-26 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * emacs-lisp/bytecomp.el (byte-compile-file-form-defmumble):
- Use prin1 instead of princ.
-
-2007-03-25 Chong Yidong <cyd@stupidchicken.com>
-
- * faces.el (face-set-after-frame-default): Revert 2007-03-10 change.
- Merge in X resources before global face.
-
- * progmodes/compile.el (compilation-start): Save compilation-directory
- rather than default-directory as local var.
- (compilation-directory): Mark as safe local var.
-
- * files.el: Don't mark default-directory as a safe local var.
-
-2007-03-25 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-mode.el (c-before-change): Fix BOB bug.
- * progmodes/cc-engine.el: Fix typo.
-
-2007-03-25 Juri Linkov <juri@jurta.org>
-
- * compare-w.el (compare-windows): Rename customization group
- `compare-w' to `compare-windows'.
- (compare-windows-whitespace, compare-ignore-whitespace)
- (compare-ignore-case, compare-windows-sync)
- (compare-windows-sync-string-size, compare-windows-recenter)
- (compare-windows-highlight, compare-windows): Change group name in
- the `group' tag from `compare-w' to `compare-windows'.
- (compare-windows-sync): Add option `nil' for no sync. Doc fix.
-
-2007-03-24 Markus Triska <markus.triska@gmx.at>
-
- * expand.el: Change example to always enable abbrev-mode,
- and remove redundant `function'.
- (expand-abbrev-hook): Add autoload cookie.
-
-2007-03-24 Ryan Yeske <rcyeske@gmail.com>
-
- * emacs-lisp/testcover.el (testcover-start, testcover-end)
- (testcover-mark-all, testcover-unmark-all): Add prompts to
- interactive specs.
-
-2007-03-24 Jason Rumney <jasonr@gnu.org>
-
- * autorevert.el (find-file-hook, auto-revert-tail-mode):
- Use file size in bytes for auto-revert-tail-pos not characters.
-
-2007-03-24 Thien-Thi Nguyen <ttn@gnu.org>
-
- * vc-rcs.el (vc-rcs-annotate-command):
- Set text property :vc-annotate-prefix on the annotation text.
- (vc-rcs-annotate-time): Instead of searching for ": ",
- search for end of text propertized with :vc-annotate-prefix.
-
-2007-03-24 Martin Rudalics <rudalics@gmx.at>
-
- * whitespace.el (top level): Remove calls putting
- permanent-local nil property since these are no-ops.
-
- * man.el (Man-support-local-filenames): Assure that
- default-directory exists when doing call-process.
-
-2007-03-23 David Vazquez <xeos00@gmail.com> (tiny change)
-
- * progmodes/m4-mode.el (m4-m4-buffer, m4-m4-region):
- Fix omission bug: Use m4-program-options to construct shell command.
-
-2007-03-23 David Kastrup <dak@gnu.org>
-
- * progmodes/cc-mode.el (c-make-emacs-variables-local):
- Use `mapcar' rather than `mapcan' to silence compiler warning.
-
-2007-03-22 Ralf Angeli <angeli@caeruleus.net>
-
- * textmodes/reftex.el, textmodes/reftex-vars.el,
- * textmodes/reftex-toc.el, textmodes/reftex-sel.el,
- * textmodes/reftex-ref.el, textmodes/reftex-parse.el,
- * textmodes/reftex-index.el, textmodes/reftex-global.el,
- * textmodes/reftex-dcr.el, textmodes/reftex-cite.el,
- * textmodes/reftex-auc.el: Add maintainer address.
-
-2007-03-22 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-agenda-mode, org-table-edit-formulas):
- Make sure that `global-font-lock-mode' does not turn on font-lock
- in these buffers.
-
-2007-03-21 Kim F. Storm <storm@cua.dk>
-
- * xt-mouse.el (xt-mouse-epoch): New variable.
- (xterm-mouse-event): Use float-time.
-
-2007-03-21 Nick Roberts <nickrob@snap.net.nz>
-
- * xt-mouse.el (xterm-mouse-event): Compute a timestamp using
- current-time.
-
-2007-03-21 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * complete.el (read-file-name-internal): Don't add the final > if the
- completion is not finished (re-application of this patch, which was
- accidentally undone by Eli).
-
-2007-03-21 Chong Yidong <cyd@stupidchicken.com>
-
- * emulation/viper.el (viper-non-hook-settings): Handle mouse
- clicks in describe-key and describe-key-briefly advice a little better.
-
-2007-03-21 Juanma Barranquero <lekktu@gmail.com>
-
- * server.el (server-process-filter): Cancel any pending isearch.
-
-2007-03-21 Ulf Jasper <ulf.jasper@web.de>
-
- * calendar/icalendar.el (icalendar-version): Increase to 0.15.
- (icalendar--get-unfolded-buffer): Define actual arguments rather
- than just using &rest. Check replace-in-string is fbound.
- (icalendar-import-buffer): Doc fix.
- (icalendar--convert-ical-to-diary): Set diary-file.
- Check diary-file before inserting final newline.
- (icalendar--add-diary-entry): Return diary-file.
-
-2007-03-21 Glenn Morris <rgm@gnu.org>
-
- * calendar/calendar.el (diary-set-maybe-redraw): Autoload it.
- (diary-display-hook): Add custom :set function.
-
- * calendar/diary-lib.el (diary-header-line-flag): Doc fix.
- Add custom :set function.
- (diary-header-line-format): Doc fix.
- (diary-set-maybe-redraw): New function.
- (number-of-diary-entries): Change :set to use diary-set-maybe-redraw.
- (diary-list-entries): Always run diary-mode.
-
-2007-03-20 Kenichi Handa <handa@m17n.org>
-
- * international/quail.el (quail-setup-completion-buf): Make the
- completion buffer read-only.
- (quail-completion): Adjusted for the above change. Leave the
- modified flag nil.
-
-2007-03-20 David Kastrup <dak@gnu.org>
-
- * files.el (magic-mode-alist): Require literal "%!PS" string for
- magic postscript file detection.
-
-2007-03-20 Richard Stallman <rms@gnu.org>
-
- * textmodes/ispell.el (ispell-call-process): New function.
- Defends against bad `default-directory.'
- (ispell-check-version, ispell-find-aspell-dictionaries)
- (ispell-get-aspell-config-value, lookup-words): Call it.
- (ispell-call-process-region): New function.
- (ispell-send-string): Call it.
-
-2007-03-20 Andreas Schwab <schwab@suse.de>
-
- * Makefile.in (custom-deps): Depend on $(lisp)/subdirs.el.
- (finder-data): Likewise.
- (autoloads): Likewise.
-
-2007-03-20 Martin Rudalics <rudalics@gmx.at>
-
- * files.el (basic-save-buffer): Do not set visited filename when
- the corresponding directory does not exist or the specified
- filename is that of an existing directory.
-
-2007-03-20 Glenn Morris <rgm@gnu.org>
-
- * calendar/diary-lib.el (diary-live-p): New function.
- (number-of-diary-entries): Add a :set function to redisplay diary
- when necessary.
-
-2007-03-19 Nick Roberts <nickrob@snap.net.nz>
-
- * t-mouse.el (t-mouse-make-event-element): Use timestamp output
- from client program, mev, to compute mouse event.
-
-2007-03-19 Chong Yidong <cyd@stupidchicken.com>
-
- * faces.el (momentary): Face removed; unused due to reversion of
- 2007-01-04 changes by Kevin Rodgers.
-
- * mouse.el (mouse-drag-track): Remove spurious input-pending-p test.
- Suggested by Johan Bockg\e,Ae\e(Brd.
-
-2007-03-19 Martin Rudalics <rudalics@gmx.at>
-
- * font-lock.el (lisp-font-lock-keywords-1):
- Highlight define-globalized-minor-mode as a keyword.
-
-2007-03-19 Kim F. Storm <storm@cua.dk>
-
- * calc/calc-forms.el (math-std-daylight-savings)
- (math-std-daylight-savings-old): Doc fix.
-
-2007-03-19 Juanma Barranquero <lekktu@gmail.com>
-
- * progmodes/python.el (python-default-template): Doc fix.
- (python-buffer): Fix typo in docstring.
-
- * isearchb.el (isearchb-follow-char):
- * subr.el (def-edebug-spec): Fix typo in docstring.
-
-2007-03-19 Richard Stallman <rms@gnu.org>
-
- * files.el (default-directory): Mark safe.
- (basic-save-buffer-2): Put proper dir name in error message.
-
- * simple.el (compose-mail): Run switch-function after
- setting up the mail buffer.
-
- * startup.el (inhibit-splash-screen, initial-major-mode): Doc fixes.
-
-2007-03-18 Jay Belanger <belanger@truman.edu>
-
- * calc/calc-forms.el (math-parse-date): Fix a regular expression.
- (math-std-daylight-savings-new): Rename from
- `math-std-daylight-savings'.
- (math-std-daylight-savings-old): Rename from old value of
- `math-std-daylight-savings'.
- (math-std-daylight-savings): Use `math-std-daylight-savings-new' or
- `math-std-daylight-savings-old' depending on the year.
-
-2007-03-18 Detlev Zundel <dzu@gnu.org>
-
- * emacs-lisp/re-builder.el (reb-update-overlays): Do not mark
- zero-width regexps as invalid but rather at least count them correctly.
-
-2007-03-18 Thien-Thi Nguyen <ttn@gnu.org>
-
- * net/tls.el (open-tls-stream): In handshake-waiting loop,
- don't wait more if there is output available to process.
-
-2007-03-18 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/compile.el (compilation-find-file): Revert change
- from 2006-07-18 to allow completion of directory names.
- Reported by John Carter <john.carter@tait.co.nz>.
-
-2007-03-18 Kim F. Storm <storm@cua.dk>
-
- * subr.el (when, unless): Doc fix.
-
-2007-03-17 Thien-Thi Nguyen <ttn@gnu.org>
-
- * net/tls.el (tls-program): Doc fix.
-
-2007-03-17 Denis Bueno <dbueno@gmail.com> (tiny change)
-
- * autorevert.el (auto-revert-tail-handler):
- Call after-revert-hook.
-
-2007-03-17 Ryan Yeske <rcyeske@gmail.com>
-
- * simple.el (switch-to-completions): No error if search for \n\n fails.
-
-2007-03-17 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-1):
- Respect `inhibit-line-move-field-capture' property.
-
-2007-03-13 Chong Yidong <cyd@stupidchicken.com>
-
- * comint.el (comint-arguments): Mark backslash-escaped chars.
- (comint-delim-arg): Don't treat them as delimiters.
-
-2007-03-12 Kim F. Storm <storm@cua.dk>
- * ido.el (ido-init-completion-maps): Remap delete-backward-char.
-
-2007-03-12 Lawrence Mitchell <wence@gmx.li> (tiny change)
-
- * tempo.el (tempo-insert): Deal with 'r> if it appears
- specified with a prompt argument.
-
-2007-03-12 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-set-font-lock-defaults):
- Handle narrow table columns correctly.
-
-2007-03-12 Mark A. Hershberger <mah@everybody.org>
-
- * xml.el (xml-parse-tag, xml-parse-string, xml-parse-attlist)
- (xml-parse-dtd, xml-parse-elem-type, xml-substitute-special):
- Return to use of the -no-properties variants. There was
- consensus on emacs-devel that the speed of these variants was
- prefered since we are usually parsing files (from the internet
- or on disk) instead of XML created in Emacs.
-
- * eshell/esh-mode.el (eshell-handle-ansi-color): New function.
- Add customize option.
-
-2007-03-12 Glenn Morris <rgm@gnu.org>
-
- * calc/calc-forms.el (math-std-daylight-savings): Switch to new
- North American rule. Replace "daylight savings" with "daylight
- saving" in doc.
-
- * calendar/cal-china.el, cal-dst.el, calendar.el, diary-lib.el:
- * calendar/lunar.el, solar.el: Replace "daylight savings" with
- "daylight saving" in text.
-
- * woman.el (woman-change-fonts): Tweak previous change by using
- woman-request-regexp rather than "^\\.".
-
- * startup.el (command-line-1): Make insertion of
- initial-scratch-message not depend on scratch being selected.
-
-2007-03-11 Juri Linkov <juri@jurta.org>
-
- * replace.el (match): Use yellow background on light-bg terminals.
-
-2007-03-11 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/bytecomp.el (byte-compile-warning-prefix):
- Correctly compute line number.
-
-2007-03-11 Guanpeng Xu <herberteuler@hotmail.com>
-
- * type-break.el (type-break-get-previous-count):
- Repeat previous change here.
-
-2007-03-11 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/grep.el (grep-find-ignored-directories):
- Add .git and .bzr to list.
-
-2007-03-11 Andreas Schwab <schwab@suse.de>
-
- * diff-mode.el (diff-apply-hunk): Use proper format string for error.
-
-2007-03-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * mail/emacsbug.el (report-emacs-bug): Don't hard code the "X" name.
-
-2007-03-10 Chong Yidong <cyd@stupidchicken.com>
-
- * faces.el (face-set-after-frame-default): Recalculate face
- customizations after applying X resources.
-
-2007-03-10 Ryan Yeske <rcyeske@gmail.com>
-
- * net/rcirc.el (rcirc-timeout-seconds): New variable.
- (rcirc-keepalive-seconds): Remove variable.
- (rcirc-server-name, rcirc-timeout-timer, rcirc-connecting)
- (rcirc-process, rcirc-user-disconnect): New variables.
- (rcirc-connect): Initalize new variables.
- (rcirc-keepalive): Don't send keepalive pings before connection
- is completed.
- (rcirc-sentinel): Do mark all channels with activity when
- connection is dropped. Run hook with process buffer local.
- (rcirc-reschedule-timeout, rcirc-delete-process): New functions.
- (rcirc-buffer-process): Return value of rcirc-process if
- rcirc-server-buffer is nil.
- (rcirc-server-name): Return the reported server name.
- (rcirc-update-prompt): Simplify computation of the server name.
- (rcirc-format-response-string): Likewise.
- (rcirc-handler-001): Mark server as connected, record the reported
- server name, and schedule a timeout.
- (rcirc-track-nick): Add a spec for the tty class.
- (rcirc-user-non-nick): Remove function.
- (rcirc-nick-prefix-chars): Add variable.
- (rcirc-user-nick): Use above variable.
-
-2007-03-10 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * icomplete.el (icomplete-tidy, icomplete-exhibit):
- Bind deactivate-mark to nil.
-
-2007-03-10 Martin Rudalics <rudalics@gmx.at>
-
- * complete.el (PC-do-completion): Bind dirlength to nil to avoid
- that buffer contents get erased during completion.
-
-2007-03-10 Glenn Morris <rgm@gnu.org>
-
- * woman.el (woman-change-fonts): Add a hack to deal with
- font-escape followed by "." at start of a line.
- (woman2-IP): Add a hack to deal with consecutive requests.
- (woman2-tagged-paragraph): Extend existing hack to handle "sp".
-
-2007-03-10 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-mode.el (c-before-change): Wrap in save-match-data.
-
-2007-03-09 Richard Stallman <rms@gnu.org>
-
- * abbrev.el (abbrev): Add `provide'.
-
-2007-03-09 Thien-Thi Nguyen <ttn@gnu.org>
-
- * net/ange-ftp.el (ange-ftp-try-passive-mode): Doc fix.
-
-2007-03-09 Martin Rudalics <rudalics@gmx.at>
-
- * complete.el (PC-try-completion): New function.
- (PC-do-completion, read-file-name-internal): Use it instead of
- try-completion.
-
-2007-03-08 Alan Mackenzie <acm@muc.de>
-
- Remove stale tokens from `c-found-types' cache.
-
- * progmodes/cc-mode.el (c-unfind-enclosing-token)
- (c-unfind-coalesced-tokens, c-before-change): New functions.
- (c-maybe-stale-found-type): New variable.
-
- * progmodes/cc-engine.el (c-partial-ws-p, c-unfind-type)
- (c-trim-found-types): New functions.
-
-2007-03-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * smerge-mode.el (smerge-remove-props): Don't mark the buffer modified.
- (debug-ignored-errors): Add entry from smerge-match-conflict.
-
-2007-03-08 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlw-help.el (idlwave-do-context-help1): Don't visit
- special help topics for keywords.
- (idlwave-help-assistant-command): Include ".exe" for ms-dos
- etc. Assistant command.
-
-2007-03-08 Chong Yidong <cyd@stupidchicken.com>
-
- * replace.el (occur-engine): Move buffer-undo-list binding...
- (occur-1): ...to here.
-
- * complete.el (PC-bindings): Rebind M-TAB in read-expression-map.
-
- * simple.el (minibuffer-completing-symbol): New var.
- (eval-expression): Use it.
- (completion-setup-function): Don't bind completion-base-size when
- completing a symbol in the minibuffer.
-
-2007-03-08 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gdb): Pop up current GUD buffer if user
- tries to start a second session in graphical mode.
-
-2007-03-07 Miles Bader <miles@gnu.org>
-
- * international/isearch-x.el
- (isearch-process-search-multibyte-characters):
- Strip text-properties from PROMPT to avoid an error from read-string.
-
-2007-03-07 Kim F. Storm <storm@cua.dk>
-
- * complete.el (PC-bindings): Remap lisp-complete-symbol to
- PC-lisp-complete-symbol instead of binding M-TAB in global-map.
-
-2007-03-07 Micha\e,Ak\e(Bl Cadilhac <michael@cadilhac.name>
-
- * complete.el (PC-do-completion): Delete duplicates in the list of
- possible completions.
-
-2007-03-07 Glenn Morris <rgm@gnu.org>
-
- * ses.el (ses-mode): Doc fix.
-
-2007-03-06 Kim F. Storm <storm@cua.dk>
-
- * isearch.el (isearch-message-prefix): Undo 2007-03-01 change.
-
-2007-03-06 Kenichi Handa <handa@m17n.org>
-
- * term/x-win.el (x-select-utf8-or-ctext): Improve the strategy.
-
-2007-03-06 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * simple.el (completion-setup-function): Improve last fix so it doesn't
- set it to a relative directory name either.
-
-2007-03-05 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Replace some (defvar VAR) by (defvar VAR nil).
-
-2007-03-05 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/re-builder.el (reb-re-syntax): Fix custom type.
-
- * files.el (find-file-noselect): No error if file no longer exists.
- Display a message and avoid other questions.
-
-2007-03-05 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcomplete.el (pcomplete-show-completions): Improve last change, so
- as not to use an invisible window and to create a window if none exist.
-
- * progmodes/python.el (python-send-command): Restart proc if necessary.
- (python-proc): Simplify.
-
-2007-03-05 David Hansen <david.hansen@gmx.net> (tiny change)
-
- * pcomplete.el (pcomplete-show-completions): Search all frames for
- completions buffer.
-
-2007-03-05 Chong Yidong <cyd@stupidchicken.com>
-
- * cus-edit.el (customize-save-variable): Clear customized-value
- property (saved values are now put in theme-value property).
- (customize-set-variable): Doc fix.
-
- * complete.el (PC-do-completion): If completion-ignore-case is
- non-nil, replace field with completion string before exiting.
-
-2007-03-05 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-make-temp-file): New parameter FILENAME.
- Append its extension to the resulting temporary file name.
- (tramp-handle-file-local-copy, tramp-handle-write-region): Apply it.
-
- * net/tramp-smb.el (tramp-smb-handle-file-local-copy)
- (tramp-smb-handle-write-region): Apply it.
-
-2007-03-05 Alin C. Soare <alinsoar@voila.fr> (tiny change)
-
- * emacs-lisp/lisp-mode.el (calculate-lisp-indent):
- Redo previous change.
-
-2007-03-04 Kevin Rodgers <kevin.d.rodgers@gmail.com> (tiny change)
-
- * diff-mode.el (diff-mode): Doc fix.
-
-2007-03-05 Kenichi Handa <handa@m17n.org>
-
- * international/characters.el: Set category `l' (latin)
- for more characters.
-
-2007-03-04 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/authors.el (authors-aliases): Add alias.
-
-2007-03-04 Glenn Morris <rgm@gnu.org>
-
- * progmodes/hideshow.el (hs-minor-mode): Turn mode off and show
- all when switching major mode.
- (hs-minor-mode, hs-c-start-regexp, hs-block-start-regexp)
- (hs-block-start-mdata-select, hs-block-end-regexp)
- (hs-forward-sexp-func, hs-adjust-block-beginning):
- Do not make these variables permanent-local.
-
-2007-03-04 Richard Stallman <rms@gnu.org>
-
- * progmodes/cperl-mode.el (cperl-mode):
- Modify cperl-compilation-error-regexp-alist by appending.
-
- * emacs-lisp/edebug.el (edebug-kill-buffer): New function.
- (edebug-mode): Add the hook.
- (edebug-recursive-edit): Remove the hook on exiting.
-
- * type-break.el (type-break-get-previous-time):
- Handle end-of-file errors specially
- so they don't get reported wrong in .emacs.
-
- * startup.el (fancy-splash-text): Clarify text.
-
- * simple.el (beginning-of-buffer, end-of-buffer):
- Avoid treating plain C-u like numeric arg.
-
- * simple.el (completion-setup-function): Don't set
- default-directory to nil.
-
- * shell.el (shell-dirstack-query): Doc fix.
-
- * mouse.el (mouse-drag-mode-line-1, mouse-drag-vertical-line):
- Don't select the window -- pass it to primitives instead.
-
- * faces.el (minibuffer-prompt): Use medium blue by default.
-
-2007-03-04 David Kastrup <dak@gnu.org>
-
- * jit-lock.el (jit-lock-stealth-time): Change default to nil.
- Preserve 16 as default value for "seconds" when customizing.
-
-2007-03-04 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-self-insert-command)
- (orgtbl-self-insert-command, org-delete-char)
- (org-delete-backward-char): Set the `flyspell-delayed' property.
-
-2007-03-03 Chong Yidong <cyd@stupidchicken.com>
-
- * international/mule.el (find-auto-coding): Don't search for
- line-ending characters past the end of the tail.
-
-2007-03-03 Christopher Allan Webber <cwebber@dustycloud.org> (tiny change)
-
- * play/gamegrid.el (gamegrid-add-score-with-update-game-score-1):
- Jump to the line where new score has been uploaded.
-
- * play/tetris.el (tetris-move-bottom, tetris-move-left)
- (tetris-move-right, tetris-rotate-prev, tetris-rotate-next):
- Do nothing when the game is paused.
-
-2007-03-03 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-set-tags): Prevent slipping of point
- during completion.
-
-2007-03-01 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * isearch.el (isearch-message-prefix):
- Use minibuffer-prompt-properties.
-
-2007-03-01 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Replace (defvar VAR nil) by (defvar VAR).
- (ps-setup): Print which Emacsen is running ps-print package.
-
-2007-03-01 Stuart Herring <herring@lanl.gov>
-
- * files.el (set-auto-mode-0): Use `indirect-function'.
- (hack-one-local-variable): Don't reapply current major mode.
-
-2007-03-01 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * 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.
-
-2007-03-01 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * replace.el (perform-replace): Propertize message.
-
-2007-03-01 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-prepare-agenda-buffers): Also check for
- invisible heading.
-
-2007-02-28 Chong Yidong <cyd@stupidchicken.com>
-
- * net/tramp.el (tramp-file-name-handler): Revert last change.
-
-2007-02-28 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-mouse-until, gdb-mouse-jump):
- Correct doc strings.
-
-2007-02-28 Chong Yidong <cyd@stupidchicken.com>
-
- * replace.el (perform-replace): Undo forward-char immediately if
- non-adjacent search fails.
-
-2007-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * version.el (emacs-major-version, emacs-minor-version):
- string-to-int -> string-to-number.
-
-2007-02-28 Juanma Barranquero <lekktu@gmail.com>
-
- * help.el (where-is): Fail gracefully when not passed a command.
-
-2007-02-28 Stuart Herring <herring@lanl.gov>
-
- * find-lisp.el (find-lisp-default-directory-predicate):
- Fix bug: Do symlink check on expanded filename.
-
-2007-02-28 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-set-tags, org-table-get-field): Avoid case
- changes during replacement.
- (org-agenda-mode-map): Add default binding for `org-agenda-archive'.
-
-2007-02-28 Lars Hansen <larsh@soem.dk>
-
- * desktop.el: Delete header line listing me as maintainer.
-
-2007-02-28 Glenn Morris <rgm@gnu.org>
-
- * tutorial.el (tutorial--describe-nonstandard-key): Tweak text in
- the menus case.
-
-2007-02-28 Chong Yidong <cyd@stupidchicken.com>
-
- * net/tramp.el (tramp-file-name-handler): Inhibit modification
- hooks to avoid confusion when combining after-change calls.
-
-2007-02-27 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-encrypt-string): Remove inhibition of gpg-agent,
- now that pgg-gpg-process-region correctly honors passed-in passphrase.
- (allout-distinctive-bullets-string): Add info about bullet conventions.
- (allout-mode): Add info about distinctive vs plain bullets.
-
-2007-02-27 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-archive-subtree): Quote variable name.
- (org-agenda-get-todos): Make sure skip properties are checked correctly.
-
-2007-02-26 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-bashdb-history, gud-bashdb-marker-filter)
- (gud-bashdb-command-name, bashdb): Remove.
- (gud, gud-menu-map): Remove references to bash/bashdb.
-
-2007-02-26 Andrey Zhdanov <susuman@hotmail.com> (tiny change)
-
- * progmodes/gud.el (gud-pdb-marker-regexp): Add optional <module>
- keyword for Python 2.5.
-
-2007-02-26 Romain Francoise <romain@orebokech.com>
-
- * net/net-utils.el (whois-server-tld): Update server for .org.
- (whois-server-list): Add whois.publicinterestregistry.net.
- (whois-guess-server): Fix formatting in docstring.
-
-2007-02-26 Kim F. Storm <storm@cua.dk>
-
- * mouse.el (mouse-show-mark): Run hooks and perform command
- remapping for mouse-region-delete-keys.
-
-2007-02-26 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * font-core.el (font-lock-mode): Doc fix.
-
-2007-02-25 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-buffer-internal): Set this-command to fallback command.
- Add selected buffer to buffer-name-history.
- (ido-file-internal): Set this-command to fallback command.
- Add file names to file-name-history.
-
- * emacs-lisp/map-ynp.el (map-y-or-n-p):
- Apply minibuffer-prompt-properties.
-
-2007-02-25 Andreas Schwab <schwab@suse.de>
-
- * files.el (hack-one-local-variable-eval-safep): Correct handling
- of edebug-form-spec property value. Reported by Johan Bockg\e,Ae\e(Brd.
-
-2007-02-25 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-table-overlay-coordinates)
- (org-table-toggle-coordinate-overlays): New functions.
- (org-table-overlay-coordinates, org-table-coordinate-overlays):
- New variables.
- (org-startup-with-deadline-check): Remove option.
- (org-mode): Remove deadline check on startup.
- (org-table-limit-column-width): Remove option.
- (org-table-formula-numbers-only): Remove option.
- (org-link-style, org-link-format): Remove options.
- (org-select-agenda-window, org-fit-agenda-window): Remove options.
- (org-export-ascii-show-new-buffer)
- (org-export-html-show-new-buffer): Remove options.
- (org-activate-links): Remove camel option.
- (org-file-link-context-use-camel-case): Remove option.
- (org-camel-regexp): Remove variable.
- (org-activate-camels): Remove function.
- (org-store-link): Remove Camel stuff.
- (org-make-org-heading-camel): Remove function.
- (org-open-at-point): Remove camel stuff.
- (org-link-search): Remove camel stuff.
- (org-camel-to-words): Function removed.
- (org-get-agenda-file-buffer): Make sure we prepare the base
- buffers, not any indirect buffers.
- (org-sort-entries): Sort top-level when not on a headline, and no
- active region.
- (org-in-regexp): New function.
- (org-search-not-self): Rename from `org-search-not-link'.
- (org-open-link-marker): New variable.
- (org-open-at-point): Set `org-open-link-marker'.
- (org-print-icalendar-entries): Fixe bug with excluding DONE
- entries from the exported list.
- (org-edit-formula-lisp-indent): New command.
- (orgtbl-to-texinfo, orgtbl-to-html): New functions.
- (orgtbl-to-latex, orgtbl-insert-radio-table)
- (orgtbl-toggle-comment, orgtbl-send-table): New functions.
- (orgtbl-radio-table-templates): New option.
- (org-store-link-props):
- (org-remember-templates): More possibilities to insert info
- into templates.
- (org-remember-apply-template): Make use of the extended
- template capabilities.
- (org-remember-redo-template): New command.
- (org-upgrade-old-links)
- (org-table-modify-formulas, org-table-replace-in-formulas)
- (org-table-find-dataline)
- (org-table-get-vertical-vector): Remove functions.
- (org-table-remove-rectangle-highlight)
- (org-time-stamp-format, org-toggle-log-option)
- (org-table-highlight-rectangle)
- (org-table-iterate, org-table-make-reference):
- (org-translate-time, org-tree-to-indirect-buffer)
- (org-table-field-info, org-table-fix-formulas)
- (org-table-force-dataline, org-table-get-descriptor-line)
- (org-table-get-range)
- (org-skip-comments, org-sort)
- (org-sort-entries, org-sublist, org-table-add-rectangle-overlay)
- (org-table-current-dline, org-table-current-field-formula)
- (org-table-edit-backward-field)
- (org-table-edit-formulas-post-command)
- (org-table-edit-line-down, org-table-edit-line-up)
- (org-agenda-archive)
- (org-agenda-clock-cancel)
- (org-agenda-clock-out, org-agenda-list-stuck-projects)
- (org-agenda-open-link, org-agenda-show-new-time)
- (org-agenda-skip-subtree-when-regexp-matches)
- (org-agenda-tree-to-indirect-buffer, org-agenda-undo)
- (org-at-regexp-p, org-auto-repeat-maybe, org-check-log-option)
- (org-do-sort, org-file-image-p, org-find-overlays)
- (org-find-row-type, org-get-indirect-buffer, org-get-repeat)
- (org-highlight-until-next-command, org-isearch-end)
- (org-match-any-p, org-next-link, org-previous-link):
- (org-remove-subtree-entries-from-agenda, org-replace-escapes)
- (org-rewrite-old-row-references)
- (org-isearch-post-command)
- (org-table-edit-move, org-table-edit-next-field)
- (org-table-edit-scroll, org-table-edit-scroll-down)
- (org-set-frame-title, org-show-reference)
- (org-unhighlight-once, org-verify-change-for-undo): New functions.
- (org-show-variable): Remove command.
- (org-add-log-maybe): New arguments STATE, FINDPOS
- (org-table-sort-lines): Rewrite from scratch.
- (org-link-search): New argument AVOID-POS.
- (org-print-icalendar-entries): Remove argument CATEGORY.
- (org-run-agenda-series): Remove argument WONDOW.
- (org-next-link, org-previous-link): New commands.
- (org-agenda-date-format): New option.
- (org-table-iterate): New command.
- (org-table-modify-formulas)
- (org-table-replace-in-formulas): Remove functions.
- (org-table-fix-formulas): New function.
- (org-table-insert-column, org-table-delete-column)
- (org-table-move-column): Use `org-table-fix-formulas'.
- (org-follow-gnus-link): Patch from Bastien/Leo.
- (org-table-current-field-formula): New function.
- (org-file-image-p): New function.
- (org-agenda-show-new-time): New function.
- (org-agenda-date-later): Call `org-agenda-show-new-time'.
- (org-with-remote-undo): New macro.
- (org-agenda-undo): New command.
- (org-verify-change-for-undo): New function.
- (org-time-stamp-format): New function.
- (org-agenda-get-timestamps): Skip scheduled if DONE and requested
- by user.
- (org-match-any-p): New function.
- (org-make-tags-matcher): Handle regular expressions for tag and
- todo matches.
- (org-read-date): Accept "+N" as input for a date relative to the
- current date.
- (org-remove-subtree-entries-from-agenda): New function.
- (org-agenda-archive, org-agenda-kill):
- Use `org-remove-subtree-entries-from-agenda'.
- (org-do-sort, org-sort-entries): New functions.
- (org-sort): New command.
- (org-table-sort-lines): Use `org-do-sort'.
- (org-fix-decoded-time): New function.
- (org-table-number-regexp): Require 0x... to identify as number
- in tables.
- (org-startup-options): New keywords for note taking.
- (org-upgrade-old-links): Remove function.
- (org-get-repeat): New function.
- (org-show-context): Also show siblings on current level.
- (org-show-siblings): New function.
- (org-isearch-end, org-isearch-post-command): New functions.
- (org-show-siblings): New option.
- (org-show-context): Use `org-show-siblings'.
- (org-table-maybe-recalculate-line): No longer require `calc-eval'
- to be bound, because user may just use elisp.
-
-2007-02-24 Kim F. Storm <storm@cua.dk>
-
- * emulation/cua-base.el (cua-paste): Handle x-clipboard-yank.
- (cua--init-keymaps): Remap x-clipboard-yank to cua-paste.
-
-2007-02-24 Dan Nicolaescu <dann@ics.uci.edu>
-
- * startup.el (command-line): Also check if the abbrev file is readable.
-
-2007-02-24 John Paul Wallington <jpw@pobox.com>
-
- * net/tls.el (tls-certtool-program): Fix custom type.
-
- * mail/feedmail.el (feedmail-message-id-generator)
- (feedmail-date-generator): Fix custom types.
-
- * mail/rmail.el (rmail-message-filter): Fix custom type.
-
-2007-02-24 Eli Zaretskii <eliz@gnu.org>
-
- * startup.el (command-line): If simple.el cannot be found, proceed
- with a warning message.
-
-2007-02-24 Kenichi Handa <handa@m17n.org>
-
- * international/utf-8.el (utf-8-pre-write-conversion): Handle the
- case that BEG is a string.
-
-2007-02-24 Chris Moore <dooglus@gmail.com>
-
- * pgg-pgp5.el (pgg-pgp5-encrypt-region):
- * pgg-pgp.el (pgg-pgp-encrypt-region):
- * pgg-gpg.el (pgg-gpg-encrypt-region):
- Check pgg-encrypt-for-me if no other recipients.
-
-2007-02-23 Eli Zaretskii <eliz@gnu.org>
-
- * mail/rmailedit.el (rmail-cease-edit): Restore the Rmail toolbar.
-
- * textmodes/sgml-mode.el (sgml-validate): Quote the file name with
- shell-quote-argument.
-
-2007-02-23 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
-
- * comint.el (comint-read-input-ring): Use comint-input-ring-size
- from the comint buffer instead of the temporary one.
-
-2007-02-23 David Reitter <david.reitter@gmail.com>
-
- * cus-edit.el (custom-save-all): Canonicalize custom-file before
- storing it in recentf-exclude.
-
-2007-02-23 Chong Yidong <cyd@stupidchicken.com>
-
- * startup.el (fancy-splash-screens): Make cursor-type buffer-local
- in splash screen.
-
-2007-02-22 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlw-shell.el (idlwave-shell-mode): Clean up pending
- commands, for restart.
- (idlwave-shell-current-module): Fix handling of module name by type.
- (idlwave-shell-break-in): Update type handling.
- (idlwave-shell-bp-get): Encode type in BP structure.
- (idlwave-shell-set-bp): Fix setting condition/count on disabled BPs.
- (idlwave-shell-module-source-query): Query routine info based on type.
- Fix path parsing for non-compiled files.
- (idlwave-shell-module-source-filter): Don't signal error in filter
- if no source found.
- (idlwave-shell-set-bp-in-module): Use fallback source to prevent
- filter race.
-
-2007-02-22 Kim F. Storm <storm@cua.dk>
-
- * wid-edit.el (widget-default-create): Undo 2007-02-04 change.
- (editable-field): Document need to put some text before the %v
- escape in :format string.
-
-2007-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-svn.el: Remove the code inherited from CVSREAD and `cvs edit'.
- (vc-svn-use-edit): Remove unused config var.
- (vc-svn-update, vc-svn-revert): Checkout is always implicit.
-
- * outline.el (hide-sublevels): Keep empty last line, if available.
-
- * buff-menu.el (list-buffers-noselect): Use explicit unicode code
- rather than the corresponding unicode char, to make the code
- more readable.
-
-2007-02-19 Juanma Barranquero <lekktu@gmail.com>
-
- * speedbar.el (speedbar-frame-mode, speedbar-frame-width)
- (speedbar-show-unknown-files, speedbar-item-info-file-helper)
- (speedbar-item-info-tag-helper): Doc fixes.
-
-2007-02-19 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el (locale-language-names):
- Map "eo" to "Esperanto".
-
- * language/european.el ("Esperanto"): New language environment.
-
-2007-02-17 Sven Joachim <svenjoac@gmx.de> (tiny change)
-
- * simple.el (kill-line): Doc fix.
-
-2007-02-17 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/bindat.el (bindat--unpack-u*): Optimize.
- (bindat--unpack-item, bindat--length-group, bindat--pack-item)
- (bindat--unpack-group, bindat--pack-group):
- Handle vectors with optional element type.
-
-2007-02-17 Daiki Ueno <ueno@unixuser.org>
-
- * pgg-gpg.el (pgg-gpg-process-region): Make USE-AGENT nil
- if PASSPHRASE is given.
-
-2007-02-17 Chris Moore <dooglus@gmail.com>
-
- * jka-cmpr-hook.el (jka-compr-compression-info-list):
- Recognize backups of bz2 compressed files.
-
-2007-02-17 Eli Zaretskii <eliz@gnu.org>
-
- * info-look.el (info-lookup): Bind Info-fontify-maximum-menu-size
- to nil to speed up lookup of the symbol in index nodes.
-
-2007-02-17 Alin C. Soare <alinsoar@voila.fr> (tiny change)
-
- * emacs-lisp/lisp-mode.el (calculate-lisp-indent):
- Add indentation for the constants of Lisp.
-
-2007-02-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * ps-print.el: Use (defvar <foo>) where applicable.
- (ps-print-emacs-type): Remove.
- (ps-x-frame-property, ps-e-frame-parameter): Remove.
- (ps-frame-parameter): Align its call-convention with frame-parameter.
- (ps-begin-job): Adjust calls to it appropriately.
- (ps-setup): Don't print ps-print-emacs-type.
- (ps-e-find-composition, ps-mark-active-p, ps-color-device):
- Define in such a way that it's obvious that it's defined.
- (ps-prsc, ps-c-prsc, ps-s-prsc): Remove.
- (ps-rmail-mode-hook, ps-vm-mode-hook, ps-gnus-summary-setup)
- (ps-jts-ps-setup): Use flavor-neutral syntax instead.
-
-2007-02-15 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-indent-new-comment-line): When splitting
- an empty one-line C-style comment, post-position point properly.
-
-2007-02-15 Chris Moore <dooglus@gmail.com>
-
- * isearch.el (isearch-lazy-highlight-space-regexp): New variable.
- (isearch-lazy-highlight-new-loop): Bind it.
- (isearch-lazy-highlight-search): Use it.
-
- * replace.el (replace-highlight): Bind search-whitespace-regexp to nil.
-
-2007-02-15 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * font-lock.el (font-lock-extend-region-wholelines):
- Only return non-nil if the region has really been changed.
- Reported by David Hansen <david.hansen@physik.fu-berlin.de>
-
-2007-02-15 Juanma Barranquero <lekktu@gmail.com>
-
- * play/5x5.el (5x5-crack-xor-mutate): Doc fix.
- (5x5-draw-grid-end, 5x5-make-xor-with-mutation, 5x5-mode, 5x5-crack)
- (5x5-play-solution, 5x5-y-or-n-p): Fix typos in docstrings.
-
-2007-02-14 Juanma Barranquero <lekktu@gmail.com>
-
- * faces.el (color-values): Revert changes to docstring from
- 2007-01-31 and 2000-09-07.
-
- * textmodes/ispell.el (ispell-keep-choices-win, ispell-word)
- (ispell-begin-skip-region-regexp): Fix typos in docstrings.
- (ispell-dictionary-alist, ispell-process-line): Doc fixes.
- (ispell-help): Fix typos in docstring and output message.
-
-2007-02-14 Kim F. Storm <storm@cua.dk>
-
- * progmodes/grep.el (grep-files-aliases): Add tex and texi aliases.
- (lgrep): Add DIR arg to start grep in specific directory, like rgrep.
- (grep): Fix lgrep reference.
-
- * disp-table.el (make-glyph-code, glyph-char, glyph-face): New defuns.
- (standard-display-underline): Use make-glyph-code.
-
- * descr-text.el (describe-char): Use glyph-char and glyph-face.
-
- * international/latin1-disp.el (latin1-display-char):
- Use make-glyph-code.
-
-2007-02-13 Juanma Barranquero <lekktu@gmail.com>
-
- * ehelp.el (with-electric-help, electric-help-exit)
- (electric-help-retain): Doc fixes.
-
- * emacs-lisp/bytecomp.el (byte-compile-dest-file)
- (byte-compile-file): Doc fixes.
-
-2007-02-13 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el: Change all uses of
- mac-set-font-panel-visibility to mac-set-font-panel-visible-p.
- (mac-ae-number): Return integer 0 if coerced result is float 0.0.
- (mac-ae-get-url): Call select-frame-set-input-focus.
- (mac-dnd-handle-drag-n-drop-event): Don't call
- select-frame-set-input-focus.
-
-2007-02-13 Kenichi Handa <handa@m17n.org>
-
- * international/characters.el: Fix documentation of category `a'.
-
-2007-02-11 Dan Nicolaescu <dann@ics.uci.edu>
-
- * progmodes/grep.el (grep): Mention lgrep and rgrep in the docstring.
-
-2007-02-12 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-get-ls-command, tramp-get-file-exists-command)
- (tramp-get-remote-ln): Handle error case.
- Reported by Chris Moore <dooglus@gmail.com>.
-
-2007-02-11 Kim F. Storm <storm@cua.dk>
-
- * bindings.el (ctl-x-map): Remove register compatibility bindings
- C-x /, C-x j, C-x x, and C-x g (deprecated since Emacs 19).
-
-2007-02-11 Richard Stallman <rms@gnu.org>
-
- * loadhist.el (unload-feature): Handle (t . SYMBOL) entries
- in load history.
-
- * emacs-lisp/lisp-mode.el (indent-sexp): Clean up termination
- condition -- don't fail to stop at endpos.
-
-2007-02-11 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-agenda-get-todos)
- (org-agenda-get-timestamps, org-agenda-get-closed)
- (org-agenda-get-deadlines, org-agenda-get-scheduled)
- (org-agenda-get-blocks, org-format-agenda-item)
- (org-agenda-change-all-lines, org-scan-tags): Rename text property
- from `category' to `org-category'.
-
-2007-02-11 Kenichi Handa <handa@m17n.org>
-
- * international/titdic-cnv.el (titdic-convert): Force files be written
- with Unix-like eol format. Read files under CXTERM-DIC by raw-text.
- (miscdic-convert): Force files be written with Unix-like eol format.
-
-2007-02-11 Juanma Barranquero <lekktu@gmail.com>
-
- * files.el (change-major-mode-with-file-name): Fix typo in docstring.
-
- * calculator.el (calculator-prompt): Doc fix.
- (calculator-mode-map): Fix typo in menu entry.
-
-2007-02-10 Jay Belanger <belanger@truman.edu>
-
- * calculator.el (calculator): Do more extensive checking for when
- 3 lines should be used for the calculator.
-
-2007-02-10 Eli Zaretskii <eliz@gnu.org>
-
- * info-look.el (info-lookup-make-completions):
- Bind Info-fontify-maximum-menu-size to nil to speed up lookup of
- index nodes.
-
- * info.el (Info-fontify-maximum-menu-size): Document the effect
- of a nil value.
- (Info-fontify-node): Make sure Info-fontify-maximum-menu-size is
- non-nil before using it as size.
-
-2007-02-09 Chong Yidong <cyd@stupidchicken.com>
-
- * subr.el (insert-for-yank-1): Prevent read-only properties from
- interfering with text property operations.
-
- * image-mode.el (image-mode): Revert 2007-01-30 changes.
-
- * image.el (image-type-auto-detectable): Don't autodetect x[pb]m.
- (image-type-auto-detected-p): Fail if another match is found in
- auto-mode-alist.
-
- * files.el (magic-mode-alist): Call image-mode instead of
- image-mode-maybe for autodetected images.
-
-2007-02-09 Juanma Barranquero <lekktu@gmail.com>
-
- * mail/smtpmail.el (smtpmail-smtp-service, smtpmail-queue-index-file):
- Fix typos in docstrings.
- (smtpmail-local-domain, smtpmail-queue-mail): Doc fixes.
-
-2007-02-09 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/float-sup.el: Remove obsolete comment.
-
-2007-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-sanity-check-hunk): Fix last fix.
-
-2007-02-08 Karl Fogel <kfogel@red-bean.com>
-
- * simple.el: Revert previous change, at request of RMS:
- (fundamental-mode-hook): Remove.
- (fundamental-mode): Run after-change-major-mode-hooks manually,
- and don't run the now-nonexistent fundamental-mode-hook.
-
-2007-02-08 Karl Fogel <kfogel@red-bean.com>
-
- * simple.el (fundamental-mode-hook): Declare new hook.
- (fundamental-mode): Run the new dedicated hook, and don't run
- after-change-major-mode-hooks manually anymore.
-
-2007-02-07 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-svn.el (vc-svn-merge-news): Understand the new format with two
- added columns of chars. Remove support for the "no-meta-info" format.
- Prompted by Romain Francoise <romain@orebokech.com>.
-
-2007-02-07 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-if-arrow): New macro.
- (gdb-mouse-until, gdb-mouse-jump): Use it.
-
-2007-02-07 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-mouse-until, gdb-mouse-jump): Make them
- work when there is just an assembler buffer (no source buffer).
-
-2007-02-07 Per Cederqvist <ceder@lysator.liu.se> (tiny change)
-
- * diff-mode.el (diff-sanity-check-hunk): Don't reject the hunk
- just because the diff was produced using "-p" (--show-c-function).
-
-2007-02-07 Juanma Barranquero <lekktu@gmail.com>
-
- * faces.el (frame-set-background-mode): Use `color-values' and
- `display-color-p', not `x-color-values' and `x-display-color-p'.
- (face-valid-attribute-values): Use `defined-colors' instead of
- `x-defined-colors'.
-
-2007-02-07 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: The ps-print commands without face printing should not
- print background color. Reported by Leo <sdl.web@gmail.com>.
- (ps-print-version): New version 6.7.3.
- (ps-begin-job): New arg. Fix ps-default-background and
- ps-default-foreground initialization.
- (ps-face-attributes): Fix doc string.
- (ps-face-background, ps-generate-postscript, ps-generate): Fix code.
-
- * printing.el: Fix ps-print link.
-
-2007-02-06 Chong Yidong <cyd@stupidchicken.com>
-
- * faces.el (face-set-after-frame-default): Compile attributes to
- be set by frame parameters before merging in X resources.
-
-2007-02-06 Juanma Barranquero <lekktu@gmail.com>
-
- * simple.el (blink-matching-paren-dont-ignore-comments):
- (blink-matching-paren-on-screen): Doc fixes.
-
-2007-02-06 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-frames-mode): Truncate lines in stack buffer.
-
-2007-02-05 Juanma Barranquero <lekktu@gmail.com>
-
- * loadhist.el (unload-feature): Silently ignore `load-history' entries
- of the form `(defface . SYMBOL)', and treat `(autoload . SYMBOL)'
- entries like `defun'. Return nil.
-
-2007-02-05 Kim F. Storm <storm@cua.dk>
-
- * ido.el: Doc fixes.
-
-2007-02-04 David Kastrup <dak@gnu.org>
-
- * play/mpuz.el (mpuz-random-puzzle): Fix potential lockup when
- `mpuz-allow-double-multiplicator' is non-zero, and correct
- calculation of `min'.
-
-2007-02-04 Per Abrahamsen <abraham@dina.kvl.dk>
-
- * wid-edit.el (widget-default-create): Insert new text at the
- :from marker _after_ the marker, not before it.
-
-2007-02-04 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-indent-line): Don't erase ^L when a line
- containing it is re-indented.
-
-2007-02-03 Chong Yidong <cyd@stupidchicken.com>
-
- * net/newsticker.el (newsticker--insert-image): Update docstring,
- and insert the image directly.
- (newsticker--buffer-redraw): Update docstring.
-
- * emacs-lisp/easy-mmode.el (define-globalized-minor-mode):
- Rename from define-global-minor-mode.
-
- * progmodes/cwarn.el (global-cwarn-mode):
- * emacs-lisp/autoload.el (make-autoload):
- * hi-lock.el (global-hi-lock-mode):
- * font-core.el (global-font-lock-mode): All callers changed.
-
-2007-02-03 Eli Zaretskii <eliz@gnu.org>
-
- * textmodes/texnfo-upd.el (texinfo-menu-copy-old-description):
- Don't copy @ignore lines into menu descriptions.
- (texinfo-multi-file-update): Goto the @node line before attempting
- to pluck the node name.
- (texinfo-multiple-files-update): Reverse the optional arguments'
- order, as per the doc string and the `interactive' form.
-
-2007-02-03 Chong Yidong <cyd@stupidchicken.com>
-
- * image-mode.el: Use autoload to avoid overriding disabled setting
- applied in .emacs.
-
-2007-02-03 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-engine.el (c-in-knr-argdecl): Slight correction
- for, e.g. "void (*hdone)();" in a k&r list. (No WS between
- adjacent paren groups).
-
-2007-02-02 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * progmodes/ebnf2ps.el: Doc fixes.
- (ebnf-eps-buffer, ebnf-eps-region, ebnf-syntax-alist): Doc fixes.
-
-2007-02-02 Eli Zaretskii <eliz@gnu.org>
-
- * dired-x.el (dired-do-relsymlink): Add reference to
- dired-do-symlink. Add an autoload cookie.
-
- * dired-aux.el (dired-do-symlink): Add reference to
- dired-do-relsymlink.
-
-2007-02-02 Doug Maxey <dwm@enoyolf.org> (tiny change)
-
- * mouse.el <left-fringe mouse-2, right-fringe mouse-3>:
- <left-fringe mouse-3>: New bindings.
-
-2007-02-02 Ulf Jasper <ulf.jasper@web.de>
-
- * net/newsticker.el (newsticker-version): Changed to "1.10".
- (newsticker--set-customvar): Doc string.
- (newsticker-new-item-face): Doc string.
- (newsticker-mode): Initialize `invisibility-spec' with t.
- (newsticker-mode-map): Added
- `newsticker-mark-all-items-at-point-as-read'.
- (newsticker-menu): Added narrow-to-item and narrow-to-feed.
- (newsticker-w3m-show-inline-images): Do not call
- `w3m-remove-image'.
- (newsticker--buffer-after-w3m-insert-image): New advice for
- w3m-insert-image to cache images.
- (newsticker-next-item-same-feed): New.
- (newsticker-mark-all-items-at-point-as-read-and-redraw): New.
- (newsticker-mark-all-items-of-feed-as-read): New.
- (newsticker-mark-all-items-at-point-as-read): Use new functions.
- (newsticker-mark-item-at-point-as-read): Doc string.
- (newsticker-mark-item-at-point-as-read): Use new functions.
- (newsticker--do-mark-item-at-point-as-read): New, extracted from
- `newsticker-mark-item-at-point-as-read'.
- (newsticker-hide-entry): Use (t) instead of t for invisibility.
- (newsticker--sentinel): Yet another xml-parser workaround.
- (newsticker--decode-iso8601-date): Bugfix for datestrings without
- days.
- (newsticker--buffer-do-insert-text): Fix.
- (newsticker--buffer-insert-enclosure): Fix. Length might be missing.
- (newsticker--buffer-make-item-completely-visible):
- `switch-to-buffer' not necessary.
-
-2007-02-02 Eli Zaretskii <eliz@gnu.org>
-
- * progmodes/ebnf2ps.el (ebnf-eps-buffer, ebnf-eps-region)
- (ebnf-syntax-directory, ebnf-syntax-file, ebnf-syntax-region)
- (ebnf-style-database, ebnf-apply-style, ebnf-reset-style)
- (ebnf-push-style, ebnf-pop-style, ebnf-eps-production-list)
- (ebnf-directory, ebnf-file, ebnf-syntax-alist): Doc fixes.
-
-2007-02-02 Kenichi Handa <handa@m17n.org>
-
- * international/quail.el (quail-show-key): Fix an error message.
-
-2007-02-01 Juanma Barranquero <lekktu@gmail.com>
-
- * faces.el (set-face-underline-p, modify-face): Rename arg
- UNDERLINE-P to UNDERLINE (it is not a flag).
-
-2007-02-01 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-speedbar-update): Avoid duplication
- when adding gdb-speedbar-update to gdb-input-queue.
-
-2007-02-01 Kenichi Handa <handa@m17n.org>
-
- * international/quail.el (quail-show-key): Signal an error if the
- current input method is not using Quail.
-
-2007-02-01 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlwave.el (idlwave-xml-create-sysvar-alist):
- Trim leading whitespace in sysvar names.
-
-2007-02-01 Juanma Barranquero <lekktu@gmail.com>
-
- * faces.el (internal-find-face, internal-get-face): Doc fixes.
-
-2007-01-31 Juanma Barranquero <lekktu@gmail.com>
-
- * ido.el (ido-set-common-completion): Use `let', not `let*'.
-
-2007-01-31 Romain Francoise <romain@orebokech.com>
-
- * comint.el: Delete extra copy of `comint-copy-old-input' added in
- previous change to this file.
-
-2007-01-31 Jason Rumney <jasonr@gnu.org>
-
- * files.el (magic-mode-alist): Use image-mode-maybe rather than
- image-mode.
-
- * image-mode.el (image-mode-maybe): Prevent magic-mode-alist from
- interfering with attempt to set major mode from modified
- auto-mode-alist.
-
-2007-01-31 Juanma Barranquero <lekktu@gmail.com>
-
- * faces.el (color-values): Doc fix.
- (face-differs-from-default-p): Don't check :foreground twice.
-
-2007-01-31 J.D. Smith <jdsmith@as.arizona.edu>
-
- * comint.el (comint-mode): Prevent non-keyword fontification by default.
-
-2007-01-31 Kenichi Handa <handa@m17n.org>
-
- * international/quail.el (quail-store-decode-map-key): Store a
- translated character too.
- (quail-char-equal-p): New function.
- (quail-find-key1): Check character equality by quail-char-equal-p.
- (quail-decode-map-generated): New variable.
- (quail-find-key): Check quail-decode-map-generated and re-generate
- a decode map if necessary.
-
-2007-01-30 Richard Stallman <rms@gnu.org>
-
- * tutorial.el (tutorial--detailed-help): Make the list of
- changed keys look nicer.
-
-2007-01-30 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-delete-1): New function.
- (gdb-var-delete): Use it.
- (gdb-var-update-handler-1): Handle value "invalid" for MI field
- `in_scope'.
-
-2007-01-30 Michael Albinus <michael.albinus@gmx.de>
-
- * files.el (get-free-disk-space): Return nil for remote directories.
-
- * net/ange-ftp.el (ange-ftp-ls): In case of wildcards, use "ls"
- instead of "dir".
-
-2007-01-30 Chong Yidong <cyd@stupidchicken.com>
-
- * type-break.el (type-break-catch-up-event): New function.
- (type-break-demo-hanoi, type-break-demo-life)
- (type-break-demo-boring): Use it.
-
- * image-mode.el (image-mode): Don't automatically view as image.
- (image-toggle-display): Add `disabled' property.
-
-2007-01-29 Juanma Barranquero <lekktu@gmail.com>
-
- * isearchb.el (isearchb-iswitchb):
- * ps-print.el (ps-build-face-reference):
- * emacs-lisp/shadow.el (list-load-path-shadows):
- * eshell/esh-cmd.el (eshell-rewrite-for-command):
- * international/mule.el (find-auto-coding):
- * mail/supercite.el (sc-attrib-selection-list):
- * progmodes/cc-defs.el (c-emacs-features):
- * progmodes/cc-vars.el (c-offsets-alist):
- * progmodes/flymake.el
- (flymake-init-create-temp-source-and-master-buffer-copy):
- Fix typos in docstrings (some suggested by Chris Moore).
-
- * progmodes/vhdl-mode.el (vhdl-components-package-name)
- (vhdl-get-library-unit, vhdl-corresponding-begin)
- (vhdl-skip-case-alternative, vhdl-backward-skip-label)
- (vhdl-align-region-2, vhdl-electric-dash, vhdl-case-word)
- (vhdl-hooked-abbrev, vhdl-hs-forward-sexp-func)
- (vhdl-font-lock-match-item): Fix typos in docstrings.
- (vhdl-get-library-unit, vhdl-get-block-state, vhdl-sort-alist)
- (vhdl-set-offset, vhdl-fix-case-region-1, vhdl-scan-directory-contents)
- (vhdl-speedbar-insert-project-hierarchy):
- Improve argument/docstring consistency.
-
-2007-01-29 Kenichi Handa <handa@m17n.org>
-
- * international/titdic-cnv.el (py-converter): Fix previous change.
-
-2007-01-29 Chong Yidong <cyd@stupidchicken.com>
-
- * jka-compr.el (jka-compr-partial-uncompress)
- (jka-compr-call-process): Rebind default-directory if it is
- invalid. Suggested by Chris Moore.
-
- * comint.el (comint-insert-input): Handle situation where the
- selected buffer is not the clicked buffer.
-
-2007-01-29 Kenichi Handa <handa@m17n.org>
-
- * international/ja-dic-cnv.el (skkdic-convert):
- Add byte-compile-disable-print-circle:t at the head.
-
- * international/titdic-cnv.el (tit-process-header):
- Add byte-compile-disable-print-circle:t at the head.
- (miscdic-convert): Likewise.
- (py-converter): Skip the header comments.
-
- * emacs-lisp/bytecomp.el (byte-compile-disable-print-circle):
- New variable.
- (byte-compile-output-file-form): Bing print-circle to nil if
- byte-compile-output-file-form is not nil.
- (byte-compile-output-docform): Likewise.
-
-2007-01-28 Kim F. Storm <storm@cua.dk>
-
- * emulation/cua-base.el (cua-global-keymap, cua--region-keymap):
- Declare earlier to avoid byte compiler warnings.
-
-2007-01-28 Markus Triska <markus.triska@gmx.at>
-
- * speedbar.el (speedbar-make-specialized-keymap): Doc fix.
-
-2007-01-28 Chong Yidong <cyd@stupidchicken.com>
-
- * play/gamegrid.el (gamegrid-kill-timer): Cancel timer directly.
- (gamegrid-add-score-with-update-game-score-1): Allow local quits
- when calling update-game-score program. Remove unnecessary
- save-excursion.
-
- * play/tetris.el (tetris-new-shape): Stop drawing if game is over.
-
-2007-01-28 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-breakpoint-regexp): Declare earlier to
- avoid compiler warning.
- (gdb-var-update-handler-1): Consider that the MI field `in_scope'
- might have values other than "true" or "false".
-
-2007-01-28 Richard Stallman <rms@gnu.org>
-
- * textmodes/fill.el (fill-paragraph-function): Doc fix.
- (fill-paragraph): Bind fill-paragraph-function to t to avoid recursion.
-
- * emacs-lisp/pp.el (pp-eval-last-sexp): Don't eval here.
-
- * image.el (image-type-header-regexps): Make GIF regex more specific.
-
- * tutorial.el (tutorial--default-keys): Check M-DEL, not `M-backspace'.
- Don't check `backspace'.
- (tutorial--find-changed-keys): Look up bindings in a temp buffer
- in Fundamental mode.
-
- * startup.el (fancy-splash-text, normal-splash-screen):
- Mention C-g.
-
- * simple.el (eval-expression): Don't use eval-last-sexp-print-value
- when inserting in buffer.
-
- * vc-arch.el (vc-arch-file-id): Move with-current-buffer
- inside the if.
-
-2007-01-27 Richard Stallman <rms@gnu.org>
-
- * obsolete/awk-mode.el (awk-font-lock-keywords): Add "do".
-
-2007-01-27 Guanpeng Xu <herberteuler@hotmail.com>
-
- * add-log.el (add-log-current-defun): Skip the semicolon ``;'' for
- enum/union/struct/class definition.
- Revert change to call `forward-sexp' multiple times.
-
-2007-01-27 Chong Yidong <cyd@stupidchicken.com>
-
- * files.el (hack-local-variables-confirm): Don't keep trying to
- read an event from an empty kbd macro.
-
-2007-01-27 Eli Zaretskii <eliz@gnu.org>
-
- * server.el (server-start): Mention LEAVE-DEAD arg in the doc string.
-
-2007-01-27 Ben North <ben@redfrontdoor.org>
-
- * outline.el (outline-promote, outline-demote): Doc fix. Rename
- the arg CHILDREN -> WHICH.
-
-2007-01-27 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set
- default-directory to a sane value when calling start-process.
-
-2007-01-27 Eli Zaretskii <eliz@gnu.org>
-
- * ls-lisp.el (ls-lisp-use-localized-time-format): New defcustom.
- (ls-lisp-format-time-list): Doc fix. Mention
- ls-lisp-use-localized-time-format.
- (ls-lisp-format-time): Use ls-lisp-format-time-list if
- ls-lisp-use-localized-time-format is non-nil, even if a valid
- locale is defined.
-
-2007-01-27 Juanma Barranquero <lekktu@gmail.com>
-
- * jka-compr.el (jka-compr-shell): Doc fix.
-
- * jka-cmpr-hook.el (jka-compr-compression-info-list): Doc fix.
-
-2007-01-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Fix background height.
- (ps-print-version): New version 6.7.2.
-
-2007-01-26 Eli Zaretskii <eliz@gnu.org>
-
- * makefile.w32-in (finder-data, custom-deps): Depend on
- $(lisp)/loaddefs.el.
-
-2007-01-24 Dan Nicolaescu <dann@ics.uci.edu>
-
- * Makefile.in (custom-deps, finder-data): Add dependency to loaddefs.el.
-
-2007-01-24 Miles Bader <miles@gnu.org>
-
- * emacs-lisp/bytecomp.el (byte-compile-output-file-form)
- (byte-compile-output-docform): Bind `print-circle' to t.
-
-2007-01-24 Kenichi Handa <handa@m17n.org>
-
- * international/ja-dic-cnv.el (skkdic-convert): Insert a related
- file name of the original SKK dictionary file.
-
-2007-01-24 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-initial-position): New variable.
- (ido-read-internal): Set it if default item is specified.
- (ido-minibuffer-setup): Position cursor accordingly if set.
- (ido-edit-input): C-e moves to end of input if not already there.
- (ido-magic-backward-char): C-b does like M-b if prev char is /.
- Don't switch to buffer mode if repeating C-b at start of input.
- (ido-toggle-ignore): C-a only toggles ignore at start or end of
- input; else it moves to start of input.
- (ido-kill-buffer-at-head, ido-delete-file-at-head): If cursor is
- not at end of input, delete rest of input, rather than normal op.
-
-2007-01-23 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * emulation/viper-keym.el (viper-insert-basic-map):
- Delete binding for S-TAB.
-
- * ediff-util.el (ediff-clone-buffer-for-region-comparison): Change text
- of message. Activate mark.
- (ediff-activate-mark): Set transient-mark-mode to t.
-
- * ediff.el (ediff-regions-wordwise, ediff-regions-linewise): Doc fix.
-
-2007-01-23 Martin Rudalics <rudalics@gmx.at>
-
- * help-fns.el (describe-variable): Don't suppress display of
- buffer local value when the value is "large".
-
-2007-01-22 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-active): Add XEmacs test from ido-minibuffer-setup.
- (ido-initiate-auto-merge, ido-exhibit, ido-minibuffer-setup)
- (ido-tidy): Use ido-active.
-
-2007-01-22 Chris Moore <christopher.ian.moore@gmail.com>
-
- * hexl.el (hexl-mode-exit): Add missing quote.
-
-2007-01-22 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-keyboard-modifier-mask-alist): New constant.
- (mac-ae-keyboard-modifiers): New function.
- (mac-handle-toolbar-switch-mode): Use it.
- (mac-dnd-handle-drag-n-drop-event): Likewise. Set action to `copy'
- if keyboard modifiers on drop contain option key.
- (mac-dnd-drop-data): Add optional argument `action'.
- (special-event-map): Remove binding for M-drag-n-drop.
-
-2007-01-21 Guanpeng Xu <herberteuler@hotmail.com>
-
- * add-log.el (add-log-current-defun): Use CC Mode functions to
- find the beginning and end of a defun.
-
-2007-01-21 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-create-regexp)
- (gdb-var-create-handler): Handle value field in GDB output of
- -var-create.
- (gdb-max-frames): New variable.
- (gdb-stack-buffer, gdb-frames-select): Use it.
- (gdb-info-stack-custom): Help user customize gdb-max-frames,
- if necessary.
- (gdb-get-frame-number): Simplify.
-
-2007-01-21 Glenn Morris <rgm@gnu.org>
-
- * net/tramp.el (tramp-perl-encode, tramp-perl-decode):
- Update copyrights.
-
-2007-01-21 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-where-wrt-brace-construct): Correct the
- handling of K&R stuff.
-
-2007-01-21 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-files): Fix customization type.
-
-2007-01-21 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-print.el: Handle frame parameters (background and/or foreground
- colors) changing dynamically. Reported by Leo <sdl.web@gmail.com>.
- (ps-print-version): New version 6.7.1.
- (ps-x-frame-property, ps-e-frame-parameter): New aliases.
- (ps-frame-parameter): New fun.
- (ps-default-fg, ps-default-bg): New default value ('frame-parameter).
- Fix doc and customization.
- (ps-begin-job): Get frame parameters (background and/or foreground
- colors).
- (ps-do-despool): Ensure ps-printer-name has a valid value.
-
-2007-01-21 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-debug-log): Rename from gdb-debug-ring.
- (gdb-debug-log-max): Rename from gdb-debug-ring-max.
- (gud-gdba-marker-filter): Make a value of nil for gdb-debug-ring-max
- mean unlimited.
-
-2007-01-20 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-engine.el (c-in-knr-argdecl): Reformulate to do
- much more rigorous analysis of putative K&R regions.
-
-2007-01-20 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-defs.el (c-go-list-forward, c-go-list-backward):
- New functions.
-
-2007-01-20 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-align.el, progmodes/cc-cmds.el,
- * progmodes/cc-defs.el, progmodes/cc-engine.el,
- * progmodes/cc-langs.el, progmodes/cc-styles.el,
- * progmodes/cc-vars.el: Add my name.
-
-2007-01-20 Chong Yidong <cyd@stupidchicken.com>
-
- * files.el (find-alternate-file): Revert query message to Emacs 21
- version.
-
-2007-01-20 Eric Hanchrow <offby1@blarg.net> (tiny change)
-
- * progmodes/cperl-mode.el (cperl-electric-keywords): Document in
- the doc string how to use personal abbrevs without electric
- keywords.
-
-2007-01-20 Alin C. Soare <alinsoar@voila.fr> (tiny change)
-
- * emacs-lisp/lisp-mode.el (last-sexp-toggle-display):
- Fixed cursor position when toggle abbreviated display.
-
-2007-01-20 Nick Roberts <nickrob@snap.net.nz>
-
- * t-mouse.el: Update copyright following assignment by
- Alessandro Rubini.
-
-2007-01-20 Chong Yidong <cyd@stupidchicken.com>
-
- * 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 <occitan@esperanto.org> (tiny change)
-
- * progmodes/compile.el: Add handling for makepplog.
-
-2007-01-19 Reiner Steib <Reiner.Steib@gmx.de>
-
- * textmodes/ispell.el (ispell-change-dictionary): Ensure that
- aspell dictionaries are initialized when called non-interactively.
-
-2007-01-19 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/compile.el (compilation-loop): New arg limit.
- Handle case where the first error is at point-min.
- (compilation-next-error): New arg to compilation-loop call.
-
-2007-01-18 Bruno Haible <bruno@clisp.org> (tiny change)
-
- * info.el (Info-default-dirs): Change default info dir to
- share/info.
-
- * paths.el (Info-default-directory-list): Ditto.
-
-2007-01-18 Chris Moore <christopher.ian.moore@gmail.com>
-
- * hexl.el (hexl-before-revert-hook): New function.
- (hexl-mode): Use it.
- (hexl-after-revert-hook): Just call hexl-mode.
- (hexl-mode-exit): Remove before-revert-hook.
-
-2007-01-17 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * isearch.el (isearch-no-upper-case-p): Look for [:upper:] as well.
-
-2007-01-16 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/ispell.el (ispell-dictionary-alist-3): Replace "---"
- by "-" in francais7 otherchars entry.
- (ispell-dictionary-alist-5): Replace "." by "[.]" for polish
- otherchars entry.
-
-2007-01-15 Karl Fogel <kfogel@red-bean.com>
-
- * bookmark.el (bookmark-buffer-file-name): Abbreviate the bookmark
- path. Rewrite function in `cond' style for readability.
-
- Suggested by Stephen Eglen <S.J.Eglen{_AT_}damtp.cam.ac.uk>.
- (The path shortening, that is, not the rearrangement.)
-
-2007-01-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-ae-quit-application): New function.
- (mac-apple-event-map): Bind "quit application" Apple event to it.
-
-2007-01-14 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-svn.el (vc-svn-parse-status): Trust the filename argument more
- than the program's output.
-
-2007-01-14 Juanma Barranquero <lekktu@gmail.com>
-
- * kmacro.el (kmacro-insert-counter, kmacro-set-counter)
- (kmacro-start-macro-or-insert-counter)
- (kmacro-step-edit-prefix-commands): Fix typos in docstrings.
- (kmacro-call-ring-2nd, kmacro-call-ring-2nd-repeat): Doc fixes.
-
- * longlines.el (longlines-show-hard-newlines):
- * ruler-mode.el (ruler-mode-ruler):
- * emulation/keypad.el (keypad-setup):
- * progmodes/antlr-mode.el (antlr-indent-at-bol-alist):
- Fix typo in docstring.
-
-2007-01-13 Mathias Dahl <mathias.dahl@gmail.com>
-
- * tumme.el (tumme-cmd-rotate-original-options): Add -outfile option.
- Remove redirect character ">".
-
-2007-01-13 Juanma Barranquero <lekktu@gmail.com>
-
- * replace.el (perform-replace): Remove leftover code.
-
-2007-01-12 Richard Stallman <rms@gnu.org>
-
- * replace.el (perform-replace): Don't clear NODENT when computing
- the replacement string.
-
-2007-01-11 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-handle-file-local-copy):
- Set `enable-multibyte-characters' to nil. Reported by Chris Moore
- <christopher.ian.moore@gmail.com>.
-
-2007-01-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-sanity-check-context-hunk-half)
- (diff-sanity-check-hunk): New functions.
- (diff-find-source-location): Use'em to check the hunks are well-formed.
-
- * hexl.el (hexlify-buffer, dehexlify-buffer): Don't complain and don't
- activate undo when undo is not active.
- Reported by Chris Moore <christopher.ian.moore@gmail.com>.
-
-2007-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * ffap.el (ffap-next-regexp, ffap-machine-p, ffap-newsgroup-regexp)
- (ffap-newsgroup-p, ffap-alist, ffap-string-at-point-mode-alist)
- (ffap-url-at-point): Use char-classes rather than "a-z".
-
-2007-01-10 Juanma Barranquero <lekktu@gmail.com>
-
- * ediff-init.el (ediff-autostore-merges):
- * textmodes/fill.el (fill-region): Doc fix.
-
-2007-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * server.el (server-ensure-safe-dir): UIDs may be floats.
-
-2007-01-10 Richard Stallman <rms@gnu.org>
-
- * battery.el (battery-linux-proc-acpi): Use ignore-errors
- around calls to directory-files.
-
- * subr.el (momentary-string-display): Use save-excursion.
-
- * emacs-lisp/pp.el (pp-eval-expression): Once again eval the
- argument, but read it as `X' does.
-
-2007-01-09 Juri Linkov <juri@jurta.org>
-
- * info.el (Info-fontify-node): Don't hide node names of index entries.
-
- * faces.el (momentary): Change :group to basic-faces where all
- basic faces belong to. Add :version.
-
-2007-01-09 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * tutorial.el (tutorial--display-changes): Show M-x sequence if no
- keybinding is found.
- (tutorial--find-changed-keys): Never treat null keybinding as a
- remapping.
-
-2007-01-09 Martin Rudalics <rudalics@gmx.at>
-
- * wdired.el (wdired-xcase-word): Skip non-word read-only characters.
-
-2007-01-09 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el
- (select-safe-coding-system-interactively): Fix message.
-
-2007-01-09 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-process-one-action): Remove `with-timeout'.
- (tramp-process-actions): Add optional parameter TIMEOUT.
- (tramp-open-connection-telnet, tramp-open-connection-rsh)
- (tramp-open-connection-su): Add timeout of 60".
-
-2007-01-09 Richard Stallman <rms@gnu.org>
-
- * progmodes/compile.el (compile): Doc fix.
-
-2007-01-09 Markus Triska <markus.triska@gmx.at>
-
- * tumme.el (tumme-display-thumb): Doc fix.
-
-2007-01-08 Juanma Barranquero <lekktu@gmail.com>
-
- * battery.el (battery-search-for-one-match-in-files):
- * bindings.el (mode-line-minor-mode-help):
- * x-dnd.el (x-dnd-types-alist):
- * calendar/icalendar.el (icalendar-import-buffer):
- * term/mac-win.el (mac-dnd-types-alist): Fix typo in docstring.
-
- * progmodes/vhdl-mode.el (vhdl-save-caches): Fix typo in error message.
-
-2007-01-07 Chris Moore <christopher.ian.moore@gmail.com>
-
- * replace.el (replace-regexp): Fix typo in docstring.
-
-2007-01-07 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-langs.el (c-operators, c-filter-ops):
- Amend doc-string and comments.
-
-2007-01-06 Eli Zaretskii <eliz@gnu.org>
-
- * files.el (abbreviate-file-name): Doc fix.
-
-2007-01-06 Markus Triska <triska@gmx.at>
-
- * subr.el (split-string): Remove spurious ")" from doc string.
-
-2007-01-05 Takaaki Ota <Takaaki.Ota@am.sony.com>
-
- * textmodes/table.el (table--warn-incompatibility):
- Use display-warning instead of momentary-string-display.
-
-2007-01-05 Richard Stallman <rms@gnu.org>
-
- * image.el (image-type-header-regexps): Recognize xbm more strictly.
-
- * simple.el (backward-kill-word): Doc fix.
-
-2007-01-05 Romain Francoise <romain@orebokech.com>
-
- * international/mule.el (sgml-html-meta-auto-coding-function):
- Ensure that the buffer contains a HTML document.
-
-2007-01-05 Dan Nicolaescu <dann@ics.uci.edu>
-
- * faces.el (momentary): Move here ...
- * subr.el (momentary): ... from here.
-
-2007-01-05 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-max-children): New customizable variable.
- (gdb-speedbar-expand-node): Ask user for confirmation before expanding
- large structures/arrays.
-
-2007-01-04 Juanma Barranquero <lekktu@gmail.com>
-
- * files.el (find-file-noselect-1, set-visited-file-name):
- Allow backup-enable-predicate to be nil.
-
-2007-01-04 Andreas Schwab <schwab@suse.de>
-
- * progmodes/ebrowse.el (ebrowse-global-prefix-key): Fix typo in
- last change.
-
-2007-01-03 Richard Stallman <rms@gnu.org>
-
- * woman.el (woman-decode-buffer): Clarify error message.
-
-2007-01-03 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-mask-paragraph): Fix yesterday's buggy patch.
-
-2007-01-03 Chris Moore <christopher.ian.moore@gmail.com>
-
- * tutorial.el (tutorial--describe-nonstandard-key): Fix typo.
-
-2007-01-03 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * iswitchb.el (iswitchb-global-map): Use command-remapping if available.
-
-2007-01-02 Juanma Barranquero <lekktu@gmail.com>
-
- * emulation/viper.el (viper-custom-file-name, viper-mode):
- Fix typos in docstrings.
-
- * subr.el (momentary-string-display): After moving point, set POS
- variable to it to avoid later errors once the buffer is modified.
- Doc fix.
-
-2007-01-02 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-cmds.el (c-mask-paragraph): In a block comment,
- check that the "*/" is present before trying to manipulate it.
-
-2007-01-02 Richard Stallman <rms@gnu.org>
-
- * wid-edit.el (widget-choose): Avoid ugly error for function keys.
-
- * progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords):
- Fix format of value.
-
- * cus-edit.el (customize-unsaved): Rename from customize-customized.
- Change messages accordingly.
- (customize-customized): Now alias.
-
-2007-01-02 Juanma Barranquero <lekktu@gmail.com>
-
- * files.el (version-control): Doc fix.
-
-2007-01-01 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-engine.el (c-guess-basic-syntax, case 5N):
- Check the format of c-state-cache is valid for an optimisation before
- using it.
-
- * progmodes/cc-engine.el (c-guess-basic-syntax): New case 5Q "we
- are at a statement within a macro". Other changes so that only
- the first continuation line in a macro gets the symbol
- `cpp-define-intro', the others getting `statement', or whatever.
-
- * progmodes/cc-cmds.el (c-context-line-break): When invoked within
- a string, preserve whitespace. Add a backslash only when also in
- a macro.
-
- * progmodes/cc-defs.el: Correct typos.
-
- * progmodes/cc-cmds.el (c-context-line-break): Don't indent the
- new line after an escaped EOL in a string.
-
- * progmodes/cc-engine.el (c-forward-label): Recognise "foo:" as a
- label when it directly follows "else", "do", ....
-
- * progmodes/cc-engine.el (c-backward-<>-arglist): Tolerate empty
- angle brackets (as seen in "explicit specialisations" of C++
- templates).
-
- * progmodes/cc-vars.el (c-indentation-style): Mention c-file-style
- in the doc-string.
-
- * progmodes/cc-cmds.el (c-mask-paragraph): Fix for C comments,
- when the comment ender looks like "=========*/" and is alone on
- its line.
-
- * progmodes/cc-langs.el, progmodes/cc-engine.el: Correct the
- spelling of c-opt-op-identiTier-prefix, t -> f. Leave an alias
- for the old name.
-
- * progmodes/cc-mode.el: Bind C-M-a and C-M-e to
- c-\(beginning\|end\)-of-defun by default.
-
- * progmodes/cc-align.el (c-lineup-gnu-DEFUN-intro-cont):
- New line-up function, for the DEFUN macro in the Emacs C sources.
- Only used in "gnu" style.
-
- * progmodes/cc-styles.el (c-style-alist): Use this new function in
- the "gnu" style.
-
- * progmodes/cc-cmds.el (c-electric-slash): Extend the handling of
- clean-up comment-close-slash also to work when there's a comment
- terminator on the line.
- (c-beginning-of-defun, c-end-of-defun): Refactor and optimise
- these for large arg - only take account of top level {..}, except
- for initial and final adjustments. M-- C-M-[ae] now go to the
- right defuns when the starting point is between defuns. They use
- the four new functions:
- (c-in-function-trailer-p, c-where-wrt-brace-construct)
- (c-backward-to-nth-BOF-{, c-forward-to-nth-EOF-}): New functions to
- support c-\(beginning\|end\)-of-defun.
-
- * progmodes/cc-engine.el (c-forward-label): Analyze ":"
- expressions more rigorously, to exclude bit-field specifiers from
- being classed as labels.
- (c-forward-label): When analyzing a ":" within a macro, be careful
- about using c-forward-syntactic-ws at the macro beginning.
- (c-beginning-of-decl-1): Whilst searching for "=" as evidence of a
- stmt boundary, check for "operator=", etc.
-
- * progmodes/cc-mode.el (c-postprocess-file-styles):
- Bind inhibit-read-only to t, around the call to
- c-remove-any-local-eval-or-mode-variables, so that it works on a
- RO file.
-
- * progmodes/cc-defs.el (c-version): Update the version number to
- "5.31.4".
-
-2007-01-01 Richard Stallman <rms@gnu.org>
-
- * isearch.el (isearch-done): Use FOUND-POINT or FOUND-START
- only if we restored isearch-window-configuration.
-
-2006-12-31 Romain Francoise <romain@orebokech.com>
-
- * net/tramp.el (tramp-default-method): Don't use `symbol-function'.
-
-2006-12-31 Kim F. Storm <storm@cua.dk>
-
- * files.el (auto-mode-case-fold): New defcustom.
- (set-auto-mode): If non-nil, perform second case-sensitive pass
- through auto-mode-alist if first pass failed.
-
-2006-12-30 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/easy-mmode.el (define-global-minor-mode): Doc fix.
-
-2006-12-30 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-encrypt-string): Handle symmetric-key
- passphrase caching but leave keypair caching to pgg.
-
-2006-12-30 Michael Albinus <michael.albinus@gmx.de>
-
- Sync with Tramp 2.0.55.
-
- * net/tramp.el (tramp-completion-mode): Use `wholenump' instead of
- `integerp'. `char-equal' could fail else in case of negative
- numbers. Reported by Toby Speight <T.M.Speight.90@cantab.net>.
- (top): Check for `font-lock-add-keywords' before calling; it
- doesn't exist under XEmacs.
- (tramp-yn-prompt-regexp): Fix regexp. Add question from plink.
- (tramp-completion-mode): Remove clause (not
- tramp-unified-filenames), because the function is called in other
- context too, where this check results in wrong results in the
- XEmacs case on Windows.
- (tramp-touch): UTC handling is not possible for XEmacs.
-
-2006-12-30 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * scroll-bar.el (previous-scroll-bar-mode): New variable
- (set-scroll-bar-mode): Set previous-scroll-bar-mode.
- (scroll-bar-mode): Use previous-scroll-bar-mode if set.
-
- * term/x-win.el: Set scroll bar mode to right if set by X resources.
-
-2006-12-30 Richard Stallman <rms@gnu.org>
-
- * files.el (make-backup-file-name-1): Precompute abs name
- but don't lose the relative name.
-
- * international/mule-cmds.el (select-safe-coding-system-interactively):
- Fix message.
-
-2006-12-30 Kevin Rodgers <kevin.d.rodgers@gmail.com> (tiny change)
-
- * files.el (backup-buffer): Show entire backup file name in msg.
-
-2006-12-30 Juanma Barranquero <lekktu@gmail.com>
-
- * image.el (image-type-header-regexps, image-type-from-data)
- (image-type-from-buffer, image-type-from-file-header):
- Revert changes from 2006-12-26.
- (image-type-auto-detectable): New variable.
- (image-type-auto-detected-p): New function.
-
- * files.el (magic-mode-alist): Detect image files with
- `image-type-auto-detected-p' instead of `image-type-from-buffer'.
-
-2006-12-29 Nick Roberts <nickrob@snap.net.nz>
-
- * dired.el (dired-sort-other): Move test for dired-mode...
- (dired-sort-set-modeline): ...to here.
-
-2006-12-29 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * textmodes/fill.el (fill-comment-paragraph): Document 2006-12-24
- change. Suggested by Stefan Monnier.
-
-2006-12-29 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/bindat.el (bindat--unpack-group, bindat--length-group)
- (bindat--pack-group): Let-bind COUNT during repeat block evaluation.
-
-2006-12-27 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/authors.el (authors-aliases): Anchor FSF alias regexp,
- so it doesn't accidentally match an fsf.org mail address.
- (authors-renamed-files-alist): Add tcover-*.el.
-
-2006-12-27 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-arch.el (vc-arch-find-version): New function.
-
- * vc-hooks.el (vc-version-backup-file-name): Revision names may be
- composed of arbitrary characters (even /) in some systems.
-
-2006-12-27 Eli Zaretskii <eliz@gnu.org>
-
- * international/mule-cmds.el (select-safe-coding-system-interactively):
- Improve the message in the *Warning* buffer.
-
-2006-12-27 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-set-matches-1): Fix last change. If default item is
- current buffer, it is ok to be first.
-
-2006-12-27 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el (select-safe-coding-system-interactively):
- Use face `link' for problematic chars.
-
-2006-12-27 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el (select-safe-coding-system-interactively):
- Improve the message in *Warning* buffer.
-
-2006-12-27 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-set-matches-1): Never put current buffer first if
- there are other matches.
-
-2006-12-26 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gud-watch): Allow duplicate names for watch
- expressions.
- (gdb-var-delete): Handle duplicate names. Print message for non
- root expressions.
- (gdb-partial-output-name): Start buffer name with a space.
- (gdb-info-breakpoints-custom, gdb-reset): Handle space in above
- buffer name.
-
-2006-12-26 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * mail/footnote.el (Footnote-insert-footnote): Fix the search of the
- last footnote when `footnote-spaced-footnotes' is nil.
-
-2006-12-26 Richard Stallman <rms@gnu.org>
-
- * cus-edit.el (custom-browse-sort-alphabetically)
- (custom-buffer-sort-alphabetically)
- (custom-menu-sort-alphabetically): Doc fixes. Add autoloads.
-
- * image.el (image-type-header-regexps): Change element format
- to include third item NOT-ALWAYS.
- (image-type-from-data): Handle new format.
- (image-type-from-buffer): Handle new format. New arg INCLUDE-MAYBES.
- (image-type-from-file-header): Pass t for INCLUDE-MAYBES.
-
-2006-12-26 Guanpeng Xu <herberteuler@hotmail.com>
-
- * add-log.el (add-log-current-defun): Call `forward-sexp'
- multiple times to pick a member function name defined as
- part of nested classes/namespaces.
-
-2006-12-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * emacs-lisp/easymenu.el (easy-menu-change): New arg MAP to indicate
- which keymap should be used to change menu. It does not affect any
- existent code.
-
-2006-12-26 Richard Stallman <rms@gnu.org>
-
- * textmodes/fill.el (fill-paragraph): Check for a minibuffer
- rather than for being in a minibuffer window.
-
-2006-12-25 Daiki Ueno <ueno@unixuser.org>
-
- * pgg-def.el (pgg-passphrase-coding-system): Default to nil instead of
- locale-coding-system.
- * pgg-gpg.el (pgg-gpg-process-region): Encode passphrase with eol-type
- LF.
-
-2006-12-25 Michael R. Mauger <mmaug@yahoo.com>
-
- * progmodes/sql.el (sql-mode-abbrev-table): Correct initialization.
- (sql-mode-syntax-table): Disable double quoted strings.
- (sql-mode-font-lock-object-name): Add TYPE and TYPE BODY.
-
-2006-12-25 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * startup.el (fancy-splash-last-input-event): New variable.
- (fancy-splash-special-event-action): New function.
- (fancy-splash-screens): Temporarily bind special events to it.
- Execute command for saved special event before exiting from
- recursive editing.
-
- * term/mac-win.el (mac-keyboard-translate-char, mac-unread-string):
- New functions.
- (mac-ts-update-active-input-area, mac-ts-unicode-for-key-event):
- Use mac-unread-string.
-
-2006-12-24 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * textmodes/fill.el (fill-comment-paragraph): Prevent the use of
- an optimized comment regexp if `comment-start-skip' uses a ^.
- * bs.el (bs--up): Remove interactive spec.
-
-2006-12-24 Chong Yidong <cyd@stupidchicken.com>
-
- * woman.el (woman-decode-buffer): Signal error for alien macro sets.
- Suggested by James Cloos.
-
-2006-12-24 Kevin Ryde <user42@zip.com.au>
-
- * calendar/cal-dst.el (calendar-dst-starts): Default to second Sunday
- in March.
- (calendar-dst-ends): Default to first Sunday in November.
-
-2006-12-24 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-encrypt-string): Inhibit use of agent within
- body of let form where encryption happens. Acknowledge non-use of
- gpg-agent in docstring.
- (allout-toggle-subtree-encryption): Acknowledge non-use of
- gpg-agent in docstring.
-
-2006-12-24 Chong Yidong <cyd@stupidchicken.com>
-
- * custom.el (custom-add-frequent-value): Alias for custom-add-option.
-
-2006-12-23 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * ediff-diff.el (ediff-diff-options): Clarify docstring.
- (ediff-setup-diff-regions): Disallow -u in ediff-diff-options.
-
- * emulation/viper-cmd.el (viper-post-command-sentinel):
- Protect against errors in hooks.
- (viper-add-newline-at-eob-if-necessary): Add newline only if we
- actually modify buffer; ignore errors if occur.
-
-2006-12-23 Chong Yidong <cyd@stupidchicken.com>
-
- * calendar/calendar.el (calendar-mode-map): Switch < and >.
- (calendar-mode-line-format): Use mouse-1 bindings, and tweak
- formatting.
-
-2006-12-23 Richard Stallman <rms@gnu.org>
-
- * simple.el (delete-horizontal-space): Doc fix.
-
-2006-12-23 Eli Zaretskii <eliz@gnu.org>
-
- * makefile.w32-in (bootstrap-clean): Run bootstrap-clean-$(SHELLTYPE)
- explicitly in a recursive Make, not implicitly through prerequisites,
- since the latter is wrong under parallel builds.
-
-2006-12-22 Eli Zaretskii <eliz@gnu.org>
-
- * w32-fns.el (convert-standard-filename): Wrap in save-match-data.
-
-2006-12-22 Kevin Rodgers <kevin.d.rodgers@gmail.com> (tiny change)
-
- * progmodes/sh-script.el (sh-make-vars-local): Fix a typo in
- message string.
-
-2006-12-22 Ben North <ben@redfrontdoor.org> (tiny change)
-
- * outline.el (outline-next-visible-heading): Fix the case with a
- header at end-of-file with no final newline.
-
-2006-12-22 Robert Thorpe <rthorpe@realworldtech.com> (tiny change)
-
- * indent.el (tab-always-indent): Doc fix.
-
-2006-12-22 Chong Yidong <cyd@stupidchicken.com>
-
- * info.el (Info-fontify-maximum-menu-size): Bump to 1000000.
- (Info-fontify-node): Do fontify indices.
-
- * tutorial.el (tutorial--detailed-help): Remove unnecessary link
- to the Emacs Lisp reference manual.
- (tutorial--tab-map): Remove. All callers changed.
- (tutorial--find-changed-keys): New elt QUIET, used to...
- (tutorial--display-changes): ...ensure that warning messages are
- only issued once per changed key.
- (tutorial--remove-remarks): Delete unused code-path.
- (lang-strings): Remove extraneous formatting.
- (tutorial--save-tutorial): Prompt before saving tutorial state.
-
-2006-12-21 Chong Yidong <cyd@stupidchicken.com>
-
- * tutorial.el: Remove `cl' requirement. Clean up whitespace.
- Replace '?\ ' by '?\s' throughout.
- (tutorial-warning-face): Inherit font-lock-warning-face. Move to
- `help' custom group.
- (tutorial--key-description): New function.
- (tutorial--display-changes): Remove redundant arg. Scan for all
- key sequences to avoid false matches. Cleanup.
- (tutorial--saved-dir): Save to a subdirectory in .emacs.d to
- reduce homedir pollution.
- (help-with-tutorial): Call tutorial--display-changes with no arg.
-
-2006-12-21 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-mode-map): Bind org-complete also to M-\t.
-
-2006-12-20 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-default-method): We still need to check for
- `executable-find', because it is not bound under Emacs 20.
- (tramp-handle-file-name-completion)
- (tramp-completion-handle-file-name-completion): Handle optional
- parameter PREDICATE.
- (tramp-find-default-method): Add code for default values.
-
-2006-12-20 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-stopped): After attaching to a process
- make gud-go send "continue".
-
-2006-12-19 Juanma Barranquero <lekktu@gmail.com>
-
- * image.el (image-type-header-regexps): Be more specific detecting `pbm'
- and `png' files. Use non-capturing parenthesis for `tiff' regexp.
-
-2006-12-19 Kim F. Storm <storm@cua.dk>
-
- * bindings.el: Bind sigusr1 and sigusr2 in special-event-map
- instead of global-map.
-
- * files.el (magic-mode-alist): Allow matching file type by
- calling a function at bob. Check for image types by calling
- image-type-from-buffer. Suggested by Juanma Barranquero.
- (set-auto-mode): Do it.
-
-2006-12-19 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-methods): Introduce new method `scpc'.
- Remove "ControlMaster" option from the other `scp*' methods.
- (tramp-default-method): Check for ssh-agent before setting to `scp'.
-
-2006-12-18 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-mode): Show context after isearch.
- (org-show-siblings): New function.
- (org-show-context): Use `org-show-siblings'.
-
-2006-12-18 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/syntax.el (syntax-ppss-flush-cache, syntax-ppss):
- Use syntax-ppss-toplevel-pos.
-
-2006-12-18 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-current-line): Make sure that lines are
- counted from beginning of buffer.
- (org-table-copy-region, org-table-paste-rectangle): Make sure that
- lines are counted from beginning of buffer.
-
-2006-12-17 Chong Yidong <cyd@stupidchicken.com>
-
- * info.el (Info-build-node-completions): Signal error if tag-table
- marker is not found.
-
- * pgg-gpg.el (pgg-gpg-use-agent): Default to t.
-
-2006-12-17 Alan Mackenzie <acm@muc.de>
-
- * emacs-lisp/lisp.el (beginning-of-defun-raw): Optimise (for
- speed) the case when open-paren-in-column-0-is-defun-start is nil.
- Based on code by Martin Rudalics.
-
- * progmodes/cc-mode.el (c-basic-common-init): Don't set
- open-paren-in-column-0-is-defun-start to nil any more.
-
-2006-12-17 Richard Stallman <rms@gnu.org>
-
- * simple.el (delete-horizontal-space): Use prefix arg.
-
- * help-fns.el (describe-variable): Improve blank separator lines.
-
- * files.el (magic-mode-alist): Mark as risky.
-
- * files.el (make-backup-file-name-1):
- Expand backup-directory explicitly.
-
-2006-12-17 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-default-method): Before setting to "pscp",
- check whether package password.el is loaded, or Pageant is running.
-
-2006-12-17 Ulf Jasper <ulf.jasper@web.de>
-
- * calendar/icalendar.el (icalendar-version): Increase to "0.14".
- (icalendar--rris): First try Emacs, then XEmacs.
- (icalendar--convert-ical-to-diary): Doc fix.
- Insert newline at end of target file.
-
-2006-12-17 Kim F. Storm <storm@cua.dk>
-
- * outline.el (outline-isearch-open-invisible-function): New defvar.
- (outline-flag-region): Use it if non-nil for isearch-open-invisible
- overlay property instead of outline-isearch-open-invisible.
-
-2006-12-16 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-completion-help): Build ido-cur-list and ido-matches
- if ido-directory-too-big is set on entry.
- (ido-toggle-ignore, ido-completion-help): Print message while
- reading big directory.
-
-2006-12-15 Richard Stallman <rms@gnu.org>
-
- * shell.el (shell): Doc fix.
-
-2006-12-15 Kevin Gallagher <Kevin.Gallagher@boeing.com>
-
- * emulation/edt.el (edt-xserver):
- * emulation/edt-mapper.el (edt-xserver): Replace `/' with a `-',
- to fix a problem on Cygwin.
-
- * emulation/edt.el
- * emulation/edt-mapper.el
- * emulation/edt-lk201.el
- * emulation/edt-pc.el
- * emulation/edt-vt100.el: Update maintainer's email address.
-
-2006-12-15 Simon Marshall <simon@gnu.org>
-
- * progmodes/cc-fonts.el (c-font-lock-declarations): Fix previous change.
-
-2006-12-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-atsu-font-table): Remove defvar.
- (mac-handle-font-selection): Use mac-atsu-font-face-attributes
- instead of mac-atsu-font-table.
- (fontset-default): Specify argument MAXIMUM in x-list-fonts calls.
-
-2006-12-14 Stephen Leake <stephen_leake@member.fsf.org>
-
- * align.el (align-match-tex-pattern): Fix a rare bug which
- hanged Emacs.
-
-2006-12-14 Richard Stallman <rms@gnu.org>
-
- * startup.el (use-fancy-splash-screens-p): Use frame-height
- instead of window-height. Pass frame to image-size.
-
-2006-12-13 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el (set-locale-environment):
- Set default-sendmail-coding-system too.
-
-2006-12-12 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlw-help.el: Fix copyright notice.
-
-2006-12-12 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/syntax.el (syntax-ppss-toplevel-pos): New fun.
-
-2006-12-11 Juanma Barranquero <lekktu@gmail.com>
-
- * subr.el (unread-command-char): Reformat obsolescence info.
-
-2006-12-11 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/cl-macs.el (defstruct): Suppress warnings
- about calls to cl-struct-setf-expander.
-
-2006-12-11 Juanma Barranquero <lekktu@gmail.com>
-
- * ediff-merg.el (ediff-show-clashes-only): Doc fix.
- (ediff-combination-pattern): Fix typo in docstring.
-
- * textmodes/refer.el (refer-find-entry): Doc fix.
- (refer-bib-files-regexp, refer-bib-directory, refer-bib-files)
- (refer-cache-bib-files, refer-find-next-entry, refer-yank-key):
- Fix tipos in docstrings.
-
- * progmodes/idlwave.el (idlwave-library-path): Fix typos in docstring.
-
-2006-12-10 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-init-completion-maps): Remap backward-kill-word
- instead of binding M-backspace.
-
-2006-12-10 Juanma Barranquero <lekktu@gmail.com>
-
- * replace.el (replace-match-data, replace-match-maybe-edit):
- * calc/calc-aent.el (calc-eval-error):
- * emulation/vi.el (vi-char-argument):
- * progmodes/cc-langs.el (c-at-vsemi-p-fn)
- (c-vsemi-status-unknown-p-fn): Doc fixes.
-
-2006-12-10 Chong Yidong <cyd@stupidchicken.com>
-
- * menu-bar.el (menu-bar-showhide-menu, menu-bar-tools-menu)
- (menu-bar-help-menu): Tooltip fixes. Suggested by Francis Wright.
-
-2006-12-10 Masatake YAMATO <jet@gyve.org>
-
- * progmodes/ld-script.el (ld-script-keywords): Fix a typo.
-
-2006-12-09 Chong Yidong <cyd@stupidchicken.com>
-
- * mouse-sel.el (mouse-sel-mode): Register mouse-2 as a click type.
-
- * man.el (Man-xref-button-action): New function. If the
- `Man-target-string' button property is a function, assume it
- accepts a position argument.
- (Man-abstract-xref-man-page): Use it.
- (Man-default-man-entry): New optional arg POS.
-
- * wdired.el (wdired-preprocess-symlinks): Make the spaces after
- symlink arrows read-only and non-rear-sticky.
-
-2006-12-09 Martin Rudalics <rudalics@gmx.at>
-
- * wdired.el (wdired-change-to-wdired-mode, wdired-finish-edit)
- (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
- properties on character preceding name and replace
- put-text-property by add-text-properties.
- (wdired-get-filename, wdired-get-previous-link): Get old-name
- and old-link properties from character preceding name and
- simplify code.
- (wdired-preprocess-perms, wdired-set-bit, wdired-toggle-bit)
- (wdired-perms-to-number): Make local-map property
- rear-nonsticky to avoid that text following permissions may be
- modified. Use add-text-properties instead of put-text-property
- when changing a permission bit.
- (wdired-change-to-dired-mode): Remove stickiness properties.
-
-2006-12-09 Juanma Barranquero <lekktu@gmail.com>
-
- * international/mule-cmds.el (register-input-method): Doc fix.
-
-2006-12-09 Masayuki Ataka <masayuki.ataka@gmail.com> (tiny change)
-
- * cmuscheme.el (scheme-start-file): Use `let*', not `let'.
-
-2006-12-09 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * textmodes/flyspell.el (flyspell-hack-local-variables-hook): New.
- Force buffer local defs evaluation on local variables loading.
- (flyspell-mode-on, flyspell-mode-off): Use it in
- `hack-local-variables-hook'.
-
-2006-12-09 Eli Zaretskii <eliz@gnu.org>
-
- * emacs-lisp/find-func.el (find-variable): Doc fix.
-
- * help-fns.el (variable-at-point): Doc fix.
-
- * w32-fns.el (w32-append-code-lines): New function.
-
-2006-12-09 Romain Francoise <romain@orebokech.com>
-
- * comint.el (comint-insert-input): Delete obsolete comment.
-
-2006-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * net/browse-url.el (browse-url): Set DISPLAY to the one of the
- current frame, in case we're connected to several displays.
-
-2006-12-08 Juanma Barranquero <lekktu@gmail.com>
-
- * frame.el (other-frame): Doc fix.
- (set-frame-parameter): Fix typo in docstring.
-
-2006-12-07 Kim F. Storm <storm@cua.dk>
-
- * info.el (Info-index): Strip leading colon from topic.
-
-2006-12-07 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gud-speedbar-buttons): Deal with references
- to pointers.
-
-2006-12-05 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlwave.el (idlwave-xml-create-class-method-lists):
- Trim out spurious class inheritance "None" entries.
-
-2006-12-05 Kim F. Storm <storm@cua.dk>
-
- * emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix.
- (cua-paste-pop): Rework last change for
- cua-paste-pop-rotate-temporarily, so first M-y and C-y works alike,
- pasting the head of the kill-ring, and prefix arg C-u M-y inserts the
- text inserted by the last M-y command.
-
-2006-12-05 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * cmuscheme.el (run-scheme, scheme-start-file): Search the start
- file in ~/.emacs.d as `init_SCHEMENAME.scm' instead.
-
- * shell.el (shell): Search the start file in ~/.emacs.d as
- `init_SHELLNAME.sh' instead.
-
-2006-12-05 Glenn Morris <rgm@gnu.org>
-
- * progmodes/cperl-mode.el (cperl-mode)
- * progmodes/f90.el (f90-mode-abbrev-table)
- * progmodes/fortran.el (fortran-mode-abbrev-table)
- * progmodes/octave-mod.el (octave-abbrev-table)
- * progmodes/sql.el (sql-mode-abbrev-table): Define abbrevs even
- if abbrev-table is non-nil (saved user abbrevs may have been restored).
-
- * progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init): Do not
- clear abbrev table, else saved abbrevs will not be restored.
-
-2006-12-04 Juanma Barranquero <lekktu@gmail.com>
-
- * facemenu.el (facemenu-unlisted-faces): Put obsolescence info in
- the call to `make-obsolete-variable', not in the docstring.
-
-2006-12-04 Chong Yidong <cyd@stupidchicken.com>
-
- * facemenu.el (facemenu-unlisted-faces): Define as obsolete variable.
-
-2006-12-04 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * progmodes/ebnf-abn.el:
- * progmodes/ebnf-bnf.el:
- * progmodes/ebnf-dtd.el:
- * progmodes/ebnf-ebx.el:
- * progmodes/ebnf-iso.el:
- * progmodes/ebnf-otz.el:
- * progmodes/ebnf-yac.el:
- * progmodes/ebnf2ps.el:
- * delim-col.el:
- * printing.el:
- * ps-bdf.el:
- * ps-mule.el:
- * ps-print.el: Remove 'Time-stamp' comment mark.
-
- * printing.el (pr-menu-bind): Replace 'easy-menu-change' by
- 'easy-menu-add-item' when called in Emacs 21 or higher.
-
-2006-12-04 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-xref.el (ada-check-current): Doc fix.
- (ada-make-body-gnatstub): Doc fix. Remove redundant `progn'.
-
-2006-12-04 Kim F. Storm <storm@cua.dk>
-
- * bindings.el (global-map): Bind [signal t] to ignore, to have
- user signals ignored by default.
-
-2006-12-04 Juanma Barranquero <lekktu@gmail.com>
-
- * descr-text.el (describe-char-unicode-data): Use a hidden buffer for
- Unicode data file pointed to by `describe-char-unicodedata-file'.
-
-2006-12-04 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/sgml-mode.el (sgml-font-lock-keywords-1): Fix pathological
- O(n^2) regexp-search by anchoring the search.
-
-2006-12-04 Dan Nicolaescu <dann@ics.uci.edu>
-
- * whitespace.el (whitespace-cleanup-internal): Use current
- argument for recursive call.
-
-2006-12-04 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-methods): Add "ControlPath" and
- "ControlMaster" to scp, scp1 and scp2 methods. Suggested by
- Andreas Schwab <schwab@suse.de>.
- (tramp-do-copy-or-rename-file-out-of-band)
- (tramp-open-connection-rsh): Compute format spec for ?t.
- (tramp-process-actions): Trace command parameters.
-
-2006-12-04 Nick Roberts <nickrob@snap.net.nz>
-
- * simple.el (toggle-truncate-lines): Clarify doc string.
-
- * progmodes/gdb-ui.el (gdb-var-delete-children): New function.
- (gdb-speedbar-expand-node): Use it.
-
-2006-12-04 Richard Stallman <rms@gnu.org>
-
- * progmodes/python.el (python-indent): Add safe-local-variable prop.
-
- * dired.el (dired-revert): Turn off dired-after-readin-hook
- around call to dired-readin.
-
- * menu-bar.el (menu-bar-make-toggle): Add "globally"
- to echo area messages.
- <indicate-empty-lines, case-fold-search>:
- Add "globally" to Help string.
- <case-fold-search>: MESSAGE arg need not say "globally".
- (menu-bar-edit-menu <paste-from-menu>): Rename from select-and-paste.
-
-2006-12-03 Liam Healy <lnp@healy.washington.dc.us> (tiny change)
-
- * outline.el (outline-end-of-subtree): Don't leave an empty
- line hidden as we would a real next heading.
-
-2006-12-03 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-ascend): Add an optional argument to preserve
- original position of point when unsuccessful. Also, fix a
- docstring error.
- (allout-yank-processing): Fix depth shift of multiple-topic so yanks
- work again, using allout-ascend's new option.
- (allout-setup-mode-map): Extract from allout-mode to initialize
- 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
- 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)
- (allout-encrypt-unencrypted-on-saves, allout-inhibit-auto-fill)
- (allout-version, allout-layout, allout-infer-body-reindent)
- (allout-infer-header-lead-and-primary-bullet, allout-view-change-hook)
- (allout-init, allout-mode, allout-next-heading, allout-chart-subtree)
- (allout-previous-heading, allout-goto-prefix-doublechecked)
- (allout-current-bullet-pos, allout-next-sibling-leap)
- (allout-pre-command-business, allout-encrypted-type-prefix)
- (allout-make-topic-prefix, allout-open-topic, allout-rebullet-heading)
- (allout-rebullet-topic, allout-rebullet-topic-grunt)
- (allout-flag-region, allout-expose-topic, allout-expose-topic)
- (allout-old-expose-topic, allout-listify-exposed)
- (allout-process-exposed, allout-latex-verb-quote)
- (allout-latex-verbatim-quote-curr-line, allout-adjust-file-variable)
- (allout-toggle-current-subtree-encryption)
- (allout-toggle-subtree-encryption, allout-bullet-isearch):
- Remove extraneous open-paren and close paren string escapes.
-
-2006-12-03 Juanma Barranquero <lekktu@gmail.com>
-
- * progmodes/ada-xref.el (is-windows, ada-find-in-src-path): Doc fixes.
- (ada-xref-pos-ring-max, ada-xref-project-files, ada-xref-initialize)
- (ada-prj-default-comp-cmd, ada-quote-cmd, ada-compile-current):
- Fix typos in docstrings.
-
-2006-12-03 Glenn Morris <rgm@gnu.org>
-
- * progmodes/cc-align.el
- * progmodes/cc-awk.el
- * progmodes/cc-cmds.el
- * progmodes/cc-compat.el
- * progmodes/cc-defs.el
- * progmodes/cc-engine.el
- * progmodes/cc-langs.el
- * progmodes/cc-menus.el
- * progmodes/cc-mode.el
- * progmodes/cc-styles.el
- * progmodes/cc-vars.el
- * progmodes/vhdl-mode.el: Fix Copyright format.
-
-2006-12-02 Chong Yidong <cyd@stupidchicken.com>
-
- * mouse.el (mouse-drag-track): Suppress automatic hscrolling for
- initial down event.
-
-2006-12-02 Kim F. Storm <storm@cua.dk>
-
- * emulation/cua-base.el (cua-toggle-set-mark): Doc fix.
- (cua-repeat-replace-region): Make M-v more robust.
- (cua-paste-pop-rotate-temporarily): New defcustom.
- (cua-paste-pop): Use it.
- (cua-auto-mark-last-change): New defcustom.
- (cua-pop-to-last-change): New helper function.
- (cua-set-mark): Use them.
-
-2006-12-01 Nick Roberts <nickrob@snap.net.nz>
-
- * menu-bar.el (toggle-case-fold-search): Clarify doc/help string and
- mini-buffer message.
-
-2006-12-01 Juanma Barranquero <lekktu@gmail.com>
-
- * descr-text.el (describe-char-unicodedata-file): Fix typo in docstring.
-
-2006-12-01 Ben North <ben@redfrontdoor.org>
-
- * paren.el: Fix the highlight overlay extension when the user types a
- sequence of char very fast just before the open parenthesis.
-
-2006-12-01 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-mule.el: Eliminate Emacs 20 compatibility.
-
- * ps-print.el: Eliminate Emacs 20 & 21 compatibility.
- (ps-print-version): New version 6.7.
- (ps-print-quote): Replace '?\ ' by '?\s'.
-
-2006-11-30 Juanma Barranquero <lekktu@gmail.com>
-
- * hexl.el (hexl-goto-address, hexl-forward-char, hexl-forward-short)
- (hexl-forward-word, hexl-previous-line, hexl-beginning-of-1k-page)
- (hexl-end-of-1k-page): Doc fixes.
- (hexl-address-region, hexl-ascii-region, hexl-highlight-line-range):
- Fix typos in docstrings.
-
-2006-11-30 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * ido.el (ido-local-file-exists-p): New. Tell if a file exists
- locally, i.e. without using file name handlers.
- (ido-read-internal): Allow mono letter host names, avoiding the
- `c:' problem by testing if the file exists locally.
- (ido-complete, ido-make-file-list, ido-exhibit): Ditto.
-
-2006-11-30 Masatake YAMATO <jet@gyve.org>
-
- * hexl.el (hl-line-range-function, hl-line-face): Declare variables
- to avoid bytecomp warnings.
- (hexl-mode-old-ruler-function): New variable.
- (hexl-follow-line): Bind `hexl-mode-old-hl-line-range-function'
- and `hl-line-range-function' after `require' hl-line.
- Then bind `hl-line-range-function' and `hl-line-face'.
- Don't require frame. Don't use `with-no-warnings'.
- (hexl-activate-ruler): Store the original value of
- `ruler-mode-ruler-function' to `hexl-mode-old-ruler-function'.
- (hexl-mode-exit): Restore the original value of
- `ruler-mode-ruler-function'.
-
-2006-11-30 Alin C. Soare <alinsoar@voila.fr> (tiny change)
-
- * hexl.el (hexl-mode-old-hl-line-range-function): New variable.
- (hexl-mode-old-hl-line-face): New variable.
- (hexl-mode, hexl-mode-exit): Fix the highlighting of the current
- line when exit from the hexl-mode.
-
-2006-11-30 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/bytecomp.el (byte-optimize, byte-compile-warnings):
- Doc fixes.
-
- * international/fontset.el (create-fontset-from-ascii-font)
- (create-fontset-from-fontset-spec, x-compose-font-name): Doc fixes.
- (fontset-name-p): Fix typo in docstring.
-
- * progmodes/cc-cmds.el (c-indent-exp): Fix typo in docstring.
-
-2006-11-30 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * ps-bdf.el: Fix maintainer email.
-
- * ps-mule.el: Fix maintainer email. Define functions for Emacs 20
- compatibility.
-
- * ps-print.el: Fix maintainer email. Define functions for Emacs 20 &
- 21 compatibility.
- (ps-print-quote): Replace '?\s' by '?\ ' to keep compatibility with
- Emacs 20 & 21.
-
-2006-11-29 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlwave.el (idlwave-auto-fill):
- Remove paragraph-start let to prevent auto-fill giving up.
-
-2006-11-28 Juanma Barranquero <lekktu@gmail.com>
-
- * vt100-led.el (led-state): Fix typo in previous change.
-
-2006-11-27 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
-
- * emacs-lisp/easy-mmode.el (easy-mmode-define-navigation):
- Fix interactive spec of the functions getting defined to make them
- work as documented.
-
-2006-11-28 Chong Yidong <cyd@stupidchicken.com>
-
- * startup.el (fancy-splash-screens): Hide initial splash buffer.
-
-2006-11-28 Kim F. Storm <storm@cua.dk>
-
- * icomplete.el (icomplete-tidy, icomplete-exhibit): Check that
- icomplete-mode is enabled.
-
-2006-11-28 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (require): Require gnus-sum during compilation
- to avoid problem with a macro call.
-
-2006-11-28 Glenn Morris <rgm@gnu.org>
-
- * emacs-lisp/authors.el (authors-aliases): Add new alias.
-
- * progmodes/fortran.el (fortran-font-lock-keywords-4): Add `min'.
- (fortran-window-create-momentarily): Do not need string-to-char.
-
-2006-11-28 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/bytecomp.el (byte-compile-get-constant):
- Replace incorrect use of assoc-default with a loop.
-
- * term.el (term-exec-1): Set envvar INSIDE_EMACS.
-
- * simple.el (next-error-find-buffer): Improve messages.
-
- * files.el (revert-buffer): Special error message if file
- is now not readable.
-
- * facemenu.el (facemenu-add-new-face): Improve doc strings of
- constructed commands.
-
- * comint.el (comint-exec-1): Provide Emacs version and `comint'
- in INSIDE_EMACS.
-
-2006-11-27 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-mode-map): Add a binding for unified->context.
-
- * server.el: Remove spurious * in docstrings.
- (server-process-filter): Exit from recursive editing before processing
- a new request.
-
-2006-11-27 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/hideshow.el (hs-already-hidden-p): Move to end of
- line so hidden blocks will be correctly identified.
-
-2006-11-27 Juanma Barranquero <lekktu@gmail.com>
-
- * ledit.el (ledit-save-defun, ledit-mode):
- * resume.el (resume-emacs-args-buffer):
- * rot13.el (rot13-display-table, rot13-translate-table, rot13)
- (rot13-string, rot13-region, rot13-other-window, toggle-rot13-mode):
- * vmsproc.el (subprocess-input, start-subprocess, subprocess-command)
- (command-send-input, command-kill-line):
- * vt100-led.el (led-state, led-on): Fix typos in docstrings.
-
- * autoarg.el (autoarg-kp-mode): Doc fix.
-
- * emacs-lock.el (toggle-emacs-lock): Doc fix. Simplify.
- (emacs-lock-check-buffer-lock): Doc fix. Use `when'.
- (check-emacs-lock): Doc fix. Simplify.
-
- * iimage.el (iimage-mode-image-regex-alist): Doc fix.
- (iimage-mode-buffer): Fix typos in docstring.
-
- * misc.el (zap-up-to-char): Doc fix.
-
- * time-stamp.el: Fix comment and obsolescence string for old
- functions. Use `dolist' instead of `while'.
-
- * userlock.el (ask-user-about-lock-help): Fix typos in output message.
-
- * disp-table.el (standard-display-8bit, standard-display-default):
- * ebuff-menu.el (electric-buffer-list):
- * ehelp.el (electric-help-command-loop):
- * font-core.el (font-lock-mode):
- * help-macro.el (make-help-screen):
- * help.el (describe-minor-mode-completion-table-for-indicator)
- (lookup-minor-mode-from-indicator):
- * indent.el (tab-to-tab-stop, move-to-tab-stop):
- * info-look.el (info-lookup-guess-custom-symbol):
- * locate.el (locate-main-listing-line-p, locate-mode, locate-do-setup):
- * longlines.el (longlines-wrap-line):
- * macros.el (insert-kbd-macro):
- * menu-bar.el (menu-bar-update-buffers):
- * misc.el (copy-from-above-command):
- * mouse.el (mouse-popup-menubar, mouse-buffer-menu-alist):
- * newcomment.el (comment-indent):
- * novice.el (disabled-command-function):
- * sort.el (sort-fields-syntax-table):
- * subr.el (momentary-string-display):
- * tar-mode.el (tar-header-block-summarize)
- (tar-clear-modification-flags):
- * terminal.el (terminal-cease-edit, te-more-break-unwind, te-newline)
- (te-clear-rest-of-line, te-clear-rest-of-screen, te-clear-screen)
- (te-insert-lines, te-delete-lines, te-delete, te-insert-spaces)
- (te-delete-char, te-down-vertically-or-scroll):
- * time-stamp.el (time-stamp-string-preprocess):
- * tmm.el (tmm-add-one-shortcut): "?\ " -> "?\s".
-
-2006-11-26 Nick Roberts <nickrob@snap.net.nz>
-
- * speedbar.el (speedbar-timer-fn): Revert to old behaviour when not
- in GUD mode.
-
- * progmodes/gud.el (gud-install-speedbar-variables): Remove bindings:
- speedbar-expand-line-descendants, speedbar-contract-line-descendants.
-
-2006-11-26 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * progmodes/cc-vars.el (c-backslash-column): Add . at end of sentence.
-
-2006-11-26 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-mode.el (ada-which-compiler): Fix typo in docstring.
- (ada-compile-goto-error): Adapt to new argument profile of
- compilation-goto-locus in Emacs 22. Don't check if the various
- compile functions are defined; we already do "(require 'compile)".
-
-2006-11-26 Kim F. Storm <storm@cua.dk>
-
- * kmacro.el: Fix commentary.
-
-2006-11-26 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gud.el (gdb): Explain how to run in text command mode
- more clearly. Say in error message that multiple debugging
- requires restarting GDB.
-
-2006-11-25 Juanma Barranquero <lekktu@gmail.com>
-
- * international/fontset.el (create-fontset-from-fontset-spec): Doc fix.
-
-2006-11-25 Pavel Kobiakov <pk_at_work@yahoo.com>
-
- * progmodes/flymake.el (flymake-posn-at-point-as-event): New function.
- (flymake-popup-menu): Use it instead of posn-at-point.
-
-2006-11-25 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * progmodes/cc-vars.el (c-backslash-column):
- Mention c-backslash-max-column in documentation for c-backslash-column.
-
-2006-11-24 Lars Hansen <larsh@soem.dk>
-
- * net/tramp.el (tramp-default-method): Under Windows, change from
- plink to pscp.
- (tramp-copy-failed-regexp, tramp-action-copy-failed): Add.
- (tramp-actions-copy-out-of-band):
- Add pair (tramp-copy-failed-regexp tramp-action-copy-failed).
- (tramp-action-out-of-band): Move "Permission denied" handling to
- tramp-action-copy-failed.
- (tramp-do-copy-or-rename-file-out-of-band): unwind-protect killing of
- process buffer.
-
-2006-11-24 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pgg-pgp.el (pgg-pgp-process-region): Change `args' from a list of
- strings to a single string. Quote `errors-file-name'.
- (pgg-pgp-encrypt-region, pgg-pgp-decrypt-region, pgg-pgp-sign-region)
- (pgg-pgp-verify-region, pgg-pgp-insert-key, pgg-pgp-snarf-keys-region):
- Adjust calls. Use `shell-quote-argument'.
-
- * international/mule.el (load-with-code-conversion)
- (with-category-table): Use with-current-buffer.
- (after-insert-file-set-coding): Use restore-buffer-modified-p.
-
-2006-11-24 Eli Zaretskii <eliz@gnu.org>
-
- * mail/smtpmail.el (smtpmail-send-it):
- Copy buffer-file-coding-system from the mail buffer. Possibly add a
- MIME header for the message encoding.
- Bind coding-system-for-write around the call to mail-do-fcc.
- Use smtpmail-code-conv-from to encode queued mail messages.
-
-2006-11-24 Juanma Barranquero <lekktu@gmail.com>
-
- * tabify.el (tabify-regexp): Doc fix.
-
- * net/rcirc.el (rcirc-buffer-maximum-lines):
- * progmodes/gud.el (jdb): Fix space/tab mixup in docstrings.
-
- * play/gomoku.el (gomoku-terminate-game, gomoku-human-takes-back)
- (gomoku-prompt-for-move, gomoku-human-plays, gomoku-offer-a-draw):
- Fix typos in output messages.
- (gomoku-vector-length, gomoku-init-board): Fix typos in docstrings.
-
-2006-11-23 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * hexl.el (hexl-mode): Don't try to guess the max-address: get it from
- the horse's mouth.
- (hexlify-buffer): Don't re-encode an arg that's already encoded.
-
-2006-11-23 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * ediff-diff.el (ediff-exec-process, ediff-same-file-contents):
- Remove condition-case.
-
-2006-11-23 Glenn Morris <rgm@gnu.org>
-
- * progmodes/f90.el (f90-comment-indent): Do not move point in
- default case.
-
-2006-11-21 Romain Francoise <romain@orebokech.com>
-
- * emacs-lisp/find-func.el (find-library-name): Don't strip ".el"
- from library name (reverts change of 2005-10-25).
-
-2006-11-21 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * tutorial.el (tutorial--default-keys): Add newline and
- delete-backward-char bindings.
- (tutorial--detailed-help): Save excursion when finding keys.
- Correct warning string for M-x FOO case.
- (tutorial--display-changes): Print special keys in tutorial style.
- Tweak search regexp for changed keys.
-
-2006-11-21 Bob Rogers <rogers-emacs@rgrjr.dyndns.org> (tiny change)
-
- * thingatpt.el (thing-at-point-url-at-point): Don't add a
- redundant scheme.
-
-2006-11-21 Diane Murray <disumu@x3y2z1.net> (tiny change)
-
- * thingatpt.el (thing-at-point-uri-schemes): Add schemes that
- are new to the list at IANA. Also added irc, mms, mmsh.
-
-2006-11-20 J.D. Smith <jdsmith@as.arizona.edu>
-
- * progmodes/idlw-help.el (idlwave-html-help-location):
- Fail gracefully for missing help packages.
- (idlwave-help-assistant-open-link): Open full links.
- (idlwave-help-assistant-help-with-topic): Direct help link.
-
- * progmodes/idlwave.el (idlwave-mode):
- Set add-log-current-defun-function.
- (idlwave-current-routine-fullname): Add, to support add-log.
- (idlwave-convert-xml-system-routine-info): Simplify XML parsing
- to reflect improvements to xml-parse-file.
- (idlwave-mode-menu-def): New binding for help-with-topic.
-
- * progmodes/idlw-shell.el (idlwave-shell-filter-directory):
- Handle extra newlines and spaces.
- (idlwave-shell-mode-map): Add help-with-topic.
-
-2006-11-20 Chong Yidong <cyd@stupidchicken.com>
-
- * tutorial.el (tutorial-warning-face): New face.
- (tutorial--detailed-help, tutorial--display-changes): Use it.
- (tutorial--find-changed-keys): Check ESC-prefix binding specially.
- Improve search pattern for occurrences of changed keys.
-
-2006-11-20 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-last-cut-buffer-coding): New variable.
- (x-select-text): Set it.
- (x-cut-buffer-or-selection-value): Check also x-last-cut-buffer-coding
- when checking for newness.
-
-2006-11-19 Juanma Barranquero <lekktu@gmail.com>
-
- * subr.el (posn-image):
- * progmodes/ebnf2ps.el (ebnf-stop-on-error): Fix typos in docstrings.
-
- * emacs-lisp/regexp-opt.el (regexp-opt): Doc fix.
-
-2006-11-19 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * progmodes/glasses.el (glasses-separate-parentheses-exceptions): New.
- Exceptions to the rule "add a space between an identifier and an
- opening parenthesis". Defaulted to the `#define' problem of cpp.
- (glasses-parenthesis-exception-p): New. Check if the region is an
- exception regarding to that.
- (glasses-make-readable): Use it.
- (glasses-convert-to-unreadable): Ditto. Modify the file also if
- `glasses-convert-on-write-p' and `glasses-separate-parentheses-p' are t.
-
-2006-11-19 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/bytecomp.el (byte-compile-if): Revert last change.
-
-2006-11-19 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-mode.el (ada-make-body): Fix typo.
-
- * progmodes/ada-xref.el (ada-make-body-gnatstub): Fix typo.
- (ada-xref-initialize): Fix typo. Use add-hook and remove-hook.
-
-2006-11-18 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/bytecomp.el (byte-compile-maybe-guarded): Check `and'
- conditions for function or variable bindings.
-
- * comint.el (comint-exec-1): Set EMACS and INSIDE_EMACS to t.
-
- * progmodes/compile.el (compilation-start): Ditto.
-
-2006-11-18 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (top): cl and custom are always required.
-
-2006-11-18 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-cut-buffer-or-selection-value): Decode text from
- cut-buffers with next-selection-coding-system if not nil.
-
-2006-11-17 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-fix-decoded-time): New function.
- (org-display-custom-time): Use `org-fix-decoded-time'.
-
-2006-11-17 Chong Yidong <cyd@stupidchicken.com>
-
- * menu-bar.el (menu-bar-games-menu): Remove yow.
-
-2006-11-17 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-scan-tags): Re-align code fixed.
- (org-detach-overlay): Rename from `org-detatch-overlay'.
- (org-table-convert-region): Insert space after column separator.
- (org-agenda-kill): New command.
- (org-metaleft): Call `org-outdent-item' on bullets.
- (org-metaright): Call `org-indent-item' on bullets.
- (org-timestamp-change): Set `org-last-changed-timestamp'.
- (org-current-line): Make sure (bolp) returns correct result.
- (org-agenda-change-all-lines): Make sure TODO are highlighted.
-
-2006-11-17 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs.el (cvs-retrieve-revision): Set buffer-file-coding-system.
-
-2006-11-16 Chong Yidong <cyd@stupidchicken.com>
-
- * mouse.el (global-map): Change 2006-08-16 fix to call
- mouse-yank-at-click explicitly, since mouse events are not carried
- over into keyboard macros.
-
-2006-11-16 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-file-internal): Use current buffer's file name as default
- choice for ido-find-alternate-file. Suggested by Matt Hodges.
-
-2006-11-15 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-doublecheck-at-and-shallower): Clarify docstring.
- (allout-inhibit-aberrance-doublecheck): Rename from
- allout-during-yank-processing. All callers changed.
- (allout-ascend): Provide for unusual case where some topic after
- the first in file is at lower depth than the first.
- (allout-shift-in): Ensure the offspring of the new containing
- topic are exposed.
- (allout-encrypt-string): Preserve the coding-system of the text,
- according to that of the containing buffer.
- (allout-toggle-subtree-encryption): When the text being encrypted
- requires a different coding system, offer to preserve the coding
- system using a file local var.
-
-2006-11-15 Simon Marshall <simon@gnu.org>
-
- * progmodes/cc-fonts.el (c-font-lock-declarators): Use c-at-toplevel-p
- to recognise "T t()" as a function declaration, rather than a
- variable instantiation, iff at the top-level or inside a class
- declaration. Suggested by Feng Li <fengli@gmail.com>.
-
-2006-11-14 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-xref.el (ada-parse-prj-file):
- Don't delete project buffer; user may want to edit it.
- (ada-xref-set-project-field, ada-xref-current-project-file)
- (ada-xref-current-project, ada-show-current-project)
- (ada-set-main-compile-application): New functions.
- (ada-xref-get-project-field, ada-require-project-file):
- Normalize use of ada-prj-default-project-file.
- (ada-gdb-application, ada-get-ada-file-name, ada-make-body-gnatstub):
- Normalize use of ada-require-project-file.
- (ada-prj-find-prj-file): Improve doc string, comments.
-
- * progmodes/ada-mode.el (ada-mode-version): Bump version.
- (ada-create-keymap): Add \C-c\C-m 'ada-set-main-compile-application.
- (ada-create-menu): Add ada-set-main-compile-application,
- ada-show-current-main, ada-show-current-project.
-
-2006-11-14 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el (inferior-python-mode-syntax-table): New var.
- (inferior-python-mode): Use it.
-
-2006-11-14 Andreas Schwab <schwab@suse.de>
-
- * term/xterm.el (terminal-init-xterm): Add more key bindings.
-
-2006-11-13 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-copy-current-word): C-o copies region if active.
-
-2006-11-13 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-emph-face): Fix typo in variable name.
-
-2006-11-13 Juanma Barranquero <lekktu@gmail.com>
-
- * ediff.el (ediff-revision):
- * files.el (set-visited-file-name):
- * mail/rmailout.el (rmail-output-body-to-file):
- Use `format', not `message', in `y-or-n-p' call.
-
-2006-11-13 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-metaleft): Call `org-outdent-item' on bullets.
- (org-metaright): Call `org-indent-item' on bullets.
- (org-timestamp-change): Set `org-last-changed-timestamp'.
- (org-current-line): Make sure (bolp) returns correct result.
- (org-agenda-change-all-lines): Make sure highlighting TODO always works.
-
-2006-11-12 Richard Stallman <rms@gnu.org>
-
- * language/european.el (turkish-case-conversion-enable)
- (turkish-case-conversion-disable): New functions.
- ("Turkish" lang env): Use them.
-
- * international/characters.el (case table):
- Do nothing special for i and I.
-
- * subr.el (remove-overlays): Fix last change.
-
- * cus-edit.el (custom-save-all): Use find-file-visit-truename
- for visiting the custom file.
-
-2006-11-12 Markus Triska <triska@gmx.at>
-
- * play/handwrite.el (handwrite): Also process lines not ending
- with newline. Replace some position-fiddling with different
- logic. Improve performance.
-
-2006-11-12 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-xref.el (ada-prj-default-check-cmd): New variable,
- replacing deleted variable `ada-check-switch'.
- (ada-project-file-extension): Rename to `ada-prj-file-extension'.
- (ada-xref-project-files): Improve doc string.
- (ada-find-executable): New function.
- (ada-initialize-runtime-library): Use `ada-find-executable'.
- (ada-xref-set-default-prj-values): In compile commands, don't need
- `ada-cd-command'; `compile' does that more portably.
- Use ada-prj-default-check-cmd.
- (ada-parse-prj-file): Don't set 'debug_post_cmd, 'debug_pre_cmd
- properties if not specified in project file.
- (ada-goto-declaration): Display useful message for new error
- 'error-file-not-found.
- (ada-get-ada-file-name, ada-find-in-src-path): Signal new error
- 'error-file-not-found.
- (ada-get-all-references): Match latest ali syntax. Signal new
- error 'error-file-not-found.
- (ada-find-in-ali): Match latest ali syntax.
- (ada-make-filename-from-adaname): Handle different semantics of
- gnatkr in GNAT 3.15p vs later.
-
- * progmodes/ada-stmt.el (ada-func-or-proc-name): Match changes to
- ada-procedure-start-regexp.
- (ada-or-accept, ada-or-delay, ada-or-terminate): Improve doc string.
-
- * progmodes/ada-mode.el: Replace conditional (require 'ispell)
- with defvar.
- (ada-language-version): Rename ada05 -> ada2005.
- (ada-align-region-separate): Add `eval-when-compile'.
- (ada-name-regexp): Remove unneeded escapes in regexp character
- alternative.
- (ada-compile-goto-error-file-linenr-re): New constant.
- (ada-matching-start-re): Handle additional cases `declare',
- `procedure', `function'.
- (ada-compile-goto-error): Handle "... at line nn".
- (ada-mode): Clearer syntax, comments for ff-special-constructs.
- Delete support for old versions of `align'.
- (ada-search-prev-end-stmt): Handle additional keyword `private'.
- (ada-check-defun-name): Simplify handling of `declare'.
- (ada-goto-matching-start): Handle nested `begin ... end'.
- Handle `declare', `protected', `procedure', `function'.
- (ada-create-menu): Presence of arm95 is not conditional on using
- GNAT compiler.
-
-2006-11-12 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/re-builder.el (reb-mode): Set `blink-matching-paren' to
- nil in the *RE-Builder* buffer (it causes spurious error messages).
-
- * server.el (server-visit-files): If `minibuffer-auto-raise' has
- been set to t, respect it.
-
-2006-11-11 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-mode.el: Delete `eval-and-compile' around `require'.
- Delete commented out code for old Emacs versions. Autoloading of
- "ada-xref", "ada-prj" is useful even if compiler is not GNAT.
- (ada-mode-version): Bump version number.
- (ada-95-string-keywords, ada-2005-string-keywords)
- (ada-2005-keywords, ada-name-regexp): New constant.
- (ada-language-version, ada-procedure-start-regexp, ada-mode)
- (ada-font-lock-keywords): Add support for Ada 2005 keywords.
- (ada-package-start-regexp): Support private packages, include package
- name (for ada-set-point-accordingly).
- (ada-next-procedure, ada-previous-procedure)
- (ada-which-function-are-we-in): Match changes to
- ada-procedure-start-regexp.
- (ada-make-body): Make non-interactive; not a user function.
- (ada-make-subprogram-body): Improve doc string.
-
-2006-11-11 Romain Francoise <romain@orebokech.com>
-
- * progmodes/cperl-mode.el (cperl-mode): Before adding to it, make
- `compilation-error-regexp-alist' buffer-local, since we changed
- `compilation-error-regexp-alist-alist' locally.
-
-2006-11-11 Juanma Barranquero <lekktu@gmail.com>
-
- * server.el (server-visit-files): Bind `minibuffer-auto-raise'
- to the value of `server-raise-frame'.
-
-2006-11-11 Glenn Morris <rgm@gnu.org>
-
- * ido.el (ido-enable-prefix)
- * ses.el (ses-call-printer-return)
- * net/tramp.el (tramp-unified-filenames)
- * progmodes/cc-align.el (c-lineup-string-cont)
- * progmodes/compile.el (compilation-directory-matcher)
- * progmodes/ebnf2ps.el (ebnf-stop-on-error)
- * progmodes/vhdl-mode.el (vhdl-reset-active-high)
- (vhdl-clock-rising-edge)
- * textmodes/org.el (org-export-with-timestamps)
- (org-export-remove-timestamps-from-toc)
- (org-export-with-tags): Improve previous doc fixes.
-
-2006-11-11 Richard Stallman <rms@gnu.org>
-
- * textmodes/flyspell.el (flyspell-mode-map):
- Bind C-c $ instead of M-RET.
-
-2006-11-10 Simon Marshall <simon@gnu.org>
-
- * progmodes/cc-fonts.el (c-font-lock-declarations): Don't overwrite
- fontification for "case" and "default" keywords.
-
-2006-11-10 Andreas Schwab <schwab@suse.de>
-
- * calendar/cal-dst.el (calendar-dst-check-each-year-flag):
- Avoid starting sentence with "nil".
-
-2006-11-10 Juanma Barranquero <lekktu@gmail.com>
-
- * server.el (server-raise-frame): New option.
- (server-switch-buffer): Use it.
-
-2006-11-10 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-many-windows): Start doc string
- with a capital.
-
-2006-11-10 Carsten Dominik <carsten.dominik@gmail.com>
-
- * textmodes/org.el (org-show-hierarchy-above)
- (org-show-following-heading): Fix typo in default value.
- (org-scan-tags): Make the search case-sensitive.
- (org-tags-sparse-tree): Don't overrule
- `org-show-following-heading' and `org-show-hierarchy-above'.
- (org-reveal): New command.
- (org-show-context): Rename from `org-show-hierarchy-above'.
- (org-fast-tag-selection-single-key): New option.
- (org-fast-tag-show-exit, org-set-current-tags-overlay): New functions.
- (org-tags-overlay): New variable.
- (org-agenda-todo-ignore-deadlines): New option.
- ("session"): Add circular data structure `org-mark-ring' to
- exceptions list in session.el.
- (org-agenda-window-setup, org-agenda-restore-windows-after-quit):
- New options.
- (org-agenda-quit): Use `org-agenda-restore-windows-after-quit'.
- (org-prepare-agenda, org-agenda-quit): Use `org-agenda-window-setup'.
- (org-pre-agenda-window-conf, org-blank-before-new-entry): New vars.
- (org-finalize-agenda): Activate bracket links in agenda.
- (org-at-timestamp-p, org-at-date-range-p): Additional argument
- INACTIVE-OK.
- (org-show-hierarchy-above, org-show-following-heading):
- List values allowed for fine-tuned configuration.
- (org-show-hierarchy-above): New argument CONTEXT, use the
- fine-tuned settings in `org-show-hierarchy-above' and
- `org-show-following-heading'.
- (org-display-custom-time): New function.
- (org-toggle-time-stamp-overlays, org-insert-time-stamp): New function.
- (org-display-custom-times, org-time-stamp-custom-formats):
- (org-maybe-intangible): New macro.
- (org-activate-bracket-links, org-hide-wide-columns):
- Use `org-maybe-intangible'.
- (org-open-file): Use `shell-quote-argument'.
- (org-display-internal-link-with-indirect-buffer): New option.
- (org-file-remote-p): Get regexp from list.
- (org-link-expand-abbrev): New function.
- (org-link-abbrev-alist): New option.
- (org-open-at-point, org-cleaned-string-for-export):
- Call `org-link-expand-abbrev'.
- (org-timeline, org-agenda-list, org-todo-list)
- (org-tags-view): Remove the KEEP-MODES argument.
- (org-finalize-agenda-hook): New hook.
- (org-get-alist-option): New function.
- (org-follow-timestamp-link): New function.
- (org-open-at-point): Call `org-follow-timestamp-link'.
- (org-log-note-marker, org-log-note-purpose)
- (org-log-note-window-configuration): New variables.
- (org-add-log-maybe, org-add-log-note, org-store-log-note): New funs.
- (org-log-note-headings): New option.
- (org-dblock-write:clocktable): Bug fix, removed infinite loop.
- (org-store-link): Support for dired-mode.
- (org-open-file): Substitute environment variables into filename.
- (org-last): New defsubst.
- (org-agenda-re-align-tags): New function.
- (org-agenda-align-tags-to-column): New option.
- (org-agenda-timeline): Group removed.
- (org-prepare-agenda, org-prepare-agenda-buffers)
- (org-run-agenda-series, org-timeline, org-agenda-list)
- (org-todo-list, org-tags-view): Call `org-agenda-prepare' and set
- the text property inticating the agenda type.
- (org-agenda-post-command-hook): Get agenda type from text property
- at point.
- (org-agenda): Handle command sets. Set `org-agenda-last-arguments'
- and obey `org-agenda-overriding-arguments'.
- (org-agenda-overriding-arguments, org-agenda-last-arguments): New vars.
- (org-agenda-goto-today, org-agenda-later, org-agenda-earlier)
- (org-agenda-week-view, org-agenda-day-view):
- Use `org-agenda-overriding-arguments' to make updating work with
- multi-block agendas.
- (org-agenda-prefix-format): Allow different formats for the
- different agenda entry types.
- (org-timeline-prefix-format): Option removed, use
- `org-agenda-prefix-format' instead.
- (org-prepare-agenda): New function.
- (org-select-timeline-window): Option removed, use
- `org-select-agenda-window' instead.
- (org-respect-restriction): Variable removed.
- (org-cmp-tag): New function.
- (org-agenda-sorting-strategy, org-entries-lessp):
- Implement sorting by last tag.
- (org-complete): Better completion in in-buffer option lines.
- (org-in-item-p): New function.
- (org-org-menu): Add entries for checkboxes.
- (org-cycle): Extra brouping in outline-regexp, because it is used
- in a search with "^" prepended.
- (org-provide-checkbox-statistics): New option.
- (org-set-font-lock-defaults): Highlight checkbox statistics.
- (org-update-checkbox-count-maybe)
- (org-get-checkbox-statistics-face): New functions.
- (org-update-checkbox-count): New command.
- (org-insert-item, org-toggle-checkbox):
- Call `org-update-checkbox-count-maybe'.
- (org-export-as-html): XEmacs compatibility for coding system.
- (org-force-cycle-archived): New command.
- (org-cycle-hide-archived-subtrees): Display message when ARCHIVE
- overrules cycling.
- (org-fix-position-after-promote): If the line contains only a todo
- keyword, add a final space.
- (org-promote-subtree, org-demote-subtree):
- Call `org-fix-position-after-promote'.
-
-2006-11-10 Glenn Morris <rgm@gnu.org>
-
- * calendar/cal-dst.el: Do not assume DST starts/ends on the same
- date in every year.
- (calendar-dst-check-each-year-flag): New customizable variable.
- (calendar-dst-find-data): New function, extracted from
- calendar-current-time-zone.
- (calendar-current-time-zone): Use calendar-dst-find-data.
- (calendar-dst-transition-cache): New variable.
- (calendar-dst-find-startend, calendar-dst-starts)
- (calendar-dst-ends): New functions.
- (calendar-daylight-savings-starts)
- (calendar-daylight-savings-ends): Change value to use
- calendar-dst-starts, calendar-dst-ends; respectively.
-
- * progmodes/f90.el (f90-indent-region): Bind case-fold-search to t.
-
- * ido.el (ido-enable-prefix)
- * ses.el (ses-call-printer-return)
- * net/tramp.el (tramp-unified-filenames)
- * progmodes/cc-align.el (c-lineup-string-cont)
- * progmodes/compile.el (compilation-directory-matcher)
- * progmodes/ebnf2ps.el (ebnf-stop-on-error)
- * progmodes/gdb-ui.el (gdb-many-windows)
- * progmodes/vhdl-mode.el (vhdl-reset-active-high)
- (vhdl-clock-rising-edge)
- * textmodes/org.el (org-export-with-timestamps)
- (org-export-remove-timestamps-from-toc, org-export-with-tags)
- (org-read-date): Doc fix (Nil -> nil).
-
-2006-11-10 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-select-text, x-cut-buffer-or-selection-value):
- Encode/decode text to/from cut buffers to/from iso-latin-1 only.
-
-2006-11-10 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs--window-for-buffer): Remove.
- (bs--show-with-configuration): Use `get-window-with-predicate'
- instead of `bs--window-for-buffer'.
-
-2006-11-10 Kenichi Handa <handa@m17n.org>
-
- * files.el (revert-buffer): Fix previous change.
-
-2006-11-09 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs--redisplay): Fix typo in docstring.
- (bs--window-config-coming-from): Make frame-local.
- (bs--restore-window-config): New function.
- (bs-kill, bs-select, bs-select-other-window)
- (bs-select-other-frame): Use it.
- (bs--window-for-buffer): Return as soon as a matching buffer is found.
- (bs--show-with-configuration): Save the window configuration as a
- frame local var, and only if *buffer-selection* is not already
- visible on this frame.
-
-2006-11-08 Chong Yidong <cyd@stupidchicken.com>
-
- * vc-svn.el (vc-svn-admin-directory): New var.
- (vc-svn-registered, vc-svn-responsible-p)
- (vc-svn-repository-hostname): Use it.
- Suggested by arit93@yahoo.com.
-
-2006-11-08 Juanma Barranquero <lekktu@gmail.com>
-
- * ldefs-boot.el: Regenerate.
-
-2006-11-08 Alan Mackenzie <acm@muc.de>
-
- * emacs-lisp/lisp.el (beginning-of-defun-raw): Code up the
- case (eq open-paren-in-column-0-is-defun-start nil) by searching
- for least nested open-paren.
-
-2006-11-08 Romain Francoise <romain@orebokech.com>
-
- * subr.el (remove-overlays): Fix typo in last change.
-
-2006-11-08 Richard Stallman <rms@gnu.org>
-
- * subr.el (remove-overlays): Call overlay-recenter.
-
-2006-11-08 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * printing.el (pr-alist-custom-set, pr-ps-utility-custom-set)
- (pr-ps-name-custom-set, pr-txt-name-custom-set): Return back the old
- behaviour.
- (pr-menu-bind): Act on global-map instead of menu-bar-file-menu
- directly.
-
-2006-11-08 Juanma Barranquero <lekktu@gmail.com>
-
- * ido.el (ido-ignore-extensions, ido-show-dot-for-dired)
- (ido-max-dir-file-cache, ido-decorations)
- (ido-rewrite-file-prompt-functions, ido-use-mycompletion-depth)
- (ido-magic-backward-char, ido-enter-dired)
- (ido-enter-insert-buffer, ido-enter-insert-file, ido-dired)
- (ido-list-directory, ido-first-match, ido-only-match)
- (ido-subdir, ido-indicator): Fix typos in docstrings.
- (ido-buffer-internal, ido-completion-help): Fix typos in messages.
- (ido-read-internal): Fix typo in error message.
-
-2006-11-08 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el (set-default-coding-systems):
- Always set default-file-name-coding-system to utf-8 for Mac Darwin.
-
-2006-11-08 Juanma Barranquero <lekktu@gmail.com>
-
- * makefile.w32-in (setwins): Remove.
- (WINS_ALMOST): New macro.
- (WINS): Use it.
- (autoloads): Don't extract autoloads from files in obsolete/.
-
-2006-11-07 Chong Yidong <cyd@stupidchicken.com>
-
- * whitespace.el (whitespace-buffer): Call remove-overlays after
- overlay-recenter for performance. Suggested by Martin Rudalics.
-
-2006-11-07 Michael Albinus <michael.albinus@gmx.de>
-
- * net/tramp.el (tramp-default-method): scp is the default method.
-
-2006-11-07 Juanma Barranquero <lekktu@gmail.com>
-
- * server.el (server-start): Save also the Emacs pid in the server file.
-
-2006-11-07 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/reftex-cite.el (reftex-pop-to-bibtex-entry): Preserve
- point when displaying a bibtex cross reference in the echo area.
-
-2006-11-06 Juanma Barranquero <lekktu@gmail.com>
-
- * international/mule.el (make-char): Fix typo in docstring.
- (load-with-code-conversion, charsetp): Doc fixes.
-
- * international/ja-dic-cnv.el (skkdic-convert):
- * cus-edit.el (hook): Fix typo in docstring.
-
-2006-11-06 Chong Yidong <cyd@stupidchicken.com>
-
- * cus-edit.el (custom-mode-map): Move defvar above code using it.
- (custom-mode-link-map): New variable.
- (custom-group-link, custom-manual): Use follow-link.
-
-2006-11-06 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el: Fix typo in name of author of bibtex.el,
- "Mark Shapiro" -> "Marc Shapiro". Update his email address.
-
-2006-11-06 Richard Stallman <rms@gnu.org>
-
- * textmodes/flyspell.el (flyspell-correct-word-before-point):
- New function broken out of flyspell-correct-word.
- (flyspell-mode-map): Bind it to M-RET.
- (flyspell-correct-word): Call it.
-
- * textmodes/fill.el (fill-minibuffer-function): New function.
- (fill-paragraph): Bind fill-paragraph-function to
- fill-minibuffer-function.
-
- * ruler-mode.el (ruler-mode-map): Add bindings for up-events
- so that they aren't undefined.
-
- * dired.el (dired-readin): Locally bind file-name-coding-system.
-
- * bindings.el: Shorten and clarify usual mode line mouse help string.
-
- * Makefile.in (autoloads): Don't include `obsolete'.
-
-2006-11-06 Chong Yidong <cyd@stupidchicken.com>
-
- * printing.el (pr-alist-custom-set, pr-ps-utility-custom-set)
- (pr-ps-name-custom-set, pr-txt-name-custom-set): Don't update the
- Printing menu if it's not initialized.
- (pr-menu-bind): Act on menu-bar-file-menu directly.
-
-2006-11-06 Juanma Barranquero <lekktu@gmail.com>
-
- * help.el (view-emacs-news): Fix typo in error message.
-
- * menu-bar.el (menu-bar-update-buffers): Fix typo in menu entry.
-
- * shadowfile.el (shadow-define-regexp-group)
- (shadow-literal-groups, shadow-insert-var): Doc fixes.
- (shadow-read-files): Fix typo in message.
- (shadow-inhibit-overload, shadow-find, shadow-suffix)
- (shadow-site-match, shadow-write-todo-file, shadow-insert-var)
- (shadow-suffix, shadow-site-match, shadow-expand-file-name)
- (shadow-file-match): Fix typos in docstrings.
-
- * terminal.el (terminal-emulator): Fix typo in message.
-
- * emacs-lisp/authors.el (authors-fixed-entries): Fix typo.
-
- * emacs-lisp/lselect.el (x-kill-primary-selection)
- (x-delete-primary-selection, x-copy-primary-selection):
- Fix typos in error messages.
-
- * emulation/edt-mapper.el: Fix typo in interactive message.
-
- * mail/emacsbug.el (report-emacs-bug): Fix typos in output message.
-
- * textmodes/ispell.el (ispell, ispell-local-dictionary-alist)
- (ispell-help): Fix typos in docstrings.
- (ispell-help): Fix typo in output message.
-
- * allout.el (allout-adjust-file-variable)
- (allout-passphrase-verifier-string)
- (allout-passphrase-hint-string)
- (allout-toggle-current-subtree-encryption):
- * apropos.el (apropos-synonyms):
- * cus-edit.el (hook):
- * emacs-lock.el (emacs-lock-from-exiting):
- * follow.el (follow-avoid-tail-recenter-p):
- * hexl.el (hexl-mode):
- * mouse-copy.el (mouse-copy-work-around-drag-bug):
- * mouse.el (mouse-set-font):
- * resume.el (resume-emacs-args-file):
- * rfn-eshadow.el (file-name-shadow-tty-properties):
- * t-mouse.el (t-mouse-process, t-mouse-mode):
- * emacs-lisp/cust-print.el (custom-print-install)
- (custom-print-uninstall, custom-format):
- * emacs-lisp/shadow.el (list-load-path-shadows):
- * emulation/tpu-edt.el (tpu-help-text)
- (tpu-save-all-buffers-kill-emacs, tpu-emacs-replace)
- (tpu-reset-control-keys):
- * emulation/vip.el (vip-emacs-local-map)
- (vip-change-mode-to-emacs):
- * emulation/viper.el (viper-mode, viper-set-hooks)
- (viper-major-mode-modifier-list):
- * emulation/viper-init.el (viper-emacs-state-cursor-color):
- * emulation/viper-keym.el (viper-emacs-kbd-map)
- (viper-toggle-key):
- * mail/feedmail.el (feedmail-queue-reminder)
- (feedmail-queue-reminder-alist, feedmail-confirm-outgoing)
- (feedmail-confirm-outgoing-timeout, feedmail-nuke-bcc)
- (feedmail-nuke-resent-bcc, feedmail-fill-to-cc-fill-column)
- (feedmail-sender-line, feedmail-force-binary-write)
- (feedmail-from-line, feedmail-deduce-envelope-from)
- (feedmail-x-mailer-line, feedmail-message-id-generator)
- (feedmail-date-generator, feedmail-fiddle-plex-user-list)
- (feedmail-enable-spray, feedmail-spray-this-address)
- (feedmail-spray-address-fiddle-plex-list, feedmail-enable-queue)
- (feedmail-queue-runner-confirm-global)
- (feedmail-ask-before-queue-prompt)
- (feedmail-ask-before-queue-reprompt)
- (feedmail-prompt-before-queue-standard-alist)
- (feedmail-prompt-before-queue-user-alist)
- (feedmail-prompt-before-queue-help-supplement)
- (feedmail-queue-use-send-time-for-message-id)
- (feedmail-queue-default-file-slug, feedmail-queue-fqm-suffix)
- (feedmail-mail-send-hook-splitter, feedmail-mail-send-hook)
- (feedmail-mail-send-hook-queued)
- (feedmail-confirm-addresses-hook-example)
- (feedmail-last-chance-hook, feedmail-before-fcc-hook)
- (feedmail-queue-runner-mode-setter)
- (feedmail-queue-alternative-mail-header-separator)
- (feedmail-queue-runner-message-sender)
- (feedmail-buffer-eating-function, feedmail-binmail-template)
- (feedmail-run-the-queue-no-prompts)
- (feedmail-run-the-queue-global-prompt)
- (feedmail-queue-subject-slug-maker, feedmail-fiddle-header)
- (feedmail-envelope-deducer, feedmail-fiddle-date)
- (feedmail-default-message-id-generator)
- (feedmail-fiddle-message-id, feedmail-fiddle-x-mailer)
- (feedmail-fiddle-spray-address, feedmail-deduce-address-list):
- * mail/vms-pmail.el (vms-pmail-save-and-exit, vms-pmail-abort)
- (vms-pmail-setup):
- * play/dunnet.el (dun-help):
- * play/handwrite.el (handwrite):
- * play/hanoi.el (hanoi-unix-64):
- * progmodes/idlwave.el (idlwave-rescan-asynchronously):
- * textmodes/enriched.el (fixed):
- * textmodes/org.el (org-file-apps)
- (org-emphasis-regexp-components, org-emphasis-alist):
- * textmodes/texinfmt.el (batch-texinfo-format):
- Fix typos in docstrings.
-
-2006-11-05 Juanma Barranquero <lekktu@gmail.com>
-
- * loadhist.el (read-feature): Don't complete features not loaded
- from a file (which make `unload-feature' to fail).
-
-2006-11-05 Reiner Steib <Reiner.Steib@gmx.de>
-
- * add-log.el (add-log-time-zone-rule): Mark as safe-local-variable.
-
-2006-11-05 Chong Yidong <cyd@stupidchicken.com>
-
- * startup.el (command-line-1): Kill emacs if the last frame is
- deleted while evaluating the command-line arguments.
-
-2006-11-05 Richard Stallman <rms@gnu.org>
-
- * startup.el (init-file-had-error): Add doc string.
- (fancy-splash-text, fancy-splash-head, fancy-splash-tail):
- Use fixed-width font for keyboard key descriptions.
-
- * cus-edit.el (custom-save-all): Error if saving in .emacs
- and it had an error when loaded.
-
- * dired-aux.el (dired-copy-file-recursive): Catch errors
- from recursive copies in the loop, around the recursive call.
-
-2006-11-05 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * battery.el (battery-linux-proc-acpi): Search an ac_adapter in
- `/proc/acpi/ac_adapter/*'. Ditto for the thermometers in
- `/proc/acpi/thermal_zone/*'.
- (battery-search-for-one-match-in-files): New. Search a regexp in
- the content of some files.
-
-2006-11-05 Martin Rudalics <rudalics@gmx.at>
-
- * window.el (mouse-autoselect-window-now): Remove variable.
- (mouse-autoselect-window-state): New variable.
- (mouse-autoselect-window-start, mouse-autoselect-window-cancel)
- (mouse-autoselect-window-select, handle-select-window):
- Rewritten to make mouse-autoselect-window-timer a one-shot timer.
- Suspend delayed autoselection during menu or popup dialog.
-
- * info-look.el (info-lookup-guess-custom-symbol): New function
- for retrieving symbol at point in custom buffers.
- (top level) <info-lookup-maybe-add-help>: Add backquote and
- comma to ignored characters in regexps of help specifications
- for emacs-lisp-mode and lisp-interaction-mode. This permits
- looking up symbols in `...' and after a comma. Add help
- specifications for custom-mode and help-mode.
-
-2006-11-04 Eli Zaretskii <eliz@gnu.org>
-
- * mail/rmail.el (rmail-redecode-body): New optional argument RAW.
- Don't encode body if RAW is non-nil, or if the old encoding is
- identical to the new encoding, or if the body contains only
- eight-bit-* characters.
-
-2006-11-04 Yoni Rabkin Katzenell <yoni-r@actcom.com> (tiny change)
-
- * faces.el (faces-sample-overlay, describe-face): Revert last changes.
- (faces-sample-overlay): Remove variable.
- (describe-face): Insert sample text in the face being described.
-
-2006-11-04 Martin Rudalics <rudalics@gmx.at>
-
- * whitespace.el (whitespace-indent-regexp): Make this match any
- multiples of eight spaces near the beginning of a line.
- (whitespace-buffer): Use `remove-overlays' instead of
- `whitespace-unhighlight-the-space' and `overlay-recenter' to
- speed up overlay handling.
- (whitespace-buffer-leading, whitespace-buffer-trailing):
- Make these functions highlight the text removed by
- `whitespace-buffer-leading-cleanup' and
- `whitespace-buffer-trailing-cleanup' respectively.
- (whitespace-buffer-search): Use `with-local-quit'.
- Move `format' out of loop to speed up scanning larger buffers.
- (whitespace-unhighlight-the-space): Remove `remove-hook' since
- that function is never added to a hook.
- (whitespace-spacetab-regexp, whitespace-ateol-regexp)
- (whitespace-buffer-leading-cleanup)
- (whitespace-refresh-rescan-list): Fix docstrings.
-
-2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-during-yank-processing): Cue for inhibiting
- aberrance processing during yanks.
- (allout-doublecheck-at-and-shallower): Reduce the limit to reduce
- the amount of yanked topics that can be aberrant.
- (allout-do-doublecheck): Encapsulate this multiply-used recipe in
- a function, and supplement with inihibition of doublechecking
- during yanks.
- (allout-beginning-of-line, allout-next-heading)
- (allout-previous-heading, allout-goto-prefix-doublechecked)
- (allout-back-to-current-heading, allout-next-visible-heading)
- (allout-next-sibling): Use new allout-do-doublecheck function.
- (allout-next-sibling): Ensure we made progress when returning
- other than nil.
- (allout-rebullet-heading): Preserve text property annotations
- indicating the text was hidden, if it was.
- (allout-kill-line): Remove any added was-hidden annotations.
- (allout-kill-topic): Remove any added was-hidden annotations.
- (allout-annotate-hidden): Inhibit adding was-hidden text
- properties to the undo list.
- (allout-deannotate-hidden): New function to remove was-hidden
- annotation.
- (allout-hide-by-annotation): Use new allout-deannotate-hidden.
- (allout-remove-exposure-annotation): Replace by
- allout-deannotate-hidden.
- (allout-yank-processing): Signal that yank processing is happening
- with allout-during-yank-processing. Also, wrap
- allout-unprotected's closer to the text changes, for easier
- debugging. We need to inhibit-field-text-motion explicitly, in
- lieu of the encompassing allout-unprotected.
- (outlineify-sticky): Adjust criteria for triggering new outline
- decorations to presence or absence of any topics, not just a topic
- at the beginning of the buffer.
-
-2006-11-03 Juanma Barranquero <lekktu@gmail.com>
-
- * bs.el (bs--show-all, bs--redisplay):
- * cus-edit.el (custom-unlispify-menu-entries)
- (custom-unlispify-tag-names, custom-prompt-variable):
- * expand.el (expand-pos):
- * speedbar.el (speedbar-generic-list-tag-p):
- * wid-edit.el (widget-image-enable):
- * emacs-lisp/checkdoc.el (checkdoc-rogue-space-check-engine):
- * emacs-lisp/find-func.el (find-function-noselect)
- (find-function, find-variable-noselect, find-variable)
- (find-definition-noselect, find-face-definition):
- * mail/rmail-spam-filter.el (rsf-scanning-messages-now):
- * net/eudc-vars.el (eudc-expansion-overwrites-query):
- * progmodes/ada-xref.el (ada-find-in-ali):
- * textmodes/flyspell.el (flyspell-check-tex-math-command):
- * textmodes/org.el (org-copy-subtree):
- * textmodes/table.el (table--row-column-insertion-point-p):
- Use "non-nil" in docstrings.
-
-2006-11-03 Mark Davies <mark@mcs.vuw.ac.nz>
-
- * sort.el (sort-columns): Set the field separator to tab; on
- NetBSD, sort complains if "\n" is used as field separator.
-
-2006-11-03 NIIMI Satoshi <sa2c@sa2c.net>
-
- * emacs-lisp/pp.el (pp-eval-last-sexp): Evaluate target sexp.
-
-2006-11-02 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * server.el (server-auth-key): Remove. Replace by a process-property.
- (server-start): Don't remove the file of the previous process, but
- instead clear out the place for the new file.
- (server-start): Set the :auth-key property.
- (server-process-filter): Use the :auth-key property.
-
-2006-11-02 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-mode-map): No longer copy
- `outline-mode-map' explicitly - this is already done by
- `define-derived-mode'.
-
-2006-11-02 Juanma Barranquero <lekktu@gmail.com>
-
- * server.el (server-visit-files): Use `when'.
- (server-process-filter): When authentication fails, send error
- message to client. Wrap `process-send-region' in `ignore-errors'
- instead of `condition-case', and remove misleading comment.
-
-2006-11-01 Juri Linkov <juri@jurta.org>
-
- * simple.el (yank): Doc fix.
-
-2006-11-01 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * server.el: Try and fit within 80 columns.
- (server-start): Make the auth file unreadable by other users.
-
-2006-10-31 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
-
- * battery.el (battery-linux-proc-acpi): Prevent range error when
- `full-capacity' is 0.
-
-2006-10-31 Yoni Rabkin Katzenell <yoni-r@actcom.com> (tiny change)
-
- * faces.el (faces-sample-overlay): New defvar.
- (faces-sample-overlay): New function to show face sample text.
- (describe-face): Use it.
-
-2006-10-31 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-stmt.el: Change maintainer, apply
- whitespace-cleanup, checkdoc.
- (ada-func-or-proc-name): Add doc string.
-
- * progmodes/ada-prj.el (ada-prj-new): Change maintainer, apply
- whitespace-cleanup, checkdoc. Minor improvements to many doc
- strings and comments.
- (ada-prj-display-page): Change buffer name to more accurately
- reflect function.
-
- * progmodes/ada-xref.el: Change maintainer, apply
- whitespace-cleanup, checkdoc. Minor improvements to many doc
- strings and comments. Don't look for `gvd' or `ddd' debuggers.
- (ada-compile-current): Don't add newlines to commands.
-
-2006-10-31 Juanma Barranquero <lekktu@gmail.com>
-
- * server.el: Add support for TCP sockets.
- (server-use-tcp, server-host, server-auth-dir): New options.
- (server-auth-key): New variable.
- (server-ensure-safe-dir): Create nonexistent parent dirs.
- Ignore Unix-style file modes on Windows.
- (server-start): Crete a TCP or Unix socket according to the value
- of `server-use-tcp'. For TCP sockets, create the id/auth file in
- `server-auth-dir' directory.
- (server-process-filter): Delete process if authentication
- fails (which never happens for Unix sockets).
-
-2006-10-30 David Kastrup <dak@gnu.org>
-
- * subr.el (add-to-list): Don't continue checking if a match has
- been found.
-
-2006-10-30 Chong Yidong <cyd@stupidchicken.com>
-
- * tutorial.el: Move defvars to avoid bytecomp warnings.
- (tutorial--find-changed-keys): Check if viper-current-state is
- bound before using it.
- (help-with-tutorial): Check if viper-tutorial is defined before
- using it.
-
-2006-10-30 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * help-fns.el (help-with-tutorial): Move to tutorial.el.
-
- * tutorial.el: New file.
- (help-with-tutorial): Move here from help-fns.el. Add help for
- rebound keys. Fix resume of tutorial.
- (tutorial--describe-nonstandard-key, tutorial--sort-keys)
- (tutorial--find-changed-keys, tutorial--display-changes)
- (tutorial--saved-dir, tutorial--saved-file)
- (tutorial--save-tutorial): New functions to support the changes in
- help-with-tutorial.
-
-2006-10-30 Kenichi Handa <handa@m17n.org>
-
- * files.el (revert-buffer): If a unibyte buffer is being reverted
- with a coding system for multibyte, set buffer multibyte before
- calling insert-file-contents.
-
-2006-10-30 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * server.el (server-select-display): Use a dummy buffer to detect when
- the frame is later used.
- (server-select-display): New function.
- (server-process-filter): Use it to detect unused temp frames.
-
-2006-10-29 Stephen Leake <stephen_leake@stephe-leake.org>
-
- * progmodes/ada-mode.el: Change maintainer, apply
- whitespace-clean, checkdoc. Minor improvements to many doc strings.
- (ada-mode-version): New function.
- (ada-create-menu): Menu operations are available for all supported
- compilers.
-
-2006-10-29 Lars Hansen <larsh@soem.dk>
-
- * net/tramp.el (with-parsed-tramp-file-name): Correct debug spec.
- Highlight as keyword.
- (tramp-do-copy-or-rename-file): Correct data for 'file-already-exists.
- Don't call tramp-method-out-of-band-p for local files.
- (tramp-touch): Quote file name.
-
-2006-10-28 Glenn Morris <rgm@gnu.org>
-
- * calendar/calendar.el (cal-html-cursor-month)
- (cal-html-cursor-year): Add autoloads for this new package.
- (calendar-mode-map): Bind cal-html-cursor-month, cal-html-cursor-year.
-
-2006-10-28 Anna M. Bigatti <bigatti@dima.unige.it>
-
- * calendar/cal-html.el: New file.
-
-2006-10-28 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/authors.el (authors-aliases): Update.
-
-2006-10-27 Chong Yidong <cyd@stupidchicken.com>
-
- * version.el (emacs-version): Bump version number to 22.0.90.
-
-2006-10-26 John W. Eaton <jwe@octave.org>
-
- * progmodes/octave-inf.el (inferior-octave-has-built-in-variables):
- New defvar.
- (inferior-octave-resync-dirs): Check to see whether Octave has
- built-in variables and set inferior-octave-has-built-in-variables.
- Check inferior-octave-has-built-in-variables to decide whether to
- send commands that set built-in variables or call functions to
- change Octave's behavior.
- Send "disp (pwd ())" to Octave instead of just "pwd".
- (inferior-octave-startup): Send "more off" to Octave instead of
- "page_screen_output = 0".
-
-2006-10-26 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/cl-indent.el (lisp-indent-259): Indent nil's in the
- pattern normally.
-
-2006-10-26 Nick Roberts <nickrob@snap.net.nz>
-
- * bindings.el (mode-line-mode-menu): Remove bindings for global
- minor modes (line/column number) as they are on the menubar.
-
-2006-10-25 Juanma Barranquero <lekktu@gmail.com>
-
- * term/w32-win.el (x-handle-name-switch): Doc fix.
- (w32-standard-fontset-spec): Fix typo in docstring.
-
- * midnight.el (midnight-buffer-display-time): Doc fix.
- (clean-buffer-list-kill-never-buffer-names): Add "*server*".
-
-2006-10-23 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * emulation/viper-cmd.el (viper-prefix-arg-com): Define gg as G0.
-
- * emulation/viper-ex.el (ex-read): Quote file argument.
-
- * ediff-diff.el (ediff-same-file-contents): Expand file names.
-
- * ediff-mult.el (ediff-append-custom-diff): Quote shell file arguments.
-
-2006-10-22 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/flyspell.el (flyspell-check-region-doublons):
- Fix last fix.
-
-2006-10-23 Nick Roberts <nickrob@snap.net.nz>
-
- * bindings.el (mode-line-mode-menu): List global minor modes
- before local ones.
-
-2006-10-23 Kim F. Storm <storm@cua.dk>
-
- * subr.el (add-to-list): Optimize if compare-fn is `eq' or `eql'.
- (sit-for): If last command was a prefix arg, add the read-ahead
- event to unread-command-events as (t . EVENT) so it will be added
- to this-command-keys by read-key-sequence.
-
-2006-10-22 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/flyspell.el (flyspell-word): Skip past all previous
- whitespace when checking doublons.
- (flyspell-check-region-doublons): Fix doublon regexp.
- (flyspell-highlight-incorrect-region): Highlight doublons using
- flyspell-duplicate face.
-
- * progmodes/cperl-mode.el (cperl-invalid-face): Fix defcustom.
-
-2006-10-22 John Wiegley <johnw@newartisans.com>
-
- * progmodes/python.el (python-use-skeletons): python-mode was
- auto-inserting templates (for those with abbrev-mode on), not only
- by default -- *but without a configuration variable to disable
- it*. This rendered python-mode completely useless for me, so I
- have added `python-use-skeletons', which is now off by default.
-
-2006-10-22 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/cperl-mode.el (cperl-mode): Don't assume
- font-lock-multiline is auto-local (it's not).
- (cperl-windowed-init): Ensure that cperl-font-lock-multiline is
- initialized before calling cperl-init-faces.
-
-2006-10-22 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-info-stack-custom): Don't try to give
- gdb-stack-position a value when there is no fringe.
-
- * bindings.el (mode-line-mode-menu): Disable auto-revert-tail-mode
- indicator if not visiting a file.
-
-2006-10-20 David Kastrup <dak@gnu.org>
-
- * window.el (kill-buffer-and-window): Fix a bug where an aborted
- operation would still cause some window to collapse later.
-
-2006-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc.el (vc-switch-backend): Try to be more careful with unwanted
- side-effect due to mixing various backends's file properties.
-
- * vc-svn.el (vc-svn-parse-status): Remove unused arg `localp'.
- Add arg `filename' instead. Don't set vc-backend if `filename' is set.
- Return `filename's status if applicable. Update callers.
-
-2006-10-19 Kenichi Handa <handa@m17n.org>
-
- * international/kkc.el (kkc-region): When a key sequence is not
- defined, append (this-single-command-raw-keys) to
- unread-input-method-events.
-
-2006-10-19 Juanma Barranquero <lekktu@gmail.com>
-
- * progmodes/ada-mode.el (ada-in-string-p): Doc fix.
-
-2006-10-19 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * version.el (emacs-version): Use mac-carbon-version-string.
-
- * term/macterm.el (res-geometry): Apply 2006-10-18 change for x-win.el.
-
-2006-10-19 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * select.el (ccl-check-utf-8, string-utf-8-p): New functions (by
- Kenichi Handa).
- (xselect-convert-to-string): Decline requests for UTF8_STRING if
- the selection is not UTF-8.
-
-2006-10-18 Juanma Barranquero <lekktu@gmail.com>
-
- * progmodes/ada-mode.el (ada-83-string-keywords)
- (ada-last-which-function-line ada-no-auto-case, ada-indent-region)
- (ada-which-compiler, ada-align-modes, ada-adjust-case-buffer)
- (ada-looking-at-semi-private, ada-get-body-name):
- Fix typos in docstrings.
- (ada-create-case-exception, ada-create-case-exception-substring):
- Fix typos in error messages.
- (ada-goto-matching-end, ada-narrow-to-defun): Doc fixes.
-
-2006-10-18 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (res-geometry): Don't set geometry from Xresources
- to default-frame-alist if default-frame-alist already contains
- width/height.
-
-2006-10-18 Richard Stallman <rms@gnu.org>
-
- * emacs-lisp/pp.el (pp-eval-expression): Use `X' to read value.
- Non-interactive arg is the value, not the expression.
-
- * simple.el (read-expression-map): Just set it, no defvar.
-
- * subr.el (insert-for-yank-1): If last inserted char has
- properties, mark them as rear-nonsticky.
-
- * recentf.el (recentf-mode): Doc fix.
-
- * facemenu.el (facemenu-add-new-face): Defend against symbol
- that isn't a face name.
-
- * dired-aux.el (dired-do-copy): Doc fix.
-
-2006-10-18 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-1): Ignore fields when moving to the
- beginning of line to avoid getting point stuck.
-
-2006-10-18 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/flyspell.el (flyspell-word-search-backward):
- Set inhibit-point-motion-hooks to avoid looping due to intangibile
- text.
-
-2006-10-16 Richard Stallman <rms@gnu.org>
-
- * help-fns.el (describe-function-1): Special case optimization
- for self-insert-command.
-
-2006-10-16 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-reread-directory): Work in `dir' mode too.
-
-2006-10-15 Martin Rudalics <rudalics@gmx.at>
-
- * textmodes/table.el: Require 'regexp-opt.
-
-2006-10-15 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * progmodes/flymake.el (flymake-get-project-include-dirs-imp):
- Use shell-quote-argument.
-
- * shell.el (explicit-bash-args): Likewise.
-
- * progmodes/ada-xref.el (ada-find-in-src-path): Likewise.
- Use grep -E rather than egrep.
-
-2006-10-15 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * ido.el (ido-exhibit): Allow `-', `_', and trailing `$' in user id.
-
-2006-10-15 Kim F. Storm <storm@cua.dk>
-
- * filesets.el (filesets-run-cmd--repl-fn): Use shell-quote-argument.
-
-2006-10-14 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * filesets.el (filesets-cmd-shell-command): Quote buffer-file-name
- to protect whitespace and metacharacters from the shell.
-
-2006-10-13 Giorgos Keramidas <keramida@ceid.upatras.gr> (tiny change)
-
- * apropos.el (apropos-pattern-quoted): Fix a typo in a doc string.
-
-2006-10-13 Eli Zaretskii <eliz@gnu.org>
-
- * subr.el (start-process-shell-command): Doc fix.
-
-2006-10-13 Andrea Russo <rastandy@salug.it> (tiny change)
-
- * info-look.el <maxima-mode, inferior-maxima-mode>: Allow [0-9] in
- the regexp for Maxima symbols.
-
-2006-10-13 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * vc-hooks.el (vc-ignore-dir-regexp): Make it into a defcustom.
- (vc-find-root): Don't walk higher up than ~.
-
-2006-10-12 Chong Yidong <cyd@stupidchicken.com>
-
- * international/utf-8.el (utf-translate-cjk-load-tables):
- Avoid clobbering last-coding-system-used during load.
-
-2006-10-12 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/reftex-global.el (reftex-create-tags-file):
- Quote file arguments.
-
-2006-10-12 Richard Stallman <rms@gnu.org>
-
- * files.el (file-name-history): Add defvar.
- (save-some-buffers-action-alist): Improve description strings.
-
-2006-10-12 Andreas Schwab <schwab@suse.de>
-
- * files.el (auto-mode-alist): Match change log file name also with
- a dash before a numeric extension.
-
-2006-10-11 Ilya Zakharevich <ilyaz@cpan.org>
-
- * progmodes/cperl-mode.el: Merge from upstream, upto version 5.22.
- After 5.0:
- (cperl-add-tags-recurse-noxs-fullpath): New function (for -batch mode).
-
- After 5.1: Major edit. Summary of most visible changes:
-
- - Multiple <<HERE per line allowed.
- - Handles multiline subroutine declaration headers (with comments).
- (The exception is `cperl-etags' - but it is not used in the rest
- of the mode.)
- - Fontifies multiline my/our declarations (even with comments,
- and with legacy `font-lock').
- - Major speedup of syntaxification, both immediate and postponed
- (3.5x to 15x [for different CPUs and versions of Emacs] on the
- huge real-life document I tested).
- - New bindings, edits to imenu.
- - "_" is made into word-char during fontification/syntaxification;
- some attempts to recognize non-word "_" during other operations too.
- - Detect bug in Emacs with `looking-at' inside `narrow' and bulk out.
- - autoload some more perldoc-related stuff
- - New convenience features: ISpell POD/HEREDOCs, narrow-to-HEREDOC.
- - Attempt to incorporate XEmacs edits which reached me.
-
- Fine-grained changelog:
- (cperl-hook-after-change): New configuration variable.
- (cperl-vc-sccs-header): Likewise.
- (cperl-vc-sccs-header): Likewise.
- (cperl-vc-header-alist): Default via two preceding variables.
- (cperl-invalid-face): Remove double quoting under XEmacs
- (still needed under 21.2).
- (cperl-tips): Update URLs for resources.
- (cperl-problems): Likewise.
- (cperl-praise): Mention new features.
- 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"
- 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'.
- Allows heads up to head4.
- Allow "package;".
- (defun-prompt-regexp): Use `cperl-after-sub-regexp'.
- (paren-backwards-message): ??? Something for XEmacs???
- (cperl-mode): Never auto-switch abbrev-mode off.
- Try to allow '_' be non-word char.
- Do not use `font-lock-unfontify-region-function' on XEmacs.
- Reset syntax cache on mode start.
- Support multiline facification (even on legacy `font-lock').
- (cperl-facemenu-add-face-function): ??? Some contributed code ???
- (cperl-after-change-function): Since `font-lock' and `lazy-lock'
- refuse to inform us whether the fontification is due to lazy
- calling or due to edit to a buffer, install our own hook
- (controlled by `cperl-hook-after-change').
- (cperl-electric-pod): =cut may have been recognized as start.
- (cperl-block-p): Move, updated for attributes.
- (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-forward-re): Use `cperl-cached-syntax-table'.
- (cperl-unwind-to-safe): Recognize `syntax-type' property
- changing in a middle of line.
- (cperl-find-sub-attrs): New function.
- (cperl-find-pods-heres): Allow many <<EOP per line.
- Allow subs with attributes.
- Major speedups (3.5x..15x on a real-life test file nph-proxy.pl).
- Recognize "extproc " (OS/2) case-folded and only at start.
- /x on s///x with empty replacement was not recognized.
- Better comments.
- (cperl-after-block-p): Remarks on diff with `cperl-block-p'.
- Allow subs with attributes, labels.
- Do not confuse "else::foo" with "else".
- Minor optimizations...
- (cperl-after-expr-p): Try to allow '_' be non-word char.
- (cperl-fill-paragraph): Try to detect a major bug in Emacs
- with `looking-at' inside `narrow' and bulk out if found.
- (cperl-imenu--create-perl-index): Updates for new
- `cperl-imenu--function-name-regexp-perl'.
- (cperl-outline-level): Likewise.
- (cperl-init-faces): Allow multiline subroutine headers
- and my/our declarations, and ones with comments.
- Allow subroutine attributes.
- (cperl-imenu-on-info): Better docstring.
- (cperl-etags): Rudimentary support for attributes.
- Support for packages and "package;".
- (cperl-add-tags-recurse-noxs): Better (?) docstring.
- (cperl-add-tags-recurse-noxs-fullpath): Likewise.
- (cperl-tags-hier-init): Misprint for `fboundp' fixed.
- (cperl-not-bad-style-regexp): Try to allow '_' be non-word char.
- (cperl-perldoc): Add autoload.
- (cperl-perldoc-at-point): Likewise.
- (cperl-here-doc-spell): New function.
- (cperl-pod-spell): Likewise.
- (cperl-map-pods-heres): Likewise.
- (cperl-get-here-doc-region): Likewise.
- (cperl-font-lock-fontify-region-function): Likewise (backward
- compatibility for legacy `font-lock').
- (cperl-font-lock-unfontify-region-function): Fix style.
- (cperl-fontify-syntaxically): Recognize and optimize away deferred
- calls with no-change. Governed by `cperl-hook-after-change'.
- (cperl-fontify-update): Recognize that syntaxification region
- can be larger than fontification one.
- XXXX we leave `cperl-postpone' property, so this is quadratic...
- (cperl-fontify-update-bad): Temporary placeholder until
- it is clear how to implement `cperl-fontify-update'.
- (cperl-time-fontification): New function.
- (attrib-group): New text attribute.
- (multiline): New value: `syntax-type' text attribute.
-
- After 5.2:
- (cperl-emulate-lazy-lock): New function.
- (cperl-fontify-syntaxically): Would skip large regions.
- Add `cperl-time-fontification', `cperl-emulate-lazy-lock' to menu.
- Some globals were declared, but uninitialized.
-
- After 5.3, 5.4:
- (cperl-facemenu-add-face-function): Add docs, fix U<>.
- Copyright message updated.
- (cperl-init-faces): Work around a bug in `font-lock'. May slow
- facification down a bit.
- Misprint for my|our|local for old `font-lock'
- "our" was not fontified same as "my|local".
- Highlight variables after "my" etc even in
- a middle of an expression.
- Do not facify multiple variables after my etc
- unless parentheses are present.
-
- After 5.5, 5.6
- (cperl-fontify-syntaxically): after-change hook could reset.
- (cperl-syntax-done-to) to a middle of line; unwind to BOL.
-
- After 5.7:
- (cperl-init-faces): Allow highlighting of local ($/).
- (cperl-problems-old-emaxen): New variable (for the use of DOCSTRING).
- (cperl-problems): Remove fixed problems.
- (cperl-find-pods-heres): Recognize #-comments in m##x too.
- Recognize charclasses (unless delimiter is \).
- (cperl-fontify-syntaxically): Unwinding to safe was done in wrong order.
- (cperl-regexp-scan): Update docs.
- (cperl-beautify-regexp-piece): Use information got from regexp scan.
-
- After 5.8:
- Major user visible changes:
- Recognition and fontification of character classes in RExen.
- Variable indentation of RExen according to groups.
-
- (cperl-find-pods-heres): Recognize POSIX classes in REx charclasses.
- Fontify REx charclasses in variable-name face.
- Fontify POSIX charclasses in "type" face.
- Fontify unmatched "]" in function-name face.
- Mark first-char of HERE-doc as `front-sticky'.
- Reset `front-sticky' property when needed.
- (cperl-calculate-indent): Indents //x -RExen accordning to parens level.
- (cperl-to-comment-or-eol): Recognize ends of `syntax-type' constructs.
- (cperl-backward-to-noncomment): Recognize stringy `syntax-type'
- constructs. Support `narrow'ed buffers.
- (cperl-praise): Remove a reservation.
- (cperl-make-indent): New function.
- (cperl-indent-for-comment): Use `cperl-make-indent'.
- (cperl-indent-line): Likewise.
- (cperl-lineup): Likewise.
- (cperl-beautify-regexp-piece): Likewise.
- (cperl-contract-level): Likewise.
- (cperl-toggle-set-debug-unwind): New function.
- New menu entry for this.
- (fill-paragraph-function): Use when `boundp'.
- (cperl-calculate-indent): Take into account groups when indenting RExen.
- (cperl-to-comment-or-eol): Recognize # which end a string.
- (cperl-modify-syntax-type): Make only syntax-table property non-sticky.
- (cperl-fill-paragraph): Return t: needed for `fill-paragraph-function'.
- (cperl-fontify-syntaxically): More clear debugging message.
- (cperl-pod2man-build-command): Check (XEmacs) `Man-filter-list'.
- (cperl-init-faces): More complicated highlight even on XEmacs (new).
- Merge cosmetic changes from XEmacs.
-
- After 5.9:
- (cperl-1+): Move to before the first use.
- (cperl-1-): Likewise.
-
- After 5.10:
-
- This code may lock Emacs hard!!! Use at your own risk!
-
- (cperl-font-locking): New internal variable.
- (cperl-beginning-of-property): New function.
- (cperl-calculate-indent): Use `cperl-beginning-of-property'
- instead of `previous-single-property-change'.
- (cperl-unwind-to-safe): Likewise.
- (cperl-after-expr-p): Likewise.
- (cperl-get-here-doc-region): Likewise.
- (cperl-font-lock-fontify-region-function): Likewise.
- (cperl-to-comment-or-eol): Do not call `cperl-update-syntaxification'
- recursively.
- Bound `next-single-property-change' via `point-max'.
- (cperl-unwind-to-safe): Bound likewise
- (cperl-font-lock-fontify-region-function): Likewise.
- (cperl-find-pods-heres): Mark as recursive for `cperl-to-comment-or-eol'
- Initialization of `cperl-font-lock-multiline-start' could be
- missed if the "main" fontification did not run due to the
- keyword being already fontified.
- (cperl-pod-spell): Return t from do-one-chunk function.
- (cperl-map-pods-heres): Stop when the worker returns nil.
- Call `cperl-update-syntaxification'.
- (cperl-get-here-doc-region): Call `cperl-update-syntaxification'.
- (cperl-get-here-doc-delim): Remove unused function.
-
- After 5.11:
-
- The possible lockup of Emacs (introduced in 5.10) fixed.
-
- (cperl-unwind-to-safe): `cperl-beginning-of-property' won't return nil.
- (cperl-syntaxify-for-menu): New customization variable.
- (cperl-select-this-pod-or-here-doc): New function.
- (cperl-get-here-doc-region): Extra argument.
- Do not adjust pos by 1.
-
- New menu entries
- (Perl/Tools): Selection of current POD or HERE-DOC section.
- (Debugging CPerl:) backtrace on fontification.
-
- After 5.12:
- (cperl-cached-syntax-table): Use `car-safe'.
- (cperl-forward-re): Remove spurious argument SET-ST.
- Add documentation.
- (cperl-forward-group-in-re): New function.
- (cperl-find-pods-heres): Find and highlight (?{}) blocks in RExen
- (XXXX Temporary (?) hack is to syntax-mark them as comment).
-
- After 5.13:
- (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 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.
- (cperl-maybe-white-and-comment-rex): New constant
- (cperl-white-and-comment-rex): Likewise.
- XXXX Not very efficient, but hard to make
- better while keeping 1 group.
-
- After 5.13:
- (cperl-find-pods-heres): $foo << identifier() is not a HERE-DOC.
- Likewise for 1 << identifier.
-
- After 5.14:
- (cperl-find-pods-heres): Different logic for $foo .= <<EOF etc.
- Error-less condition-case could fail.
- (cperl-font-lock-fontify-region-function): Likewise.
- (cperl-init-faces): Likewise.
-
- After 5.15:
- (cperl-find-pods-heres): Support property REx-part2.
- (cperl-calculate-indent): Likewise.
- Don't special-case REx with non-empty 1st line.
- (cperl-find-pods-heres): In RExen, highlight non-literal backslashes.
- Invert highlighting of charclasses:
- now the envelop is highlighted.
- Highlight many others 0-length builtins.
- (cperl-praise): Mention indenting and highlight in RExen.
-
- After 5.15:
- (cperl-find-pods-heres): Highlight capturing parens in REx.
-
- After 5.16:
- (cperl-find-pods-heres): Highlight '|' for alternation
- Initialize `font-lock-warning-face' if not present.
- (cperl-find-pods-heres): Use `font-lock-warning-face' instead of
- `font-lock-function-name-face'.
- (cperl-look-at-leading-count): Likewise.
- (cperl-find-pods-heres): Localize `font-lock-variable-name-face',
- `font-lock-keyword-face' (needed for
- batch processing), etc...
- Use `font-lock-builtin-face' for builtin in REx
- Now `font-lock-variable-name-face'
- is used for interpolated variables
- Use "talking aliases" for faces inside REx
- Highlight parts of REx (except in charclasses)
- according to the syntax and/or semantic
- Syntax-mark a {}-part of (?{}) as "comment"
- (it was the ()-part)
- Better logic to distinguish what is what in REx
- (cperl-tips-faces): Document REx highlighting
- (cperl-praise): Mention REx syntax highlight etc.
-
- After 5.17:
- (cperl-find-sub-attrs): Would not always manage to print error message.
- (cperl-find-pods-heres): Localize `font-lock-constant-face'.
-
- After 5.18:
- (cperl-find-pods-heres): Misprint in REx for parsing REx.
- Very minor optimization.
- `my-cperl-REx-modifiers-face' got quoted.
- Recognize "print $foo <<END" as HERE-doc.
- Put `REx-interpolated' text attribute if needed.
- (cperl-invert-if-unless-modifiers): New function.
- (cperl-backward-to-start-of-expr): Likewise.
- (cperl-forward-to-end-of-expr): Likewise.
- (cperl-invert-if-unless): Works in "the opposite way" too.
- Cursor position on return is on the switch-word.
- Indents comments better.
- (REx-interpolated): New text attribute.
- (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.
- Perl/Regexp menu: 3 new entries for `cperl-next-interpolated-REx'.
- (cperl-praise): Mention finded interpolated RExen.
-
- After 5.19:
- (cperl-init-faces): Highlight %$foo, @$foo too.
- (cperl-short-docs): Better docs for system, exec.
- (cperl-find-pods-heres): Better detect << after print {FH} <<EOF etc.
- Would not find HERE-doc ended by EOF without NL.
- (cperl-short-docs): Correct not-doubled \-escapes.
- start block: Put some `defvar' for stuff gone from XEmacs.
-
- After 5.20:
- initial comment: Extend copyright, fix email address.
- (cperl-indent-comment-at-column-0): New customization variable.
- (cperl-comment-indent): Indentation after $#a would increasy by 1.
- (cperl-mode): Make `defun-prompt-regexp' grok BEGIN/END etc.
- (cperl-find-pods-heres): Mark CODE of s///e as `syntax-type' `multiline'
- (cperl-at-end-of-expr): Would fail if @BAR=12 follows after ";".
- (cperl-init-faces): If `cperl-highlight-variables-indiscriminately'
- highlight $ in $foo too (UNTESTED).
- (cperl-set-style): Docstring missed some available styles.
- toplevel: Menubar/Perl/Indent-Styles had FSF, now K&R.
- Change "Current" to "Memorize Current".
- (cperl-indent-wrt-brace): New customization variable; the default is
- as for pre-5.2 version.
- (cperl-styles-entries): Keep `cperl-extra-newline-before-brace-multiline'.
- (cperl-style-alist): Likewise.
- (cperl-fix-line-spacing): Support `cperl-merge-trailing-else' being nil,
- and `cperl-extra-newline-before-brace' etc
- being t
- (cperl-indent-exp): Plans B and C to find continuation blocks even
- if `cperl-extra-newline-before-brace' is t.
-
- After 5.21:
- Improve some docstrings concerning indentation.
- (cperl-indent-rules-alist): New variable.
- (cperl-sniff-for-indent): New function name
- (separated from `cperl-calculate-indent').
- (cperl-calculate-indent): Separate the sniffer and the indenter;
- uses `cperl-sniff-for-indent' now.
- (cperl-comment-indent): Test for `cperl-indent-comment-at-column-0'
- was inverted;
- Support `comment-column' = 0.
-
-2006-10-11 Martin Rudalics <rudalics@gmx.at>
-
- * dnd.el (dnd-handle-one-url): Fix typo in doc-string.
- * help-at-pt.el (scan-buf-move-to-region): Likewise.
- * longlines.el (longlines-window-change-function): Likewise.
- * simple.el (undo-ask-before-discard): Likewise.
- * wid-edit.el (widget-field-prompt-internal)
- (widget-documentation-link-p): Likewise.
-
-2006-10-10 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-get-kw): | is not among the allowed chars
- for a keyword.
-
-2006-10-09 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * newcomment.el (comment-valid-prefix-p): Make the check
- more thorough. From an idea by Martin Rudalics <rudalics@gmx.at>.
- (comment-indent-new-line): Adjust call.
-
-2006-10-09 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-back-to-current-heading): Base on lower-level
- routines to get proper disqualification of aberrant topics.
-
-2006-10-09 Richard Stallman <rms@gnu.org>
-
- * textmodes/two-column.el (2C-two-columns): Doc fix.
-
-2006-10-09 Kim F. Storm <storm@cua.dk>
-
- * shell.el (explicit-csh-args, explicit-bash-args): Add comment
- about implicit use.
-
-2006-10-08 Richard Stallman <rms@gnu.org>
-
- * textmodes/two-column.el (2C-two-columns): Doc fix.
-
-2006-10-08 Reiner Steib <Reiner.Steib@gmx.de>
-
- * files.el: Mark `buffer-read-only' as safe-local-variable.
-
-2006-10-08 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-speedbar-expand-node):
- Burp if GUD buffer has been killed.
-
-2006-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * completion.el (add-completions-from-c-buffer):
- Don't presume an error's second element is a string.
- Use looking-at rather than buffer-substring + member.
-
-2006-10-07 Eli Zaretskii <eliz@gnu.org>
-
- * mail/rmail.el (rmail-redecode-body): If the old encoding is
- `undecided', call find-coding-systems-region to find a proper
- non-trivial encoding.
- (rmail-mime-charset-pattern): Allow a TAB between "Content-Type"
- and "text/plain".
-
-2006-10-07 Kevin Ryde <user42@zip.com.au>
-
- * textmodes/reftex-vars.el (defgroup reftex): Update home page
- url-link.
-
- * strokes.el (defgroup strokes): Remove invalid url-link.
-
-2006-10-07 Magnus Henoch <mange@freemail.hu>
-
- * autoinsert.el (auto-insert-alist): Doc fix.
-
-2006-10-07 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * mouse-sel.el (mouse-insert-selection-internal):
- Use insert-for-yank, so that yank handlers are run.
-
-2006-10-07 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-file-extension-aux): Fix comparison.
-
-2006-10-06 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-wide-find-dirs-or-files): Use shell-quote-argument.
-
-2006-10-05 Juanma Barranquero <lekktu@gmail.com>
-
- * emacs-lisp/advice.el (ad-remove-advice, ad-parse-arglist)
- (ad-make-mapped-call): Use `let', not `let*'.
-
-2006-10-05 Chong Yidong <cyd@stupidchicken.com>
-
- * international/mule-cmds.el (coding-system-change-eol-conversion):
- Ensure the coding system is initialized before calling
- coding-system-eol-type.
-
-2006-10-04 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-rm-props, org-activate-plain-links)
- (org-activate-angle-links, org-activate-dates)
- (org-activate-target-links, org-activate-camels)
- (org-activate-tags): Add `rear-nonsticky' text property to avoid
- textproperty keymaps from being active beyond the end of a line.
- (org-unfontify-region): Also remove `rear-nonsticky' property.
-
-2006-10-04 Kenichi Handa <handa@m17n.org>
-
- * international/code-pages.el (next): Table fixed.
-
-2006-10-04 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-prev-thing): Remove (forward-char 1) now
- that it's been made unnecessary by removing narrowing.
-
-2006-10-03 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-prev-thing): Massage to untangle the
- control flow a bit, simplify another bit, and add comments.
-
-2006-10-03 David Kastrup <dak@gnu.org>
-
- * help.el (describe-mode): For clicks on mode-line, use "@"
- interactive argument to get the major mode of the click instead of
- the current buffer.
-
- * isearch.el (isearch-mouse-2): Use new semantics of `key-binding'
- in order to better redirect mouse-2 clicks. Also allow default
- bindings to apply.
-
-2006-10-03 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/cl.el (pushnew-internal): Remove defvar.
- (pushnew): Fix last change.
-
-2006-10-03 Denis St\e,A|\e(Bnkel <dstuenkel@googlemail.com> (tiny change)
-
- * ibuf-ext.el (eval, view-and-eval) <define-ibuffer-op>:
- Use the interactive spec of `eval-expression'.
-
-2006-10-02 Michael Welsh Duggan <md5i@cs.cmu.edu>
-
- * progmodes/sh-script.el (sh-prev-thing): Fix last change.
-
-2006-10-02 MIYOSHI Masanori <miyoshi@meadowy.org> (tiny change)
-
- * mail/smtpmail.el (smtpmail-try-auth-methods): Fix typo in
- 2006-09-28 commit.
-
-2006-10-02 Kenichi Handa <handa@m17n.org>
-
- * international/code-pages.el (iso-8859-6): Table fixed.
-
-2006-10-01 Chris Moore <christopher.ian.moore@gmail.com>
-
- * dired.el (dired-build-subdir-alist): Fix previous change.
-
-2006-10-01 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * simple.el (undo-elt-crosses-region): Fix the inequalities.
-
-2006-10-01 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/find-func.el (find-function-regexp): Don't match
- "define-button-type".
-
- * pcvs.el (cvs-update-header): Fix handling of extra newlines so that
- they don't keep accumulating.
-
-2006-10-01 Bob Rogers <rogers-emacs@rgrjr.dyndns.org> (tiny change)
-
- * ffap.el (ffap-rfc-path): Change the address of the RFC
- repository to ftp.rfc-editor.org, as ds.internic.net seems to be gone.
-
-2006-10-01 Stephen Berman <Stephen.Berman@gmx.net>
-
- * allout.el (allout-expose-topic): Rectify implementation of "+"
- spec, so that bodies are not exposed with headlines.
-
-2006-10-01 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-current-depth): Do aberrent check only at or
- below doublecheck depth.
- (allout-chart-subtree): Make it explicit that LEVELS being nil
- means unlimited depth. Drop undocumented support for LEVELS value
- t meaning unlimited depth. (This is consistent with
- allout-chart-to-reveal, but contrary to allout-show-children,
- which needs to use nil to default to depth of 1.)
- (allout-goto-prefix-doublechecked): Wrap long docstring line.
- (allout-chart-to-reveal): Be explicit in docstring about meaning
- of nil LEVELS, and drop support for LEVELS value t.
- (allout-show-children): Translate the level spec used by this
- routine to that used by allout-chart-subtree and
- allout-chart-to-reveal.
- (allout-show-to-offshoot): Retry once when stuck, after opening
- subtree - improvements in discontinuity handling likely will
- enable progress.
-
-2006-09-30 Chong Yidong <cyd@stupidchicken.com>
-
- * 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.
-
- * cus-edit.el (custom-mode): Set widget-button-click-moves-point.
-
-2006-09-30 Martin Rudalics <rudalics@gmx.at>
-
- * files.el (find-file-existing): Modify to not allow wildcards.
-
-2006-09-30 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
-
- * simple.el (undo-more): When undo information for the region is
- exhausted, say "No further undo information FOR REGION".
-
-2006-09-30 Michael Welsh Duggan <md5i@cs.cmu.edu>
-
- * progmodes/sh-script.el (sh-prev-thing):
- Take `sh-leading-keywords' into account.
-
-2006-09-29 Glenn Morris <rgm@gnu.org>
-
- * custom.el (defcustom): Doc fix.
-
- * calendar/calendar.el (european-calendar-style):
- Call european-calendar or american-calendar as needed when set.
- (diary-view-entries, list-calendar-holidays): Move autoloads
- before use.
-
-2006-09-29 Juri Linkov <juri@jurta.org>
-
- * progmodes/cperl-mode.el (cperl-after-expr-p): Don't move point
- to nil if there is no previous property change.
-
-2006-09-29 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * cus-edit.el (custom-save-all): Switch to emacs-lisp mode before
- saving anything to be sure that `forward-sexp' behaves correctly.
-
-2006-09-29 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-finish): Ignore field boundaries if the
- initial and final points have the same `field' property.
-
-2006-09-29 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-file-internal): Only bind minibuffer-completing-file-name
- to t while calling ido-read-internal.
-
-2006-09-29 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-file-remote-p): Get regexp from list.
- (org-archive-subtree): Remove erraneous `]' from character list.
-
-2006-09-28 Jonathan Yavner <jyavner@member.fsf.org>
-
- * ses.el (ses-in-print-area, ses-goto-data, ses-load)
- (ses-reconstruct-all): Make undo of "insert row" work by keeping
- markers for data-area and parameters-area.
-
-2006-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/make-mode.el (makefile-mode): Don't disable jit-lock.
-
- * font-lock.el (font-lock-after-change-function): Refontify next line
- as well if end is at BOL.
- (font-lock-extend-jit-lock-region-after-change): Be more careful to
- only extend the region as much as needed.
-
-2006-09-28 Richard Stallman <rms@gnu.org>
-
- * comint.el (comint-mode): Bind font-lock-defaults non-nil.
-
- * subr.el (insert-for-yank-1): Handle `font-lock-face' specially.
-
- * international/mule.el (after-insert-file-set-coding):
- If VISIT, don't let set-buffer-multibyte make undo info.
-
-2006-09-28 Osamu Yamane <yamane@green.ocn.ne.jp> (tiny change)
-
- * mail/smtpmail.el (smtpmail-try-auth-methods): Do not break long
- lines in base64-encoded authentication response.
-
-2006-09-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * progmodes/ebnf2ps.el: Doc fix. Implement arrow spacing and scaling.
- (ebnf-version): New version 4.3.
- (ebnf-arrow-extra-width, ebnf-arrow-scale): New options.
- (ebnf-prologue): Adjust PostScript programming.
- (ebnf-begin-file, ebnf-insert-ebnf-prologue, ebnf-terminal-dimension1)
- (ebnf-repeat-dimension, ebnf-except-dimension): Adjust code.
-
-2006-09-26 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * jit-lock.el (jit-lock-force-redisplay): Rename from
- jit-lock-fontify-again, and undo the mistaken change I've just done.
-
- * jit-lock.el (jit-lock-fontify-now): Don't fontify the empty text.
- (jit-lock-fontify-again): Don't refontify text that's not displayed.
-
-2006-09-26 Kenichi Handa <handa@m17n.org>
-
- * startup.el (display-splash-screen): Allow a prefix argument.
-
-2006-09-25 Jason Rumney <jasonr@gnu.org>
-
- * subr.el (shell-quote-argument): Use DOS logic for Windows
- shells with DOS semantics.
-
-2006-09-24 Richard Stallman <rms@gnu.org>
-
- * progmodes/compile.el (compilation-goto-locus-delete-o): New fn.
- (compilation-goto-locus): Use compilation-goto-locus-delete-o
- to delete the overlay. Put it on pre-command-hook.
-
- * emacs-lisp/timer.el (timer-max-repeats): Doc fix.
-
- * startup.el (fancy-splash-screens, normal-splash-screen):
- Call the splash buffer *About GNU Emacs*.
-
- * simple.el (next-error-highlight, next-error-highlight-no-select):
- Default to 0.5.
- (yank-excluded-properties): Add `fontified'.
-
- * font-lock.el (font-lock-compile-keywords): Allow value of
- syntax-begin-function to enable paren-column-0 highlighting.
-
-2006-09-24 Chris Moore <christopher.ian.moore@gmail.com>
-
- * dired.el (dired-build-subdir-alist): When file ends in colon,
- don't exit the loop, just disregard that file.
-
-2006-09-24 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-finish): Handle corner case for fields in
- continued lines.
- (line-move-1): Remove flawed test for that case.
-
-2006-09-24 Ken Manheimer <ken.manheimer@gmail.com>
-
- * icomplete.el (icomplete-simple-completing-p): Use the correct
- name for the new variable, `icomplete-with-completion-tables'.
- (file local variables): Remove superfluous setting.
-
-2006-09-23 Jeff Miller <jmiller@cablespeed.com> (tiny change)
-
- * calendar/appt.el (appt-check): Fix typo for appointments just
- after midnight.
-
-2006-09-23 Chong Yidong <cyd@stupidchicken.com>
-
- * help.el (describe-key-briefly, describe-key): Don't expect an
- extra up event if a down-event is generated by a popup menu.
-
-2006-09-23 Michal Nazarewicz <mnazarewicz@gmail.com> (tiny change)
-
- * textmodes/ispell.el (ispell-change-dictionary): Don't check the
- local dictionary when changing the global dictionary.
-
-2006-09-23 Ken Manheimer <ken.manheimer@gmail.com>
-
- * icomplete.el (icomplete-with-completion-tables): List of
- specialized completion tables with which icomplete should
- operate. Include the new `internal-complete-buffer', so icomplete
- works with interactive buffer-selection.
- (icomplete-simple-completing-p): Add acceptance of specialized
- completion tables listed in icomplete-with-completion-tables.
-
-2006-09-23 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * frame.el (focus-follows-mouse): Set default to nil on Mac.
-
- * startup.el (command-line): Use `custom-reevaluate-setting' for
- `focus-follows-mouse'.
-
-2006-09-22 Richard Stallman <rms@gnu.org>
-
- * cus-edit.el (custom-buffer-create-internal): In `emacs -q',
- explain why Save is not available.
-
-2006-09-22 Juanma Barranquero <lekktu@gmail.com>
-
- * woman.el (woman0-so): Use `let*', not `let'.
- (woman-horizontal-line): Remove unbalanced parenthesis.
-
-2006-09-22 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * woman.el: Make sure all the end-of-region markers we use have
- a non-nil insertion-type.
- (woman0-so): Move things around so we can use copy-marker.
- (woman0-roff-buffer, woman2-process-escapes-to-eol, woman2-roff-buffer):
- Adjust marker type.
- (woman2-process-escapes): Check marker type.
- (woman-horizontal-line): Dispense with the use of a marker.
-
-2006-09-22 Jay Belanger <belanger@truman.edu>
-
- * calc/calc-lang.el: Add Greek letters to math-variable-table
- property of tex.
-
-2006-09-22 Chong Yidong <cyd@stupidchicken.com>
-
- * files.el (save-some-buffers-action-alist): Display diff in view-mode.
-
-2006-09-22 Masatake YAMATO <jet@gyve.org>
-
- * add-log.el (add-log-current-defun): Use `forward-sexp'
- instead of `forward-word' to pick c++::symbol.
- Reported by Guanpeng Xu <herberteuler@hotmail.com>.
-
-2006-09-22 Kenichi Handa <handa@m17n.org>
-
- * bindings.el: Fix setting self-insert-command for multibyte
- characters in global-map.
-
-2006-09-21 David Kastrup <dak@gnu.org>
-
- * mouse.el (mouse-posn-property): Fix typo for `event-start' in
- doc string.
-
-2006-09-21 Kenichi Handa <handa@m17n.org>
-
- * language/european.el ("Latin-1"): Add windows-1252 to
- coding-priority.
- ("German"): Likewise.
-
-2006-09-21 Kim F. Storm <storm@cua.dk>
-
- * emacs-lisp/cl-macs.el (member*): Use memql instead of complex code.
- Suggested by Miles Bader.
-
- * emacs-lisp/cl.el (pushnew): Rework 2006-09-10 change. Use memql
- instead of add-to-list in the simple case.
-
-2006-09-20 Kenichi Handa <handa@m17n.org>
-
- * isearch.el (isearch-process-search-char): Cancel the previous change.
- (isearch-search-string): New function.
- (isearch-search): Use isearch-search-string.
- (isearch-lazy-highlight-search): Likewise.
-
-2006-09-20 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-
- * lpr.el (lpr-page-header-switches): Insert `*' at beginning of doc
- string to become an option.
-
-2006-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * files.el (find-buffer-visiting): Don't get fooled by a nil inode.
-
-2006-09-20 Kim F. Storm <storm@cua.dk>
-
- * simple.el (line-move-partial): Call pos-visible-in-window-p with
- position t instead of trying both window-end and window-end - 1.
-
-2006-09-20 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-scan-tags): Find end of subtrees also in
- hidden trees.
-
-2006-09-20 David Kastrup <dak@gnu.org>
-
- * mouse.el (mouse-posn-property): Improve doc string.
- (mouse-on-link-p): Change buffers for function calls on links.
-
- * menu-bar.el (clipboard-yank): Bomb out in interactive use if
- buffer is read-only.
-
-2006-09-20 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-unprotected): Let inhibit-read-only only when
- 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
- 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.
- (allout-copy-line-as-kill, allout-copy-topic-as-kill):
- Copy wrappers for allout-kill-line and allout-kill-topic.
- (allout-listify-exposed): Position correctly to accumulate lines.
-
-2006-09-19 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-1): Escape field boundaries occurring
- exactly at point. Update goal column if constrained to a field.
- (line-move-finish): Escape field boundaries occurring exactly at point.
-
-2006-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * mouse.el (mouse-on-link-p): Tentatively fix last change.
- (mouse-drag-vertical-line): Remove unused var `wconfig'.
-
-2006-09-19 Kim F. Storm <storm@cua.dk>
-
- * help.el (describe-key-briefly, describe-key): Simplify printing
- of descriptions by using format and %S. Fix "is undefined"
- messages to say "at that spot" for mouse events.
-
- * simple.el (line-move-partial): Optimize. Try window-line-height
- before posn-at-point to get vpos of current line.
-
-2006-09-18 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * emulation/viper.el: Bump up version/date of update to reflect the
- substantial changes done in August 2006.
-
- * emulation/viper-cmd.el (viper-next-line-at-bol): Make sure button-at,
- push-button are defined.
-
- * ediff-util.el (ediff-add-to-history): New function.
-
- * ediff.el: Use ediff-add-to-history instead of add-to-history.
-
-2006-09-18 Wolfgang Jenkner <wjenkner@inode.at> (tiny change)
-
- * textmodes/conf-mode.el (conf-space-mode): Doc fix.
- Delete duplicate make-local-variable form.
- (conf-space-keywords): Add autoload cookie.
- Fix typo (`keywords', not `keyword').
-
-2006-09-18 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * 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.
-
-2006-09-18 Richard Stallman <rms@gnu.org>
-
- * wid-edit.el (widget-button-click): Handle non-mouse-motion events
- that might come in during mouse tracking.
-
-2006-09-18 Kim F. Storm <storm@cua.dk>
-
- * simple.el (line-move-partial): Rework 2006-09-15 change to use
- new window-line-height function. Further optimize by not calling
- pos-visible-in-window-p for window-end when window-line-height
- returns useful information.
-
-2006-09-16 Richard Stallman <rms@gnu.org>
-
- * textmodes/conf-mode.el (conf-mode-map): Use conf-space-keywords cmd.
- (conf-space-mode): Don't handle prefix arg.
- Delete conf-space-keywords-override code.
- Use add-hook.
- (conf-space-keywords): New command.
- (conf-space-mode-internal): Be careful with imenu-generic-expression.
- Delete conf-space-keywords-override code.
- (conf-space-keywords-alist): Doc fix.
- (conf-space-font-lock-keywords): Doc fix.
- (conf-space-keywords-override): Var deleted.
-
-2006-09-16 Chong Yidong <cyd@stupidchicken.com>
-
- * startup.el (fancy-splash-screens): Don't switch to the scratch
- buffer; it may not be the next buffer.
-
-2006-09-16 Romain Francoise <romain@orebokech.com>
-
- * saveplace.el (load-save-place-alist-from-file): Use expanded name
- in both messages.
-
-2006-09-16 Slawomir Nowaczyk <slawomir.nowaczyk.847@student.lu.se>
-
- * progmodes/python.el (python-preoutput-filter):
- Fix arg order to string-match.
-
-2006-09-16 Richard Stallman <rms@gnu.org>
-
- * obsolete/fast-lock.el (fast-lock-cache-data): Provide 2nd arg to
- font-lock-compile-keywords.
-
- * font-lock.el (font-lock-compile-keywords): Rename optional arg
- to SYNTACTIC-KEYWORDS and reverse the sense. All callers changed.
-
-2006-09-16 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * cus-start.el (all): Add x-gtk-show-chooser-help-text.
-
- * select.el (xselect-convert-to-string): If UTF8_STRING is requested
- and the data doesn't look like UTF8, send STRING instead.
-
-2006-09-16 Agust\e,Am\e(Bn Mart\e,Am\e(Bn <agustin.martin@hispalinux.es>
-
- * textmodes/flyspell.el (flyspell-check-region-doublons):
- New function to detect duplicated words.
- (flyspell-large-region): Use it.
-
-2006-09-16 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-to-column): Revert 2006-08-03 change.
-
-2006-09-16 Eli Zaretskii <eliz@gnu.org>
-
- * help.el (describe-prefix-bindings): Use let, not let*.
-
-2006-09-16 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-regexp, allout-line-boundary-regexp)
- (allout-bob-regexp): Correct grouping and boundaries to fix
- backwards traversal.
- (allout-depth-specific-regexp, allout-depth-one-regexp):
- New versions that exploit \\{M\\} regexp syntax, to avoid geometric or
- worse time in allout-ascend.
- (allout-doublecheck-at-and-shallower): Identify depth threshold
- below which topics are checked for and disqualified by containment
- discontinuities.
- (allout-hotspot-key-handler): Correctly handle multiple-key
- strokes. Remove some unused variables.
- (allout-mode-leaders): Clarify that mode-specific comment-start
- will be used.
- (set-allout-regexp): Correctly regexp-quote allout regexps to
- properly accept alternative header-leads and primary bullets with
- regexp-specific characters (eg, C "/*", mathematica "(*").
- Include new regular expressions among those configured.
- (allout-infer-header-lead-and-primary-bullet):
- Rename allout-infer-header-lead.
- (allout-recent-depth): Manifest as a variable as well as a function.
- (allout-prefix-data): Simplify into an inline instead of a macro,
- assuming current match data rather than being explicitly passed
- it. Establish allout-recent-depth value as well as
- allout-recent-prefix-beginning and allout-recent-prefix-end.
- (allout-aberrant-container-p): True when an item's immediate
- offspring discontinuously contained. Useful for disqualifying
- unintended topic prefixes, likely at low depths.
- (allout-goto-prefix-doublechecked): Elaborate version of
- allout-goto-prefix which disqualifies aberrant pseudo-items.
- (allout-pre-next-prefix): Layer on top of lower-level routines, to
- get disqualification of aberrant containers.
- (allout-end-of-prefix, allout-end-of-subtree): Disqualify aberrant
- containers.
- (allout-beginning-of-current-entry): Position at start of buffer
- when in container (depth 0) entry.
- (nullify-allout-prefix-data): Invalidate allout-recent-* prefix data.
- (allout-current-bullet): Strip text properties.
- (allout-get-prefix-bullet): Use right match groups.
- (allout-beginning-of-line, allout-next-heading):
- Disqualify aberrant containers.
- (allout-previous-heading): Disqualify aberrant containers, and
- change to regular (rather than inline) function, to allow
- self-recursion.
- (allout-get-invisibility-overlay): Increment so progress is made
- when the first overlay is not the sought one.
- (allout-end-of-prefix): Disqualify aberrant containers.
- (allout-end-of-line): Cycle something like allout-beginning-of-line.
- (allout-mode): Make allout-old-style-prefixes (ie, enabling use with
- outline.el outlines) functional again. Change the primary bullet
- along with the header-lead - level 1 new-style bullets now work.
- Engage allout-before-change-handler in mainline Emacs, not just
- XEmacs, to do undo handling.
- (allout-before-change-handler): Expose undo changes occurring in
- hidden regions. Use allout-get-invisibility-overlay instead of
- reimplementing it inline.
- (allout-chart-subtree): Use start rather than end of prefix in
- charts. Use allout-recent-depth variable.
- (allout-chart-siblings): Disqualify aberrant topics.
- (allout-beginning-of-current-entry): Position correctly.
- (allout-ascend): Use new allout-depth-specific-regexp and
- allout-depth-one-regexp for linear instead of O(N^2) or worse
- behavior.
- (allout-ascend-to-depth): Depend on allout-ascend, rather than
- reimplementing an algorithm.
- (allout-up-current-level): Depend on allout-ascend, rather than
- reimplementing an algorithm. Return to start-point if we fail.
- (allout-descend-to-depth): Use allout-recent-depth variable
- instead of function.
- (allout-next-sibling): On traversal of numerous intervening
- topics, resort to economical allout-next-sibling-leap.
- (allout-next-sibling-leap): Specialized version of
- allout-next-sibling that uses allout-ascend cleverly, to depend on
- a regexp search to leap large numbers of contained topics, rather
- than arbitrarily many one-by-one traversals.
- (allout-next-visible-heading): Disqualify aberrant topics.
- (allout-previous-visible-heading): Position consistently when
- interactive.
- (allout-forward-current-level): Base on allout-previous-sibling
- rather than (differently) reimplmenting the algorithm. Remove some
- unused variables.
- (allout-solicit-alternate-bullet): Present default choice stripped
- of text properties.
- (allout-rebullet-heading): Use bullet stripped of text properties.
- Register changes using allout-exposure-change-hook.
- Disregard aberrant topics.
- (allout-shift-in): With universal-argument, make topic a peer of
- it's former offspring. Simplify the code by separating out
- allout-shift-out functionality.
- (allout-shift-out): With universal-argument, make offspring peers
- of their former container, and its siblings. Implement the
- functionality here, rather than inappropriately muddling the
- implementation of allout-shift-in.
- (allout-rebullet-topic): Respect additional argument for new
- parent-child separation function.
- (allout-yank-processing): Use allout-ascend directly.
- (allout-show-entry): Disqualify aberrant topics.
- (allout-show-children): Handle discontinuous children gracefully,
- extending the depth being revealed to expose them and posting a
- message indicating the situation.
- (allout-show-to-offshoot): Remove obsolete and incorrect comment.
- Leave cursor in correct position.
- (allout-hide-current-subtree): Use allout-ascend directly.
- Disqualify aberrant topics.
- (allout-kill-line, allout-kill-topic): Preserve exposure layout in
- a way that the yanks can restore it, as used to happen.
- (allout-yank-processing): Restore exposure layout as recorded by
- allout-kill-*, as used to happen.
- (allout-annotate-hidden, allout-hide-by-annotation): New routines
- for preseving and restoring exposure layout across kills.
- (allout-toggle-subtree-encryption): Run allout-exposure-change-hook.
- (allout-encrypt-string): Strip text properties.
- Rearranged order and outline-headings for some of the
- miscellaneous functions.
- (allout-resolve-xref): No need to quote the error name in the
- condition-case handler section.
- (allout-flatten): Classic recursive (and recursively intensive,
- without tail-recursion) list-flattener, needed by allout-shift-out
- when confronted with discontinuous children.
-
-2006-09-16 Jason Rumney <jasonr@gnu.org>
-
- * dnd.el (dnd-open-remote-file-function): Use dnd-open-local-file
- on ms-windows.
- (dnd-open-unc-file): Remove.
- (dnd-open-local-file): Mention in doc string that it also handles
- remote files if the system natively supports unc file-names.
-
-2006-09-15 Kim F. Storm <storm@cua.dk>
-
- * help.el (describe-key): Handle C-h k in *Help* buffer; collect
- all necessary information about the event before erasing *Help*.
-
- * simple.el (line-move-partial): Use window-line-visiblity to
- quickly check whether last line is partially visible, and only do
- the hard (and slow) part in that case.
-
-2006-09-15 Jay Belanger <belanger@truman.edu>
-
- * COPYING: Replace "Library Public License" by "Lesser Public
- License" throughout.
-
-2006-09-15 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-menu-bar-open): New function for F10.
-
-2006-09-15 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/compile.el (compilation-error-regexp-alist-alist):
- Disallow filenames containing " -" to avoid confusion with libtool
- compilation messages. Suggested by Stefan Monnier.
-
-2006-09-15 David Kastrup <dak@gnu.org>
-
- * mouse-sel.el (mouse-sel-follow-link-p): Use event position
- instead of buffer position for `mouse-on-link-p'.
-
- * mouse.el (mouse-posn-property): New function looking up the
- properties at a click position in overlays and text properties in
- either buffer or strings.
- (mouse-on-link-p): Use `mouse-posn-property' to streamline lookup
- of both `follow-link' as well as `mouse-face' properties.
- (mouse-drag-track): Check `mouse-on-link-p' on event position, not
- buffer position.
-
- * help.el (describe-key-briefly): When reading a down-event on
- mode lines or scroll bar, swallow the following up event, too.
- Use the new mouse sensitity of `key-binding' for lookup.
- (describe-key): The same here.
-
-2006-09-15 Juanma Barranquero <lekktu@gmail.com>
-
- * play/life.el (life-patterns): Add a few more interesting patterns.
- (life-setup): Force `show-trailing-whitespace' to nil.
-
-2006-09-14 Richard Stallman <rms@gnu.org>
-
- * startup.el (fancy-splash-text): Change text to improve alignment.
- (fancy-splash-screens): Don't set non-standard tab width.
- Bind cursor-type temporarily, and make it easy to patch to
- preserve the splash buffer.
- (normal-splash-screen, fancy-splash-tail): Spell out "Meta-x".
- (fancy-splash-screens): Display echo-area message explicitly.
- Don't set fancy-splash-help-echo.
-
- * simple.el (line-number-mode): Group mode-line instead of
- editing-basics.
- (column-number-mode, size-indication-mode): Likewise.
-
- * faces.el (mode-line-faces): Group mode-line instead of modeline.
-
- * time.el (display-time): Group mode-line instead of modeline.
-
- * cus-edit.el (mode-line): Rename from modeline. All uses changed.
-
-2006-09-14 Chong Yidong <cyd@stupidchicken.com>
-
- * startup.el (fancy-splash-text): Move editing instructions to
- fancy-splash-head.
- (fancy-splash-head): Issue editing instructions.
- (fancy-splash-screens): Fixup whitespace.
-
-2006-09-14 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * bindings.el (mode-line-buffer-identification-keymap):
- Remove duplicate line.
-
-2006-09-14 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * ido.el (ido-ignore-item-p): Allow any kind of functions in
- ignore lists.
-
-2006-09-14 Kim F. Storm <storm@cua.dk>
-
- * jit-lock.el (jit-lock-fontify-again): New function.
- (jit-lock-fontify-now): Use it instead of lambda form.
-
-2006-09-13 Agustin Martin <agustin.martin@hispalinux.es>
-
- * textmodes/flyspell.el (flyspell-word, flyspell-correct-word)
- (flyspell-auto-correct-word): Make ispell-filter local to these
- functions. Check that ispell-filter has new stuff before calling
- ispell-parse-output.
-
-2006-09-13 Kim F. Storm <storm@cua.dk>
-
- * simple.el (line-move-partial): Optimize.
-
-2006-09-13 Richard Stallman <rms@gnu.org>
-
- * thingatpt.el (thing-at-point-bounds-of-url-at-point):
- Delete spurious backquote.
-
-2006-09-07 Ryan Yeske <rcyeske@gmail.com>
-
- * net/rcirc.el (rcirc-print): Fix last change.
-
-2006-09-12 Jay Belanger <belanger@truman.edu>
-
- * calc/calc.el (calc-dispatch): Remove unnecessary `sit-for'.
-
-2006-09-07 Ryan Yeske <rcyeske@gmail.com>
-
- * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
- rcirc-show-maximum-output.
- (rcirc-mode): Remove window-scroll-function hook.
- (rcirc-scroll-to-bottom): Remove function.
- (rcirc-print): Recenter so point stays at the bottom of the window
- if point was already there.
-
-2006-09-12 Paul Eggert <eggert@cs.ucla.edu>
-
- * comint.el (comint-exec-1): Set EMACS to the full name of Emacs,
- not to "t".
- * progmodes/compile.el (compilation-start): Likewise.
- * progmodes/idlwave.el (idlwave-rescan-asynchronously):
- Don't use expand-file-name on invocation-directory, since this
- might mishandle special characters in invocation-directory.
-
-2006-09-12 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs-defs.el: Remove * in defcustom's docstrings.
-
-2006-09-12 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/compile.el (compilation-directory-properties):
- Doc fix for help-echo.
-
-2006-09-12 Lars Hansen <larsh@soem.dk>
-
- * desktop.el (desktop-read): Add comment.
-
-2006-09-12 Kim F. Storm <storm@cua.dk>
-
- * simple.el (next-error-highlight, next-error-highlight-no-select):
- Fix spelling error.
-
- * subr.el (sit-for): Rework to use input-pending-p and cond.
- Return nil input is pending on entry also for SECONDS <= 0.
- (while-no-input): Use input-pending-p instead of sit-for.
-
-2006-09-11 Richard Stallman <rms@gnu.org>
-
- * simple.el (next-error-highlight, next-error-highlight-no-select):
- Fix custom type and doc strings.
-
-2006-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * diff-mode.el (diff-apply-hunk-to-backup-file): New var.
- (diff-apply-hunk): Use it to ask for confirmation.
-
-2006-09-11 Reiner Steib <Reiner.Steib@gmx.de>
-
- * emacs-lisp/cl.el (pushnew): Add missing `,'.
-
-2006-09-11 David Kastrup <dak@gnu.org>
-
- * help.el (string-key-binding, describe-key-briefly)
- (describe-key): Remove `string-key-binding' and its callers since
- `key-binding' already caters for the proper lookup now.
-
-2006-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords): Newvar.
- (cfengine-mode): Use it. Fix \ syntax to be like /.
-
- * bindings.el (mode-line-buffer-identification-keymap):
- Move initialization into declaration.
-
-2006-09-10 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-edit-input, ido-complete, ido-take-first-match)
- (ido-push-dir-first, ido-kill-buffer-at-head, ido-exhibit)
- (ido-delete-file-at-head): Pass head of ido-matches through ido-name
- in case of merged directories. Reported by Micha\e,Ak\e(Bl Cadilhac.
-
-2006-09-10 Richard Stallman <rms@gnu.org>
-
- * dired-aux.el: Handle errors in recursive copy usefully.
- (dired-create-files-failures): New variable.
- (dired-copy-file): Remove condition-case.
- (dired-copy-file-recursive): Check for errors on all file
- operations, and add them to dired-create-files-failures.
- Check file file-date-erorr here too.
- (dired-create-files): Check dired-create-files-failures
- and report those errors too.
-
- * emacs-lisp/cl.el (pushnew): Use add-to-list when convenient.
-
- * subr.el (add-to-list): New argument COMPARE-FN.
-
-2006-09-10 Reiner Steib <Reiner.Steib@gmx.de>
-
- * filecache.el (file-cache-add-directory)
- (file-cache-add-directory-list, file-cache-add-file)
- (file-cache-add-directory-using-find)
- (file-cache-add-directory-using-locate)
- (file-cache-add-directory-recursively): Add autoloads.
-
-2006-09-09 Richard Stallman <rms@gnu.org>
-
- * textmodes/conf-mode.el (conf-space-mode):
- Use hack-local-variables-hook instead of calling hack-local-variables.
- (conf-space-keywords-override): New variable.
- (conf-space-mode-internal): New subroutine. Reinit Font Lock mode.
- (conf-space-mode): Always make conf-space-keywords and
- conf-space-keywords-override local.
- Call conf-space-mode-internal directly as well as via hook.
-
-2006-09-09 Slawomir Nowaczyk <slawomir.nowaczyk.847@student.lu.se> (tiny change)
-
- * progmodes/python.el (python-font-lock-keywords): Add `self' and other
- quasi-keywords.
-
-2006-09-09 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el: Quieten the compiler about hippie-expand vars.
- (python-send-string): Be slightly more careful about adding \n.
-
- * startup.el (normal-splash-screen): Don't display the buffer if we'll
- kill it right away anyway.
-
-2006-09-09 Eli Zaretskii <eliz@gnu.org>
-
- * international/codepage.el (cp850-decode-table): Fix a few codes.
- (cp858-decode-table): New variable.
-
-2006-09-09 Toby Allsopp <Toby.Allsopp@navman.com> (tiny change)
-
- * net/ldap.el (ldap-search-internal): Doc fix.
-
-2006-09-09 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * play/life.el (life-display-generation): Test for input manually if
- `sleeptime' is negative or null.
-
- * lpr.el (lpr-page-header-switches): Page title switch is one of them.
- (print-region-1): Substitute `%s' with the page title.
-
-2006-09-09 Matt Hodges <MPHodges@member.fsf.org>
-
- * locate.el (locate-current-search): New variable.
- (locate): Set buffer local value. Use current buffer if it is
- in Locate mode.
- (locate-mode): Disable undo here.
- (locate-do-setup): Use locate-current-filter from buffer to be killed.
- (locate-update): Use locate-current-search and locate-current-filter.
-
-2006-09-08 David Kastrup <dak@gnu.org>
-
- * desktop.el (desktop-read): When loading a desktop, disable
- saving it while the load progresses, and switch off a pending lazy
- load by calling `desktop-lazy-abort'.
-
-2006-08-27 Martin Rudalics <rudalics@gmx.at>
-
- * window.el (mouse-autoselect-window-timer)
- (mouse-autoselect-window-position)
- (mouse-autoselect-window-window)
- (mouse-autoselect-window-now): New vars.
- (mouse-autoselect-window-cancel)
- (mouse-autoselect-window-select)
- (mouse-autoselect-window-start): New functions.
- (handle-select-window): Call `mouse-autoselect-window-start' when
- delayed window autoselection is enabled.
-
- * cus-start.el (mouse-autoselect-window): Handle delayed window
- autoselection.
-
- * emacs-lisp/eldoc.el: Add `handle-select-window' to the set of
- commands after which it is allowed to print in the echo area.
-
-2006-09-08 Richard Stallman <rms@gnu.org>
-
- * textmodes/fill.el (adaptive-fill-regexp): Don't match `(1)' or `1.'
-
- * mail/rmail.el (rmail-get-new-mail): Say whether all msgs are spam.
- (rmail-convert-to-babyl-format): Don't record undo, leave list empty.
-
- * emacs-lisp/timer.el (timer-create, timer-activate): Doc fixes.
- (cancel-timer-internal): Add doc string.
- (cancel-function-timers): Doc fix.
- (with-timeout-handler, timer-event-last*): Add doc strings.
-
- * emacs-lisp/bindat.el (bindat-unpack): Doc fix.
-
- * files.el (risky-local-variable-p): Match ...-bindat-spec.
-
- * dired.el (dired-log-summary): Add doc string.
-
- * cus-edit.el (custom-menu-create): Bind deactivate-mark here.
- (custom-group-menu-create): Not here.
-
-2006-09-08 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-dblock-write:clocktable): Avoid infinite loop.
-
-2006-09-08 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (show-hide-font-panel): New HI command ID symbol.
- (mac-apple-event-map): Define its handler.
-
-2006-09-07 Toby Allsopp <Toby.Allsopp@navman.com> (tiny change)
-
- * net/ldap.el (ldap-search-internal): Handle `auth' key.
-
-2006-09-07 Magnus Henoch <mange@freemail.hu>
-
- * net/rcirc.el (rcirc-activity-string): Don't quote value in case
- clause.
-
-2006-09-07 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * info.el (Info-index): Bind completion-ignore-case.
-
-2006-09-07 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/prolog.el (inferior-prolog-flavor): New var left out of
- previous commit.
- (inferior-prolog-guess-flavor): New fun left out of previous commit.
- (prolog-consult-region-and-go): Don't hard code "*prolog*" and don't
- burp in dedicated windows.
- (inferior-prolog-self-insert-command): New command.
- (inferior-prolog-mode-map): Use it.
-
-2006-09-07 Reiner Steib <Reiner.Steib@gmx.de>
-
- * international/latexenc.el (latex-inputenc-coding-alist): Add cp858.
-
- * international/code-pages.el: Add cp858.
-
-2006-09-07 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * dnd.el: Fix bootstrapping.
-
-2006-09-07 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * dnd.el (dnd-protocol-alist): Add what url-handler-mode can handle.
- (dnd-open-remote-url): New function.
- (dnd-open-remote-file-function): Set to dnd-open-remote-url if
- not windows-nt.
-
-2006-09-07 Jason Rumney <jasonr@gnu.org>
-
- * dnd.el (dnd-open-remote-file-function): New variable.
- (dnd-open-unc-file): New function.
- (dnd-open-file): Call dnd-open-remote-file-function if set.
-
-2006-09-06 Daiki Ueno <ueno@unixuser.org>
-
- * pgg-gpg.el (pgg-gpg-process-region): Encode passphrase with
- pgg-passphrase-coding-system rather than locale-coding-system.
- * pgg-def.el (pgg-passphrase-coding-system): New user option.
-
-2006-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/prolog.el: Remove * in docstrings.
- (prolog-program-name): Add SWI prolog.
- (prolog-mode-menu): New menu.
- (prolog-mode): Set comment-add.
- (prolog-indent-line): Simplify. Use indent-line-to.
- (inferior-prolog-buffer): New var.
- (inferior-prolog-run, inferior-prolog-process): New funs.
- (run-prolog, switch-to-prolog): Rewrite, using them.
- (prolog-consult-region): Use inferior-prolog-buffer.
- (inferior-prolog-load-file): New function.
- (prolog-mode-map): Add bindings for load-file and switch-to-prolog.
-
- * textmodes/fill.el (fill-single-word-nobreak-p): Allow breaking before
- last word, if it's not the end of the paragraph.
-
- * files.el (abbreviate-file-name): Don't mistakenly match newlines in
- file name.
-
-2006-09-06 Ralf Angeli <angeli@caeruleus.net>
-
- * frame.el (display-mm-dimensions-alist): New defcustom.
- (display-mm-height, display-mm-width): Use it.
-
-2006-09-06 Simon Josefsson <jas@extundo.com>
-
- * mail/smtpmail.el (smtpmail-starttls-credentials): Doc fix.
-
-2006-09-06 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-list-children-regexp)
- (gdb-var-list-children-regexp-1): Tweak regexps to catch full
- string values.
-
-2006-09-06 Kim F. Storm <storm@cua.dk>
-
- * simple.el (line-move-partial): New function to do vscrolling for
- partially visible images / tall lines. Rewrite based on code
- previously in line-move. Simplify backwards vscrolling.
- (line-move): Use it. Simplify.
-
-2006-09-05 Kim F. Storm <storm@cua.dk>
-
- * emulation/cua-base.el (cua--pre-command-handler-1): Rewrite.
-
-2006-09-05 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/compile.el (compilation-error-regexp-alist-alist):
- Process the `gcc-include' after the `gnu' rule.
-
-2006-09-05 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-visit-buffer): Use buffer name if buffer arg is a buffer.
-
-2006-09-05 Daiki Ueno <ueno@unixuser.org>
-
- * pgg.el (pgg-clear-string): Alias to clear-string for backward
- compatibility.
-
- * pgg-gpg.el (pgg-gpg-process-region): Avoid display blinking with
- inhibit-redisplay; encode passphrase with locale-coding-system.
-
-2006-09-04 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Add more C-M- bindings.
-
-2006-09-05 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-list-children-regexp)
- (gdb-var-list-children-regexp): Make type field optional.
-
- * progmodes/gud.el (gud-speedbar-buttons): Allow for no type
- e.g public, protected in C++.
-
-2006-09-04 John Paul Wallington <jpw@pobox.com>
-
- * simple.el (completion-show-help): New defcustom.
- (completion-setup-function): Heed it.
-
-2006-09-04 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Add C-M- bindings.
-
-2006-09-04 Richard Stallman <rms@gnu.org>
-
- * mail/rmail-spam-filter.el (rsf-scanning-messages-now): Doc fix.
- (rsf-min-region-to-spam-list): Doc fix.
- (rsf-add-content-type-field): Doc fix.
-
- * simple.el (kill-region): Explicitly test there is a region.
-
-2006-09-04 Chong Yidong <cyd@stupidchicken.com>
-
- * mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
- sendmail in several common directories.
-
- * mail/sendmail.el (sendmail-program): Moved here from paths.el.
-
- * paths.el (sendmail-program): Removed.
-
-2006-09-04 Daiki Ueno <ueno@unixuser.org>
-
- * pgg-gpg.el (pgg-gpg-process-region): Revert two patches from Satyaki
- Das. http://article.gmane.org/gmane.emacs.gnus.general/49947
- http://article.gmane.org/gmane.emacs.gnus.general/50457
-
-2006-09-03 Chong Yidong <cyd@stupidchicken.com>
-
- * cus-edit.el (custom-group-menu-create): Avoid deactivating the
- mark after running the menu filter.
-
-2006-09-03 Juri Linkov <juri@jurta.org>
-
- * international/quail.el (quail-defrule-internal): Add a check
- if a key is a vector.
-
-2006-09-02 Juri Linkov <juri@jurta.org>
-
- * man.el (Man-topic-history): New variable.
- (man): Use it.
-
- * woman.el (woman-topic-history): Change defvar to defvaralias
- for symbol `Man-topic-history'.
-
- * shell.el (shell-filter-ctrl-a-ctrl-b): Check if
- `comint-last-output-start' is a marker by using `markerp' and
- check if it has a position by using `marker-position', and use
- this position for `goto-char'.
-
- * international/quail.el (quail-defrule-internal): Add missing
- `error' call for null key.
-
-2006-09-02 Ryan Yeske <rcyeske@gmail.com>
-
- * net/rcirc.el (rcirc-keywords): New variable.
- (rcirc-bright-nicks, rcirc-dim-nicks): New variables.
- (rcirc-bright-nick-regexp, rcirc-dim-nick-regexp): Remove
- variables.
- (rcirc-responses-no-activity): New function.
- (rcirc-handler-generic): Check for responses in above.
- (rcirc-process-command): Add ?: character to arguments of raw
- server commands.
- (rcirc-format-response-string): Use `rcirc-bright-nicks' and
- `rcirc-dim-nicks'.
- (rcirc-gray-toggle): Remove unused variable.
- (rcirc-print): Remove some tracking logic, which is moved into
- markup functions.
- (rcirc-activity-types): Was `rcirc-activity-type', now a list of
- types.
- (rcirc-activity-string): Look for 'keyword in activity-types.
- (rcirc-window-configuration-change): Don't erase overlay-arrow
- unnecessarily.
- (rcirc-add-or-remove): New function.
- (rcirc-cmd-ignore): Use it.
- (rcirc-message-leader): Remove unused function.
- (rcicr-cmd-bright, rcirc-cmd-dim, rcirc-cmd-keyword): New commands.
- (rcirc-add-face): New function.
- (rcirc-facify): Use rcirc-add-face.
- (rcirc-url-regexp): Add parens.
- (rcirc-map-regexp): Remove function.
- (rcirc-mangle-regexp): Remove function.
- (rcirc-markup-text-functions): New variable.
- (rcirc-markup-text): New function (replaces `rcirc-mangle-text').
- (rcirc-markup-body-text, rcirc-markup-attributes)
- (rcirc-markup-my-nick, rcirc-markup-urls, rcirc-markup-keywords)
- (rcirc-markup-bright-nicks): New markup handler functions.
- (rcirc-nick-in-message-full-line): New face.
- (rcirc-track-nick): Rename from `rcirc-mode-line-nick'.
- (rcirc-track-keyword, rcirc-url, rcirc-keyword): New faces.
-
-2006-09-02 Martin Rudalics <rudalics@gmx.at>
-
- * cus-start.el (hscroll-margin, hscroll-step)
- (mode-line-in-non-selected-windows, mouse-autoselect-window)
- (x-use-underline-position-properties): Change version to "22.1"
- since they will appear there for the first time.
-
-2006-09-01 Chong Yidong <cyd@stupidchicken.com>
-
- * imenu.el (imenu-update-menubar): Use buffer-chars-modified-tick.
-
-2006-08-31 Richard Stallman <rms@gnu.org>
-
- * cus-edit.el (custom-save-variables): Slight cleanup.
- (Custom-no-edit): Renamed from custom-no-edit.
- (Custom-newline): Renamed from custom-newline.
- (custom-mode-map): Use new names.
-
- * emacs-lisp/easy-mmode.el (define-minor-mode): Reference manual
- about customization, rather than M-x customize, in the doc string
- made for the defcustom.
-
- * emacs-lisp/trace.el (trace-function-background): Doc fix.
-
-2006-08-31 Romain Francoise <romain@orebokech.com>
-
- * dired-x.el (dired-guess-shell-alist-default): Update.
-
-2006-08-31 Michael Mauger <mmaug@yahoo.com>
-
- * custom.el (custom-theme-set-variables): Autoload packages before
- sorting the variables.
-
-2006-08-30 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * emulation/viper-cmd.el (viper-special-read-and-insert-char):
- Convert events to chars if XEmacs.
- (viper-after-change-undo-hook): Check if undo-in-progress is bound.
-
-2006-08-30 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el (python-eldoc-function): Re-enable quit while
- waiting for process.
-
-2006-08-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-string-to-utxt): If adjustment for MacJapanese
- results in ASCII-only string, encode original one directly.
-
-2006-08-29 Romain Francoise <romain@orebokech.com>
-
- * startup.el (normal-splash-screen, fancy-splash-screens):
- Make buffer read-only and arrange to enter view mode if necessary.
-
-2006-08-29 Chong Yidong <cyd@stupidchicken.com>
-
- * hl-line.el (hl-line): New face.
- (hl-line-face): Use it.
-
- * image-mode.el (image-mode): Fix last fix.
- Suggested by Kim F. Storm.
-
-2006-08-29 Michael Albinus <michael.albinus@gmx.de>
-
- Sync with Tramp 2.0.54.
-
- * net/tramp.el (tramp-convert-file-attributes): Call `eql' instead
- of `=', because `tramp-get-remote-gid' might not always return an
- integer when expected.
- (tramp-register-file-name-handlers): `partial-completion-mode' is
- unknown to XEmacs.
- (tramp-time-diff): Don't use `floor', it might fail for large
- differences.
- (tramp-handle-make-auto-save-file-name): For Emacs 21, set
- `tramp-auto-save-directory' if unset in order to guarantee unique
- auto-save file names.
-
-2006-08-28 Chong Yidong <cyd@stupidchicken.com>
-
- * image-mode.el (image-mode): Display image as text on a terminal.
-
-2006-08-28 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el (python-send-command): Simplify.
- (run-python): Don't generate a new buffer unless `new' was specified.
- Make sure we send `import emacs' to the proper process.
-
- * progmodes/python.el (python-send-command): Don't wait for the command
- to terminate. Don't fiddle with compilation-parsing-end.
-
-2006-08-28 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/checkdoc.el (checkdoc-file-comments-engine):
- Insert commentary after first line summary.
-
- * woman.el (woman-follow): New function, based on `man-follow'.
- (woman-mode-map): Use it.
-
- * ibuffer.el (ibuffer-do-sort-by-recency): Perform full update
- since ibuffer-do-sort-by-recency does not define a sorter.
-
-2006-08-28 Kim F. Storm <storm@cua.dk>
-
- * find-dired.el (find-dired): Use shell-quote-argument to properly
- escape ( and ) args. Also use it on {} and ; args in default
- value of find-ls-option string.
- (find-grep-dired): Use shell-quote-argument on {} and ; args.
-
-2006-08-27 Michael Olson <mwolson@gnu.org>
-
- * emacs-lisp/tq.el: Small grammar fix in comments.
- (tq-enqueue): Check for existence of queue rather than the
- head queue item's question, which was a no-op.
- (tq-filter, tq-process-buffer): Make sure the process buffer
- exists before making it the current buffer.
-
-2006-08-27 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-apple-event-map): Rename hicommand to hi-command.
- (mac-dnd-drop-data): Apply 2006-08-22 change for x-dnd-drop-data.
- (special-event-map): Apply 2006-08-16 change for x-win.el.
-
-2006-08-26 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el (python-send-receive): Wait in the
- process's buffer so as to check the right buffer-local variables.
-
-2006-08-25 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/checkdoc.el: Remove * in defcustoms.
- (defgroup checkdoc): Move to beginning.
-
- * progmodes/python.el (python-preoutput-skip-next-prompt): New var.
- (python-preoutput-continuation): Remove.
- (python-preoutput-filter): Simplify correspondingly.
- Remove handling of _emacs_ok. Make sure we skip _emacs_out's prompts.
- Loop around to catch embedded _emacs_out output.
- (run-python): Send the import&print command on a single line.
- (python-send-command): Send command&print on a single line.
- (python-send-string): Only add double \n if needed.
- (python-send-receive): Loop until the result comes.
- (python-mode-running): Defvar it.
- (python-setup-brm): Remove unused var `menu'.
- Only bind py-mode-map and `features' around brm-init.
- (python-calculate-indentation): Remove unused var `point'.
- (python-beginning-of-defun): Remove unused var `def-line'.
-
-2006-08-25 Richard Stallman <rms@gnu.org>
-
- * kmacro.el (kmacro-repeat-on-last-key): Doc fix.
-
-2006-08-25 Michael Kifer <kifer@cs.stonybrook.edu>
-
- * emulation/viper.el (viper-set-hooks): Use frame bindings for
- viper-vi-state-cursor-color.
- (viper-non-hook-settings): Don't set default
- mode-line-buffer-identification.
-
- * emulation/viper-util.el (viper-set-cursor-color-according-to-state):
- New fun.
- (viper-set-cursor-color-according-to-state)
- (viper-get-saved-cursor-color-in-replace-mode)
- (viper-get-saved-cursor-color-in-insert-mode): Make conditional on
- viper-emacs-state-cursor-color.
-
- * emulation/viper-cmd.el (viper-envelop-ESC-key): Bug fix.
- (viper-undo): Use point if undo-beg-posn is nil.
- (viper-insert-state-post-command-sentinel, viper-change-state-to-emacs)
- (viper-after-change-undo-hook): Don't use
- viper-emacs-state-cursor-color by default.
- (viper-undo): More sensible positioning after undo.
-
- * emulation/viper-ex.el (ex-splice-args-in-1-letr-cmd): Get rid of caddr.
- (viper-emacs-state-cursor-color): Default to nil, since this feature
- doesn't work well yet.
-
- * ediff-mult.el (ediff-intersect-directories)
- (ediff-get-directory-files-under-revision, ediff-dir-diff-copy-file):
- always expand filenames.
-
-2006-08-24 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * tumme.el: Remove * in defcustoms's docstrings.
-
-2006-08-24 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/timer.el (timer-set-idle-time, run-with-idle-timer):
- Accept internal time format for SECS arg.
- (timer-relative-time): Doc fix.
-
- * jit-lock.el: "Stealth fontification by requeuing timers" patch,
- adapted from Martin Rudalics.
- (jit-lock-stealth-repeat-timer, jit-lock-stealth-buffers): New vars.
- (jit-lock-mode): Create jit-lock-stealth-repeat-timer.
- (jit-lock-stealth-fontify): Reschedule as a idle timer instead of
- using sit-for.
-
-2006-08-24 Francesc Rocher <francesc.rocher@gmail.com>
-
- * cus-start.el (all): Add `overline-margin' and
- `x-underline-at-descent-line'.
-
-2006-08-24 Kim F. Storm <storm@cua.dk>
-
- * progmodes/grep.el (grep-find-use-xargs): Use explicit value `exec'
- to mean "use find -exec"; nil now unambiguously means auto-detect.
- (grep-compute-defaults): Set grep-find-use-xargs to `exec' if not `gnu'.
- Use shell-quote-argument to build grep-find-command and
- grep-find-template.
- (rgrep): Use shell-quote-argument to properly quote arguments to find.
- Reported by Tom Seddon.
-
-2006-08-23 Chong Yidong <cyd@stupidchicken.com>
-
- * startup.el (fancy-splash-head): Give instructions for dismissing
- the splash screen for default startup too.
- (display-startup-echo-area-message, fancy-splash-screens)
- (use-fancy-splash-screens-p): New arg hide-on-input. If nil, show
- all splash text at once and keep the splash buffer around.
- (command-line-1): Give display-startup-echo-area-message a t arg.
-
-2006-08-23 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-follow-gnus-link): Make sure the dedicated
- gnus frame is selected.
-
-2006-08-23 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-starting): Reset gdb-signalled to nil.
-
-2006-08-22 Kim F. Storm <storm@cua.dk>
-
- * ido.el (ido-set-matches-1): Fix full matching for subdirs.
- Add suffix matching for subdirs.
-
-2006-08-22 Jorgen Schaefer <forcer@forcix.cx> (tiny change)
-
- * x-dnd.el (x-dnd-drop-data): Don't call goto-char if
- mouse-yank-at-point is non-nil.
-
-2006-08-22 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-frame-memory-buffer): Make frame
- a bit wider and remove fringes to fit initial output on line.
-
-2006-08-21 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * frame.el (blink-cursor-end): Only ignore the error we care about.
- (blink-cursor-mode): Use blink-cursor-end to simplify the code.
-
-2006-08-21 Richard Stallman <rms@gnu.org>
-
- * whitespace.el (whitespace-cleanup): Doc fix.
-
-2006-08-20 Ryan Yeske <rcyeske@gmail.com>
-
- * net/rcirc.el (rcirc-show-maximum-output): New var.
- (rcirc-buffer-process): If no buffer argument is supplied, use
- current-buffer.
- (rcirc-complete-nick): Complete to the last completed nick first.
- (rcirc-mode): Preserve the value of `rcirc-urls' across
- connections. Setup scroll function.
- (rcirc-scroll-to-bottom): New function.
- (rcirc-print): Use nick syntax around regexp work.
- Notice dim-nicks speaking only if they say our nick.
- (rcirc-update-activity-string): Do not show the modeline indicator
- if there are no live rcirc processes.
- (rcirc-cmd-ignore): Ignore case.
- (rcirc-browse-url-at-point): Fix off-by-one error.
-
-2006-08-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/python.el: Remove * in defcustom docstrings.
- (run-python, python-proc, python-try-complete): Use derived-mode-p.
- (python-mode): Set tab-width and indent-tabs-mode.
-
-2006-08-20 Dave Love <fx@gnu.org>
-
- * progmodes/python.el: Update to Dave Love's latest version.
- (python-font-lock-keywords, python-mode): Don't use
- font-lock-syntax-table, but match symbol elements explicitly instead.
- (python-mode-map): Add help, and a few more key bindings.
- (python-skip-comments/blanks): Move out of comments as well.
- (python-continuation-line-p): Behave better with unbalanced parens.
- (python-blank-line-p): New fun.
- (python-open-block-statement-p): Don't use a heuristic.
- (python-outdent-p): Better handle blocks-in-the-same-line.
- (python-calculate-indentation): Misc improvements.
- (python-comment-indent): Remove.
- (python-block-pairs): New var.
- (python-first-word): New fun.
- (python-indentation-levels): Handle more common cases.
- (python-indent-line-1): Add `leave' argument.
- (python-indent-region): New fun.
- (python-skip-out): New fun.
- (python-beginning-of-statement, python-end-of-statement): Use it.
- (python-next-statement): Return correct count even at eob.
- (python-end-of-block): Fix paren-typo.
- (python-imenu-create-index): Add module variables.
- (run-python): Add `new' arg.
- Check we're at a prompt before returning.
- (python-send-command): Move to end of buffer.
- Wait for prompt to return.
- (python-set-proc): New fun.
- (python-imports): New var.
- (python-describe-symbol): Use it. Adjust to new interface of `ehelp'.
- (python-eldoc-function): Try to move out of arg list.
- (python-outline-level): Offset by 1.
- (python-find-imports): New fun.
- (python-symbol-completions): Use python-imports.
- (python-module-path, ffap-alist): Add support for ffap.
- (python-skeletons, python-mode-abbrev-table, def-python-skeleton)
- (python-insert-*, python-default-template, python-expand-template):
- Add templates/skeletons.
- (python-setup-brm): Support for Bicycle Repair Man.
- (python-abbrev-syntax-table): New var.
- (python-abbrev-pc-hook, python-pea-hook): New funs.
-
-2006-08-20 Chong Yidong <cyd@stupidchicken.com>
-
- * frame.el (blink-cursor-start): Set timer first.
- (blink-cursor-end): Ignore timer cancelling errors.
- Suggested by Ken Manheimer.
-
-2006-08-20 Juanma Barranquero <lekktu@gmail.com>
-
- * newcomment.el (comment-box): Call `comment-normalize-vars'.
- Add autoload cookie.
-
-2006-08-20 Richard Stallman <rms@gnu.org>
-
- * simple.el (line-number-at-pos): Doc fix.
-
- * emacs-lisp/timer.el (run-with-idle-timer): Pass t to
- timer-activate-when-idle, so timer can run before Emacs becomes
- non-idle again.
-
-2006-08-18 Yoni Rabkin Katzenell <yoni-r@actcom.com> (tiny change)
-
- * whitespace.el (whitespace-cleanup-internal): New optional arg
- REGION-ONLY. If it's non-nil, modify the message to the user
- accordingly.
- (whitespace-cleanup-region): Call whitespace-cleanup-internal with
- a non-nil argument.
-
-2006-08-18 Gustav H\e,Ae\e(Bllberg <gustav@gmail.com> (tiny change)
-
- * rect.el (spaces-string): Simplify and add doc string.
-
-2006-08-17 Romain Francoise <romain@orebokech.com>
-
- * progmodes/gdb-ui.el (gdb-edit-locals-value): Balance parens.
-
-2006-08-17 Richard Stallman <rms@gnu.org>
-
- * compare-w.el (compare-windows): lambda's take an arg and pass
- it to compare-windows-skip-whitespace.
-
-2006-08-17 Martin Rudalics <rudalics@gmx.at>
-
- * jit-lock.el (jit-lock-fontify-now): Protect the modified status of
- the right buffer.
-
-2006-08-17 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs-parse.el (cvs-parse-table): Accept the new `...' format for
- removed files.
-
-2006-08-17 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-locals-watch-map)
- (gdb-locals-watch-map-1): Suppress keymap first.
- (gdb-edit-locals-map-1): New variable.
- (gdb-edit-locals-value): New function.
- (gdb-stack-list-locals-handler): Use them.
-
-2006-08-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * mouse.el (global-map): Allow yanking with mouse-2 at a spot whose
- cursor would normally be drawn in the fringe.
-
- * font-lock.el (font-lock-extend-region-wholelines): Fix up typo.
- Reported by Martin Rudalics <rudalics@gmx.at>.
-
-2006-08-16 Richard Stallman <rms@gnu.org>
-
- * term/x-win.el (x-clipboard-yank): Specify * in interactive spec.
- (special-event-map): Process drag-n-drop events this way.
-
- * simple.el (move-beginning-of-line): Test whether fields
- would prevent motion back to line's first visible character.
- If so, stop where the fields would stop the motion.
-
- * newcomment.el (comment-indent): Fully update INDENT
- before checking to see if it will change the text.
-
- * cus-edit.el (custom-newline): New function.
- (custom-mode-map): Bind newline to custom-newline.
-
- * compare-w.el (compare-windows): Factor compare-ignore-whitespace
- into ignore-whitespace.
- Check each buffer for its skip-function.
- Handle compare-windows-skip-whitespace special-case test
- by returning t from default skip function.
-
-2006-08-15 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-clock-special-range)
- (org-clock-update-time-maybe): New functions.
- (org-stamp-time-of-day-regexp): Allow weekday to be of word chars,
- not only a-z.
- (org-agenda-get-blocks): Allow multiple blocks per headline.
- (org-timestamp-change): Call `org-clock-update-time-maybe'.
- (org-export-html-title-format)
- (org-export-html-toplevel-hlevel): New options.
- (org-export-language-setup): Add support for Czech.
- (org-mode, org-insert-todo-heading, org-find-visible)
- (org-find-invisible, org-invisible-p, org-invisible-p2)
- (org-back-to-heading, org-on-heading-p, org-up-heading-all)
- (org-show-subtree, org-show-entry, org-make-options-regexp):
- Remove compatibility support for old outline-mode.
- (org-check-occur-regexp): Funtion removed.
- (org-on-heading-p, org-back-to-heading): Made defalias.
- (org-set-local): New defsubst.
- (org-set-regexps-and-options, org-mode)
- (org-set-font-lock-defaults, org-edit-agenda-file-list)
- (org-timeline, org-agenda-list, org-todo-list, org-tags-view)
- (org-remember-apply-template, org-table-edit-field)
- (org-table-edit-formulas, orgtbl-mode, org-export-as-ascii)
- (org-set-autofill-regexps): Use `org-set-local'.
- (org-table-eval-formula): Fix bug with parsing of display flags.
-
-2006-08-15 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-info-stack-custom): Indicate selected
- frame with fringe arrow. Suggested by Simon Marshall
- <simon.marshall@misys.com>.
- (gdb-stack-position): New variable.
- (gdb-starting, gdb-exited): Reset gdb-stack-position to nil.
- (gdb-frames-mode): Set gdb-stack-position to nil.
- Add to overlay-arrow-variable-list
- (gdb-reset): Delete gdb-stack-position from above list.
-
-2006-08-14 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (menu-bar-edit-menu): Disable paste if buffer is
- read only.
-
-2006-08-13 Romain Francoise <romain@orebokech.com>
-
- * cus-theme.el (customize-create-theme)
- (custom-theme-visit-theme): End `y-or-n-p' prompt with a space.
-
- * filesets.el (filesets-add-buffer): Ditto.
-
- * pcvs.el (cvs-change-cvsroot): Ditto.
-
-2006-08-13 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-frame-separate-io-buffer)
- (gdb-use-separate-io-buffer, menu): Avoid using `inferior' in text.
- (gdb-memory-mode, gdb-locals-watch-map): Don't quote lambda
- expressions.
- (gdb-info-breakpoints-custom): Use gdb-breakpoint-regexp.
- Only search till end of line.
- Add face to function names in case of no filename.
- Add face to variable names of watchpoints.
-
-2006-08-12 Robert Thorpe <rthorpe@realworldtech.com> (tiny change)
-
- * cus-start.el <indent-tabs-mode>: Move to the `indent'
- customization group.
-
-2006-08-12 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-prior-bindings, allout-added-bindings):
- Remove, after long deprecation.
- (allout-beginning-of-line-cycles, allout-end-of-line-cycles):
- Add customization vars controlling allout-beginning-of-line and
- allout-end-of-line conveniences.
- (allout-header-prefix, allout-use-mode-specific-leader)
- (allout-use-mode-specific-leader, allout-mode-leaders):
- Revise docstrings.
- (allout-infer-header-lead): Change to be an alias for
- allout-infer-header-lead-and-primary-bullet.
- (allout-infer-header-lead-and-primary-bullet): New version of
- allout-infer-header-lead which assigns the primary bullet to the
- same as the header lead, when its being changed.
- (allout-infer-body-reindent): Apply regexp-quote instead of
- unconditionally prepending "\\", so that all literal
- allout-header-prefix and allout-primary-bullet strings are
- properly handled.
- (allout-add-resumptions): Add optional qualifier for extending or
- appending to existing values, rather than replacing them.
- (allout-view-change-hook): Clarify docstring.
- (allout-exposure-change-hook): Take explicit arguments, via
- run-hook-with-args.
- (allout-structure-added-hook)
- (allout-structure-deleted-hook)
- (allout-structure-shifted-hook): New hooks analogous to
- allout-exposure-change-hook for other kinds of structural outline
- edits.
- (allout-encryption-plaintext-sanitization-regexps): New encryption
- customization variable, by which cooperating modes can provde
- massage of the plaintext without actually being passed it.
- (allout-encryption-ciphertext-rejection-regexps)
- (allout-encryption-ciphertext-rejection-ceiling): New encryption
- customization variables, by which cooperating modes can prohibit
- rare but possible ciphertext patterns from fouling their
- operation, with actually being passed the ciphertext.
- (allout-mode): Run activation and deactivation hooks after the
- minor-mode variable has been toggled, to clarify the mode
- disposition. The new encryption ciphertext rejection variable is
- used to ensure that the ciphertext does not contain text that
- would be recognized as outline structural elements by allout.
- Substite allout-beginning-of-line and allout-end-of-line for
- conventionall beginning-of-line and end-of-line bindings.
- If allout-old-style-prefixes is non-nil, don't nullify it on mode
- activation!
- (allout-beginning-of-line): Respect `allout-beginning-of-line-cycles'.
- (allout-end-of-line): Respect `allout-end-of-line-cycles'.
- (allout-chart-subtree): Implement new mode, charting only the
- visible items in the subtree, when new 'visible' parameter is non-nil.
- (allout-end-of-subtree): Properly handle the last item in the buffer.
- (allout-pre-command-business, allout-command-counter):
- Increment an advertised counter so that cooperating enhancements can
- track revisions of items.
- (allout-open-topic): Run allout-structure-added-hook with suitable
- arguments.
- (allout-shift-in): Run allout-structure-shifted-hook with suitable
- arguments.
- (allout-shift-out): Fix doubling for negative args and ensure call
- of allout-structure-shifted-hook by solely using allout-shift-in.
- (allout-kill-line, allout-kill-topic):
- Run allout-structure-deleted-hook with suitable arguments.
- (allout-yank-processing): Run allout-structure-added-hook with
- proper arguments.
- (allout-yank): Enclose activity in allout-unprotected.
- (allout-flag-region): Run allout-exposure-change-hook with
- suitable arguments, instead of making the callee infer the arguments.
- (allout-encrypt-string):
- Support allout-encryption-plaintext-sanitization-regexps,
- allout-encryption-ciphertext-rejection-regexps, and
- allout-encryption-ciphertext-rejection-ceiling. Indicate correct
- en/de cryption mode in symmetric encryption failure message.
- (allout-obtain-passphrase): Use copy-sequence to get a distinct
- copy of the passphrase, and don't zero it or we'll corrupt the
- stashed copy.
- (allout-create-encryption-passphrase-verifier)
- (allout-verify-passphrase): Respect the new signature for
- allout-encrypt-string.
- (allout-get-configvar-values): Convenience for getting a
- configuration variable value and handling its absence gracefully.
-
-2006-08-11 Romain Francoise <romain@orebokech.com>
-
- * obsolete/zone-mode.el: Delete.
-
-2006-08-11 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/dns-mode.el (dns-mode): Use before-save-hook.
-
-2006-08-11 Thien-Thi Nguyen <ttn@gnu.org>
-
- * emacs-lisp/bindat.el (bindat-ip-to-string):
- Use `format-network-address' if possible.
-
-2006-08-11 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * x-dnd.el (x-dnd-init-frame): Call x-register-dnd-atom.
-
-2006-08-10 Chong Yidong <cyd@stupidchicken.com>
-
- * emacs-lisp/edebug.el (edebug-recursive-edit): Don't save and
- restore unread-command-events here.
- (edebug-display): Do it here, to detect sit-for interruptions.
-
-2006-08-10 Romain Francoise <romain@orebokech.com>
-
- * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.
- (dns-mode-soa-auto-increment-serial): New user option.
- (dns-mode-soa-maybe-increment-serial): New function.
- (dns-mode): Add the latter to `write-contents-functions'.
-
- * obsolete/zone-mode.el: Move to obsolete/ from net/.
- Delete autoload cookies.
-
-2006-08-10 John Wiegley <johnw@newartisans.com>
-
- * eshell/em-glob.el (eshell-glob-chars-list)
- (eshell-glob-translate-alist): Add support for [^g] in character globs.
-
-2006-08-10 Richard Stallman <rms@gnu.org>
-
- * facemenu.el (facemenu-add-face): Pass frame to facemenu-active-faces.
- (facemenu-set-face): Doc fix.
- (facemenu-listed-faces): Doc fix.
-
-2006-08-09 Chong Yidong <cyd@stupidchicken.com>
-
- * avoid.el (mouse-avoidance-animating-pointer): New var.
- (mouse-avoidance-nudge-mouse): Use it.
- (mouse-avoidance-banish): Rename from mouse-avoidance-banish-hook.
- (mouse-avoidance-exile): Rename from mouse-avoidance-exile-hook
- (mouse-avoidance-fancy): Rename from mouse-avoidance-fancy-hook.
- Don't activate if currently animating. All callers changed.
-
-2006-08-09 John Wiegley <johnw@newartisans.com>
-
- * calendar/timeclock.el (timeclock-use-elapsed): Added a new
- variable, which causes timeclock to report elapsed time worked,
- instead of just work remaining.
-
-2006-08-09 Kenichi Handa <handa@m17n.org>
-
- * international/latexenc.el (latexenc-find-file-coding-system):
- Fix for the case that the 2nd element of arg-list is a cons.
-
-2006-08-08 Chong Yidong <cyd@stupidchicken.com>
-
- * info.el (Info-fontify-node): Handle preceding `in' for note
- reference hiding rules.
-
-2006-08-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-quoted-subshell): Make sure we don't
- mistake a closing " for an opening one.
-
-2006-08-07 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Add more key bindings.
-
-2006-08-07 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * complete.el (PC-do-completion): Filter out completions matching
- completion-ignored-extensions before checking whether there are
- multiple completions.
- Don't use `list' unnecessarily when building completion tables.
-
-2006-08-06 Richard Stallman <rms@gnu.org>
-
- * help.el (describe-mode): Make minor mode list more concise.
-
-2006-08-05 Chong Yidong <cyd@stupidchicken.com>
-
- * bindings.el: Give mode-line-format, mode-line-modes, and
- mode-line-position `standard-value' properties.
-
-2006-08-05 Eli Zaretskii <eliz@gnu.org>
-
- * buff-menu.el (list-buffers-noselect): For Info buffers, use
- "(file)node" instead of the file name.
-
-2006-08-05 Richard Stallman <rms@gnu.org>
-
- * faces.el (escape-glyph): Doc fix.
-
-2006-08-04 Kenichi Handa <handa@m17n.org>
-
- * international/mule-diag.el (describe-font): Improve docstring
- and error message. Use frame-parameter (not frame-parameters).
-
-2006-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/gud.el (gdb-script-font-lock-syntactic-keywords):
- Correctly mark the end-of-docstring char.
-
-2006-08-03 Chong Yidong <cyd@stupidchicken.com>
-
- * simple.el (line-move-to-column): Constrain move-to-column to
- current field.
-
-2006-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * font-lock.el (font-lock-beg, font-lock-end)
- (font-lock-extend-region-functions): New vars.
- (font-lock-extend-region-multiline)
- (font-lock-extend-region-wholelines): New functions.
- (font-lock-default-fontify-region): Use them.
- (font-lock-extend-jit-lock-region-after-change): Only round up
- if font-lock-default-fontify-region will do it as well.
-
- * font-lock.el (font-lock-extend-after-change-region-function):
- Rename from font-lock-extend-region-function.
- (font-lock-extend-region): Remove by inlining at call sites.
- (font-lock-after-change-function): Don't needlessly round up to a whole
- number of lines.
- (font-lock-extend-jit-lock-region-after-change): Be more careful about
- the boundary conditions and the interactions between the various ways
- to extend the region.
-
-2006-08-02 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * jit-lock.el (jit-lock-fontify-now): Preserve the buffer's
- modification status when forcing the second redisplay.
-
-2006-08-03 Kim F. Storm <storm@cua.dk>
-
- * edmacro.el (edmacro-fix-menu-commands): Ignore switch-frame.
-
-2006-08-02 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name'
- doesn't look like a file name.
-
- * complete.el (PC-expand-many-files): Avoid signalling an error when
- the current directory doesn't exist. Reported by Micha\e,Ak\e(Bl Cadilhac.
-
-2006-08-02 Andreas Schwab <schwab@suse.de>
-
- * bindings.el (mode-line-format): Simplify reference to vc-mode.
-
-2006-08-02 Nick Roberts <nickrob@snap.net.nz>
-
- * bindings.el (map): Make mode-line-buffer-identification-keymap
- before defining propertized-buffer-identification.
-
-2006-08-01 Richard Stallman <rms@gnu.org>
-
- * bindings.el (mode-line-format): Adjust spacing around vc-mode.
-
-2006-08-02 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-find-source-frame): Make nil the
- default value.
- (gdb-find-source-frame): New function.
- (menu): Add to menu bar.
-
-2006-08-01 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * font-core.el (font-lock-extend-region-function)
- (font-lock-extend-region): Move to font-lock.el.
-
- * font-lock.el (font-lock-extend-region-function)
- (font-lock-extend-region): Move from font-core.el. Simplify.
-
- * jit-lock.el (jit-lock-fontify-now): Cause a second redisplay
- if needed.
- (jit-lock-start, jit-lock-end): New dynamic scoped vars.
- (jit-lock-after-change-extend-region-functions): New hook.
- (jit-lock-after-change): Use it instead of hard-coding font-lock code.
-
- * font-lock.el (font-lock-extend-jit-lock-region-after-change): New fun.
- (font-lock-turn-on-thing-lock): Use it.
-
- * longlines.el (longlines-show-region): Make it work on read-only
- buffers as well.
-
-2006-08-01 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-set-hollow): Check for gud-last-last-frame.
-
-2006-07-31 Richard Stallman <rms@gnu.org>
-
- * progmodes/vhdl-mode.el (vhdl-speedbar-display-directory)
- (vhdl-speedbar-display-projects): Update old obsolete
- speedbar variable names.
-
-2006-07-31 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-find-source-frame): New option.
- (gdb-stopped): Use it.
-
- * t-mouse.el (t-mouse-mode): Use set-process-query-on-exit-flag.
-
-2006-07-29 Chong Yidong <cyd@stupidchicken.com>
-
- * loadhist.el (unload-feature): Handle new `(t . SYMBOL)' format
- for load-history elements.
-
-2006-07-29 Eli Zaretskii <eliz@gnu.org>
-
- * files.el (convert-standard-filename): For Cygwin, replace
- characters not allowed in Windows file names.
- (make-auto-save-file-name): Add Cygwin to the list of systems
- where the auto-save file name needs to be run through
- convert-standard-filename.
-
-2006-07-29 Lennart Borgman <lennart.borgman.073@student.lu.se>
-
- * window.el (bw-get-tree): Don't integerp subtree if it's nil.
-
-2006-07-28 Richard Stallman <rms@gnu.org>
-
- * bindings.el (mode-line-frame-identification)
- (propertized-buffer-identification): Centralize the code
- to initialize the variable.
-
- * progmodes/grep.el (grep-default-command): Catch errors from
- wildcard-to-regexp.
-
-2006-07-29 Kim F. Storm <storm@cua.dk>
-
- * progmodes/grep.el (grep-tag-default): New function.
- (grep-default-command, grep-read-regexp): Use it.
- (grep-read-files): Use car of grep-files-history or grep-files-aliases
- as default if nothing else applies.
-
-2006-07-28 Bill Atkins <atkinw@rpi.edu> (tiny change)
-
- * wdired.el (wdired-change-to-wdired-mode, wdired-change-to-dired-mode):
- Throw error if buffer is not in Dired and Wdired mode, respectively.
-
-2006-07-28 Chong Yidong <cyd@stupidchicken.com>
-
- * cus-edit.el (custom-no-edit): Revert 2006-07-27 change, so that
- self-insert-command keys don't activate buttons.
- (custom-mode-map): Just don't bind "\C-m" to `custom-no-edit'.
-
-2006-07-29 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Use different
- faces for enable character.
-
-2006-07-28 Nick Roberts <nickrob@snap.net.nz>
-
- * Makefile.in (recompile): Update comment to reflect change
- on 2004-04-21.
-
-2006-07-27 Richard Stallman <rms@gnu.org>
-
- * cus-edit.el (customize-package-emacs-version-alist): Doc fix.
- (customize-package-emacs-version): Change msg when pkg has no entry.
- (custom-no-edit): On a button, do like widget-button-press.
-
-2006-07-27 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Fix bindings for C-tab,
- S-tab and C-S-tab.
-
-2006-07-28 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/which-func.el (which-function): Fix documentation/
- comment typo.
-
-2006-07-26 Richard Stallman <rms@gnu.org>
-
- * textmodes/ispell.el (ispell-word): If we replace the word,
- move point to the end. Insert before deleting.
-
-2006-07-26 Chong Yidong <cyd@stupidchicken.com>
-
- * subr.el (sit-for): Use new SECONDS arg of read-event instead of
- a timer.
-
-2006-07-26 Mathias Dahl <mathias.dahl@gmail.com>
-
- * tumme.el (tumme-backward-image): Add prefix argument. Add error
- when at first image.
- (tumme-forward-image): Add prefix argument. Add error when at last
- image.
-
-2006-07-25 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * tabify.el (tabify-regexp): Use more specific regexps.
- (tabify): Avoid modifying the buffer unnecessarily.
-
-2006-07-25 Mathias Dahl <mathias.dahl@gmail.com>
-
- * tumme.el (tumme-track-original-file): Add `buffer-live-p' check.
- (tumme-format-properties-string): Handle empty `buf'.
- (tumme-get-comment): Change variable names inside `let'.
- Add missing `let' variable that cause font-lock problems.
- (tumme-write-comments): Change variable names inside `let'.
- Add missing `let' variable that cause font-lock problems.
- (tumme-forward-image): Rename from `tumme-forward-char'.
- (tumme-backward-image): Rename from `tumme-backward-char'.
-
-2006-07-25 Masatake YAMATO <jet@gyve.org>
-
- * progmodes/ld-script.el (ld-script-keywords)
- (ld-script-font-lock-keywords, ld-script-builtins): Update keywords
- and add comments.
-
-2006-07-25 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-set-gud-minor-mode-existing-buffers)
- (gdb-resync, gdb-prompt, gdb-starting, gdb-exited, gdb-stopped)
- (gdb-set-gud-minor-mode-existing-buffers-1): Use different faces
- for status indicator.
-
-2006-07-24 Richard Stallman <rms@gnu.org>
-
- * xml.el (xml-parse-file): Clean up, and use with-temp-buffer.
-
- * subr.el (dolist, dotimes): Use interned symbols for locals.
- (--dotimes-limit--, --dolist-tail--): New defvars.
- (looking-back): Doc fix.
-
- * replace.el (replace-match-string-symbols): Handle dotted lists.
-
-2006-07-24 Mathias Dahl <mathias.dahl@gmail.com>
-
- * tumme.el (tumme-write-tags): Add.
- (tumme-write-comments): Add.
- (tumme-tag-files): Change to use `tumme-write-tags'.
- (tumme-tag-thumbnail): Change to use `tumme-write-tags'.
- (tumme-dired-comment-files): Change to use `tumme-write-comments'.
- (tumme-save-information-from-widgets): Change to use
- `tumme-write-comments' and `tumme-write-tags'.
- (tumme-comment-thumbnail): Change to use `tumme-write-comments'.
- (tumme-write-tag): Remove.
- (tumme-write-comment): Remove.
- (tumme-display-previous-thumbnail-original): Remove empty line.
- (tumme-widget-list): Add punctuation.
-
-2006-07-24 Mathias Dahl <mathias.dahl@gmail.com>
-
- * tumme.el (tumme-line-up): Add an extra check for end of buffer.
-
-2006-07-24 Daiki Ueno <ueno@unixuser.org>
-
- * pgg-def.el (pgg-truncate-key-identifier): Truncate the key ID to 8
- letters from the end. Thanks to "David Smith" <davidsmith@acm.org>
- and andreas@altroot.de (Andreas V\e,Av\e(Bgele).
-
-2006-07-23 Thien-Thi Nguyen <ttn@gnu.org>
-
- * mouse.el (mouse-on-link-p): Doc fix.
-
-2006-07-23 Nick Roberts <nickrob@snap.net.nz>
-
- * emacs-lisp/find-func.el (find-function-search-for-symbol):
- Handle "C-h f `".
-
-2006-07-22 Dan Nicolaescu <dann@ics.uci.edu>
-
- * ibuffer.el (ibuffer-formats): Use left alignment for the mode
- column.
-
-2006-07-22 Matt Hodges <MPHodges@member.fsf.org>
-
- * textmodes/table.el: Add move-beginning-of-line and
- move-end-of-line to Point Motion Only Group.
-
-2006-07-22 Eric Hanchrow <offby1@blarg.net> (tiny change)
-
- * progmodes/delphi.el (delphi-fill-comment): Use save-restriction.
-
-2006-07-22 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * startup.el (user-mail-address): Initialize from the `EMAIL'
- environment variable first. Document this.
- (command-line): Ditto.
-
-2006-07-22 Nick Roberts <nickrob@snap.net.nz>
-
- * help-mode.el (help-function-def, help-variable-def)
- (help-face-def): Print a message in the minibuffer.
-
-2006-07-21 Dan Nicolaescu <dann@ics.uci.edu>
-
- * term/xterm.el (terminal-init-xterm): Fix key bindings
- syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB.
-
-2006-07-21 Eli Zaretskii <eliz@gnu.org>
-
- * dos-w32.el (find-buffer-file-type-coding-system): Support calls
- where `(nth 1 command)' is a cons cell. Doc fix.
-
- * textmodes/po.el (po-find-charset): Doc fix.
-
-2006-07-21 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-unprotected, allout-e-o-prefix-p)
- (allout-beginning-of-current-line, allout-end-of-current-line)
- (allout-next-visible-heading, allout-open-topic)
- (allout-kill-topic, allout-yank-processing, allout-resolve-xref)
- (allout-flag-current-subtree, allout-show-to-offshoot)
- (allout-hide-current-entry, allout-show-current-branches)
- (allout-hide-region-body, allout-old-expose-topic)
- (allout-listify-exposed, allout-latex-verbatim-quote-curr-line)
- (allout-mark-topic, allout-adjust-file-variable): Enclose scopes
- containing `beginning-of-line' and `end-of-line' with
- `inhibit-field-text-motion' t.
-
-2006-07-21 Eli Zaretskii <eliz@gnu.org>
-
- * frame.el (focus-follows-mouse): Document that it doesn't have
- any effect on MS-Windows.
-
-2006-07-20 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-quoted-subshell): Further fix last change.
-
-2006-07-20 Jay Belanger <belanger@truman.edu>
-
- * calc/calc.el (calc-previous-alg-entry): Remove variable.
-
- * calc/calc-aent.el (calc-alg-entry-history, calc-quick-calc-history):
- New variables.
- (calc-alg-entry): Use `calc-alg-entry-history'.
- (calc-do-quick-calc): Use `calc-quick-calc-history'.
- Remove reference to `calc-previous-alg-entry'.
- (calcAlg-edit, calcAlg-enter): Remove reference to
- `calc-previous-alg-entry'.
- (calcAlg-previous): Use `previous-history-element' instead of
- `calc-previous-alg-entry'.
- (calc-do-alg-entry): Use history when calling `read-from-minibuffer'.
- Change keybinding for `calcAlg-plus-minus', add keybindings for
- `previous-history-element' and `next-history-element'.
-
- * calc/calc-rewr.el (calc-match): Remove reference to
- `calc-previous-alg-entry'.
-
- * calc/calc-sel.el (calc-selection-history): New variable.
- (calc-enter-selection, calc-sel-mult-both-sides)
- (calc-sel-add-both-sides): Use `calc-selection-history'.
-
- * calc/calc-map.el (calc-get-operator-history): New variable.
- (calc-get-operator): Use `calc-get-operator-history'.
-
- * calc/calcalg3.el (calc-curve-fit-history): New variable.
- (calc-curve-fit): Use `calc-curve-fit-history'.
-
-2006-07-20 Kenichi Handa <handa@m17n.org>
-
- * international/mule-cmds.el (select-safe-coding-system): Fix the
- way of deciding eol-type of the coding system.
-
-2006-07-20 Alan Mackenzie <acm@muc.de>
-
- * progmodes/cc-langs.el (c-emacs-variable-inits): New variable.
- (c-lang-setvar): New macro.
- (c-make-init-lang-vars-fun): Use the initialization forms in
- c-emacs-variable-inits in addition to those in c-lang-variable-inits.
- (comment-start, comment-end, comment-start-skip): Change these from
- c-lang-defvar's to c-lang-setvar's.
-
- * progmodes/cc-mode.el (c-make-emacs-variables-local): New macro,
- which calls make-local-variable on the elements of
- c-emacs-variable-inits.
- (c-init-language-vars-for): Call this new macro.
-
-2006-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/compile.el (compilation-error-regexp-alist-alist) <gnu>:
- Try to rule out false positives due to time stamps.
- (compilation-mode-font-lock-keywords): Remove rules made redundant
- because of the above change. Add `segmentation fault' to the known and
- highlighted compilation termination messages.
-
-2006-07-19 Kim F. Storm <storm@cua.dk>
-
- * progmodes/grep.el (grep-find-ignored-directories):
- Add .svn and _darcs to list.
-
-2006-07-19 Mathias Dahl <mathias.dahl@gmail.com>
-
- * dired.el (dired-mode-map): Add key binding `C-te' for
- `tumme-dired-edit-comment-and-tags'.
-
- * tumme.el (tumme-display-thumbnail-original-image): Make sure
- image display buffer is displayed before call to
- `tumme-display-image.
- (tumme-dired-display-image): Make sure image display buffer is
- displayed before call to `tumme-display-image.
- (tumme-mouse-display-image): Make sure image display buffer is
- displayed before call to `tumme-display-image.
- (tumme-widget-list): Add.
- (tumme-dired-edit-comment-and-tags): Add.
- (tumme-save-information-from-widgets): Add.
-
-2006-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-quoted-subshell): Fix last change.
-
-2006-07-18 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * progmodes/sh-script.el (sh-font-lock-keywords-1):
- Revert inadvertently installed patch hunk.
-
- * progmodes/compile.el (compilation-find-file): Handle the
- cases where the user selects a non-existent file.
-
-2006-07-18 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * bindings.el (minibuffer-local-map): Rebind TAB so it inserts a \t.
-
-2006-07-17 Chong Yidong <cyd@stupidchicken.com>
-
- * subr.el (sit-for): Just sleep-for if noninteractive.
-
-2006-07-17 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/autoload.el (make-autoload): Use new arg.
-
- * custom.el (custom-autoload): Add `noset' argument.
- (custom-push-theme): Don't autoload the variable, let callers do it.
- (custom-theme-set-variables): Autoload the variable if necessary.
-
- * cus-edit.el (custom-variable-state-set): If the variable was
- originally set outside custom, but to the same value as the default,
- consider it to be standard.
-
- * Makefile.in (mh-loaddefs.el): Finish setting up the default empty
- file *before* telling Emacs to add the autoloads, in case it fails.
-
- * progmodes/sh-script.el (sh-quoted-subshell): Don't match escaped `.
- Use `cond', push', and `dolist'.
-
-2006-07-17 Richard Stallman <rms@gnu.org>
-
- * image-mode.el (tar-superior-buffer, archive-superior-buffer):
- Add defvars to silence warnings.
-
-2006-07-17 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/compile.el (compilation-mode-font-lock-keywords):
- Don't highlight "Compiling file" messages as error.
-
- * dired-aux.el (dired-compress-file): Confirm again if gzipped
- file already exists.
-
-2006-07-16 Thien-Thi Nguyen <ttn@gnu.org>
-
- * find-file.el (ff-special-constructs): Doc fix. Also, for C/C++
- entry, don't assign to free var; simply return the extracted filename.
- (ff-treat-as-special): Incorporate common preamble from callers.
- (ff-other-file-name, ff-find-the-other-file):
- Update call to ff-treat-as-special.
-
- * progmodes/ada-mode.el (ada-mode): Rewrite ff-special-constructs init.
-
-2006-07-16 Mathias Dahl <mathias.dahl@gmail.com>
-
- * tumme.el (tumme-get-comment): Fix bug.
-
-2006-07-16 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * files.el: Remove spurious * in docstrings.
-
-2006-07-14 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el (allout-run-unit-tests-on-load): Rectify docstring
- grammar.
- (allout-beginning-of-current-line): Beware beginning of buffer.
- Also, a comment is simplified.
- (allout-hotspot-key-handler): Only set allout-post-goto-bullet
- when appropriate. (This fix enables use for other than
- bullet-hotspot operation.)
- (allout-hide-current-subtree): While escalating to sibling-close,
- make sure to situate on a topic.
-
-2006-07-14 Kim F. Storm <storm@cua.dk>
-
- * emulation/cua-base.el (cua-delete-selection)
- (cua-toggle-set-mark): New defcustoms.
- (cua-rectangle-modifier-key): Add `alt' modifier.
- (cua-replace-region): Don't delete if cua-delete-selection is nil.
- (cua-set-mark): Don't clear mark if cua-toggle-set-mark is nil.
- Suggested by Klaus Zeitler <kzeitler@lucent.com>.
-
- * emulation/cua-rect.el (cua-help-for-rectangle): Add `alt' modifier.
-
-2006-07-14 Ken Manheimer <ken.manheimer@gmail.com>
-
- * allout.el: Require 'cl during byte-compilation/interactive load,
- for the `assert' macro.
- (allout-mode-deactivate-hook): New hook, run when allout mode
- deactivates.
- (allout-developer): New allout customization subgroup.
- (allout-run-unit-tests-on-load): New allout-developer
- customization variable, when true allout unit tests are run towards
- end of file load/eval.
- (allout-inhibit-auto-fill): Disable auto-fill activity even during
- auto-fill-mode.
- (allout-resumptions): Remove, to be replaced by...
- (allout-add-resumptions): Register variable settings to be
- reinstated by `allout-do-resumptions'. The settings are made
- buffer-local, but the locality/globality of the suspended setting
- is restored on resumption.
- (allout-do-resumptions): Reinstate all settings suspended using
- `allout-add-resumptions'.
- (allout-test-resumptions): Unit tests (and intermediate variables)
- for resumptions.
- (allout-tests-globally-unbound, allout-tests-globally-true)
- (allout-tests-locally-true): Intermediate variables for
- resumptions unit tests.
- (allout-overlay-preparations): Replaces `allout-set-overlay-category'.
- (allout-exposure-category): Replaces 'allout-overlay-category variable.
- (allout-mode): Use `allout-add-resumptions' and `allout-do-resumptions'
- instead of retired `allout-resumptions'. For hook functions, use
- `local' parameter so hook settings are created and removed as
- buffer-local settings. Revise (resumptions) setting
- auto-fill-function so it is set only if already active. (The
- related fill-function settings are all made in either case, so
- that activating auto-fill-mode activity will have the custom
- allout-mode behaviors (hanging indent on topics, if configured for it).
- Remove all allout-exposure-category overlays on mode deactivation.
- (allout-hotspot-key-handler): New function extracted from
- `allout-pre-command-business', so the functionality can be used
- for other purposes, eg as a binding in an overlay.
- (allout-pre-command-business): Use new `allout-hotspot-key-handler'.
- (allout-auto-fill): Respect new `allout-inhibit-auto-fill'
- customization variable.
- (allout-run-unit-tests): Run the (currently quite small)
- repertoire of unit tests. Called just before the provide iff user
- has customized `allout-run-unit-tests-on-load' non-nil.
-
-2006-07-14 K\e,Aa\e(Broly L\e$,1 q\e(Brentey <lorentey@elte.hu>
-
- * emacs-lisp/authors.el (authors-aliases): Update.
-
-2006-07-14 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-display-buffer): Check for
- gdb-source-window. Add dedicated argument.
- (gdb-display-separate-io-buffer, gdb-append-to-inferior-io)
- (gdb-display-breakpoints-buffer, gdb-display-stack-buffer)
- (gdb-display-threads-buffer, gdb-display-memory-buffer)
- (gdb-display-locals-buffer): Use it.
-
- * progmodes/gud.el (gud-display-line): Use gdb-display-buffer.
- Set gdb-source-window.
-
-2006-07-13 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/autoload.el (make-autoload): Remove special handling of
- minor modes, redundant with the custom-autoload line above.
-
-2006-07-12 Chong Yidong <cyd@stupidchicken.com>
-
- * longlines.el (longlines-post-command-function): Handle open-line too.
-
-2006-07-12 Richard Stallman <rms@gnu.org>
-
- * progmodes/grep.el (grep-last-buffer): Doc fix.
-
- * info.el (Info-try-follow-nearest-node): Doc fix.
-
- * emacs-lisp/edebug.el (edebug-instrument-function):
- Err if find-function-noselect gives no position.
-
- * emacs-lisp/find-func.el (find-function-search-for-symbol):
- If can't find definition, return nil for position.
- (find-function-do-it): Handle new return value
- of find-definition-noselect.
- (find-definition-noselect, find-variable-noselect): Doc fix.
- (find-function-noselect): Doc fix.
-
- * help-mode.el (help-variable-def): Handle find-variable-noselect
- returning no position.
- (help-function-def): Likewise for find-function-search-for-symbol.
- (help-face-def): Likewise.
-
- * help-fns.el (describe-variable): Handle find-variable-noselect
- returning no position.
-
- * files.el (locate-file-completion): Avoid duplicates in result.
-
- * cus-edit.el (custom-no-edit): New command.
- (custom-mode-map): Remap to custom-no-edit instead of
- using suppress-keymap.
+ * abbrev.el (define-abbrev-table):
+ * composite.el (toggle-auto-composition):
+ * json.el (json-alist-p, json-plist-p):
+ * minibuffer.el (completion-table-with-predicate):
+ * ps-mule.el (ps-mule-external-libraries):
+ * emacs-lisp/advice.el (ad-special-form-p):
+ * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
+ * eshell/em-smart.el (eshell-review-quick-commands):
+ * progmodes/python.el (python-comment-line-p, python-blank-line-p)
+ (python-skip-out, python-check-comint-prompt):
+ Don't use `iff' in docstrings.
+
+ * international/robin.el (robin-package-alist): Fix typo in docstring.
+ (robin-current-package-name): Doc fix.
+ (robin-activate): Don't use `iff' in docstring.
+
+2008-05-07 Eric S. Raymond <esr@snark.thyrsus.com>
+
+ * vc.el, vc-dispatcher.el: VC-Dired support removed.
+ The code uses a ewoc-based implementation now.
+ * vc-hooks.el: Support for Meta-CVS has been removed.
+
+2008-05-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * tool-bar.el: Choose images dynamically.
+ (tool-bar-make-keymap, tool-bar-find-image): New function.
+ (tool-bar-find-image-cache): New var.
+ (tool-bar-local-item, tool-bar-local-item-from-menu):
+ Don't select the image yet, do it later in tool-bar-make-keymap.
+
+2008-05-07 Andreas Schwab <schwab@suse.de>
+
+ * window.el: Require 'cl when compiling.
+
+2008-05-07 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-dispatcher.el (vc-dir-insert-directories): Default to t.
+
+2008-05-07 Glenn Morris <rgm@gnu.org>
+
+ * subr.el (ignore-errors): Move here from cl-macs.el.
+ * emacs-lisp/cl-macs.el (ignore-errors): Move to subr.el.
+
+ * progmodes/fortran.el (fortran-mode): Fix font-lock-syntactic-keywords
+ oddness.
+
+2008-05-06 Eric S. Raymond <esr@snark.thyrsus.com>
+
+ * vc-hooks.el (vc-find-file-hook):
+ * vc-dispatcher.el (vc-resynch-window): Decouple vc-dispatcher
+ further from vc.el.
+ * vc.el (vc-dir-mode): Move VC-specific context menu entries here.
+
+2008-05-06 Wilson Snyder <wsnyder@wsnyder.org>
+
+ * verilog-mode.el (verilog-getopt-file): Cleanup warning message format.
+ (verilog-auto, verilog-auto-arg, verilog-auto-ascii-enum)
+ (verilog-auto-inout, verilog-auto-inout-module)
+ (verilog-auto-input, verilog-auto-inst, verilog-auto-inst-param)
+ (verilog-auto-output, verilog-auto-output-every, verilog-auto-reg)
+ (verilog-auto-reg-input, verilog-auto-reset, verilog-auto-sense)
+ (verilog-auto-sense-sigs, verilog-auto-tieoff)
+ (verilog-auto-unused, verilog-auto-wire)
+ (verilog-decls-get-assigns, verilog-decls-get-consts)
+ (verilog-decls-get-gparams, verilog-decls-get-inouts)
+ (verilog-decls-get-inputs, verilog-decls-get-outputs)
+ (verilog-decls-get-ports, verilog-decls-get-regs)
+ (verilog-decls-get-signals, verilog-decls-get-wires)
+ (verilog-dir-cache-lib-filenames, verilog-dir-cache-list)
+ (verilog-dir-cache-preserving, verilog-dir-file-exists-p)
+ (verilog-dir-files, verilog-expand-dirnames, verilog-getopt-file)
+ (verilog-inject-sense, verilog-library-filenames)
+ (verilog-mode-release-date, verilog-mode-version)
+ (verilog-modi-cache-add, verilog-modi-cache-preserve-buffer)
+ (verilog-modi-cache-preserve-tick, verilog-modi-cache-results)
+ (verilog-modi-get-assigns, verilog-modi-get-consts)
+ (verilog-modi-get-gparams, verilog-modi-get-inouts)
+ (verilog-modi-get-inputs, verilog-modi-get-outputs)
+ (verilog-modi-get-ports, verilog-modi-get-regs)
+ (verilog-modi-get-signals, verilog-modi-get-sub-inouts)
+ (verilog-modi-get-sub-inputs, verilog-modi-get-sub-outputs)
+ (verilog-modi-get-wires, verilog-preserve-cache)
+ (verilog-preserve-dir-cache, verilog-preserve-modi-cache)
+ (verilog-read-sub-decls, verilog-read-sub-decls-line)
+ (verilog-read-sub-decls-sig, verilog-subdecls-get-inouts)
+ (verilog-subdecls-get-inputs, verilog-subdecls-get-outputs):
+ Add caching of additional state, and rework signal extraction
+ routines to improve AUTO expansion performance by 300%++.
+
+2008-05-06 Chong Yidong <cyd@stupidchicken.com>
-2006-07-12 Nick Roberts <nickrob@snap.net.nz>
+ * progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Tweak Open Watcom regexp to distinguish between errors and warnings.
- * 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.
+2008-05-06 Stefan Monnier <monnier@iro.umontreal.ca>
- * thumbs.el (thumbs-call-convert): Use shell-command-switch.
+ * dired.el (dired-read-dir-and-switches): Fix up last change.
-2006-07-11 Kim F. Storm <storm@cua.dk>
+2008-05-05 Eric S. Raymond <esr@snark.thyrsus.com>
- * ido.el (ido-copy-current-file-name): Use buffer-name if
- buffer-file-name is nil.
+ * vc.el (vc-deduce-fileset): Lift all the policy and UI stuff
+ out of this function, move it to vc-dispatcher-selection-set.
-2006-07-11 Chong Yidong <cyd@stupidchicken.com>
+2008-05-05 Sam Steingold <sds@gnu.org>
- * simple.el (undo-ask-before-discard): Set to nil.
+ * window.el (delete-other-windows-vertically): New function.
- * vc.el (vc-exec-after): Don't delete process manually.
- (vc-print-log): Run log-view-mode in process sentinel inside
- inhibit-read-only. Don't shrink window due to timing issues.
+2008-05-05 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/ebrowse.el (ebrowse-display-member-buffer):
- Avoid using with-output-to-temp-buffer, which clobbers local vars.
+ * dired.el (dired-read-dir-and-switches):
+ Obey read-file-name-completion-ignore-case.
-2006-07-11 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-05-05 Nick Roberts <nickrob@snap.net.nz>
* progmodes/compile.el (compilation-error-regexp-alist-alist):
- Fix ambiguity introduced by last change.
- (compilation-find-file): Move save-excursion to where it may
- make sense. Fix a left over `find-file'.
-
-2006-07-11 Robert J. Chassell <bob@rattlesnake.com>
-
- * textmodes/texinfmt.el (texinfo-format-separate-node):
- Insert a string before point, which fits documentation, not after.
- (texinfo-multitable-item): In a multitable row, insert any
- additional needed @tabs and spaces.
-
-2006-07-11 Nick Roberts <nickrob@snap.net.nz>
-
- * 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 call-process
- instead of shell-command.
- (tumme-create-thumbnail-buffer, tumme-create-display-image-buffer)
- (tumme-display-thumbs, tumme-modify-mark-on-thumb-original-file)
- (tumme-display-image, tumme-get-exif-data): Use with-current-buffer.
- (tumme-display-properties-format, tumme-dired-insert-marked-thumbs)
- (tumme-thumbnail-set-image-description, tumme-gallery-generate)
- (tumme-rotate-original, tumme-get-exif-file-name): Fit to 80 columns.
-
-2006-07-11 Kim F. Storm <storm@cua.dk>
-
- * subr.el (sit-for): Doc fix. Specify normal arg list using fn-form.
- Remove special case for seconds < 0. Use (redisplay t) instead.
-
-2006-07-10 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/cc-awk.el (c-awk-escaped-nls*): Use eval-and-compile to
- avoid compilation error.
+ Add regexp for Open Watcom compiler output.
- * subr.el (sit-for): New function.
+2008-05-05 Phil Sung <psung@mit.edu> (tiny change)
- * play/hanoi.el (hanoi-sit-for): Check sit-for return value.
+ * progmodes/python.el (python-block-pairs): Align finally with except.
-2006-07-10 Richard Stallman <rms@gnu.org>
+2008-05-05 Stefan Monnier <monnier@iro.umontreal.ca>
- * ldefs-boot.el (edebug): Update page.
+ * vc-rcs.el (vc-rcs-fetch-master-state): Fix inf-loop.
-2006-07-10 Kim F. Storm <storm@cua.dk>
+2008-05-05 Tom Tromey <tromey@redhat.com>
- * emacs-lisp/authors.el (authors-ignored-files): Ignore changes
- to FOR-RELEASE and TODO.
+ * smerge-mode.el (smerge-start-session): Don't call smerge-next if
+ looking at conflict marker.
-2006-07-10 Romain Francoise <romain@orebokech.com>
+2008-05-05 Stefan Monnier <monnier@iro.umontreal.ca>
- * emacs-lisp/authors.el (authors-aliases): Update.
+ * vc-dispatcher.el (vc-dir-mark-buffer-changed): Fix typo
+ client-mode -> vc-client-object, and guess `funcall' was meant.
+ (vc-dir-mode): Rename client-mode -> vc-client-mode.
-2006-07-10 Alan Mackenzie <acm@muc.de>
+2008-05-05 Dan Nicolaescu <dann@ics.uci.edu>
- * progmodes/cc-awk.el, cc-defs.el, cc-fonts.el, cc-langs.el:
- * cc-mode.el: Changes to eradicate eval-after-load.
+ * net/zeroconf.el (dbus-call-method, dbus-register-signal)
+ (dbus-debug): Move declarations outside eval-when-compile.
-2006-07-09 Chong Yidong <cyd@stupidchicken.com>
+2008-05-04 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
- * emacs-lisp/helper.el (Helper-help-scroller): Don't signal error
- on non-char events.
-
-2006-07-09 Romain Francoise <romain@orebokech.com>
+ * proced.el (proced-command-alist): Fix system-type values.
+ Fix defcustom.
+ (proced-sorting-schemes-alist, proced-sorting-scheme): New variables.
+ (proced-sort-pcpu, proced-sort-pmem, proced-sort-pid)
+ (proced-sort-start, proced-sort, proced-sort-time): New commands.
+ (proced-update): Use proced-sorting-scheme. Update modeline.
+ (proced-send-signal): Use nreverse.
+ (proced-sorting-scheme-p): New function.
- * progmodes/compile.el (compilation-mode-font-lock-keywords):
- Don't highlight start/end markers as compilation messages.
+2008-05-04 Andreas Schwab <schwab@suse.de>
- * isearch.el (isearch-yank-line): Let-bind `inhibit-field-text-motion'
- to t.
+ * vc.el: Require dired when compiling.
-2006-07-09 Stefan Monnier <monnier@iro.umontreal.ca>
+ * minibuffer.el (completion--insert-strings): Don't delete past bol.
- * textmodes/fill.el (fill-region-as-paragraph): Refine last change.
+2008-05-03 Glenn Morris <rgm@gnu.org>
-2006-07-08 Richard Stallman <rms@gnu.org>
+ * ediff-diff.el, ediff-help.el, ediff-merg.el, ediff-mult.el:
+ * ediff-ptch.el, ediff-util.el, ediff-wind.el, ediff.el:
+ Simplify compilation requirements.
+ * ediff-init.el, ediff-vers.el: Remove unnecessary variable
+ declarations.
- * term/x-win.el (x-handle-display): Add doc string.
+2008-05-03 Dave Love <fx@gnu.org>
- * emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix.
+ * progmodes/python.el (python-beginning-of-statement):
+ Loop at least once (fixes 2008-02-21 change).
- * subr.el (def-edebug-spec): Move here.
- * emacs-lisp/edebug.el (def-edebug-spec): Move to subr.el.
+2008-05-03 Eli Zaretskii <eliz@gnu.org>
- * imenu.el (imenu-choose-buffer-index): Doc fix.
+ * ls-lisp.el (ls-lisp-insert-directory): Use `string-width'
+ instead of `length' for comparing length of user and group names.
-2006-07-08 Romain Francoise <romain@orebokech.com>
+2008-05-03 Eric S. Raymond <esr@snark.thyrsus.com>
- * term/x-win.el (x-display-name): Fix typo.
+ * vc-dispatcher.el: New file, separates out the UI and command
+ execution machinery from VCS-specific logic left in vc.el.
+ The separation is not yet completely clean, but it's a good start.
+ * vc.el: This file is about 1700 lines shorter now.
+ Remove obsolete logentry-check from the backend API.
+ * vc-sccs.el (vc-sccs-logentry-check): Remove. This was the only
+ implementation of the logentry-check method, and it guarded against
+ a log length limit that has probably been obsolete for 15 years (!).
-2006-07-08 Eli Zaretskii <eliz@gnu.org>
+2008-05-02 Sam Steingold <sds@gnu.org>
- * hexl.el (hexl-find-file): Doc fix.
+ * progmodes/compile.el (compilation-start): Move setting of
+ compilation-directory after (funcall mode) as that resets local
+ variables, this fixes recompile in grep buffers.
+ * grep.el (grep-mode-map): Bind "g" to recompile (like in dired &c).
- * emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix.
+2008-05-02 Eric S. Raymond <esr@snark.thyrsus.com>
-2006-07-07 Chong Yidong <cyd@stupidchicken.com>
+ * vc-arch.el, vc-bzr.el, vc-cvs.el, vc-git.el, vc-hg.el,
+ * vc-hooks.el, vc-mcvs.el, vc-mtn.el, vc-rcs.el, vc-sccs.el,
+ * vc-svn.el, vc.el (vc-*-checkout-model): Make sure every backend
+ has one of these and that all are called in compatible ways.
+ * vc-arch.el, vc-bzr.el, vc-cvs.el, vc-git.el, vc-hg.el,
+ * vc-hooks.el, vc-mcvs.el, vc-mtn.el, vc-rcs.el, vc-sccs.el,
+ * vc-svn.el, vc.el (vc-*-revision-granularity): Make sure every
+ backend has one of these.
- * term/x-win.el (x-display-name): Doc fix.
+2008-05-02 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-07-07 Stefan Monnier <monnier@iro.umontreal.ca>
+ * progmodes/octave-mod.el (octave-abbrev-table): Move defvar and
+ initialization into define-abbrev-table. Use :regexp.
+ (octave-mode-syntax-table): Don't set word syntax for `.
- * textmodes/fill.el (fill-delete-prefix): Don't ignore excessively
- long prefixes.
- (fill-region-as-paragraph): Don't round up to a whole line.
- (fill-comment-paragraph): Don't include the code-before-the-comment
- when calling fill-region-as-paragraph.
+ * files.el (minibuffer-with-setup-hook): Allow `fun' expressions rather
+ than only value.
- * international/mule.el (make-char): Remove redundancy.
+ * dired.el (dired-read-dir-and-switches):
+ Set minibuffer-completing-file-name and call substitute-in-file-name.
+ (dired-format-columns-of-files): Use completion--insert-strings.
- * emacs-lisp/bytecomp.el (byte-compile-form): The `byte-compile'
- property may contain an anonymous function rather than a symbol.
+ * minibuffer.el (completion-hilit-commonality): Revert last change:
+ the leftover code was actually useful.
+ (completion--insert-strings): Use string-width rather than length.
- * pcvs-defs.el (cvs-temp-buffer-name): Fix non-hiddenness.
+2008-05-02 Sam Steingold <sds@gnu.org>
- * progmodes/compile.el (compilation-error-regexp-alist-alist) <gnu>:
- Use shy regexp. Fix incorrect backref to potentially unmatched group.
+ * vc.el (vc-dir-mode-map): Enable mouse bindings.
+ (vc-at-event): New macro: run the body at the even location.
+ (vc-dir-menu, vc-dir-toggle-mark): Use it.
+ (vc-dir-mark-file, vc-dir-unmark-file): Move only on non-mouse events.
+ * subr.el (mouse-event-p): Check if the even is mouse-related.
- * dirtrack.el (dirtrack-default-directory-function): Remove.
- (dirtrack-directory-function): Use file-name-as-directory.
- (dirtrack-windows-directory-function): Simplify.
- (dirtrack-forward-slash, dirtrack-backward-slash)
- (dirtrack-replace-slash): Remove.
- (dirtrack-toggle): Adjust comint-preoutput-filter-functions as well.
- (dirtrack): Fix wrong parenthesizing; use match-string.
+2008-05-02 Nick Roberts <nickrob@snap.net.nz>
- * progmodes/octave-inf.el: Remove spurious * in docstrings.
- (inferior-octave-mode): Only change the buffer-local value of
- comint-dynamic-complete-functions.
- (inferior-octave-mode-map, inferior-octave-mode-syntax-table):
- Move the initialization to the declaration.
- (inferior-octave-complete): Remove unused var `filter'.
+ * progmodes/gdb-ui.el (gdb-info-breakpoints-custom):
+ Don't throw error if no file is found.
- * shell.el (shell-mode): Only change the buffer-local value of
- comint-dynamic-complete-functions.
+2008-05-02 Juanma Barranquero <lekktu@gmail.com>
-2006-07-07 Carsten Dominik <dominik@science.uva.nl>
+ * vc-hooks.el (vc-call, vc-state): Fix typos in docstrings.
+ (vc-default-state-heuristic): Doc fix.
- * textmodes/org.el (org-agenda-get-todos): Skip subtree also if
- entry is skipped because it has been scheduled.
- (org-prepare-agenda-buffers): Don't mark buffers as modified when
- changing `:org-archived' and `:org-comment' properties.
+2008-05-02 Richard Sharman <rsharman@pobox.com>
-2006-07-06 Chong Yidong <cyd@stupidchicken.com>
+ * hilit-chg.el (highlight-changes-mode): Remove references to
+ hooks that no longer exist. Because define-minor-mode is used the
+ hook highlight-changes-mode-hook exists and can do what both the
+ old hooks used to do. The documentation at the top of the file
+ was updated to demonstrate this.
+ (highlight-changes-mode): Remove commented out call to a hook
+ function that is no longer there.
+ (hilit-chg-set): Remove running of highlight-changes-enable-hook.
- * server.el (server-select-display): Don't make the temp frame
- minibuffer-only, in case it's not a temp frame.
- (server-process-filter): Don't delete the temp frame if it's the
- only one we have on that display.
+2008-05-02 Eric S. Raymond <esr@snark.thyrsus.com>
- * files.el (find-alternate-file): Doc fix.
+ * vc.el (vc-default-dired-state-info): Change name of primitive
+ to prettify-state-info, in preparation for ripping out dired mode.
+ * vc-bzr.el (vc-bzr-dired-state-info): Change name of primitive
+ to prettify-state-info, in preparation for ripping out dired mode.
+ * vc-hooks.el (vc-toggle-read-only): Throw an error when a user
+ tries this on a version-controlled buffer. It will do useless or
+ actively bad things on any version control system newer than RCS.
+ * vc-hooks.el (vc-dired-resynch-file):
+ * vc.el (vc-dired-resynch-file): Change name of primitive to
+ vc-directory-resynch-file, preparing to remove dired.
-2006-07-05 Richard Stallman <rms@gnu.org>
+2008-05-02 Dan Nicolaescu <dann@ics.uci.edu>
- * files.el (abbreviate-file-name): Add save-match-data.
+ * vc-rcs.el (vc-rcs-state): Fix typos.
-2006-07-03 Richard Stallman <rms@gnu.org>
+ * vc.el (vc-register): Change argument order so that the prefix
+ argument is assigned correctly.
+ (vc-next-action, vc-dir-register): Update for the above change.
- * faces.el (read-face-name): Doc fix.
+2008-05-01 Juri Linkov <juri@jurta.org>
-2006-07-05 Chong Yidong <cyd@stupidchicken.com>
+ * replace.el (occur-read-primary-args): Set default to the car of
+ regexp-history and display it in the prompt, but don't add to the
+ list of minibuffer defaults. Bind history-add-new-input to nil to
+ not add automatically `default'. For empty input return `default'.
+ Otherwise, add `input' to regexp-history and return it.
+ (occur-1): Signal an error for the empty regexp.
- * net/goto-addr.el (goto-address): Mark as safe for local evals.
+ * progmodes/compile.el (compilation-auto-jump):
+ Set window point to `pos' explicitly.
-2006-07-05 Andre Spiegel <spiegel@gnu.org>
+2008-05-01 Eric S. Raymond <esr@snark.thyrsus.com>
- * vc.el (vc-diff-internal): Fix prev change.
+ * vc-bzr.el (vc-bzr-state): Allow this to return 'ignored
+ when appropriate.
+ * vc-sccs.el (vc-sccs-state): Call vc-sccs-unregistered so
+ we report the 'unregistered state reliably.
+ * vc-rcs.el (vc-rcs-state): Call vc-rcs-unregistered so
+ we report the 'unregistered state reliably.
+ * vc-git.el (vc-git-state): Call vc-git-unregistered so
+ we report the 'unregistered state reliably.
+ * vc-hooks (vc-state): Document that vc-unregistered is
+ now expected to be returned reliably.
+ * vc.el (vc-default-dired-state): Change needs-patch state to
+ needs-update, since the name now shows up in dir-status listings
+ and was somewhat misleading.
+ * vc-cvs.el (vc-cvs-delete-file): Don't do a "cvs commit"
+ immediately after removing the file.
+ * vc.el (vc-next-action): More informative messages when a fileset
+ is in a mixed state or files are missing.
-2006-07-05 Thien-Thi Nguyen <ttn@gnu.org>
+2008-05-01 Sam Steingold <sds@gnu.org>
- * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Use eval-buffer.
- * play/dunnet.el (dun-load-d, dun-eval): Likewise.
+ * vc.el (vc-delete-file): Check if the file has uncommitted changes.
-2006-07-04 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-05-01 Stefan Monnier <monnier@iro.umontreal.ca>
- * thingatpt.el (symbol-at-point): Don't use `form-at-point' which
- fails if the symbol contains chars like ( or '.
- (bounds-of-thing-at-point): Remove unused vars `end' and `beg'.
- (thing-at-point-bounds-of-url-at-point): Remove unused vars `url' and
- `short'.
+ * Makefile.in: Revert incorrect fix for claimed bootstrap breakage.
-2006-07-04 Kenichi Handa <handa@m17n.org>
+2008-05-01 Daiki Ueno <ueno@unixuser.org>
- * international/mule-cmds.el (set-language-info): If LANG-ENV is
- the current one, don't call set-language-environment, but call one
- of set-language-environment-XXX to make INFO effective now.
- (set-language-environment): Call set-language-environment-XXX
- functions instead of doing the various setups directly.
- (set-language-environment-coding-systems): Delete argument eol-type.
- (set-language-environment-input-method)
- (set-language-environment-nonascii-translation)
- (set-language-environment-charset)
- (set-language-environment-fontset)
- (set-language-environment-unibyte): New functions.
+ * epa-file-hook.el: New file split from epa-file.el.
+ * epa-file.el: Require 'epa-file-hook.
+ (epa-file-handler): Add autoload cookie.
+ * loadup.el: Load epa-file-hook.
+ * startup.el (command-line): Eval the body of auto-encryption-mode.
-2006-07-03 Luc Teirlinck <teirllm@auburn.edu>
+2008-05-01 Dan Nicolaescu <dann@ics.uci.edu>
- * locate.el (locate-update-when-revert): New option.
- (locate-update-path): New option (suggested by Michael Albinus).
- (locate-prompt-for-command): Whitespace change.
- (locate-update): No longer offer to update the locate database by
- default. Implement the two new options.
+ * vc.el (vc-dir-mode-map): Don't bind "r".
-2006-07-04 Nick Roberts <nickrob@snap.net.nz>
+ * vc-hg.el (vc-hg-extra-fileinfo): New defstruct.
+ (vc-hg-status-printer): New function.
+ (vc-hg-after-dir-status): Deal with copied and renamed files.
+ (vc-hg-dir-status): Add flag to show copied files.
- * tooltip.el: Move comment about track-mouse...
+2008-05-01 John Paul Wallington <jpw@pobox.com>
- * progmodes/gud.el: ...to here.
+ * ibuffer.el (ibuffer-last-sorting-mode): New variable.
+ (ibuffer-do-sort-by-recency): Reverse sorting order if last
+ sorting mode was recency.
-2006-07-03 Chong Yidong <cyd@stupidchicken.com>
+ * ibuf-macs.el (define-ibuffer-sorter): Define the sorter to
+ reverse sorting order if last sorting mode was the sorter's.
- * facemenu.el (facemenu-listed-faces): New var.
- (facemenu-unlisted-faces): Variable deleted.
- (facemenu-add-new-face): Use facemenu-listed-faces.
+2008-05-01 Jason Rumney <jasonr@gnu.org>
- * emulation/viper-init.el, calendar/calendar.el:
- * progmodes/make-mode.el: Delete calls to facemenu-unlisted-faces.
+ * w32-fns.el (w32-charset-info-alist): Map vietnamese to windows-1258.
-2006-07-03 Carsten Dominik <dominik@science.uva.nl>
+2008-04-30 John Paul Wallington <jpw@pobox.com>
- * textmodes/org.el (org-mode): Remove no invalid settings for
- calc embedded mode.
- (org-mode-p): New defsubst.
- (org-save-all-org-buffers): New function.
- (org-first-headline-recenter): Enclose outline-regexp in group
- delimiters.
- (org-set-tags): Keep single space after stars.
+ * ibuffer.el (define-ibuffer-column filename): When the major mode
+ is `vc-dir-mode' show the buffer's default directory.
-2006-07-02 Stefan Monnier <monnier@iro.umontreal.ca>
+ * ibuf-ext.el (define-ibuffer-filter filename): Likewise when the
+ major mode is `vc-dir-mode' use the buffer's default directory.
- * window.el (set-window-text-height): Only set window-min-height to
- 1 if that's the requested size.
+2008-04-30 Sam Steingold <sds@gnu.org>
- * diff-mode.el (diff-find-file-name): Obey cvs-pcl-cvs-dirchange-re.
- (diff-unified->context, diff-context->unified)
- (diff-reverse-direction): Make sure the end marker stays at the end.
- (diff-mode): Add the keymap table at the end of docstring.
- Use lexical-let rather than constructing a closure manually.
+ * vc.el (vc-dir-delete-file): Add.
+ (vc-dir-mode-map): Bind "r" to vc-dir-delete-file, like in PCL-CVS.
+ (vc-delete-file): Do not barf when the file has been already deleted.
- * files.el (find-file-noselect-1): Remove unused var assignment.
- (hack-local-variables-confirm): Print lists of strings as lists of
- strings rather than lists of symbols.
- (abbreviate-file-name, hack-local-variables-prop-line):
- Use match-string.
- (hack-one-local-variable): Move `make-local-variable' nearer its use.
- (recover-session-finish): Use line-end-position.
+2008-04-30 Dan Nicolaescu <dann@ics.uci.edu>
-2006-07-02 Michael Albinus <michael.albinus@gmx.de>
+ * emacs-lisp/lisp-mode.el (lisp-mode-map): Add menu.
- * net/tramp.el (tramp-handle-shell-command): Preserve current-buffer.
+2008-04-30 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-07-02 Daniel Pfeiffer <occitan@esperanto.org>
+ * progmodes/octave-mod.el (octave-help): New function.
+ * progmodes/octave-hlp.el: Delete.
+ * info-look.el (octave-mode): Add operator index.
- * progmodes/make-mode.el (makefile-macroassign-regex):
- Accept preceding keyword.
- (makefile-gmake-statements): Reorganize, now that makepp has
- "override" and also handle forgotten "override define".
- (makefile-makepp-statements): Add new "global", "override export"
- and "override global".
+ * vc.el (vc-checkout): Typo.
-2006-06-30 Juanma Barranquero <lekktu@gmail.com>
+2008-04-30 Dan Nicolaescu <dann@ics.uci.edu>
- * progmodes/ada-mode.el (ada-which-compiler, ada-mode-menu)
- (ada-compile-mouse-goto-error, ada-deactivate-properties)
- (ada-no-auto-case): Fix typos in docstrings.
+ * menu-bar.el (menu-bar-tools-menu): Reorder, place Games last.
+ Add "..." in the appropriate places.
-2006-06-30 Nick Roberts <nickrob@snap.net.nz>
+ * epa.el (epa-key-list-mode-map): Add more menu entries.
+ Add "..." in the appropriate places.
- * info.el (Info-find-node-2): Search for makeinfo version more
- carefully.
+ * dired.el (dired-mode-map): Add :help.
-2006-06-29 Carsten Dominik <dominik@science.uva.nl>
+ * vc.el (vc-deduce-fileset): Add new parameter.
+ (vc-dir-marked-only-files): New function.
+ (vc-next-action): Don't ignore directories, look at the files
+ inside them.
+ (vc-dir-mode): Document how the mark/unmark commands work.
- * textmodes/org.el (org-prepare-agenda-buffers):
- Use `invisible-OK' argument for `org-end-of-subtree'.
- (org-export-cleanup-toc-line): Rename from `org-html-cleanup-toc-line'.
- (org-beginning-of-item): Fix bug in regular expression for white line.
- (org-export-as-html): Enforce space after bullet in plain list items.
- (org-set-autofill-regexps): Require space after plain list bullet
- for paragraph-start.
- (org-ts-regexp3): New constant.
- (org-at-timestamp-p): New optional argument ALSO-INACTIVE.
- (org-timestamp-up-day, org-timestamp-down-day)
- (org-timestamp-change): Work with inactive timestamps.
- (org-ts-regexp1): Don't allow brackets in time stamps.
+2008-04-30 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-06-29 Nick Roberts <nickrob@snap.net.nz>
+ * progmodes/compile.el (compilation-error-regexp-alist-alist) <gnu>:
+ Rule out trailing spaces in file and directory names as well.
- * help-mode.el (help-xref-symbol-regexp): Add property as a keyword
- for ignoring links.
+ * minibuffer.el (completion--do-completion): Move point even if the
+ completion makes no change.
+ (completion-pcm-try-completion): Fix computation of new point.
- * faces.el (read-face-name): Use it.
+2008-04-30 David Hansen <david.hansen@gmx.net>
-2006-06-28 Juri Linkov <juri@jurta.org>
+ * dired.el: Require 'cl.
- * buff-menu.el (list-buffers-noselect): Compare Info file
- with the string "dir" to detect Info directory.
+2008-04-30 Nick Roberts <nickrob@snap.net.nz>
- * complete.el (partial-completion-mode): In lambda for
- `choose-completion-string-functions' use full function signature
- with 4 args, and move point to the end of the minibuffer only if arg
- `mini-p' is non-nil.
+ * progmodes/gdb-ui.el (gdb-frame-handler-1): Make overlay arrow
+ hollow if not in innermost frame.
-2006-06-28 John Paul Wallington <jpw@pobox.com>
+2008-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
- * ibuffer.el (ibuffer-mode): Doc fix.
+ Make `checkout-model' apply to filesets.
+ * vc-hooks.el (vc-checkout-model): Rewrite.
+ (vc-before-save, vc-after-save): Adjust callers accordingly.
+ * vc.el (vc-editable-p, vc-next-action, vc-checkout, vc-update)
+ (vc-transfer-file): Adjust callers accordingly.
+ * vc-rcs.el (vc-rcs-checkout-model): Adjust arg.
+ (vc-rcs-state, vc-rcs-state-heuristic, vc-rcs-receive-file)
+ (vc-rcs-checkout, vc-rcs-fetch-master-state): Use vc-rcs-checkout-model
+ instead of vc-checkout-model.
+ * vc-mcvs.el (vc-mcvs-revert):
+ Use vc-mcvs-checkout-model i.s.o vc-checkout-model.
+ * vc-cvs.el (vc-cvs-checkout-model): Adjust arg.
+ (vc-cvs-revert): Use vc-cvs-checkout-model i.s.o vc-checkout-model.
+ * vc-svn.el (vc-svn-checkout-model):
+ * vc-hg.el (vc-hg-checkout-model):
+ * vc-git.el (vc-git-checkout-model):
+ * vc-bzr.el (vc-bzr-checkout-model): Adjust arg.
-2006-06-28 Carsten Dominik <dominik@science.uva.nl>
+ * dired.el (dired-read-dir-and-switches): Replace last change with
+ a new approach that mixes read-file-name and read-directory-name.
- * textmodes/org.el (org-context): New contexts :item-bullet,
- :latex-fragment, :latex-preview.
- (org-overlays-at, org-overlay-start, org-overlay-end):
- New compatibility functions.
- (org-inside-LaTeX-fragment-p): More accurate matching, using the
- exact regexp that will be used during export.
- (org-latex-regexps): New variable.
- (org-cdlatex-mode): Improve advice for `texmathp'.
- (turn-on-org-cdlatex): New function.
+ * files.el (read-buffer-to-switch):
+ Avoid making assumptions about `other-buffer'.
-2006-06-28 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+2008-04-29 Sam Steingold <sds@gnu.org>
- * term/mac-win.el (mac-handle-font-selection): Change keys of
- mac-atsu-font-table from strings to numbers.
- (mac-ts-caret-position): Use also when cursor-type is nil.
- (mac-ts-update-active-input-area): Add Mac OS Classic support.
- Relax condition for using overlay strings.
- Use mac-ts-caret-position face when cursor-type is nil.
+ * vc.el (vc-dir-mode-hook): Add normal hook.
+ (vc-dir-mode): Run it.
-2006-06-26 Kim F. Storm <storm@cua.dk>
+2008-04-29 Nick Roberts <nickrob@snap.net.nz>
- * help.el (view-emacs-news): Declare `res' in the right let* form.
+ * progmodes/gdb-ui.el (gdb-display-buffer): Don't pop up GUD buffer.
+ Always split windows.
+ (gdb-speedbar-timer-fn): Only raise frame after user input.
+ (gdb-same-frame): Reverse initial value.
+ (gdb-display-gdb-buffer): Check for GUD buffer in other frames.
-2006-06-25 Michael Albinus <michael.albinus@gmx.de>
+ * progmodes/gud.el (gud-speedbar-buttons): Raise frame in
+ gdb-speedbar-timer-fn.
- * net/rcompile.el (remote-compile): Replace ange-ftp based
- implementation by Tramp functions.
- Suggested by Marc Abramowitz <msabramo@gmail.com>.
+2008-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
- * net/tramp.el (tramp-unload-tramp): Provide a doc string.
+ * uniquify.el (uniquify-rationalize-a-list): Beware of side-effects.
-2006-06-24 Yoshinori Koseki <kose@meadowy.org>
+2008-04-29 Daiki Ueno <ueno@unixuser.org>
- * international/fontset.el (setup-default-fontset): Fix a typo in
- the "Oriya-Akruti" registry name.
+ * epa.el (epa-key-list-mode-map): Add menu.
+ (epa-delete-keys, epa-import-keys): Fix typo.
-2006-06-23 Lars Hansen <larsh@soem.dk>
+2008-04-29 Glenn Morris <rgm@gnu.org>
- * desktop.el (desktop-full-file-name): New function.
- (desktop-kill, desktop-save, desktop-remove, desktop-read)
- (desktop-revert): Use it.
- (desktop-clear, desktop-save, desktop-remove): Add autoload cookie.
- (desktop-after-read-hook): Add option list-buffers.
- (desktop-locals-to-save): Add tab-width.
- (desktop-save-mode, desktop-no-desktop-file-hook, desktop-save-hook):
- Fix docstring.
+ * find-cmd.el (top-level): Does not need cl when compiling.
-2006-06-23 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-cdlatex-mode-map)
- (org-cdlatex-texmathp-advice-is-done): New variables.
- (org-cdlatex-mode): New minor mode.
- (org-inside-LaTeX-fragment-p, org-try-cdlatex-tab): New functions.
- (org-cdlatex-underscore-caret, org-cdlatex-math-modify): New commands.
- (org-export-with-archived-trees): New option.
- (org-open-file): Remove the call to `convert-standard-filename'.
- (org-archive-tag, org-agenda-skip-archived-trees)
- (org-cycle-open-archived-trees)
- (org-sparse-tree-open-archived-trees): New options.
- (org-cycle-hide-archived-subtrees, org-hide-archived-subtrees)
- (org-toggle-tag, org-prepare-agenda-buffers, org-agenda-skip):
- New functions.
- (org-agenda-toggle-archive-tag, org-toggle-archive-tag): New commands.
- (org-agenda-mode-map): Add binding of `org-agenda-toggle-archive-tag'.
- (org-mode-map): Add binding for `org-toggle-archive-tag'.
- (org-timeline, org-agenda-list, org-todo-list, org-tags-view):
- Call `org-prepare-agenda-buffers'.
- (org-occur, org-scan-tags): Call `org-hide-archived-subtrees'.
- (org-file-apps, org-file-apps-defaults-gnu)
- (org-file-apps-defaults-macosx, org-file-apps-defaults-windowsnt):
- Handle remote files by forcing them to be opened in Emacs.
+2008-04-29 Phil Jackson <phil@shellarchive.co.uk>
-2006-06-23 Andre Spiegel <spiegel@gnu.org>
+ * find-cmd.el: New file.
- * vc.el (vc-diff-knows-L): New variable.
- (vc-diff-internal): Use it to handle "diff" programs that don't
- understand -L. This works automatically, no user action is necessary.
+2008-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-06-23 Daniel Brockman <daniel@brockman.se>
+ * minibuffer.el (completion-hilit-commonality): Remove leftover code.
+ (completion-pcm--pattern->regex): Let `group' be a list of symbols.
+ (completion-pcm--hilit-commonality): New function.
+ (completion-pcm-all-completions): Use it.
- * net/rcirc.el (rcirc-default-user-full-name): Default to
- `rcirc-default-user-name' instead of `rcirc-user-name' (which no
- longer exists).
- (rcirc-process-list): Check `buffer-live-p' before attempting to
- switch to a buffer.
+ * minibuffer.el (completion-common-substring): Mark obsolete.
+ (completions-first-difference, completions-common-part):
+ Move from simple.el.
+ (completion-hilit-commonality): New fun.
+ (display-completion-list, completion-emacs21-all-completions)
+ (completion-emacs22-all-completions): Use it.
+ * simple.el (completions-first-difference, completions-common-part):
+ Move to minibuffer.el.
+ (choose-completion-string): Use field functions and minibufferp.
+ (completion-setup-function): Don't set completions faces.
-2006-06-23 Ryan Yeske <rcyeske@gmail.com>
+2008-04-29 Glenn Morris <rgm@gnu.org>
- * net/rcirc.el (rcirc-mode): Fix initialization of coding systems
- based on rcirc-coding-system-alist.
+ * calendar/calendar.el (calendar-nth-named-absday)
+ (calendar-nth-named-day):
+ * calendar/diary-lib.el (diary-list-sexp-entries, diary-float):
+ * calendar/holidays.el (holiday-float): Doc fixes.
-2006-06-23 Martin Rudalics <rudalics@gmx.at>
+ * emacs-lisp/check-declare.el (check-declare-errmsg): Fix counting in
+ the `full' case.
- * cus-edit.el (customize-apropos): A better error message.
- (top level) <debug-ignored-errors>: Extend and update the list of
- ignored error messages.
+ * org/org-agenda.el (calendar-iso-from-absolute):
+ * org/org.el (calendar-absolute-from-iso, calendar-iso-from-absolute):
+ Fix declarations.
-2006-06-23 Michael Ernst <mernst@alum.mit.edu>
+2008-04-28 Nick Roberts <nickrob@snap.net.nz>
- * complete.el (PC-do-completion): Retain capitalization of user
- input, when possible, even if completion-ignore-case is set.
+ * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Make breakpoint
+ icons work for assembler, i.e. FILE.s, FILE.S (not disassembly).
+ (gdb-goto-breakpoint): Likewise for visiting breakpoints.
+ (gdb-assembler-custom): Be careful not to match other addresses.
-2006-06-23 Eli Zaretskii <eliz@gnu.org>
+2008-04-29 Jason Rumney <jasonr@gnu.org>
- * generic-x.el (bat-generic-mode): Support .cmd files.
+ * battery.el (battery-status-function): Use w32-battery-status
+ on Windows.
+ (battery-echo-area-format): Make apm format the general case.
+ (battery-mode-line-format): Merge apm and pmset formats as the
+ general case.
- * dos-w32.el (top level): Use find-file-not-found-functions
- instead of the obsolete find-file-not-found-hooks.
+2008-04-29 Nick Roberts <nickrob@snap.net.nz>
-2006-06-22 Kim F. Storm <storm@cua.dk>
+ * progmodes/gdb-ui.el (gdb-info-stack-custom):
+ Use gud-tool-bar-item-visible-no-fringe.
+ (gdb-display-buffer): Don't pop new buffer if gud-comint-buffer
+ is already visible in frame. Remove optional size parameter
+ and add optional frame parameter.
- * progmodes/grep.el (grep-mode-font-lock-keywords): Correct regexps
- to recognize mode name containing submodes, such as Grep/lw.
+ * progmodes/gud.el (gud-display-line): Only consider visible
+ frames when looking for source buffer.
-2006-06-21 Kim F. Storm <storm@cua.dk>
+2008-04-28 Chong Yidong <cyd@stupidchicken.com>
- * simple.el (line-move-1): Check for move-end-of-line instead of
- end-of-line when setting temporary-goal-column.
+ * doc-view.el (doc-view-new-window-function): Avoid using WINDOW
+ argument to get-char-property, in case the current buffer hasn't
+ been assigned to that window yet.
+ (doc-view-display): Default to selected window if the current
+ buffer hasn't been assigned to a window yet.
-2006-06-21 Miles Bader <miles@gnu.org>
+2008-04-28 Vinicius Jose Latorre <bzg@altern.org>
- * play/cookie1.el (cookie): Work properly when there's only one entry.
+ * whitespace.el (whitespace-trailing-regexp): Fix docstring.
-2006-06-21 Nick Roberts <nickrob@snap.net.nz>
+2008-04-28 Michael Albinus <michael.albinus@gmx.de>
- * progmodes/gdb-ui.el (gdb-exited): Ensure overlay arrow gets killed.
- (gdb-frame-handler): Generalize frame regexp for templates.
+ * net/tramp.el (tramp-mode): New defcustom.
+ (tramp-file-name-handler, tramp-completion-file-name-handler):
+ Use it.
+ (tramp-replace-environment-variables): Handle "$$".
+
+2008-04-28 Sam Steingold <sds@gnu.org>
+
+ * vc-hg.el (vc-hg-rename-file): Fix argument order.
+
+2008-04-28 Bastien Guerry <bzg@altern.org>
+
+ * whitespace.el (whitespace-trailing): Fix typo.
+
+2008-04-28 Sam Steingold <sds@gnu.org>
+
+ * textmodes/remember.el (diary-make-entry): Update the autoload.
+
+2008-04-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * minibuffer.el (completion-pcm--all-completions): Don't pass nil to
+ all-completions.
+
+2008-04-28 Juanma Barranquero <lekktu@gmail.com>
+
+ * desktop.el (desktop-minor-mode-table): Add `savehist-mode'.
+
+2008-04-27 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc.el (vc-dir-mode-map): Change bindings for unmark all and revert.
+ (vc-dir-parent-marked-p, vc-dir-children-marked-p): Implement.
+ (vc-dir-mark-file): Add an optional argument.
+ (vc-dir-mark-all-files, vc-dir-unmark-all-files): Deal with directories.
+
+2008-04-27 Daiki Ueno <ueno@unixuser.org>
+
+ * epa-file.el (epa-file-enable, epa-file-disable): Use find-file-hook
+ rather than obsolete alias find-file-hooks.
+ (auto-encryption-mode): Rename from epa-file-mode. Default to on.
+ Use find-file-hook rather than obsolete alias find-file-hooks.
+ Add to find-file-not-found-functions.
+ (epa-file-handler): Put 'safe-magic and 'operations properties.
+
+ * epa.el (epa-global-minor-modes, epa-mode, epa-menu)
+ (epa-menu-items): Remove.
+
+ * epa-dired.el (epa-dired-do-decrypt, epa-dired-do-verify)
+ (epa-dired-do-sign, epa-dired-do-encrypt): Add autoload cookie.
+ (epa-dired-mode, epa-global-dired-mode): Remove.
+
+ * dired.el (dired-mode-map): Bind encryption/decryption commands.
+
+ * menu-bar.el (menu-bar-encryption-decryption-menu): New menu item.
+
+ * files.el (insert-file-contents-literally): Inhibit epa-file-handler.
+
+2008-04-27 Glenn Morris <rgm@gnu.org>
+
+ * textmodes/reftex-global.el (reftex-isearch-switch-to-next-file):
+ Remove un-needed local `orig-list'. Replace cl `copy-list'.
+
+2008-04-27 Carsten Dominik <dominik@science.uva.nl>
+
+ * org/org.el (org-html-level-start): Always have id's in HTML.
+ (org-export-as-html): Use `org-link-protocols' to
+ retrieve the export form of the link.
+ (org-add-link-type): Final parameter renamed from PUBLISH.
+ Better documentation of how it is to be used. Avoid double entries for
+ the same link type.
+ (org-add-link-props): New function.
+ (org-modules-loaded): New variable.
+ (org-load-modules-maybe, org-set-modules): New function.
+ (org-modules): New option.
+ (org-mode, org-cycle, orgstruct-mode, org-run-like-in-org-mode)
+ (orgtbl-mode, org-store-link, org-insert-link-global)
+ (org-open-at-point): Call `org-load-modules-maybe'.
+ (org-search-view): Add more text properties.
+ (org-agenda-schedule, org-agenda-deadline): Allow also in
+ search-type agendas.
+ (org-search-view): Order of arguments has been changed.
+ Interpret prefix-arg as TODO-ONLY.
+ (org-agenda, org-run-agenda-series, org-agenda-manipulate-query):
+ Take new argument order of `org-search-view' into account.
+ (org-todo-only): New variable.
+ (org-search-syntax-table): New variable and function.
+ (org-search-view): Do the search with the special syntax table.
+ (define-obsolete-function-alias): Make work with XEmacs.
+ (org-add-planning-info): Use old date as default when modifying an
+ existing deadline or scheduled item.
+ (org-agenda-compute-time-span): Make argument N optional.
+ (org-agenda-format-date-aligned): Require `cal-iso'.
+ (org-agenda-list): Include week into into agenda heading, don't
+ list it at each date (only on Mondays).
+ (org-read-date-analyze): Define local variable `iso-date'.
+ (org-agenda-format-date-aligned): Remove dependency on
+ `calendar-time-from-absolute'.
+ (org-remember-apply-template, org-go-to-remember-target):
+ Interpret filenames relative to `org-directory'.
+ (org-complete): Silently fail when trying to complete
+ keywords that don't have a default value.
+ (org-get-current-options): Add a #+DATE: option.
+ (org-additional-option-like-keywords): Remove "DATE:" from the
+ list of additional keywords.
+ (org-export-as-html): Remove (current-time) as unnecessary second
+ argument of `format-time-string'.
+ (org-clock-find-position): Handle special case at end of buffer.
+ (org-agenda-day-view): New argument DAY-OF-YEAR, pass it on to
+ `org-agenda-change-time-span'.
+ (org-agenda-week-view): New argument ISO-WEEK, pass it on to
+ `org-agenda-change-time-span'.
+ (org-agenda-month-view): New argument MONTH, pass it on to
+ `org-agenda-change-time-span'.
+ (org-agenda-year-view): New argument YEAR, pass it on to
+ `org-agenda-change-time-span'.
+ (org-agenda-change-time-span): New optional argument N, pass it on
+ to `org-agenda-compute-time-span'.
+ (org-agenda-compute-time-span): New argument N, interpret it by
+ changing the starting day.
+ (org-small-year-to-year): New function.
+ (org-scheduled-past-days): Respect `org-scheduled-past-days'.
+ (org-auto-repeat-maybe): Make sure that repeating dates are pushed
+ into the future, and that the shift is at least one interval, never 0.
+ (org-update-checkbox-count): Fix bug with checkbox counting.
+ (org-add-note): New command.
+ (org-add-log-setup): Rename from `org-add-log-maybe'.
+ (org-log-note-headings): New entry for plain notes (i.e. notes not
+ related to state changes or clocking).
+ (org-get-org-file): Check for availability of `remember-data-file'.
+ (org-cached-entry-get): Allow a regexp value for
+ `org-use-property-inheritance'.
+ (org-use-property-inheritance): Allow regexp value. Fix bug in
+ customization type.
+ (org-use-tag-inheritance): Allow a list and a regexp value for
+ this variable.
+ (org-scan-tags, org-get-tags-at): Implement selective tag inheritance.
+ (org-entry-get): Respect value `selective' for the INHERIT argument.
+ (org-tag-inherit-p, org-property-inherit-p): New functions.
+ (org-agenda-format-date-aligned): Allow 10 characters for
+ weekday, to acomodate German locale.
+ (org-add-archive-files): New function.
+ (org-agenda-files): New argument `ext', to get archive files as well.
+ (org-tbl-menu): Protect the use of variables that
+ are only available when org-table.el gets loaded.
+ (org-read-agenda-file-list): Error if `org-agenda-files' is a
+ single directory.
+ (org-open-file): Allow a batch process to trigger
+ waiting after executing a system command.
+ (org-store-link): Link to headline when there is not
+ target and no region in an org-mode buffer when creating a link.
+ (org-link-types-re): New variable.
+ (org-make-link-regexps): Compute `org-link-types-re'.
+ (org-make-link-description-function): New option.
+ (org-agenda-date, org-agenda-date-weekend): New faces.
+ (org-archive-sibling-heading): New option.
+ (org-archive-to-archive-sibling): New function.
+ (org-iswitchb): New command.
+ (org-buffer-list): New function.
+ (org-agenda-columns): Also try the #+COLUMNS line in
+ the buffer associated with the entry at point (or with the first
+ entry in the agenda view).
+ (org-modules): Add entry for org-bibtex.el.
+ (org-completion-fallback-command): Move into `org-completion' group.
+ (org-clock-heading-function): Move to `org-progress' group.
+ (org-auto-repeat-maybe): Make sure that a note can
+ be enforces if `org-log-repeat' is `note'.
+ (org-modules): Allow additional symbols for external packages.
+ (org-ctrl-c-ctrl-c): Allow for `org-clock-overlays' to be undefined.
+ (org-clock-goto): Hide drawers after showing an
+ entry with `org-clock-goto.'
+ (org-shiftup, org-shiftdown, org-shiftright, org-shiftleft):
+ Try also a clocktable block shift.
+ (org-clocktable-try-shift): New function.
+ (org-columns-hscoll-title): New function.
+ (org-columns-previous-hscroll): New variable.
+ (org-columns-full-header-line-format): New variable.
+ (org-columns-display-here-title, org-columns-remove-overlays):
+ Install `org-columns-hscoll-title' in post-command-hook.
+
+ * org/org.el: Split into many small files.
+
+ * org/org-agenda.el: New file, split off from org.el.
+
+ * org/org-archive.el: New file, split off from org.el.
+
+ * org/org-bbdb.el: New file.
+
+ * org/org-bibtex.el: New file, split off from org.el.
+
+ * org/org-clock.el: New file, split off from org.el.
+
+ * org/org-colview.el: New file, split off from org.el.
+
+ * org/org-compat.el: New file, split off from org.el.
+
+ * org/org-exp.el: New file, split off from org.el.
+
+ * org/org-faces.el: New file, split off from org.el.
+
+ * org/org-gnus.el: New file, split off from org.el.
+
+ * org/org-info.el: New file, split off from org.el.
+
+ * org/org-infojs.el: New file.
+
+ * org/org-irc.el: New file.
+
+ * org/org-macs.el: New file, split off from org.el.
+
+ * org/org-mew.el: New file.
+
+ * org/org-mhe.el: New file, split off from org.el.
+
+ * org/org-publish.el: New file, split off from org.el.
+
+ * org/org-remember.el: New file, split off from org.el.
+
+ * org/org-rmail.el: New file, split off from org.el.
+
+ * org/org-table.el: New file, split off from org.el.
+
+ * org/org-vm.el: New file, split off from org.el.
+
+ * org/org-wl.el: New file, split off from org.el.
+
+2008-04-27 Jason Riedy <jason@acm.org>
+
+ * lisp/org-table.el (orgtbl-to-generic): Add a :remove-nil-lines
+ parameter that supresses lines that evaluate to NIL.
+ (orgtbl-get-fmt): New inline function for
+ picking apart formats that may be lists.
+ (orgtbl-apply-fmt): New inline function for applying formats that
+ may be functions.
+ (orgtbl-eval-str): New inline function for strings that may be
+ functions.
+ (orgtbl-format-line, orgtbl-to-generic): Use and document.
+ (orgtbl-to-latex, orgtbl-to-texinfo): Document.
+ (*orgtbl-llfmt*, *orgtbl-llstart*)
+ (*orgtbl-llend*): Dynamic variables for last-line formatting.
+ (orgtbl-format-section): Shift formatting to support detecting the
+ last line and formatting it specially.
+ (orgtbl-to-generic): Document :ll* formats. Set to the non-ll
+ formats unless overridden.
+ (orgtbl-to-latex): Suggest using :llend to suppress the final \\.
+ (*orgtbl-table*, *orgtbl-rtn*): Dynamically
+ bound variables to hold the input collection of lines and output
+ formatted text.
+ (*orgtbl-hline*, *orgtbl-sep*, *orgtbl-fmt*, *orgtbl-efmt*)
+ (*orgtbl-lfmt*, *orgtbl-lstart*, *orgtbl-lend*): Dynamically bound
+ format parameters.
+ (orgtbl-format-line): New function encapsulating formatting for a
+ single line.
+ (orgtbl-format-section): Similar for each section. Rebinding the
+ dynamic vars customizes the formatting for each section.
+ (orgtbl-to-generic): Use orgtbl-format-line and
+ orgtbl-format-section.
+ (org-get-param): Now unused, so delete.
+ (orgtbl-gather-send-defs): New function to
+ gather all the SEND definitions before a table.
+ (orgtbl-send-replace-tbl): New function to find the RECEIVE
+ corresponding to the current name.
+ (orgtbl-send-table): Use the previous two functions and implement
+ multiple destinations for each table.
+
+ * doc/org.texi (A LaTeX example): Note that fmt may be a
+ one-argument function, and efmt may be a two-argument function.
+ (Radio tables): Document multiple destinations.
+
+2008-04-27 Carsten Dominik <dominik@science.uva.nl>
+
+ * org/org-agenda.el (org-add-to-diary-list): New function.
+ (org-prefix-has-effort): New variable.
+ (org-sort-agenda-noeffort-is-high): New option.
+ (org-agenda-columns-show-summaries)
+ (org-agenda-columns-compute-summary-properties): New options.
+ (org-format-agenda-item): Compute the duration of the item.
+ (org-agenda-weekend-days): New variable.
+ (org-agenda-list, org-timeline): Use the proper faces for dates in
+ the agenda and timeline buffers.
+ (org-agenda-archive-to-archive-sibling): New command.
+ (org-agenda-start-with-clockreport-mode): New option.
+ (org-agenda-clockreport-parameter-plist): New option.
+ (org-agenda-clocktable-mode): New variable.
+ (org-agenda-deadline-leaders): Allow a function value for the
+ deadline leader.
+ (org-agenda-get-deadlines): Deal with new function value.
+
+ * lisp/org-clock.el (org-clock): New customization group.
+ (org-clock-into-drawer, org-clock-out-when-done)
+ (org-clock-in-switch-to-state, org-clock-heading-function):
+ Move into the new group.
+ (org-clock-out-remove-zero-time-clocks): New option.
+ (org-clock-out): Use `org-clock-out-remove-zero-time-clocks'.
+ (org-dblock-write:clocktable): Allow a Lisp form for the scope
+ parameter.
+ (org-dblock-write:clocktable): Fix bug with total time calculation.
+ (org-dblock-write:clocktable): Request the unrestricted list of files.
+ (org-get-clocktable): New function.
+ (org-dblock-write:clocktable): Make sure :tstart and :tend can not only
+ be strings but also integers (an absolute day number) and lists (m d y).
+
+ * org/org-colview.el (org-columns-next-allowed-value)
+ (org-columns-edit-value): Limit the effort for updating in the
+ agenda to recomputing a single file.
+ (org-columns-compute): Only write property value if it has changed.
+ This avoids raising the buffer-change-flag unnecessarily.
+ (org-agenda-colview-summarize)
+ (org-agenda-colview-compute): New functions.
+ (org-agenda-columns): Call `org-agenda-colview-summarize'.
+
+ * org/org-exp.el (org-export-run-in-background): New option.
+ (org-export-icalendar): Allow a batch process to trigger waiting
+ after executing a system command.
+ (org-export-preprocess-string): Rename from
+ `org-cleaned-string-for-export'.
+ (org-export-html-style): Made target class look like normal text.
+ (org-export-as-html): Make use of the better proprocessing in
+ `org-cleaned-string-for-export'.
+ (org-cleaned-string-for-export): Better treatment of heuristic
+ targets, many more internal links will now work in HTML export.
+ (org-get-current-options): Incorporate LINK_UP, LINK_HOME, and INFOJS.
+ (org-export-inbuffer-options-extra): New variable.
+ (org-export-options-filters): New hook.
+ (org-infile-export-plist): Find also the settings keywords in
+ `org-export-inbuffer-options-extra'.
+ (org-infile-export-plist): Allow multiple #+OPTIONS lines and
+ multiple #+INFOJS_OPT lines.
+ (org-export-html-handle-js-options): New function.
+ (org-export-html-infojs-setup): New option.
+ (org-export-as-html): Call `org-export-html-handle-js-options'.
+ Add autoload to all entry points.
+ (org-skip-comments): Function removed.
-2006-06-20 Glenn Morris <rgm@gnu.org>
+ * org/org-table.el (org-table-make-reference): Extra parenthesis
+ around single fields, to make sure that algebraic formulas get
+ correctly interpreted by calc.
+ (org-table-current-column): No longer interactive.
- * calendar/appt.el (appt-display-format): Default value must be
- one of the customize options.
+ * org/org-export-latex.el (org-export-latex-preprocess):
+ Rename from `org-export-latex-cleaned-string'.
-2006-06-20 Dan Nicolaescu <dann@ics.uci.edu>
+2008-04-27 Bastien Guerry <bzg@altern.org>
- * term/xterm.el (terminal-init-xterm): Update key availability info.
- Bind C-return.
+ * org/org-publish.el (org-publish-get-base-files-1): New function.
+ (org-publish-get-base-files): Use it.
+ (org-publish-temp-files): New variable.
+ Don't require 'dired-aux anymore.
+ (org-publish-initial-buffer): New variable.
+ (org-publish-org-to, org-publish): Use it.
+ (org-publish-get-base-files-1): Bug fix: get
+ the proper list of files when recursing thru a directory.
+ (org-publish-get-base-files): Use the :exclude property to skip
+ both files and directories.
- * term.el (term-delete-lines, term-insert-lines): Clarify comments.
+2008-04-27 Michael Albinus <michael.albinus@gmx.de>
-2006-06-20 Chong Yidong <cyd@stupidchicken.com>
+ * net/tramp.el (tramp-handle-make-symbolic-link)
+ (tramp-handle-file-name-directory)
+ (tramp-handle-file-name-nondirectory, tramp-handle-file-truename)
+ (tramp-do-copy-or-rename-file-directly)
+ (tramp-handle-insert-directory, tramp-handle-expand-file-name)
+ (tramp-handle-substitute-in-file-name)
+ (tramp-handle-insert-file-contents, tramp-handle-write-region)
+ * net/tramp-cache.el (tramp-get-file-property)
+ (tramp-set-file-property, tramp-flush-file-property)
+ (tramp-flush-directory-property)
+ * net/tramp-compat.el (tramp-compat-make-temp-file)
+ * net/tramp-fish.el (tramp-fish-handle-expand-file-name):
+ Disable `file-name-handler-alist' when handling localname.
+ It could have a remote file syntax, like a VMS file name.
+
+2008-04-27 Vinicius Jose Latorre <viniciusjl@ig.com.br>
+
+ * whitespace.el: New version 11.1.
+ (whitespace-trailing-regexp): Option fix, now trailing regexp must be
+ enclosed by \\( and \\)$. Docstring fix.
+ (whitespace-trailing-regexp): Fun removed.
+ (whitespace-report-list): Const initialization fix.
+ (whitespace-color-on): Code fix.
+
+2008-04-27 Andreas Schwab <schwab@suse.de>
+
+ * Makefile.el: Unbreak bootstrap.
- * files.el (hack-local-variables): Run `hack-local-variables-hook'
- whether or not a local variables list is defined.
+2008-04-27 Michael Albinus <michael.albinus@gmx.de>
- * msb.el (msb): Move `sit-for' hack here to handle both
- "mouse-down and drag" and "mouse-up and select" situations.
- (mouse-select-buffer): Move `sit-for' hack to `msb'.
+ * net/tramp.el (tramp-replace-environment-variables): New defun.
+ (tramp-handle-substitute-in-file-name, tramp-file-name-handler):
+ Use it.
-2006-06-20 Kenichi Handa <handa@m17n.org>
+2008-04-27 Glenn Morris <rgm@gnu.org>
- * international/characters.el (word-combining-categories):
- Add entries for 2-byte Han characters.
+ * emacs-lisp/bytecomp.el (byte-compile-file): Doc fix.
-2006-06-19 Richard Stallman <rms@gnu.org>
+ * calculator.el (calculator-expt): Replace cl function `oddp'.
- * bindings.el (mode-line-format): Save some mode line space.
+2008-04-27 Johan Bockgård <bojohan@gnu.org>
- * files.el (find-file-noselect): Improve the question wording.
- (basic-save-buffer-2): Mask UMASK against 666.
+ * emacs-lisp/bytecomp.el (byte-compile-find-cl-functions):
+ Simplify. Collect `defun' and `autoload' entries.
+ Avoid modifying load-history.
- * mouse.el (mouse-drag-vertical-line-rightward-window): New function.
- (mouse-drag-vertical-line): Call it.
+2008-04-26 Glenn Morris <rgm@gnu.org>
- * cus-edit.el (customize-option, customize-option-other-window):
- Error if SYMBOL is nil.
+ * textmodes/ispell.el (ispell-insert-word): Revert previous change.
-2006-06-19 Carsten Dominik <dominik@science.uva.nl>
+ * simple.el (quoted-insert, zap-to-char): Revert previous change.
- * textmodes/org.el: Require noutline, also on XEmacs.
- (org-end-of-subtree): Return point.
- (org-dblock-start-re, org-dblock-end-re): New constants.
- (org-create-dblock, org-prepare-dblock, org-map-dblocks)
- (org-dblock-update, org-update-dblock, org-beginning-of-dblock)
- (org-update-all-dblocks, org-find-dblock): New functions.
- (org-collect-clock-time-entries): New function.
- (org-html-handle-time-stamps): Never export CLOCK timeranges.
- (org-fixup-indentation): Modify to deal correctly with lines
- starting with TAB. Only one argument DIFF now.
- (org-demote, org-promote): Call `org-fixup-indentation' with just
- one argument, DIFF.
- (org-mode): Don't mark buffer as modified when aligning tables.
- (org-clock-sum): Don't mark buffer modified when adding time sum
- properties.
- (org-export-as-html): Add support for a link validation function.
- (org-archive-all-done): New function.
- (org-archive-subtree): New prefix argument. When set, archive all
- done subtrees in this buffer.
- (org-remove-clock-overlays)
- (org-remove-occur-highlights): Use `org-inhibit-highlight-removal'.
- (org-inhibit-highlight-removal): New variable, for dynamic scoping.
- (org-put-clock-overlay): Don't swallow last headline character
- when displaying overlay.
- (org-store-link): Link to `image-mode' with just the file name.
+2008-04-26 John Paul Wallington <jpw@pobox.com>
-2006-06-18 Michael Kifer <kifer@cs.stonybrook.edu>
+ * hexl.el (hexl-mode): Stash `eldoc-documentation-function' in
+ `hexl-mode-old-eldoc-documentation-function'.
+ (hexl-mode-exit): Restore it.
+ (hexl-mode-old-eldoc-documentation-function): Declare for compiler.
- * emulation/viper-cmd.el (viper-special-read-and-insert-char):
- Use read-key-sequence.
- (viper-after-change-undo-hook): Misc enhancements.
- (viper-after-change-undo-hook): New hook.
- (viper-undo): Use viper-after-change-undo-hook.
- (viper-add-newline-at-eob-if-necessary): Widen before making changes.
- (viper-next-line-at-bol): If point is on a widget or a button, simulate
- clicking on that widget/button.
+ * w32-fns.el (top-level): Don't set `completion-ignore-case' to t.
- * emulation/viper.el (viper-mode): Allow a separate cursor color
- in Emacs state.
+2008-04-26 Juanma Barranquero <lekktu@gmail.com>
- * ediff-diff.el (ediff-test-patch-utility): Catch errors.
- (ediff-actual-diff-options, ediff-actual-diff3-options): New variables.
- (ediff-set-actual-diff-options): New function.
- (ediff-reset-diff-options, ediff-toggle-ignore-case):
- Use ediff-set-actual-diff-options.
- (ediff-extract-diffs): Catch errors.
- (ediff-whitespace): Add non-breakable space.
- (ediff-same-file-contents): Catch errors.
+ * minibuffer.el (completion-pcm-word-delimiters): Add :group.
+ (completion-pcm--all-completions): Doc fix.
+ (completion-styles-alist, completion-all-completions):
+ Fix typos in docstrings.
- * ediff-mult.el (ediff-collect-custom-diffs):
- Save coding-system-for-read.
+2008-04-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
+
+ * whitespace.el: There is now only one variable (whitespace-style) to
+ specify which kind of blank is visualized. Doc and docstring fix.
+ New version 11.0.
+ (whitespace-style): New option, replace whitespace-style-mark and
+ whitespace-style-color.
+ (whitespace-style-mark, whitespace-style-color): Options removed.
+ (whitespace-hspace, whitespace-tab, whitespace-newline)
+ (whitespace-trailing, whitespace-line, whitespace-space-before-tab)
+ (whitespace-indentation, whitespace-empty, whitespace-space-after-tab)
+ (whitespace-hspace-regexp, whitespace-space-regexp)
+ (whitespace-tab-regexp, whitespace-trailing-regexp)
+ (whitespace-space-before-tab-regexp, whitespace-indentation-regexp)
+ (whitespace-empty-at-bob-regexp, whitespace-empty-at-eob-regexp)
+ (whitespace-space-after-tab-regexp, whitespace-line-column)
+ (whitespace-display-mappings, whitespace-report): Docstring fix.
+ (whitespace-color-value-list, whitespace-mark-value-list)
+ (whitespace-active-color, whitespace-active-mark)
+ (whitespace-toggle-color, whitespace-toggle-mark): Vars removed.
+ (whitespace-style-value-list, whitespace-active-style)
+ (whitespace-toggle-style): New vars.
+ (whitespace-toggle-option-alist, whitespace-help-text):
+ Var initialization and docstring fix.
+ (whitespace-toggle-options, global-whitespace-toggle-options)
+ (whitespace-cleanup, whitespace-cleanup-region)
+ (whitespace-report-region, whitespace-interactive-char)
+ (whitespace-toggle-list): Docstring and code fix.
+ (whitespace-insert-option-mark, whitespace-help-on, whitespace-turn-on)
+ (whitespace-turn-off, whitespace-color-on, whitespace-color-off)
+ (whitespace-display-char-on, whitespace-display-char-off): Code fix.
+ (whitespace-style-face-p, whitespace-style-mark-p): New fun.
+
+2008-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
- * ediff-vers.el (ediff-keep-tmp-versions): New variable.
- (ediff-vc-internal, ediff-vc-merge-internal):
- Use ediff-delete-version-file.
- (ediff-delete-version-file): New function.
+ * diff-mode.el (diff-hunk-header-re-unified): Allow elided line counts.
+ (diff-end-of-hunk, diff-unified->context, diff-fixup-modifs)
+ (diff-sanity-check-hunk): Adjust code accordingly.
- * ediff-wind.el (ediff-control-frame-parameters): Set frame fringes.
+2008-04-26 Glenn Morris <rgm@gnu.org>
- * ediff.el (ediff-directories, ediff-directory-revisions)
- (ediff-merge-directories, ediff-merge-directories-with-ancestor)
- (ediff-directories-internal, ediff-merge-directory-revisions)
- (ediff-merge-directory-revisions-with-ancestor)
- (ediff-directories3): Use read-directory-name.
+ * abbrev.el (define-abbrev): Don't use `iff' in doc-strings.
-2006-06-18 Ralf Angeli <angeli@caeruleus.net>
+ * forms-d2.dat: Move to ../etc.
+ * forms-d2.el (forms-file): Adapt for above change.
- * textmodes/tex-mode.el (tex-font-lock-match-suscript):
- Remove superfluous part of regexp for brace matching which is handled
- by `scan-lists' call.
+ * simple.el (quoted-insert, zap-to-char): Remove uses of obsolete
+ `translation-table-for-input'.
-2006-06-16 Richard Stallman <rms@gnu.org>
+ * emacs-lisp/bytecomp.el (byte-compile-warn-obsolete): New function.
+ (byte-compile-obsolete, byte-compile-variable-ref): Use it.
- * obsolete/options.el (list-options): Put "obsolete" msg in buffer.
+ * progmodes/fortran.el (fortran-mode-syntax-table): Change `;'
+ to punctuation now it's not needed for abbrevs.
+ (fortran-mode-abbrev-table): Remove defvar, make use of new
+ define-abbrev-table :regexp feature.
- * files.el (basic-save-buffer-2): For a new precious file,
- use the default modes in the return value.
+ * textmodes/ispell.el (ispell-insert-word): Remove, and replace with
+ insert, now that translation-table-for-input is not needed.
- * facemenu.el (facemenu-color-alist): Doc fix.
+2008-04-26 Johannes Weiner <hannes@saeurebad.de>
- * cus-edit.el (custom-guess-name-alist): Recognize `-flag'.
+ * emacs-lisp/pp.el (pp-display-expression): New function,
+ extracted from pp-eval-expression.
+ (pp-eval-expression): Use pp-display-expression.
+ (pp-macroexpand-expression, pp-macroexpand-last-sexp): New functions.
+ (pp-last-sexp): New function, extracted from pp-eval-last-sexp.
+ (pp-eval-last-sexp): Use pp-last-sexp.
-2006-06-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+2008-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
- * cus-start.el (all): Add mac-ts-script-language-on-focus.
+ * abbrev.el (define-abbrev-table): Apply props even if the table
+ exists already.
- * term/mac-win.el (mac-text-encoding-ascii): New constant.
- (mac-utxt-to-string): Use it.
- (mac-ts-update-active-input-area): Use mac-ae-number.
+ * minibuffer.el (completion-table-with-context): Fix `pred' for the
+ various kinds of completion tables.
+ (completion-emacs22-try-completion): Place cursor after the /, as was
+ done in Emacs-22's minibuffer-complete-word.
+ Fix bug reported by David Hansen <david.hansen@gmx.net>.
+ (completion-emacs22-try-completion): Merge all mergable text rather
+ than just /.
+ (completion-pcm--delim-wild-regex): New var.
+ (completion-pcm-word-delimiters): New custom.
+ (completion-pcm--prepare-delim-re, completion-pcm--pattern-trivial-p)
+ (completion-pcm--string->pattern, completion-pcm--pattern->regex)
+ (completion-pcm--all-completions, completion-pcm-all-completions)
+ (completion-pcm--merge-completions, completion-pcm--pattern->string)
+ (completion-pcm-try-completion): New functions.
+ (completion-styles-alist): Add them.
+ (completion-styles): Add it to the default.
-2006-06-15 Dan Nicolaescu <dann@ics.uci.edu>
+2008-04-25 Nick Roberts <nickrob@snap.net.nz>
- * term.el (term-handle-scroll, term-delete-lines)
- (term-insert-lines): Fix off by one errors.
+ * progmodes/gdb-ui.el (gud-watch): Don't create speedbar...
+ (gdb-var-create-handler): ...until here when there are values.
+ (gdb-post-prompt): Don't do -var-update with no watch expressions.
+ (gdb-info-locals-handler): Don't match "struct {...}" as an array.
-2006-06-15 Katsumi Yamaoka <yamaoka@jpl.org>
+2008-04-25 Eli Zaretskii <eliz@gnu.org>
- * net/tramp.el (tramp-touch): Use UTC to express time.
+ * ls-lisp.el (ls-lisp-format): Fix last change.
+ (ls-lisp-uid-d-fmt, ls-lisp-uid-s-fmt, ls-lisp-gid-d-fmt)
+ (ls-lisp-gid-s-fmt, ls-lisp-filesize-d-fmt)
+ (ls-lisp-filesize-f-fmt): New defvars.
+ (ls-lisp-insert-directory): Dynamically compute format specifiers
+ for displaying UID, GID, and file size, and store them in the
+ above variables.
+ (ls-lisp-format): Use ls-lisp-filesize-f-fmt, ls-lisp-uid-s-fmt,
+ ls-lisp-uid-d-fmt, ls-lisp-gid-s-fmt, and ls-lisp-gid-d-fmt
+ instead of constant format strings.
+ (ls-lisp-format-file-size): Use ls-lisp-filesize-f-fmt and
+ ls-lisp-filesize-d-fmt instead of constant format strings.
-2006-06-15 Chong Yidong <cyd@stupidchicken.com>
+2008-04-24 Nick Roberts <nickrob@snap.net.nz>
- * mail/sendmail.el (mail-send): Search explicitly for
- mail-header-separator when checking for corrupted header lines.
+ * progmodes/gdb-ui.el (gdb-invalidate-assembler): Compare numeric
+ value of addresses rather than (partial) string value.
+ (gdb-frame-handler): Change regexp according to above change.
+ (gdb-breakpoints-mode, gdb-frames-mode, gdb-threads-mode)
+ (gdb-registers-mode, gdb-memory-mode, gdb-locals-mode)
+ (gdb-assembler-mode): Disable undo in these buffers.
-2006-06-15 Nick Roberts <nickrob@snap.net.nz>
+2008-04-24 Michael Albinus <michael.albinus@gmx.de>
- * progmodes/gdb-ui.el (gdb-same-frame): New option.
- (gud-old-arrow, gdb-frame-begin, gdb-printing): New variables.
- (gdb-init-1): Initialise them.
- (gdb-starting): Reset gdb-printing
- (gdb-starting): Save value of gud-overlay-arrow-position.
- (gdb-frame-begin): Set gdb-frame-begin, gdb-printing.
- (gdb-stopped): Don't look for source if calling procedure e.g "p a ()".
- Use gdb-*-gdb-buffer conditionally on gdb-same-frame.
- (gdb-frame-gdb-buffer): Keep menu bar, tool bar for GUD buffer.
+ * net/tramp.el (tramp-get-remote-stat): Test whether stat supports %s.
+ Reported by Loris Bennett <loris.bennett@fu-berlin.de>.
-2006-06-14 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-04-24 Sam Steingold <sds@gnu.org>
- * pcvs.el (cvs-retrieve-revision): Use decode-coding-inserted-region.
+ * textmodes/remember.el (remember-diary-extract-entries): Use
+ diary-make-entry instead of the obsolete make-diary-entry.
-2006-06-13 Martin J. Reed <mjreed@essex.ac.uk> (tiny change)
+2008-04-24 Stefan Monnier <monnier@iro.umontreal.ca>
- * net/ldap.el (ldap-ldapsearch-args): Default to SASL search.
- (ldap-search-internal): Keep error messages, and a regexp fix.
+ * subr.el (translation-table-for-input): Mark as obsolete.
-2006-06-12 Thien-Thi Nguyen <ttn@gnu.org>
+ * isearch.el (isearch-search-string): Avoid string-bytes and aset.
- * files.el (hack-local-variables-confirm):
- Display string value using its printed representation.
-
-2006-06-11 Chong Yidong <cyd@stupidchicken.com>
-
- * server.el (server-edit): No-op if no server buffers exist.
-
-2006-06-11 Robert J. Chassell <bob@rattlesnake.com>
-
- * textmodes/page-ext.el (pages-directory-for-addresses):
- Including `pages-directory-address-mode' in the function results
- in the message "Buffer in which pages were found is deleted".
-
-2006-06-10 Carsten Dominik <dominik@science.uva.nl>
-
- * textmodes/org.el (org-agenda-mode-map): Add bindings for
- clocking functions.
-
- (org-agenda-clock-in, org-check-running-clock)
- (org-clock-out-if-current, org-remove-clock-overlays)
- (org-put-clock-overlay): New functions.
- (org-clock-marker, org-clock-file-total-minutes)
- (org-clock-overlays): New variables.
- (org-clock-display, org-clock-sum, org-clock-cancel)
- (org-clock-out, org-clock-in): New commands.
- (org-export): New function.
- (org-emph-re): New constant.
- (org-set-emph-re, org-do-emphasis-faces): New functions.
- (org-emphasis-regexp-components, org-emphasis-alist): New options.
- (org-set-font-lock-defaults): Call `org-do-emphasis-faces'.
- (org-export-html-convert-emphasize): Use the configurable emphasis.
- (org-cleaned-string-for-export): Make multiline emphasis visible
- to the exporter. New optional argument PARAMETERS.
- (org-export-as-html): Specify :emph-multiline parameter to
- `org-cleaned-string-for-export'.
+ * international/quail.el (quail-build-decode-map): Avoid string-bytes.
-2006-06-10 Richard Stallman <rms@gnu.org>
+ * textmodes/ispell.el (ispell-dictionary-alist-1)
+ (ispell-dictionary-alist-2, ispell-dictionary-alist-3):
+ (ispell-dictionary-alist-4, ispell-dictionary-alist-5):
+ (ispell-dictionary-alist-6): Remove.
+ (ispell-dictionary-base-alist): New var, merges the above.
+ (ispell-find-aspell-dictionaries, ispell-set-spellchecker-params):
+ Use it.
+ (ispell-dictionary-alist): Default to nil. Remove autoload.
+ (ispell-local-dictionary-alist): Remove autoload.
- * help.el (help-for-help-internal): Clean up help text.
+ * progmodes/f90.el (f90-mode-syntax-table): Don't set ` as word syntax.
+ (f90-mode-abbrev-table): Use the new :regexp feature.
+ Merge defvar and mapc into define-abbrev-table.
+ (f90-imenu-type-matcher): Remove unused `l'.
+ (f90-imenu-generic-expression): Remove unused `not-ib'.
+ (f90-prepare-abbrev-list-buffer): Use with-current-buffer.
+ (f90-change-keywords): Use restore-buffer-modified-p.
-2006-06-10 Andreas Schwab <schwab@suse.de>
+2008-04-24 Glenn Morris <rgm@gnu.org>
- * language/ethio-util.el (ethio-fidel-to-java-buffer): Fix quoting
- in doc string.
+ * net/goto-addr.el (goto-address-prog-mode):
+ * progmodes/bug-reference.el (bug-reference-prog-mode):
+ Define for compiler.
- * progmodes/cperl-mode.el (cperl-short-docs): Likewise.
+ * minibuffer.el (x-file-dialog): Declare as function.
-2006-06-09 Karl Chen <quarl@cs.berkeley.edu>
+ * progmodes/vhdl-mode.el (vhdl-speedbar-find-file): Use
+ dframe-update-speed rather than obsolete alias speedbar-update-speed.
- * progmodes/make-mode.el (makefile-fill-paragraph): Don't remove
- spaces after the comment start.
+ * calendar/cal-menu.el (cal-menu-diary-menu): Fix typo.
+ (cal-menu-scroll-menu): Use commands rather than key macros, which don't
+ work with easymenu. Add :keys where needed.
-2006-06-09 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
+ * calendar/cal-move.el (calendar-scroll-left): Handle case when
+ event-start is nil.
- * play/pong.el (pong-init-buffer):
- Fill buffer with spaces instead of ^A.
+ * calendar/calendar.el (calendar-mode-map): Fix typo.
- * textmodes/ispell.el (ispell-kill-ispell): If ispell has been
- launched asynchronously, delete its process instead of being cool.
- (ispell-async-processp): Check for `delete-process' existence
- instead of `kill-process' one for consistency.
+2008-04-24 Tom Tromey <tromey@redhat.com>
-2006-06-09 Nick Roberts <nickrob@snap.net.nz>
+ * emacs-lisp/easy-mmode.el (easy-mmode-define-keymap):
+ Document keywords. Add :suppress.
+ * pcvs-defs.el (cvs-mode-map): Use :suppress.
- * progmodes/gdb-ui.el (gdb-set-gud-minor-mode-existing-buffers-1)
- (gdb-prompt, gdb-set-gud-minor-mode-existing-buffers): Show status
- in mode line at startup.
+ * net/goto-addr.el (goto-address-unfontify): New function.
+ (goto-address-fontify): Use it. Respect goto-address-prog-mode.
+ (goto-address-fontify-region, goto-address-mode)
+ (goto-address-prog-mode): New functions.
-2006-06-08 Kim F. Storm <storm@cua.dk>
+ * progmodes/bug-reference.el: New file.
- * ido.el (ido-take-first-match, ido-push-dir-first): New commands.
- (ido-init-completion-maps): Bind them to M-SPC and M-v.
- (ido-copy-current-file-name): Repeating C-w inserts whole file name.
- (ido-file-internal): Pass full file name to write-file.
- (ido-read-internal): Only pop stack elements automatically if they
- actually match an existing directory or file name.
+2008-04-24 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-2006-06-07 Kenichi Handa <handa@m17n.org>
+ * term/mac-win.el (mac-ts-active-input-buf): Move defvar to macterm.c.
- * international/mule.el (find-auto-coding): Don't handle the short
- name `char-trans'.
+2008-04-24 Stefan Monnier <monnier@iro.umontreal.ca>
- * files.el (hack-local-variables-prop-line)
- (hack-local-variables): Cancel the previous change.
+ * emacs-lisp/easymenu.el (easy-menu-make-symbol): Don't wrap keyboard
+ macros within lambdas.
-2006-06-06 Jesper Harder <harder@phys.au.dk>
+2008-04-23 Stefan Monnier <monnier@iro.umontreal.ca>
- * ediff-diff.el (ediff-test-utility): Protect against file-error.
+ * minibuffer.el (completion-try-completion): Add `point' argument.
+ Change return value.
+ (completion-all-completions): Add `point' argument.
+ (minibuffer-completion-help): Pass the new `point' argument.
+ (completion--do-completion): Pass the whole field to try-completion.
+ (completion--try-word-completion): Rewrite, making fewer assumptions.
+ (completion-emacs21-try-completion, completion-emacs21-all-completions)
+ (completion-emacs22-try-completion, completion-emacs22-all-completions)
+ (completion-basic-try-completion, completion-basic-all-completions):
+ New functions.
+ (completion-styles-alist): Use them.
-2006-06-06 Chong Yidong <cyd@stupidchicken.com>
+2008-04-23 Agustin Martin <agustin.martin@hispalinux.es>
- * diff-mode.el (diff-mode): Set buffer-read-only to t when
- diff-default-read-only is non-nil.
- (diff-hunk-kill, diff-file-kill, diff-split-hunk)
- (diff-refine-hunk): Set inhibit-read-only to t.
+ * ispell.el (ispell-set-spellchecker-params): New function to make sure
+ right params and dictionary alists are used after spellchecker changes.
+ (ispell-aspell-dictionary-alist, ispell-last-program-name)
+ (ispell-initialize-spellchecker-hook): New variables and hook.
+ (ispell-find-aspell-dictionaries): Use ispell-aspell-dictionary-alist.
+ (ispell-maybe-find-aspell-dictionaries): Remove.
+ Calls replaced by (ispell-set-spellchecker-params) calls.
+ (ispell-have-aspell-dictionaries): Remove.
+ * flyspell.el: Replace ispell-maybe-find-aspell-dictionaries by
+ ispell-set-spellchecker-params.
- * diff.el (diff-sentinel, diff): Set inhibit-read-only to t when
- modifying the *Diff* buffer.
- (diff-process-filter): New filter function for diff process that
- sets inhibit-read-only to t when modifying the *Diff* buffer.
+2008-04-23 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-06-06 Carsten Dominik <dominik@science.uva.nl>
+ * complete.el (PC-do-completion): Be more robust in the presence of
+ unexpected values in minibuffer-completion-predicate.
- * textmodes/org.el (org-archive-subtree): Use end-of-subtree as
- insertion point and control the number of empty lines.
- (org-paste-subtree): Limit the number of empty lines at the end of
- the inserted tree.
- (org-agenda): Use buffer name of current file for narrowing.
- (org-export-as-xml): Command removed.
- (org-export-xml-type): Option removed.
- (org-mode-map): Call `org-export-as-xoxo' directly.
- (org-get-indentation): New optional argument LINE.
- (org-fix-indentation, org-remove-tabs): New functions.
- (org-export-as-ascii, org-ascii-level-start): Determine and apply
- correct indentation for headlines that are converted it items.
- (org-skip-comments): Remove table lines that contain narrowing
- cookies but no other non-empty fields.
- (org-set-tags): Allow groups of mutually exclusive tags.
- (org-cmp-time): Sort 24:21 before items without time.
- (org-get-time-of-day): Fix the interpretation of 12pm and 12am.
- (org-open-at-point): Require double colon also for numbers.
+ * minibuffer.el (read-file-name): Don't let-bind default-directory.
+ Only abbreviate default-filename if it's a file.
-2006-06-06 Kim F. Storm <storm@cua.dk>
+ * minibuffer.el (read-file-name-function, read-file-name-predicate)
+ (read-file-name-completion-ignore-case, insert-default-directory):
+ New vars, moved from fileio.c.
+ (read-file-name): New fun, moved from fileio.c.
+ * cus-start.el: Remove insert-default-directory and
+ read-file-name-completion-ignore-case.
- * ido.el (ido-default-file-method, ido-default-buffer-method):
- Make choice values consistent with corresponding command names.
- (ido-visit-buffer): Update accordingly. Default to selected-window.
+2008-04-23 Magnus Henoch <mange@freemail.hu>
-2006-06-06 Nick Roberts <nickrob@snap.net.nz>
+ * tar-mode.el (tar-untar-buffer): If the entry has directory
+ link type, extract it as a directory even if its file name doesn't
+ end with a slash. Fixes extraction of NetBSD tar archives.
- * progmodes/gud.el (gud-running): Fix doc string.
- (gud-menu-map): Use :visible instead fo :enable for debugger test.
- (gud-tooltip-modes): Add python-mode.
- (gud-tooltip-print-command): Add pdb. Remove perldb.
+2008-04-23 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-06-05 Eli Zaretskii <eliz@gnu.org>
+ * server.el (server-start): Also don't get confused by CRs since we
+ don't quote them.
- * makefile.w32-in (bootstrap, $(lisp)/mh-e/mh-loaddefs.el):
- Quote $(EMACS).
+2008-04-23 Nick Roberts <nickrob@snap.net.nz>
-2006-06-05 Richard Stallman <rms@gnu.org>
+ * progmodes/gdb-ui.el (gdb-init-buffer): New function.
+ (gdb-set-gud-minor-mode-existing-buffers)
+ (gdb-info-breakpoints-custom, gdb-get-location)
+ (gdb-set-gud-minor-mode-existing-buffers-1): Use it.
+ Previously gdb-create-define-alist wasn't always run and added to
+ after-save-hook.
- * faces.el (defined-colors): Doc fix.
+ * progmodes/gud.el (gud-tooltip-tips): Use tooltip-event-buffer
-2006-06-05 Thien-Thi Nguyen <ttn@gnu.org>
+2008-04-23 Kevin Ryde <user42@zip.com.au>
- * vc.el (vc-process-filter): Inhibit undo info collection around
- call to insert.
- (vc-setup-buffer): Likewise for call to erase-buffer.
- (vc-do-command): Likewise for call to process-file.
+ * progmodes/make-mode.el (makefile-fill-paragraph): Treat indented
+ comments like unindented ones.
-2006-06-05 Nick Roberts <nickrob@snap.net.nz>
+2008-04-23 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
- * progmodes/gud.el (gud-menu-map): Use a conditional help echo
- for gud-go.
- (gud-common-init): Other debuggers may trigger error.
+ * term/mac-win.el (mac-ae-open-documents): Adjust selection range
+ parameter origins.
-2006-06-05 Kenichi Handa <handa@m17n.org>
+2008-04-23 Kevin Ryde <user42@zip.com.au>
- * international/mule.el (find-auto-coding):
- Handle enable-character-translation in file header.
+ * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
+ Bind print-level to ensure output forms aren't truncated if
+ print-level is set to eval-expression-print-level when going via
+ eval-defun and friends, or has been otherwise fiddled with.
-2006-06-04 Kim F. Storm <storm@cua.dk>
+2008-04-23 Stefan Monnier <monnier@iro.umontreal.ca>
- * emacs-lisp/authors.el (authors-aliases): Add mode aliases.
- (authors-fixed-entries): Fix spelling.
- (authors-canonical-file-name): Don't report error for wildcards.
+ * progmodes/cc-mode.el (c-basic-common-init): Don't set
+ font-lock-extend-after-change-region-function globally.
- * help.el (view-emacs-news): Rewrite to support new NEWS,
- NEWS.major, and NEWS.1-17 file naming. Add more intelligence,
- e.g. version 10 matches 1.10, and don't be confused by version 1.1
- being a prefix of 1.12 (etc). A numeric prefix arg also works.
+2008-04-23 Juanma Barranquero <lekktu@gmail.com>
+
+ * speedbar.el (speedbar-use-tool-tips-flag)
+ (speedbar-ignored-directory-regexp, speedbar-file-unshown-regexp)
+ (speedbar-file-regexp, speedbar-message, speedbar-item-info)
+ (speedbar-files-item-info, speedbar-maybe-add-localized-support)
+ (speedbar-insert-files-at-point, speedbar-dynamic-tags-function-list)
+ (speedbar-generic-list-positioned-group-p, speedbar-insert-generic-list)
+ (speedbar-fetch-replacement-function, speedbar-extract-one-symbol)
+ (speedbar-separator-face): Fix typos in docstrings.
+ (speedbar-stealthy-function-list, speedbar-verbosity-level)
+ (speedbar-supported-extension-expressions, speedbar-update-current-file)
+ (speedbar-add-indicator, speedbar-tag-expand): Reflow docstring.
+ (speedbar-use-imenu-flag, speedbar-ignored-directory-expressions)
+ (speedbar-directory-unshown-regexp, speedbar-handle-delete-frame)
+ (speedbar-show-info-under-mouse, speedbar-directory-buttons)
+ (speedbar-check-vc-this-line, speedbar-files-line-directory)
+ (speedbar-buffer-buttons, speedbar-buffer-buttons-temp)
+ (speedbar-buffers-line-directory, speedbar-recenter-to-top)
+ (speedbar-recenter): Doc fixes.
+ (speedbar-update-speed, speedbar-navigating-speed): Add obsolescence
+ declaration and remove redundant info in docstring.
+
+2008-04-23 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-git.el (vc-git-status-printer): Deal with directories.
+
+ * vc.el (vc-next-action): Look at more than the first file to
+ determine the state.
+
+2008-04-23 Glenn Morris <rgm@gnu.org>
+
+ * dframe.el (dframe-have-timer-flag): Drop support for Emacs without
+ timers. Doc fix.
+ (dframe-update-speed): Drop support for XEmacs < 20.
+ (dframe-frame-mode): Drop support for Emacs < 20.
+ (dframe-set-timer-internal): Drop support for Emacs without timers.
+ (dframe-popup-kludge): Use mouse-menu-major-mode-map if defined.
+
+ * ediff-init.el (ediff-check-version): Drop support for very old Emacs
+ versions. Add doc-string. Mark as obsolete.
+
+ * ps-def.el (ps-color-device): Drop support for XEmacs < 19.12.
+
+ * speedbar.el (speedbar-use-tool-tips-flag): Check for tooltip-mode,
+ rather than using an Emacs version test.
+
+ * tree-widget.el (tree-widget-image-enable): Use display-images-p
+ rather than an Emacs version test.
+
+ * calendar/cal-china.el (holiday-chinese-qingming)
+ (holiday-chinese-winter-solstice, holiday-chinese): New functions.
+ * calendar/calendar.el (calendar-chinese-all-holidays-flag): New.
+ * calendar/holidays.el (holiday-oriental-holidays): Add more holidays.
+
+ * calendar/cal-islam.el (holiday-islamic): Doc fix.
+
+ * calendar/diary-lib.el (diary-list-sexp-entries): Doc fix.
+ (diary-remind): Allow negative DAYS to represent a range 1:DAYS.
+ Suggested by Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>.
+
+2008-04-23 Nick Roberts <nickrob@snap.net.nz>
+
+ * progmodes/gdb-ui.el (gdb-previous-frame-address): Rename...
+ (gdb-previous-frame-pc-address): ...to this.
+ (gdb-get-selected-frame): Use MI command -stack-info-frame instead
+ of "info frame" with Gdb 6.4+.
+ (gdb-stack-list-frames-regexp): New regexp.
+ (gdb-frame-handler-1): Parse output of -stack-info-frame
+
+2008-04-22 David Glasser <glasser@davidglasser.net> (tiny change)
+
+ * tar-mode.el (tar-prefix-offset): New constant.
+ (tar-header-block-tokenize): Support paths with long names
+ which use the "ustar" standard.
+
+2008-04-22 Mathias Dahl <mathias.dahl@gmail.com>
+
+ * image-dired.el (image-dired-track-original-file)
+ (image-dired-modify-mark-on-thumb-original-file):
+ Use `dired-goto-file' instead of `search-forward'. This solves
+ a bug with finding files where the file name is a subset of other
+ file names. Doc fix.
+
+2008-04-22 Juri Linkov <juri@jurta.org>
+
+ * menu-bar.el (buffers-menu-max-size): Move its definition down to
+ the "Buffers Menu" section. Change group name `mouse' to `menu'.
+ (yank-menu-length): Change group name `mouse' to `menu'.
+ (buffers-menu-buffer-name-length): New user option.
+ (menu-bar-update-buffers): Use buffers-menu-buffer-name-length
+ instead of the hard-coded number 27.
+
+2008-04-22 Juri Linkov <juri@jurta.org>
+
+ * isearch.el (eval-when-compile): Require `help-macro'.
+ (isearch-help-for-help-internal): Isearch specific Help screen
+ created by `make-help-screen'.
+ (isearch-help-map): New variable that binds "b", "k", "m" to
+ isearch-specific commands, and binds other keys to
+ isearch-other-control-char, thus allowing other Help keys to
+ exit isearch mode and execute their global definitions.
+ (isearch-help-for-help, isearch-describe-bindings)
+ (isearch-describe-key, isearch-describe-mode): New commands.
+ (isearch-mode-help): Define alias to isearch-describe-mode
+ and remove its old function definition.
+ (isearch-mode-map): Bind "\C-h" to isearch-help-map.
+ Remove old comments because this issue is settled now.
+ (isearch-forward): Describe three new Help commands in the docstring.
+ (isearch-mode): Remove \\{isearch-mode-map} from the docstring,
+ leave the single sentence at the first line of the docstring,
+ and prepend the word "function" before `isearch-forward'
+ to make the Help link to the function instead of variable.
+
+2008-04-22 Juri Linkov <juri@jurta.org>
+
+ * isearch.el (isearch-success-function): New variable with default
+ to `isearch-success-function-default'.
+ (isearch-search): Call a function from `isearch-success-function'
+ instead of calling the hard-coded `isearch-range-invisible'.
+ (isearch-success-function-default): New function that calls
+ `isearch-range-invisible' and inverts its return value.
+
+ * info.el (Info-search): In two similar places that skip
+ undesired search matches move code to Info-search-success-function,
+ and call `isearch-success-function' instead.
+ (Info-search-success-function): New function copied from code
+ in Info-search. Replace isearch-range-invisible with
+ text-property-not-all that checks for 'invisible and 'display
+ properties to skip partially invisible matches (whose display
+ properties were set by Info-fontify-node).
+ (Info-mode): Set buffer-local isearch-success-function
+ to Info-search-success-function.
+
+2008-04-22 Juri Linkov <juri@jurta.org>
+
+ * minibuffer.el (internal-complete-buffer-except): New function.
+
+ * files.el (read-buffer-to-switch): New function.
+ (switch-to-buffer-other-window, switch-to-buffer-other-frame):
+ Change interactive spec to call read-buffer-to-switch instead of
+ using the letter "B".
+
+ * simple.el (minibuffer-default-add-shell-commands): New function.
+ Use declare-function for mailcap-file-default-commands from "mailcap".
+ (shell-command): Set local minibuffer-default-add-function to
+ minibuffer-default-add-shell-commands in minibuffer-with-setup-hook
+ before calling read-shell-command. Set 4th arg default-value of
+ read-shell-command to relative buffer-file-name in file buffers.
+
+ * dired-aux.el (dired-read-shell-command-default): Move it to
+ gnus/mailcap.el and change its name to more general name
+ mailcap-file-default-commands.
+ (minibuffer-default-add-dired-shell-commands): New function.
+ Use declare-function for mailcap-file-default-commands from "mailcap".
+ (dired-read-shell-command): Set local minibuffer-default-add-function
+ to minibuffer-default-add-dired-shell-commands in minibuffer-with-setup-hook
+ before calling read-shell-command. Remove dired-read-shell-command-default
+ from the default value arg because default values are not set in
+ minibuffer-default-add-dired-shell-commands. Doc fix.
+
+ * dired-x.el (dired-smart-shell-command): Sync arguments and
+ interactive spec with changes in `shell-command'.
+ Use dired-get-filename to get the dired file name at point
+ as the default value in dired mode.
+
+2008-04-22 Juanma Barranquero <lekktu@gmail.com>
+
+ * info.el (Info-complete-menu-item): Add missing parenthesis.
+
+2008-04-22 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * info.el (Info-complete-menu-item): Save point.
+
+2008-04-22 Juanma Barranquero <lekktu@gmail.com>
+
+ * minibuffer.el (minibuffer-complete-and-exit): Fix last change.
+
+2008-04-22 Andreas Schwab <schwab@suse.de>
+
+ * Makefile.in (emacs-deps): Define.
+ Use it instead of $(lisp)/subdirs.el.
+
+2008-04-22 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc.el (vc-next-action): Do not consider directories when
+ checking for state compatibility.
+ (vc-transfer-file): Use when not if.
+ (vc-dir-parent-marked-p, vc-dir-children-marked-p): New functions.
+ (vc-dir-mark-file): Use them.
+ (vc-deduce-fileset): Also return the backend.
+ (vc-diff-internal): Take as argument the value returned by
+ vc-deduce-fileset instead of just the fileset.
+ (vc-next-action, vc-finish-logentry, vc-version-diff, vc-diff)
+ (vc-dir-mark-file, vc-print-log, vc-revert, vc-rollback)
+ (vc-update): Update the vc-deduce-fileset and vc-diff-internal calls.
+
+2008-04-22 Tassilo Horn <tassilo@member.fsf.org>
+
+ * doc-view.el (doc-view-scroll-up-or-next-page): Don't use
+ set-window-vscroll but image-scroll-down. Fixes a bug where a
+ command following SPC scrolled up again.
+
+2008-04-22 Nick Roberts <nickrob@snap.net.nz>
+
+ * progmodes/gdb-ui.el (gdb-locals-header): New variable.
+ (gdb-locals-mode, gdb-registers-mode): Use it for header line.
+ (gud-watch): Add "$" prefix when in registers buffer.
-2006-06-03 Vivek Dasmohapatra <vivek@etla.org>
+2008-04-22 Glenn Morris <rgm@gnu.org>
- * progmodes/sh-script.el (sh-quoted-exec): New face for quoted
- exec constructs like `foo bar`.
- (sh-quoted-subshell): New helper function to search for a possibly
- nested subshell (like `` or $()) within a "" quoted string.
- (sh-font-lock-keywords-var): Add sh-quoted-exec for Bash.
- (sh-apply-quoted-subshell): Flag quote characters inside a
- subshell, which is itself already in a quoted region, as
- punctuation, since this is the closest to what they actually are.
- (sh-font-lock-syntactic-keywords): Add sh-quoted-subshell and
- sh-apply-quoted-subshell.
- (sh-font-lock-syntactic-face-function): Apply the new face for
- text inside `` instead of the old font-lock-string-face.
-
-2006-06-03 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
-
- * term/mac-win.el (mac-ts-active-input-overlay): Add defvar.
- (mac-ae-number, mac-ae-frame, mac-ae-script-language)
- (mac-bytes-to-text-range, mac-ae-text-range-array)
- (mac-ts-update-active-input-buf, mac-split-string-by-property-change)
- (mac-replace-untranslated-utf-8-chars, mac-ts-update-active-input-area)
- (mac-ts-unicode-for-key-event): New functions.
- (mac-handle-toolbar-switch-mode): Use mac-ae-frame.
- (mac-handle-font-selection): Use mac-ae-number.
- (mac-ts-active-input-buf, mac-ts-update-active-input-area-seqno):
- New variables.
- (mac-ts-caret-position, mac-ts-raw-text, mac-ts-selected-raw-text)
- (mac-ts-converted-text, mac-ts-selected-converted-text)
- (mac-ts-block-fill-text, mac-ts-outline-text)
- (mac-ts-selected-text, mac-ts-no-hilite): New faces.
- (mac-ts-hilite-style-faces): New constant.
- (mac-apple-event-map): Bind text input events.
- (mac-dispatch-apple-event): Use command-execute instead of
- call-interactively.
- (global-map): Don't bind mac-apple-event.
- (special-event-map): Bind mac-apple-event.
-
-2006-06-02 Eli Zaretskii <eliz@gnu.org>
-
- * makefile.w32-in (EMACS): Remove quotes from the Emacs executable
- file name.
- (emacs): Enclose the value of $(EMACS) in quotes.
+ * progmodes/gdb-ui.el (gdbmi-invalidate-frames): Declare as function.
-2006-06-02 Juri Linkov <juri@jurta.org>
+ * whitespace.el (whitespace-display-table)
+ (whitespace-display-table-was-local): Move definitions before use.
- * international/mule.el (sgml-html-meta-auto-coding-function):
- Remove the condition `(search-forward "<html" size t)'.
- Replace `\"' with `[\"']?' in `re-search-forward'.
+ * emacs-lisp/copyright.el (copyright-at-end-flag): New option.
+ (copyright-limit): Respect copyright-at-end-flag.
+ (copyright-re-search, copyright-start-point)
+ (copyright-offset-too-large-p): New functions.
+ (copyright-update-year): Use copyright-re-search.
+ (copyright-update, copyright-fix-years): Use copyright-start-point,
+ and copyright-re-search.
+ (copyright): Use copyright-offset-too-large-p.
+ * add-log.el (change-log-mode): Set copyright-at-end-flag.
-2006-06-02 Kenichi Handa <handa@m17n.org>
+ * add-log.el (top-level): Require 'cl when compiling.
- * files.el (hack-local-variables-prop-line): Ignore `char-trans'
- as well as `coding'.
- (hack-local-variables): Likewise.
+2008-04-21 Stefan Monnier <monnier@iro.umontreal.ca>
- * international/mule.el (enable-character-translation):
- Put permanent-local and safe-local-variable properties.
- (find-auto-coding): Handle char-trans: tag.
+ * complete.el (PC-complete-as-file-name, PC-read-file-name-internal):
+ Treat minibuffer-completion-predicate as a predicate.
-2006-06-02 Juri Linkov <juri@jurta.org>
+ * minibuffer.el (completion--file-name-table): Accept both the old
+ `dir' arg or the new `pred' arg.
- * international/mule.el (sgml-html-meta-auto-coding-function):
- Limit the search by the end of the HTML header (if any).
+ * ffap.el (ffap-read-file-or-url): Do not abuse completing-read's
+ `predicate' argument to pass non-predicate data.
+ (ffap-read-url-internal, ffap-read-file-or-url-internal):
+ Use second arg as proper predicate.
-2006-06-01 Richard Stallman <rms@gnu.org>
+ * vc-bzr.el (vc-bzr-complete-with-prefix): Remove.
+ (vc-bzr-revision-completion-table): Use completion-table-with-context
+ instead.
- * subr.el (with-current-buffer): Doc fix.
+ * simple.el (choose-completion-string): Use minibuffer-completion-table.
-2006-06-02 Masatake YAMATO <jet@gyve.org>
+2008-04-21 Chong Yidong <cyd@stupidchicken.com>
- * progmodes/compile.el (compilation-error-regexp-alist-alist::gcov-*):
- Almost rewrite. Underlines over all lines of gcov output are too
- uncomfortable to read. Suggested by Dan Nicolaescu.
+ * term.el (term-emulate-terminal): Perform redisplay after the
+ process filter has finished running.
-2006-06-01 Luc Teirlinck <teirllm@auburn.edu>
+2008-04-21 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/inf-lisp.el (inferior-lisp-mode): Doc fixes.
+ * vc.el (vc-dir): Use pop-to-buffer, so it can be customized.
- * shell.el (shell-mode): Use shell-mode-map in docstring.
+ * minibuffer.el (completion-try-completion): Change magic symbol
+ property name. Rename from minibuffer-try-completion.
+ (completion-all-completions): Rename from minibuffer-all-completions.
+ Remove hide-spaces argument.
+ (completion--do-completion): Rename from minibuffer--do-completion.
+ (minibuffer-complete-and-exit): Call just try-completion rather than
+ completion-try-completion to fix up the case.
+ (completion--try-word-completion): Try to add space or hyphen before
+ making `string' a prefix of `completion'.
+ (completion--insert-strings): Rename from minibuffer--insert-strings.
- * comint.el (comint-send-input): Do not add help-echo and
- mouse-face to input if `comint-use-prompt-regexp' is non-nil.
+2008-04-22 Naohiro Aota <nao.aota@gmail.com> (tiny change)
-2006-06-01 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
+ * net/tls.el (tls-program): Add -ign_eof argument to call the
+ openssl commands.
+ (tls-checktrust): Ditto.
- * term/x-win.el: Change x-menu-bar-start to menu-bar-open.
+2008-04-21 Dan Nicolaescu <dann@ics.uci.edu>
-2006-06-01 Nick Roberts <nickrob@snap.net.nz>
+ * vc-cvs.el (vc-cvs-status-extra-headers): New function.
- * progmodes/gdb-ui.el (gdb-look-up-stack): New variable.
- (gdb-stopped, gdb-info-stack-custom): If there is no source info
- look up the stack and pop up GUD buffer if necessary.
- (gdb-frames-select): Remove redundant call to gud-display-frame.
- (gdb-info-threads-custom): Keep point at start of buffer.
- (gdb-find-file-hook): Make it work for pre-GDB 6.4.
+ * vc-hooks.el (vc-insert-file, vc-state, vc-working-revision)
+ (vc-check-master-templates, vc-file-not-found-hook)
+ (vc-kill-buffer-hook):
+ * vc.el (vc-process-sentinel, vc-exec-after, vc-do-command)
+ (vc-find-position-by-context, vc-buffer-context)
+ (vc-restore-buffer-context, vc-responsible-backend)
+ (vc-expand-dirs, vc-ensure-vc-buffer, vc-buffer-sync)
+ (vc-next-action, vc-register, vc-register-with, vc-steal-lock)
+ (vc-finish-logentry, vc-coding-system-for-diff, vc-switches)
+ (vc-version-diff, vc-diff, vc-insert-headers)
+ (vc-dired-buffers-for-dir, vc-dired-resynch-file)
+ (vc-snapshot-precondition, vc-create-snapshot, vc-print-log)
+ (vc-revert, vc-rollback, vc-version-backup-file)
+ (vc-rename-master, vc-delete-file, vc-rename-file)
+ (vc-branch-part, vc-default-retrieve-snapshot)
+ (vc-annotate-display-autoscale, vc-annotate-display-select)
+ (vc-annotate, vc-annotate-warp-revision, vc-annotate-difference)
+ (vc-annotate-lines, vc-file-tree-walk-internal): Use when instead of if.
+ (vc-dir-update): Handle directories.
+ (vc-default-status-printer): Simplify.
-2006-05-31 Juri Linkov <juri@jurta.org>
+ * progmodes/asm-mode.el (asm-mode-map):
+ * progmodes/hideif.el (hide-ifdef-mode-menu): Add :help.
- * replace.el (query-replace-read-from, query-replace-read-to):
- Bind `history-add-new-input' to nil. Call `add-to-history'.
+ * progmodes/m4-mode.el (m4-mode-map): Add menu.
-2006-05-31 Takaaki Ota <Takaaki.Ota@am.sony.com>
+2008-04-21 Kenichi Handa <handa@m17n.org>
- * textmodes/table.el: Convert all HTML tags to lower case for
- XHTML compatibility.
+ * select.el (xselect-convert-to-string): Send a C_STRING only if
+ the polymorphic target TEXT is requested.
-2006-05-31 Masatake YAMATO <jet@gyve.org>
+2008-04-21 Juanma Barranquero <lekktu@gmail.com>
- * progmodes/compile.el:
- (compilation-error-regexp-alist-alist::gcov-called-line):
- Don't put face on `-' lines in gcov file. Suggested by Dan Nicolaescu.
+ * minibuffer.el (completion-setup-hook, display-completion-list)
+ (completion--file-name-table): Fix typos in docstrings.
+ (completion-table-dynamic): Fix typo, and reflow docstring.
-2006-05-31 Nick Roberts <nickrob@snap.net.nz>
+2008-04-20 Andreas Schwab <schwab@suse.de>
- * progmodes/gud.el (gud-query-cmdline, gud-common-init):
- Revert inadvertent changes made with last commit.
+ * server.el (server-switch-buffer): Also consider clients in the
+ selected frame.
-2006-05-30 Reiner Steib <Reiner.Steib@gmx.de>
+2008-04-19 Nick Roberts <nickrob@snap.net.nz>
- * textmodes/flyspell.el (turn-on-flyspell, turn-off-flyspell):
- New functions.
+ * progmodes/gdb-ui.el (gdb-mouse-set-clear-breakpoint):
+ Select window clicked on first.
+ (gdb): Display thread number in mode-line.
+ (gdb-make-header-line-mouse-map): Move to avoid byte compiler warnings.
+ (gdb-breakpoints-header): New variable.
+ (gdb-breakpoints-mode, gdb-threads-mode): Use it for header line.
+
+2008-04-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * vc-sccs.el (vc-sccs-do-command): New fun. Use the "sccs" command.
+ (vc-sccs-register, vc-sccs-checkin, vc-sccs-find-revision)
+ (vc-sccs-checkout, vc-sccs-rollback, vc-sccs-revert)
+ (vc-sccs-steal-lock, vc-sccs-modify-change-comment)
+ (vc-sccs-print-log): Use it.
+
+ * vc-hooks.el (vc-path): Remove SCCS-specific hack.
+
+ * emacs-lisp/lisp-mode.el (lisp-mode-auto-fill): Make it an alias.
+ * progmodes/scheme.el (scheme-mode-variables): Don't use it.
+
+ * tooltip.el (tooltip-previous-message): New var.
+ (tooltip-show-help-non-mode): Rewrite to better follow the behavior of
+ the C code (avoid overwriting a minibuffer, restore previous echo
+ message, ...).
+ (tooltip-delay, tooltip-process-prompt-regexp, tooltip-strip-prompt):
+ Simplify.
- * textmodes/text-mode.el (text-mode-hook): Use turn-on-flyspell.
+2008-04-19 Nick Roberts <nickrob@snap.net.nz>
-2006-05-30 Carsten Dominik <dominik@science.uva.nl>
+ * progmodes/gdb-ui.el (gdb-thread-indicator): New variable.
+ (gdb-init-1): Initialise it.
+ (gdb-annotation-rules): New entry for "new-thread".
+ (gdb-thread-identification): New function to customize
+ mode-line-buffer-identification.
+ (gdb-frames-mode, gdb-registers-mode, gdb-locals-mode)
+ (gdb-assembler-mode): Use it.
+ (gdb-threads-mode): Force "info threads" onto queue.
- * textmodes/org.el (org-agenda-highlight-todo): Make sure regexp
- only matches in the right place.
- (org-upcoming-deadline): New face.
- (org-agenda-get-deadlines): Use new face `org-upcoming-deadline'.
- (org-export-ascii-underline): Rename constant `org-ascii-underline'
- and make it an option.
- (org-export-ascii-bullets): New option.
- (org-export-as-html): Many changes to emit valid XHTML.
- (org-par-open): New variable.
- (org-open-par, org-close-par-maybe, org-close-li-maybe): New functions.
- (org-html-do-expand, org-section-number): Fix case in `replace-match'.
- (org-timeline): Pass `org-timeline-show-empty-dates' to
- `org-get-all-dates'. Interpret empty dates returned by
- `org-get-all-dates'.
- (org-get-all-dates): New argument EMPTY. Add dates without
- entries to the list, mark large ranges of empty dates.
- (org-point-in-group, org-context): New functions.
+2008-04-19 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-30 Nick Roberts <nickrob@snap.net.nz>
+ * files.el (locate-file-completion-table): Rename from
+ locate-file-completion and make it use `pred' in the normal way.
+ (locate-file-completion): New compatibility wrapper.
+ (load-library): Use locate-file-completion-table.
+ * finder.el (finder-commentary):
+ * subr.el (locate-library):
+ * emacs-lisp/find-func.el (find-library): Likewise.
+ * info.el: Use with-current-buffer and inhibit-read-only.
+ (Info-read-node-name-2): Change to use `predicate' in the normal way.
+ (Info-read-node-name-1): Adjust uses accordingly.
- * progmodes/gud.el (gud-stop-subjob): Make it work in all buffers.
+ * minibuffer.el (completion-table-with-context): Add support for `pred'.
+ (completion-table-with-terminator): Don't use complete-with-action
+ since we have to distinguish all three cases anyway.
+ (completion-table-with-predicate): New function.
+ (dynamic-completion-table): Add obsolete alias.
- * progmodes/gdb-ui.el: Move gdb-mouse-toggle-breakpoint-* to
- C-mouse-1. Move gdb-mouse-until to mouse-3, gdb-mouse-jump
- to C-mouse-3 (for 2 button mice).
- (gdb-send): Do the right thing for C-d.
+ * emacs-lisp/trace.el (trace-make-advice): Don't change selected-window.
- * speedbar.el (speedbar-detach): Delete.
- (speedbar-easymenu-definition-trailer): Remove speedbar-detach as
- it breaks things.
- (speedbar-reconfigure-keymaps): Always add extra items to pop up menu.
+2008-04-18 Sam Steingold <sds@gnu.org>
-2006-05-30 Daniel Pfeiffer <occitan@esperanto.org>
+ * vc.el (vc-dir-menu-map, vc-dir-mode-map, vc-dir-tool-bar-map):
+ Use quit-window instead of bury-buffer.
- * files.el (auto-mode-alist): Add makepp suffix and optional mk on
- Makeppfile.
+2008-04-18 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/compile.el (compilation-error-regexp-alist-alist):
- Add makepp diagnostic.
+ * minibuffer.el (completion-table-with-terminator): Fix last fix.
-2006-05-29 Richard Stallman <rms@gnu.org>
+2008-04-18 Andreas Schwab <schwab@suse.de>
- * window.el (fit-window-to-buffer): Doc fix.
+ * Makefile.in ($(MH_E_DIR)/mh-loaddefs.el, $(CAL_DIR)/cal-loaddefs.el)
+ ($(CAL_DIR)/diary-loaddefs.el, $(CAL_DIR)/hol-loaddefs.el):
+ Depend on $(lisp)/subdirs.el.
- * help.el (temp-buffer-max-height): Doc fix.
+2008-04-18 Juanma Barranquero <lekktu@gmail.com>
- * subr.el (with-current-buffer): Doc fix.
+ * descr-text.el (describe-char-after):
+ Use `define-obsolete-function-alias'.
-2006-05-29 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
+ * dired-x.el (dired-omit-files-p): Use `define-obsolete-variable-alias'.
- * term/x-win.el: Bind F10 to menu-bar-start if available.
+ * facemenu.el (facemenu-unlisted-faces): Fix obsolescence description.
-2006-05-28 Dan Nicolaescu <dann@ics.uci.edu>
+ * savehist.el (savehist-load): Add WHEN to obsolescence declaration.
+ Remove redundant obsolescence info in docstring.
- * term.el (term-if-xemacs, term-ifnot-xemacs): Delete, replace
- uses with a simple test.
- (term-set-escape-char, term-mode, term-check-kill-echo-list)
- (term-send-raw-string, term-send-raw, term-mouse-paste)
- (term-char-mode, term-line-mode, term-exec, term-sentinel)
- (term-handle-exit, term-read-input-ring)
- (term-previous-matching-input-string)
- (term-previous-matching-input-string-position)
- (term-previous-matching-input-from-input)
- (term-replace-by-expanded-history, term-send-input)
- (term-skip-prompt, term-bol, term-send-invisible)
- (term-kill-input, term-delchar-or-maybe-eof)
- (term-backward-matching-input, term-check-source)
- (term-proc-query, term-emulate-terminal)
- (term-handle-colors-array, term-process-pager, term-pager-line)
- (term-pager-bob, term-unwrap-line, term-word)
- (term-dynamic-complete-filename)
- (term-dynamic-complete-as-filename)
- (term-dynamic-simple-complete): Replace one arm ifs with whens or
- unlesses.
+ * vc-hooks.el (vc-ignore-vc-files, vc-master-templates)
+ (vc-header-alist): Add WHEN to obsolescence declaration.
+ (vc-state): Fix typo in docstring.
-2006-05-29 Stefan Monnier <monnier@iro.umontreal.ca>
+ * emacs-lisp/checkdoc.el (checkdoc-minor-keymap):
+ Use `define-obsolete-variable-alias'.
- * files.el (hack-one-local-variable-eval-safep): Don't burp if used
- during bootstrapping.
+ * emulation/tpu-edt.el (tpu-have-ispell):
+ * international/codepage.el (codepage-setup):
+ Fix typo in obsolescence declaration.
- * emacs-lisp/ewoc.el (ewoc--current-dll): Remove.
- Basically undo the change of 2006-05-26: use extra arguments instead of
- dynamic scoping.
- (ewoc-locate): Remove unused var `footer'.
+ * international/mule.el (char-coding-system-table):
+ Remove redundant obsolescence info in docstring.
+ (charset-list, generic-char-p, set-char-table-default):
+ Fix typos in obsolescence decarations.
-2006-05-28 Stefan Monnier <monnier@iro.umontreal.ca>
+ * international/mule-diag.el (non-iso-charset-alist):
+ Fix typo in obsolescence declaration.
+ (decode-codepage-char): Remove redundant obsolescence info in docstring.
- * emacs-lisp/ewoc.el (ewoc--insert-new-node): Use ewoc--refresh-node.
+ * font-core.el (font-lock-defaults-alist):
+ * font-lock.el (font-lock-reference-face):
+ * frame.el (screen-height, screen-width, set-screen-width)
+ (set-screen-height):
+ * hilit-chg.el (highlight-changes-initial-state):
+ * isearch.el (isearch-return-char):
+ * log-edit.el (cvs-commit-buffer-require-final-newline)
+ (cvs-changelog-full-paragraphs):
+ * mouse.el (mouse-major-mode-menu, mouse-popup-menubar)
+ (mouse-popup-menubar-stuff):
+ * mwheel.el (mouse-wheel-down-button, mouse-wheel-up-button)
+ (mouse-wheel-click-button):
+ * outline.el (outline-visible):
+ * pcvs-defs.el (cvs-diff-ignore-marks, cvs-diff-buffer-name):
+ * pcvs-info.el (cvs-display-full-path, cvs-fileinfo->full-path):
+ * emacs-lisp/lisp-mode.el (lisp-comment-indent):
+ * progmodes/compile.el (compile-internal):
+ Add WHEN to obsolescence declarations.
- * emacs-lisp/autoload.el (no-update-autoloads): Declare.
- (generate-file-autoloads): Obey it. Return whether autoloads were
- added at point or not.
- (update-file-autoloads): Use this new return value.
- Remove redundant test for the presence of an autoload cookie.
+2008-04-18 Stefan Monnier <monnier@iro.umontreal.ca>
- * emacs-lisp/autoload.el (autoload-find-file): New fun.
- This one calls hack-local-variables.
- (generate-file-autoloads, update-file-autoloads): Use it.
+ * emacs-lisp/debug.el (debug): Revert to bury-buffer since quit-window
+ is not better anyway.
- * textmodes/bibtex.el (bibtex-autokey-name-case-convert-function)
- (bibtex-sort-entry-class): Add safe-local-variable predicate.
- (bibtex-sort-entry-class-alist): Don't set the global value.
- (bibtex-init-sort-entry-class-alist): New fun.
- (bibtex-sort-buffer, bibtex-prepare-new-entry): Call it to compute
- bibtex-init-sort-entry-class-alist from the buffer-local value (if any)
- of bibtex-init-sort-entry-class.
+2008-04-17 Vinicius Jose Latorre <viniciusjl@ig.com.br>
-2006-05-28 Richard Stallman <rms@gnu.org>
+ * whitespace.el (whitespace-report-region): Handle whitespace-tab-width
+ properly.
- * subr.el (load-history-regexp): If FILE is relative, insist
- entire last name component must match it.
- (load-history-filename-element, load-history-regexp): Doc fixes.
+2008-04-17 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-29 Kim F. Storm <storm@cua.dk>
+ * progmodes/python.el (python-mode-map): Use abbrev-table-menu.
+ (python-use-skeletons): Remove, unused.
+ (python-skeletons): Remove. Use the abbrev table instead.
+ (python-mode-abbrev-table): Fix regexp;
+ add enable-function and case-fixed.
+ (def-python-skeleton): Simplify.
+ (python-expand-template): Use the abbrev-table and abbrev-insert.
+ (python-abbrev-pc-hook, python-abbrev-syntax-table, python-pea-hook):
+ Remove.
+ (python-mode): Don't set pre-abbrev-expand-hook.
+
+ * skeleton.el: Set coding-tag.
+
+ * abbrev.el (abbrev-insert): New function extracted from expand-abbrev.
+ (expand-abbrev): Use it.
+ (abbrev-table-menu): New function.
+
+ * abbrev.el (define-abbrev-table): Fontify dosctrings as such.
+
+ * minibuffer.el (completion-table-with-terminator): Fix paren typo.
+
+2008-04-17 Sam Steingold <sds@gnu.org>
+
+ * pcvs-util.el (cvs-bury-buffer): Use quit-window instead of the
+ idiosyncratic bury-buffer/delete-window logic.
+
+2008-04-17 Juanma Barranquero <lekktu@gmail.com>
+
+ * emacs-lisp/crm.el (crm-completion-help, crm-complete)
+ (crm-complete-word, crm-complete-and-exit): Fix typo in previous change.
+
+2008-04-17 Kenichi Handa <handa@m17n.org>
+
+ * international/characters.el: Don't make the width of U+00AD to 0.
+
+2008-04-17 Nick Roberts <nickrob@snap.net.nz>
+
+ * progmodes/gdb-ui.el (gdb-stack-update): New variable.
+ (gdb, gdb-starting, gdb-frames-mode): Use it.
+ (gdb-invalidate-frames): Advise to call "info stack" only if
+ execution has occurred.
+ (gdb-info-breakpoints-custom): Only update overlay-arrow pointing to
+ selected frame if no execution has occurred.
+ (gdb-frames-force-update): New interactive function.
+ (gdb-frames-mode-map): Bind it to "F".
+
+2008-04-17 Michael Olson <mwolson@gnu.org>
+
+ * textmodes/remember.el (remember-version): Release Remember 2.0.
+
+2008-04-16 Yoni Rabkin <yoni@rabkins.net>
+
+ * textmodes/artist.el:
+ * progmodes/vhdl-mode.el:
+ * progmodes/verilog-mode.el:
+ * progmodes/vera-mode.el:
+ * progmodes/simula.el:
+ * progmodes/ps-mode.el:
+ * progmodes/cmacexp.el:
+ * obsolete/hilit19.el:
+ * emulation/viper.el:
+ * ediff.el: Cleanup the bug-report email addresses and make sure the
+ maintainer is still willing to handle bug reports.
+
+2008-04-16 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc.el (vc-dir-kill-query): Fix thinko.
+
+2008-04-16 Glenn Morris <rgm@gnu.org>
+
+ * calendar/diary-lib.el (diary-remind): Don't clobber `date' passed
+ by diary-sexp-entry.
+
+2008-04-16 Markus Triska <markus.triska@gmx.at>
+
+ * proced.el (proced-command-alist): Add support for darwin.
+
+2008-04-16 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * proced.el (proced-mode): Redefine as just the major-mode.
+ (proced): Separate it from proced-mode.
+
+ * vc.el: Rename vc-status to vc-dir and the vc-status var to vc-ewoc.
+
+2008-04-15 Vinicius Jose Latorre <viniciusjl@ig.com.br>
+
+ * whitespace.el: Honor the `indent-tabs-mode' setting from user.
+ Suggested by Stephen Deasey <sdeasey@gmail.com>. Honor also the
+ `tab-width' setting from user. New version 10.0. Doc and docstring
+ fix.
+ (whitespace-style, whitespace-chars): Remove options.
+ (whitespace-style-mark): New option, replace whitespace-style deleted
+ option. Fix docstring.
+ (whitespace-style-color): New option, replace whitespace-chars deleted
+ option. Fix docstring.
+ (whitespace-space, whitespace-hspace, whitespace-tab)
+ (whitespace-newline, whitespace-trailing, whitespace-line)
+ (whitespace-space-before-tab, whitespace-indentation, whitespace-empty)
+ (whitespace-space-after-tab, whitespace-hspace-regexp)
+ (whitespace-space-regexp, whitespace-tab-regexp)
+ (whitespace-trailing-regexp, whitespace-empty-at-bob-regexp)
+ (whitespace-empty-at-eob-regexp, whitespace-line-column)
+ (whitespace-toggle-option-alist): Fix docstring.
+ (whitespace-space-before-tab-regexp, whitespace-indentation-regexp)
+ (whitespace-space-after-tab-regexp, whitespace-display-mappings): Fix
+ docstring and initialization.
+ (global-whitespace-mode): Autoloaded global minor mode.
+ (whitespace-chars-value-list, whitespace-style-value-list)
+ (whitespace-active-chars, whitespace-active-style)
+ (whitespace-toggle-chars, whitespace-toggle-style): Remove vars.
+ (whitespace-color-value-list): New var, replace
+ whitespace-chars-value-list removed var.
+ (whitespace-mark-value-list): New var, replace
+ whitespace-style-value-list removed var.
+ (whitespace-active-color): New var, replace whitespace-active-chars
+ removed var.
+ (whitespace-active-mark): New var, replace whitespace-active-style
+ removed var.
+ (whitespace-toggle-color): New var, replace whitespace-toggle-chars
+ removed var.
+ (whitespace-toggle-mark): New var, replace whitespace-toggle-style
+ removed var.
+ (whitespace-toggle-option-alist, whitespace-report-list)
+ (whitespace-report-text, whitespace-help-text): Fix initialization.
+ (whitespace-indent-tabs-mode, whitespace-tab-width): New vars.
+ (whitespace-toggle-options, global-whitespace-toggle-options)
+ (whitespace-cleanup-region, whitespace-report-region)
+ (whitespace-interactive-char): Fix docstring and code.
+ (whitespace-cleanup, whitespace-report): Fix docstring.
+ (whitespace-replace-spaces-by-tabs): Remove fun.
+ (whitespace-replace-action): New fun, replace
+ whitespace-replace-spaces-by-tabs removed fun.
+ (whitespace-regexp, whitespace-indentation-regexp)
+ (whitespace-space-after-tab-regexp, whitespace-insert-value)
+ (whitespace-kill-buffer): New funs.
+ (whitespace-insert-option-mark, whitespace-help-on)
+ (whitespace-help-off, whitespace-turn-on, whitespace-turn-off)
+ (whitespace-color-on, whitespace-color-off)
+ (whitespace-display-char-on): Fix code.
+
+2008-04-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * mouse-drag.el (mouse-throw-magnifier-with-scroll-bar)
+ (mouse-throw-magnifier-with-mouse-movement): Remove.
+ (mouse-throw-magnifier-base): New const.
+ (mouse-drag-scroll-delta): New fun.
+ (mouse-drag-throw): Use it.
+
+2008-04-15 Juanma Barranquero <lekktu@gmail.com>
+
+ * international/uni-bidi.el, international/uni-category.el:
+ * international/uni-combining.el, international/uni-comment.el:
+ * international/uni-decimal.el, international/uni-decomposition.el:
+ * international/uni-digit.el, international/uni-lowercase.el:
+ * international/uni-mirrored.el, international/uni-name.el:
+ * international/uni-numeric.el, international/uni-old-name.el:
+ * international/uni-titlecase.el, international/uni-uppercase.el:
+ * international/charprop.el: Regenerate.
+
+2008-04-15 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc.el (vc-status-fileinfo): Add new member directoryp.
+ (vc-default-status-printer): Print directories.
+ (vc-status-update): Sort files before subdirectories.
+
+ * vc-cvs.el (vc-cvs-after-dir-status, vc-cvs-dir-status):
+ Add alternative implementation based on "cvs update".
+
+2008-04-15 Tassilo Horn <tassilo@member.fsf.org>
+
+ * doc-view.el: Changed requirements section to tell that only one
+ of dvipdf or dvipdfm is needed.
+ (doc-view-already-converted-p): Fix bug that forced reconversion
+ if doc was already converted.
+
+2008-04-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * minibuffer.el (minibuffer-message):
+ Make sure we can put-text-property.
+
+ * emacs-lisp/crm.el: Complete rewrite.
+
+ * tmm.el (tmm-completion-delete-prompt): Don't hardcode point-min==1.
+ (tmm-add-prompt): Make sure completion-setup-hook is preserved even in
+ case of an error in display-completion-list.
+
+ * filecache.el (file-cache-completions-keymap): Move init from
+ file-cache-completion-setup-function into declaration.
+ (file-cache-minibuffer-complete): Simplify.
+ (file-cache-completion-setup-function): Use standard-output,
+ preserve current-buffer.
+
+ * vc.el (vc-status-update): Fix typo.
+ (vc-status-update): Set needs-update.
+ (vc-status-refresh): η-reduce.
+
+2008-04-14 Tassilo Horn <tassilo@member.fsf.org>
+
+ * doc-view.el (doc-view-mode-map): Bind C-a to image-bol and C-e
+ to image-eol.
+
+2008-04-14 Alexandre Julliard <julliard@winehq.org>
+
+ * vc.el (vc-status-update): Undo the previous revert.
+
+2008-04-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * minibuffer.el (completion-table-with-terminator): Those completions
+ are never valid w.r.t test-completion.
+ (completion--file-name-table):
+ Check completion-all-completions-with-base-size.
+
+2008-04-14 Tassilo Horn <tassilo@member.fsf.org>
+
+ * doc-view.el (doc-view-dvipdf-program): New variable.
+ (doc-view-dvipdfm-program): Mention doc-view-dvipdf-program.
+ (doc-view-mode-p): Check for doc-view-dvipdf-program as
+ alternative for doc-view-dvipdfm-program.
+ (doc-view-dvi->pdf): Prefer dvipdf over dvipdfm.
+
+ * doc-view.el (doc-view-start-process): Don't set
+ default-directory to "~/" if the current value is valid.
+ This broke PS files that run other files in the same directory.
+
+2008-04-14 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc.el (vc-status-kill-query): New function.
+ (vc-status-mode): Add it to kill-buffer-query-functions.
+ (vc-status-show-fileentry): New function.
+ (vc-status-menu-map): Bind it. Bind vc-next-action.
- * emacs-lisp/bindat.el (bindat-idx, bindat-raw): Rename dynamic vars
- `pos' and `raw-data' for clarity, as eval forms may access these.
+2008-04-14 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-28 Kim F. Storm <storm@cua.dk>
+ * minibuffer.el (minibuffer-message): Put cursor at the right place.
- * emacs-lisp/bindat.el (bindat--unpack-u8): Use aref also for strings.
+2008-04-13 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-2006-05-28 Stefan Monnier <monnier@iro.umontreal.ca>
+ * proced.el (proced-send-signal): Fix error recognition.
- * progmodes/make-mode.el (makefile-browser-map)
- (makefile-mode-syntax-table): Move initialization inside declaration.
- (makefile-fill-paragraph): Use the default comment-filling code.
+2008-04-13 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-2006-05-28 Chong Yidong <cyd@stupidchicken.com>
+ * proced.el (proced-command-alist): Remove sort column.
+ (proced-command, proced-procname-column):
+ Use make-variable-buffer-local.
+ (proced-signal-function): Rename from proced-kill-program.
+ Allow for elisp symbols and string values representing system calls.
+ (proced-marker-regexp, proced-success-message): New functions.
+ (proced): Use defalias. Add autoload cookie.
+ (proced-unmark-backward, proced-toggle-marks)
+ (proced-hide-processes): New commands.
+ (proced-do-mark): Simplify code.
+ (proced-insert-mark): Use optional arg BACKWARD instead of line number.
+ (proced-update): Remove sorting.
+ (proced-send-signal): Display number of processes to operate on.
+ Allow for system calls or elisp functions to send signals.
+ Check if signal was sent successfully.
- * replace.el (query-replace-defaults): New variable.
- (query-replace-read-from): Use `query-replace-defaults' for
- default value, instead of history list.
- (query-replace-read-to): Update `query-replace-defaults'.
+2008-04-13 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-27 Chong Yidong <cyd@stupidchicken.com>
+ * minibuffer.el (completion-all-completion-with-base-size): New var.
+ (completion--some): New function.
+ (completion-table-with-context, completion--file-name-table):
+ Return the base-size if requested.
+ (completion-table-in-turn): Generalize to multiple arguments.
+ (complete-in-turn): Compatibility alias.
+ (completion-styles-alist): New var.
+ (completion-styles): New customization.
+ (minibuffer-try-completion, minibuffer-all-completions):
+ New functions.
+ (minibuffer--do-completion, minibuffer-complete-and-exit)
+ (minibuffer-try-word-completion): Use them.
+ (display-completion-list, minibuffer-completion-help): Use them.
+ Handle all-completions's new base-size info to set completion-base-size.
+ * info.el (Info-read-node-name-1): Use completion-table-with-context,
+ completion-table-with-terminator and complete-with-action.
+ Remove the now obsolete completion-base-size-function property.
+ * simple.el (completion-list-mode-map): Move init into declaration.
+ (completion-list-mode): Use define-derived-mode.
+ (completion-setup-function): Use any completion-base-size that may
+ have been set before. Remove handling of completion-base-size-function.
+ * loadup.el: Move abbrev.el up earlier.
+
+2008-04-13 Alexandre Julliard <julliard@winehq.org>
+
+ * vc-git.el (vc-git-after-dir-status-stage)
+ (vc-git-dir-status-goto-stage): New functions.
+ (vc-git-after-dir-status-stage1)
+ (vc-git-after-dir-status-stage1-empty-db)
+ (vc-git-after-dir-status-stage2): Remove, functionality moved
+ into the new generic stage functions.
+ (vc-git-dir-status-files): New function.
+
+ * vc.el (vc-status-update): Revert an incorrect rewrite.
+ Add some comments.
+ (vc-status-refresh-files): New function.
+ (vc-status-refresh): Use `vc-status-refresh-files' to refresh the
+ state of up-to-date files.
+ (vc-default-dir-status-files): New function.
+
+2008-04-13 Juanma Barranquero <lekktu@gmail.com>
+
+ * minibuffer.el (completion--embedded-envvar-table)
+ (read-file-name-internal): Fix typos in 2008-04-11 change.
+
+ * faces.el (read-face-name): Use `completion-table-in-turn',
+ not `complete-in-turn'.
+
+2008-04-13 Andreas Schwab <schwab@suse.de>
+
+ * progmodes/etags.el: Require 'cl when compiling.
- * msb.el (mouse-select-buffer): Minor fix to make popup menu work
- with no X toolkit.
+2008-04-12 Nick Roberts <nickrob@snap.net.nz>
-2006-05-28 Nick Roberts <nickrob@snap.net.nz>
+ * progmodes/gud.el (gud-menu-map): Expand tooltip.
- * tumme.el (tumme-show-all-from-dir-max-files): Fix typo.
- (tumme-show-all-from-dir): Add autoload.
+ * progmodes/gdb-ui.el (gdb-find-source-frame): Improve doc string.
+ (menu): Add/expand menu tooltips.
-2006-05-27 Mathias Dahl <mathias.dahl@gmail.com>
+2008-04-12 Dan Nicolaescu <dann@ics.uci.edu>
- * tumme.el: Change a lot of `(if .. (progn ..)' to `(when ..)'.
- (tumme-remove-tag): Fix bug.
+ * progmodes/sh-script.el (sh-show-indent): Fix typo.
+ (sh-mode-map): Add a toggle for inserting braces and quotes in pairs.
-2006-05-27 Thien-Thi Nguyen <ttn@gnu.org>
+ * vc-cvs.el (vc-cvs-registered): Allow removed files to be
+ considered registered.
- * emacs-lisp/ewoc.el (ewoc--create): No longer take HEADER and
- FOOTER args. Update unique caller.
- (ewoc-delete): Compute last node once before looping.
- (ewoc--node-branch): Merge into unique caller.
- (ewoc--node): Don't define constructor make-ewoc--node for this
- structure.
- (ewoc): Add member `hf-pp' to this structure.
- (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.
+2008-04-12 Reiner Steib <Reiner.Steib@gmx.de>
- * pcvs.el (cvs-make-cvs-buffer): Specify NOSEP to `ewoc-create'.
+ * emacs-lisp/copyright.el (copyright-update-directory): New command.
-2006-05-27 Mathias Dahl <mathias.dahl@gmail.com>
+ * ediff-wind.el (ediff-split-window-function)
+ (ediff-merge-split-window-function): Improve custom type.
- * dired.el (dired-mode-map): Change `tumme-tag-remove' to
- `tumme-delete-tag'. Rename `Remove Image Tag' to `Delete Image
- Tag'. Change "Compare directories..." to "Change Directories...".
- Move tumme commands to Operate, Regexp and Immediate menus.
- Change "Add Comment" to "Add Image Comment". Change "Add Image
- Tag" to "Add Image Tags".
+2008-04-12 Eli Zaretskii <eliz@gnu.org>
- * tumme.el (tumme-delete-tag): Rename from `tumme-tag-remove'.
- (tumme-setup-dired-keybindings): Change `tumme-add-remove' to
- `tumme-delete-tag'.
+ * loadup.el ("minibuffer"): Move after "faces".
-2006-05-26 Luc Teirlinck <teirllm@auburn.edu>
+2008-04-12 Stefan Monnier <monnier@iro.umontreal.ca>
- * shell.el (shell-mode): Call shell-dirtrack-mode after
- list-buffers-directory is made a local variable, to avoid setting
- the default value.
+ * progmodes/hideif.el (hif-factor): Handle unary minus.
-2006-05-26 Kevin Ryde <user42@zip.com.au>
+2008-04-12 Glenn Morris <rgm@gnu.org>
- * info.el (Info-index-next): Use where-is-internal to report
- actual binding of Info-index-next, rather than hard-coded `,'.
+ * calendar/cal-china.el (chinese-calendar-time-zone):
+ Mark obsolete name as risky too.
-2006-05-26 Eli Zaretskii <eliz@gnu.org>
+ * calendar/calendar.el (calendar-faces): New custom group.
+ (calendar-today, diary, holiday): Doc fix.
+ Move to calendar-faces group.
+ * calendar/diary-lib.el (diary-face, diary-anniversary, diary-time)
+ (diary-button): Doc fix. Move to calendar-faces group.
- * menu-bar.el (menu-bar-apropos-menu): Move "Find Key in Manual"
- and "Find Command in Manual" to here.
+ * emacs-lisp/byte-run.el (define-obsolete-variable-alias): Doc fix.
+ * desktop.el, files.el, hilit-chg.el, ibuffer.el, iswitchb.el:
+ * pcvs-info.el, recentf.el, speedbar.el, calendar/cal-china.el:
+ * calendar/cal-hebrew.el, calendar/cal-x.el, calendar/calendar.el
+ * calendar/diary-lib.el, net/net-utils.el, progmodes/gud.el:
+ Move non-autoloaded define-obsolete-variable-alias calls for defcustoms
+ not in dumped files before the associated defcustom.
- * buff-menu.el (list-buffers-noselect): For Info buffers, use
- Info-current-file as the file name.
+2008-04-11 Johan Bockgård <bojohan@gnu.org>
-2006-05-26 Jonathan Yavner <jyavner@member.fsf.org>
+ * minibuffer.el (lazy-completion-table): Fix debug spec.
- * ses.el (defadvice undo-more): Delete this defadvice. The undo
- overrides will now be done a different way.
- (ses-set-parameter): Reapply this function for undo.
- (ses-set-header-row): Reconstruct header row during undo.
- (ses-widen): New function.
- (ses-goto-data, ses-reconstruct-all): Use new function.
- (ses-command-hook): Widen buffer during undo, before unupdating
- the cells.
- (ses-insert-row, ses-delete-row): Widen buffer during undo.
- (ses-load, ses-header-row): Permit empty (zero-row) spreadsheets.
- (ses-read-cell): Avoid stupid warning for RET RET on a cell whose
- formula hasn't been executed yet.
+2008-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-26 Reiner Steib <Reiner.Steib@gmx.de>
+ * minibuffer.el (complete-with-action, lazy-completion-table):
+ Move from subr.el.
+ (apply-partially, completion-table-dynamic)
+ (completion-table-with-context, completion-table-with-terminator)
+ (completion-table-in-turn): New funs.
+ (completion--make-envvar-table, completion--embedded-envvar-table):
+ New funs.
+ (read-file-name-internal): Use them.
+ (completion-setup-hook): Move from simple.el.
+ * subr.el (complete-with-action, lazy-completion-table):
+ * simple.el (completion-setup-hook): Move to minibuffer.el.
- * comint.el (comint-kill-whole-line): Rename arg to count.
- Fix doc string.
+2008-04-11 Glenn Morris <rgm@gnu.org>
-2006-05-26 Chong Yidong <cyd@stupidchicken.com>
+ * Makefile.in (AUTOGENEL): Add calc/calc-loaddefs.el.
- * files.el (backup-buffer-copy): Remove deleted MUSTBENEW argument
- to copy-file.
+2008-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-26 Reiner Steib <Reiner.Steib@gmx.de>
+ * progmodes/python.el (python-mode): Don't mess with hippie-expand.
- * simple.el (toggle-truncate-lines): Make arg optional for
- backward compatibility.
+ * Makefile.in (bootstrap-prepare): Make tpu-edt.el writable as well.
-2006-05-26 Thien-Thi Nguyen <ttn@gnu.org>
+ * textmodes/fill.el (fill-forward-paragraph-function): New var.
+ (fill-forward-paragraph): New fun.
+ (fill-paragraph, fill-region): Use it.
- * emacs-lisp/ewoc.el (ewoc--current-dll): New var.
- (ewoc--node-next, ewoc--node-prev, ewoc--node-nth): Don't take
- DLL arg. Instead, use ewoc--current-dll. Update all callers.
- (ewoc--set-buffer-bind-dll-let*): Bind ewoc--current-dll, not `dll'.
- (ewoc--adjust): Use ewoc--current-dll.
- (ewoc-next, ewoc-prev, ewoc-nth): Bind ewoc--current-dll.
+ * vc.el: Change `dir-status' to not take (and pass) status-buffer.
+ (vc-status-create-fileinfo): Make `extra' optional.
+ (vc-status-busy): New fun.
+ (vc-status-menu-map): Use it.
+ (vc-status-crt-marked): Remove.
+ (vc-status-update): Rename from vc-status-add-entries.
+ Add argument so as to prevent addition of entries. Rewrite.
+ (vc-update-vc-status-buffer): Remove.
+ (vc-status-refresh): Don't remove old entries, set them to
+ up-to-date instead. Also do it after the update is complete.
+ (vc-status-marked-files): η-reduce.
-2006-05-26 Carsten Dominik <dominik@science.uva.nl>
+ * dired.el (dired-read-dir-and-switches): Use read-directory-name even
+ for non-dialogs.
- * textmodes/org.el (org-next-item, org-previous-item): Emit more
- compact error message.
- (org-tags-view): Refresh category table in each file.
- (org-table-justify-field-maybe): Remove superfluous arguments to
- `format'.
- (org-export-as-html): Insert "<p>" before postamble.
- (org-paste-subtree, org-kill-is-subtree-p): Check for empty kill ring.
+ * Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
-2006-05-26 Kenichi Handa <handa@m17n.org>
+ * loadup.el: Load ldefs-boot.el if loaddefs.el doesn't exist.
- * textmodes/po.el (po-find-charset): Pay attention to the case
- FILENAME is a cons (NAME . BUFFER).
- (po-find-file-coding-system-guts): Likewise.
+2008-04-11 Jan Djärv <jan.h.d@swipnet.se>
- * arc-mode.el (archive-set-buffer-as-visiting-file):
- Call find-operation-coding-system with (FILENAME . BUFFER).
+ * tooltip.el (tooltip-show-help-non-mode): Set message-truncate-lines
+ to t and don't truncate msg.
- * tar-mode.el (tar-extract): Call find-operation-coding-system
- with (FILENAME . BUFFER).
+2008-04-11 Glenn Morris <rgm@gnu.org>
- * international/mule.el (decode-coding-inserted-region):
- Call find-operation-coding-system with (FILENAME . BUFFER).
+ * calendar/calendar.el (diary, holidays):
+ Move custom groups to other files.
+ (holiday-general-holidays, holiday-oriental-holidays)
+ (holiday-local-holidays, holiday-other-holidays, hebrew-holidays-1)
+ (hebrew-holidays-2, hebrew-holidays-3, hebrew-holidays-4)
+ (holiday-hebrew-holidays, holiday-christian-holidays)
+ (holiday-islamic-holidays, holiday-bahai-holidays)
+ (holiday-solar-holidays, calendar-holidays): Move to holidays.el.
+ * calendar/diary-lib.el: Move custom group here from calendar.el.
+ * calendar/holidays-lib.el: Move custom group and variables here
+ from calendar.el.
-2006-05-25 Chong Yidong <cyd@stupidchicken.com>
+ * calendar/cal-china.el (calendar-chinese-time-zone): Mark as risky.
- * image-mode.el (image-toggle-display): Use buffer contents to
- generate image for a remote file.
+ * calendar/cal-dst.el (calendar-dst-check-each-year-flag):
+ Fix custom group.
+ (calendar-current-time-zone-cache): Autoload riskiness.
-2006-05-25 Juri Linkov <juri@jurta.org>
+ * calendar/cal-tex.el (cal-tex-preamble-extra): Fix custom type.
- * replace.el (query-replace-read-from, query-replace-read-to):
- Remove 8th arg KEEP-ALL in read-from-minibuffer.
+2008-04-11 Chong Yidong <cyd@stupidchicken.com>
-2006-05-25 Rajesh Vaidheeswarran <rv@gnu.org>
+ * woman.el (woman2-TH): Use string-equal instead of string-match.
- * whitespace.el (whitespace-cleanup): Change to cleanup
- region if one is active.
- * whitespace.el (whitespace-cleanup-internal): New internal method.
+2008-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-25 Mathias Dahl <mathias.dahl@gmail.com>
+ * smerge-mode.el (smerge-apply-resolution-patch): Fix typo.
+ (smerge-resolve): Merge the "2-way refinement" case with one half of
+ the "mere whitespace" resolution.
- * dired.el (dired-mode-map): Add help-echo strings to tumme
- commands. Bind `tumme-dired-display-image' to C-t i.
+2008-04-10 Dan Nicolaescu <dann@ics.uci.edu>
- * tumme.el (tumme-display-image): Change documentation string slightly.
- (tumme-dired-display-image): Add call to `display-buffer'.
+ * vc-bzr.el (vc-bzr-after-dir-status): Detect the conflict state.
-2006-05-25 Thien-Thi Nguyen <ttn@gnu.org>
+2008-04-10 Juanma Barranquero <lekktu@gmail.com>
- * emacs-lisp/bindat.el (bindat-unpack, bindat-pack):
- Signal error if RAW-DATA is a multibyte string.
+ * subr.el (assoc-ignore-case, assoc-ignore-representation):
+ Add WHEN to obsolescence declaration.
-2006-05-24 Richard Stallman <rms@gnu.org>
+ * makefile.w32-in (AUTOGENEL): Add calc-loaddefs.el.
- * subr.el (with-local-quit): When handling `quit' signal,
- make a chance for quit-flag to cause a quit.
+2008-04-10 Dan Nicolaescu <dann@ics.uci.edu>
- * emacs-lisp/advice.el (ad-enable-advice, ad-activate)
- (ad-disable-advice): Add autoloads.
+ * vc-hooks.el (vc-state): Add new state `conflict'.
+ (vc-after-save): Use when not if.
+ (vc-default-mode-line-string): Deal with the conflict state.
+ (vc-prefix-map):
+ (vc-menu-map): Bind vc-status instead of vc-directory.
- * subr.el (read-passwd): Copy PROMPT before changing its properties.
+ * vc.el (vc-editable-p):
+ (vc-default-status-printer):
+ (vc-next-action): Deal with the conflict state.
+ (vc-mark-resolved): New function.
+ (vc-status-mode): Fix mode name.
+ (vc-default-comment-history): Use when not if.
+ (Todo): Add new entries, remove old ones.
-2006-05-25 Mathias Dahl <mathias.dahl@gmail.com>
+ * vc-cvs.el (vc-cvs-merge, vc-cvs-merge-news): Set conflict state.
+ (vc-cvs-parse-status):
+ (vc-cvs-after-dir-status):
+ * vc-svn.el (vc-svn-after-dir-status, vc-svn-parse-status):
+ Detect the conflict state.
- * dired.el (dired-mode-map): Change menu items for tumme as per
- suggestions in emacs-devel.
+ * vc-hg.el (vc-hg-dir-status): Remove unneeded call.
-2006-05-25 Nick Roberts <nickrob@snap.net.nz>
+2008-04-10 Glenn Morris <rgm@gnu.org>
- * dired.el (dired-mode-map): Fix breakage.
+ * menu-bar.el (menu-bar-options-menu) <truncate-lines>:
+ Respect truncate-partial-width-windows in non-full windows,
+ with regards to :toggle and :enable state.
-2006-05-25 Mathias Dahl <mathias.dahl@gmail.com>
+ * simple.el (toggle-truncate-lines): Doc fix.
- * tumme.el (tumme-display-dired-image): Rename to...
- (tumme-dired-display-image): ...this.
- (tumme-track-movement): Change default value to t.
- (tumme-display-thumbs): Add new optional parameter DO-NOT-POP,
- used from `tumme-next-line-and-display' and similar commands.
+ * Makefile.in (MH_E_DIR): New variable.
+ (MH_E_SRC): Restore variable removed 2008-03-13.
+ (mh-loaddefs.el): Depend on $MH_E_SRC.
+ (CAL_DIR, CAL_SRC): New variables.
+ (cal-loaddefs.el, diary-loaddefs.el, hol-loaddefs.el):
+ Depend on CAL_SRC.
- * dired.el (dired-mode-map): Add Thumbnail submenu under the
- Immediate menu. Add some tumme commands there.
+ * calendar/calendar.el (calendar, diary): Add :prefix.
+ (holidays): Change :prefix.
+ (calendar-today, holiday, calendar-holiday-marker)
+ (european-calendar-style): Change custom groups.
-2006-05-24 Luc Teirlinck <teirllm@auburn.edu>
+ * calendar/calendar.el (diary-hook, diary-display-hook):
+ Move to diary-lib.el.
+ * calendar/diary-lib.el (diary-hook, diary-display-hook):
+ Move here from calendar.el.
+ * calendar/appt.el: Require diary-lib rather than calendar.
+ * calendar/cal-x.el (diary-display-hook): Declare for compiler.
- * loadup.el ("jka-cmpr-hook"): Load it before it is needed.
+ * calendar/appt.el (appt): Add :prefix.
-2006-05-24 Chong Yidong <cyd@mit.edu>
+ * calendar/diary-lib.el (diary-hook): Doc fix.
+ (diary-mark-sexp-entries): Fix replacement of calendar-for-loop.
- * menu-bar.el, international/mule-cmds.el: Remove tooltips for
- menu entries that open submenus.
+2008-04-10 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-24 Alan Mackenzie <acm@muc.de>
+ * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
+ New functions.
- * startup.el (command-line): For names of preloaded files, don't
- append ".elc" (now done in Fload), and call file-truename on the
- lisp directory.
+ * minibuffer.el (minibuffer--do-completion): Don't forget to propagate
+ the arg to recursive calls.
- * subr.el (eval-after-load): Fix the doc-string. Allow FILE to
- match ANY loaded file with the right name, not just those in
- load-path. Put a regexp matching the file name into
- after-load-alist, rather than the name itself.
+2008-04-09 Juanma Barranquero <lekktu@gmail.com>
- * subr.el (load-history-regexp, load-history-filename-element)
- (do-after-load-evaluation): New functions.
+ * minibuffer.el (completion-auto-help): Fix typo.
- * international/mule.el (load-with-code-conversion): Do the
- eval-after-load stuff by calling do-after-load-evaluation.
+2008-04-09 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-25 Nick Roberts <nickrob@snap.net.nz>
+ * vc-cvs.el (vc-cvs-diff-tree): Remove unused function.
- * progmodes/gud.el (gud-sentinel): Condition on GUD buffer if it
- has not been killed.
+2008-04-09 Michael Albinus <michael.albinus@gmx.de>
-2006-05-24 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * net/tramp.el (tramp-find-file-name-coding-system-alist): New defun.
+ (tramp-handle-insert-file-contents, tramp-handle-write-region): Use it.
+
+2008-04-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * vc-hooks.el (vc-default-mode-line-string): Use ? for missing.
+
+ * minibuffer.el (minibuffer): Move group from cus-edit.el.
+ (completion-auto-help): Move from C code.
+ (minibuffer--maybe-completion-help): Remove.
+ (minibuffer--bitset): New function.
+ (minibuffer--do-completion): Rename from minibuffer-do-completion.
+ Renumber a bit. Really complete on string *before* point.
+ Add argument used for word-completion.
+ Join trailing / in completion with following text, as done in
+ minibuffer-complete-word.
+ Handle new value `lazy' for completion-auto-help.
+ (minibuffer-try-word-completion): New function extracted from
+ minibuffer-complete-word.
+ (minibuffer-complete-word): Use minibuffer--do-completion.
+ (minibuffer--insert-strings): Rename from
+ minibuffer-complete-insert-strings.
+ (exit-minibuffer): Fix typo.
+ * cus-edit.el (minibuffer): Move group to minibuffer.el.
+ * cus-start.el: Remove completion-auto-help.
+
+2008-04-09 Alexandre Julliard <julliard@winehq.org>
+
+ * vc.el (vc-status-add-entries): New function.
+ (vc-status-add-entry): Remove.
+ (vc-update-vc-status-buffer, vc-status-mark-buffer-changed):
+ Use vc-status-add-entries.
+
+ * emacs-lisp/ewoc.el (ewoc-collect): Return results in the correct
+ order.
- * term/mac-win.el: Set idle timer to clean up expired Apple events.
- (mac-ae-get-url): Redispatch Apple event on unknown scheme.
- (mac-dispatch-apple-event): Resume Apple event if it is suspended.
- Optionally set error message in reply.
+2008-04-09 Jason Rumney <jasonr@gnu.org>
-2006-05-24 Carsten Dominik <dominik@science.uva.nl>
+ * makefile.w32-in (LOADDEFS): Add mh-loaddefs.el.
+ ($(lisp)/mh-e/mh-loaddefs.el): Simplify rule.
+ (pre-mh-loaddefs.el-CMD, pre-mh-loaddefs.el-SH): Remove.
+ (AUTOGENEL): New variable.
+ (distclean, maintainer-clean): New targets.
- * textmodes/org.el (org-open-at-point): Use renamed variable
- `org-confirm-shell-link-function'.
- (org-confirm-shell-link-function): Rename from
- `org-confirm-shell-links'.
- (org-export-directory): New function.
- (org-export-as-ascii, org-export-as-html, org-export-as-xoxo)
- (org-export-icalendar): Use `org-export-directory'.
- (org-indent-item): Keep cursor position.
- (org-link-file-path-type): New option.
- (org-export-as-html): Fix bug with plain lists starting in
- column 0.
- (org-export-as-html): Remove deadline formatting, this happens
- now already in `org-html-handle-time-stamps'.
- (org-export-html-style): Deadline class removed.
- (org-insert-labeled-timestamps-at-point): New option.
- (org-cycle, org-occur, org-scan-tags): Use `org-overview' instead
- of `hide-sublevels 1', in case the first headline is not level 1.
- (org-overview, org-content): New fuction.
- (org-cycle-global-status, org-cycle-subtree-status): Make these
- variables buffer-local.
- (org-global-cycle): New command.
- (org-shifttab): Use `org-global-cycle'.
- (org-insert-heading, org-insert-item): Go to end of new
- headline/item after creating it.
- (org-export-visible): Rename from `org-export-copy-visible'.
- Now creates a temporary org-file and applies an exporting command
- to it.
- (org-table-eval-formula): Support for lisp forms.
- (org-agenda-todo-ignore-scheduled): New option.
- (org-agenda-get-todos): Use new option
- `org-agenda-todo-ignore-scheduled'.
- (org-export-html-inline-images): New value `maybe'.
- (org-export-as-html): Inlining of images dependent on link description.
- (org-archive-subtree): Check for end-of-buffer before trying
- `kill-line'.
- (org-agenda-follow-mode): New option.
- (org-export-with-tags, org-export-with-timestamps): New options.
- (org-html-handle-time-stamps): New function.
- (org-keyword-time-regexp): New variable.
- (org-agenda-get-todos): Use `org-agenda-todo-list-sublevels'.
- (org-agenda-todo-list-sublevels): New option.
- (org-html-level-start): When TITLE is nil, just close all levels.
- (org-parse-key-lines, org-parse-export-options): Remove functions,
- replaced by `org-infile-export-plist'.
- (org-combine-plists, org-infile-export-plist)
- (org-default-export-plist): New functions.
- (org-export-html-preamble, org-export-html-postamble)
- (org-export-html-auto-preamble, org-export-html-auto-postamble):
- New variables.
- (org-export-publishing-directory): New option.
- (org-export-as-html, org-export-as-ascii): Use the new property
- lists for settings.
- (org-export-copy-visible, org-export-as-xoxo):
- Respect `org-export-publishing-directory'.
- (org-link-search, org-store-link, org-file-apps): Support for
- links to BibTeX database entries..
- (org-get-current-options, org-set-regexps-and-options):
- Implement logging as a startup option.
- (org-store-link): Make sure context string is never empty
- (org-insert-link): Use relative path when possible.
- (org-at-item-checklet-p): New function.
- (org-shifttab, 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-cycle, org-return, org-meta-return):
- Dispatch using `call-interactively'.
- (org-call-with-arg): New defsubst.
- (org-tag-alist, org-use-fast-tag-selection): New options.
- (org-complete): Use `org-tag-alist'.
- (org-fast-tag-insert, org-fast-tag-selection): New functions.
- (org-next-item, org-previous-item): New commands.
- (org-beginning-of-item, org-end-of-item): Add (interactive) to
- make command.
- (org-shiftup, org-shiftdown): Accommodate the item-navigation commands.
-
-2006-05-23 Thien-Thi Nguyen <ttn@gnu.org>
-
- * emacs-lisp/ewoc.el (ewoc-delete): New function.
- (ewoc-filter): Use `ewoc-delete'.
-
- * emacs-lisp/bindat.el (bindat-pack): Doc fix.
-
-2006-05-22 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * textmodes/bibtex.el (bibtex-format-entry, bibtex-clean-entry):
- Signal more user-friendly error messages.
-
- * complete.el (PC-do-completion): Undo the addition of implicit
- wildcards if they did not lead to finding any match.
- (read-file-name-internal): Don't add the final > if the completion is
- not finished.
-
-2006-05-22 Reiner Steib <Reiner.Steib@gmx.de>
-
- * textmodes/bibtex.el (bibtex-maintain-sorted-entries):
- Quote safe-local-variable predicate.
-
-2006-05-22 Thien-Thi Nguyen <ttn@gnu.org>
-
- * emacs-lisp/ewoc.el (ewoc-set-data): New function.
-
-2006-05-21 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-maintain-sorted-entries): Mark as safe.
-
- * progmodes/make-mode.el (makefile-special-targets-list)
- (makefile-macro-table, makefile-target-table): Mark as risky.
- (makefile-query-one-target-method): Make this the alias for the
- following variable.
- (makefile-query-one-target-method-function): Make this the real name.
-
- * textmodes/artist.el (artist-text-renderer): Make this the alias
- for the following variable.
- (artist-text-renderer-function): Make this the real name.
-
- * textmodes/flyspell.el (flyspell-generic-check-word-p): Make this
- the alias for the following variable.
- (flyspell-generic-check-word-predicate): Make this the real name.
-
- * textmodes/ispell.el (ispell-format-word): Make this the alias
- for the following variable.
- (ispell-format-word-function): Make this the real name.
- (ispell-message-text-end): Mark as risky.
-
- * skeleton.el (skeleton-transformation, skeleton-filter)
- (skeleton-pair-filter): Make these the aliases for the following
- variables.
- (skeleton-transformation-function, skeleton-filter-function)
- (skeleton-pair-filter-function): Make these the real names.
+2008-04-09 Chong Yidong <cyd@stupidchicken.com>
- * progmodes/sh-script.el (sh-mode): Use skeleton-filter-function
- and skeleton-pair-filter-function.
+ * emacs-lisp/regexp-opt.el (regexp-opt):
+ Reduce max-lisp-eval-depth and max-specpdl-size to 10000.
- * textmodes/sgml-mode.el (sgml-transformation): Make this the
- alias for the following variable.
- (sgml-transformation-function): Make this the real name.
- (sgml-tag-alist): Mark as risky.
+2008-04-09 Lennart Borgman <lennart.borgman@gmail.com>
-2006-05-21 Richard Stallman <rms@gnu.org>
+ * nxml/nxml-mode.el (nxml-cleanup): New function.
+ (nxml-mode): Add it to change-major-mode-hook.
- * simple.el (kill-region): Interactively, pass point, then mark.
+2008-04-09 Jan Djärv <jan.h.d@swipnet.se>
-2006-05-22 Thien-Thi Nguyen <ttn@gnu.org>
+ * term/x-win.el (x-gtk-stock-map): Map info to gtk-info.
- * emacs-lisp/ewoc.el (ewoc-create): Add autoload cookie.
+2008-04-09 Juanma Barranquero <lekktu@gmail.com>
-2006-05-21 Romain Francoise <romain@orebokech.com>
+ * calc/.cvsignore: New file.
- * dired-x.el (dired-mode-map): Don't bind M-g.
+2008-04-09 Jan Djärv <jan.h.d@swipnet.se>
-2006-05-20 Richard Stallman <rms@gnu.org>
+ * vc.el (vc-status-tool-bar-map): Add vc-print-log to tool bar.
- * dired.el (dired-mode-map): Put dired-goto-file on j, not M-g.
- (dired-goto-file): Doc fix.
+ * tooltip.el (tooltip-mode): Set tooltip-show-help-non-mode as
+ show-help-function when turning tooltip off.
+ (tooltip-show): Call tooltip-show-help-non-mode if use-echo-area.
+ (tooltip-trunc-str, tooltip-show-help-non-mode): New.
-2006-05-21 Kim F. Storm <storm@cua.dk>
+2008-04-09 Alan Mackenzie <acm@muc.de>
- * emulation/cua-base.el: Mention customizing cua-mode as alternative
- way to enable built-in cua-mode if user loads older CUA-mode package.
+ * font-lock.el (font-lock-extend-after-change-region-function):
+ Make it buffer local.
- * ido.el (ido-read-file-name): Bind ido-show-dot-for-dired to nil
- if default-filename is specified.
+2008-04-09 Glenn Morris <rgm@gnu.org>
-2006-05-20 Eli Zaretskii <eliz@gnu.org>
+ * calendar/calendar.el (diary-file, european-calendar-style):
+ Remove autoload cookies.
- * menu-bar.el (menu-bar-manuals-menu) <info-apropos>: New menu item.
+2008-04-09 Dan Nicolaescu <dann@ics.uci.edu>
- * info.el (info-apropos): Make sure current-file and current-node
- have non-nil values. Speed up by using add-to-list instead of
- manual consing.
+ * outline.el (outline-mode-menu-bar-map):
+ * log-view.el (log-view-mode-menu):
+ * log-edit.el (log-edit-menu): Add :help.
-2006-05-20 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
+2008-04-09 Chong Yidong <cyd@stupidchicken.com>
- * progmodes/make-mode.el (makefile-mode): Doc fix.
+ * emacs-lisp/regexp-opt.el (regexp-opt-group):
+ Use substring-no-properties for correct handling of unibyte strings.
-2006-05-20 Eli Zaretskii <eliz@gnu.org>
+2008-04-09 Stefan Monnier <monnier@iro.umontreal.ca>
- * dired-aux.el (dired-do-shell-command): Doc fix.
+ * add-log.el (change-log-next-buffer): Handle the case where version<
+ signals an error.
-2006-05-20 Kevin Ryde <user42@zip.com.au>
+ * mouse.el (mouse-menu-major-mode-map): New fun extracted from
+ mouse-major-mode-menu.
+ (mouse-menu-bar-map): New fun extracted from mouse-popup-menubar.
+ (mouse-major-mode-menu, mouse-popup-menubar)
+ (mouse-popup-menubar-stuff): Use them.
+ (C-down-mouse-3): Bind to a dynamic map rather than to
+ mouse-popup-menubar-stuff.
- * info-xref.el (info-xref-check-all-custom): Skip :tag part of
- ``(custom-manual :tag "Foo" "(foo)Node")''.
+ * bindings.el (mode-line-major-mode-keymap): Bind down-mouse-1
+ to mouse-menu-major-mode-map rather than to mouse-major-mode-menu.
-2006-05-20 Karl Chen <quarl@cs.berkeley.edu>
+2008-04-09 Dan Nicolaescu <dann@ics.uci.edu>
- * progmodes/cc-vars.el (c-backslash-column): Mark as safe if its
- value is an integer.
+ * vc-svn.el (vc-svn-modify-change-comment): Add support for the
+ file:// access method.
-2006-05-20 Eli Zaretskii <eliz@gnu.org>
+2008-04-09 Stefan Monnier <monnier@iro.umontreal.ca>
- * mail/rmail.el (rmail-mime-charset-pattern): Add "?:" before
- "format".
- (rmail-convert-to-babyl-format): Undo the change from 2006-04-19.
+ * minibuffer.el: New file.
+ * loadup.el: Load it.
-2006-05-20 Martin Rudalics <rudalics@gmx.at>
+2008-04-08 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/hideif.el (show-ifdef-block): Fix bug where parts of
- a hidden block remained hidden if `hide-ifdef-lines' is non-nil.
+ * Makefile.in ($(lisp)/mh-e/mh-loaddefs.el): Make it depend on mh-e/*.el
+ rather than subdirs.el. It introduces an ugly circular dependency, tho.
-2006-05-20 Stefan Monnier <monnier@iro.umontreal.ca>
+ * calc/calc.el: Load "calc-loaddefs" rather than set up manual autoloads.
+ (calc-mode-map, calc-digit-map, calc-dispatch-map):
+ Move initialization into declaration.
+ * calc/calc-yank.el:
+ * calc/calc-misc.el:
+ * calc/calc-embed.el:
+ * calc/calc-aent.el: Add autoload cookies. Set generated-autoload-file.
- * progmodes/gud.el (gdb-script-font-lock-keywords): Use a stricter
- regexp for keywords.
+2008-04-08 Michael Albinus <michael.albinus@gmx.de>
-2006-05-20 Masayuki FUJII <boochang@m4.kcn.ne.jp> (tiny change)
+ * ps-samp.el (ps-add-printer, ps-remove-printer)
+ (ps-make-dynamic-printer-menu): New functions.
- * dnd.el (dnd-get-local-file-name): Specify LITERAL in
- replace-regexp-in-string.
+ * net/zeroconf.el: New file.
- * term/w32-win.el (w32-drag-n-drop): Substitute '/' for '\',
- encode, and escape file name on conversion to URL.
+2008-04-08 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-20 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * calendar/cal-hebrew.el (calendar-hebrew-list-yahrzeits): Typo.
- * dnd.el (dnd-handle-one-url): Change 3rd arg ARG to URL.
- Don't unescape URL.
- (dnd-get-local-file-name): Unescape URL on conversion to file name.
+2008-04-08 Dan Nicolaescu <dann@ics.uci.edu>
- * x-dnd.el (x-dnd-handle-file-name): Encode and escape file names
- on conversion to URLs.
+ * vc-rcs.el (vc-rcs-modify-change-comment):
+ * vc-cvs.el (vc-cvs-modify-change-comment): Fix argument order.
- * net/browse-url.el (browse-url-file-url): Encode file name on
- conversion to URL.
+ * log-view.el (log-view-mode-menu): Bind log-view-modify-change-comment.
- * term/mac-win.el (mac-ae-open-documents): Escape file name on
- conversion to URL.
+2008-04-08 Juanma Barranquero <lekktu@gmail.com>
-2006-05-19 Eli Zaretskii <eliz@gnu.org>
+ * international/mule-cmds.el (set-locale-environment): Don't warn if
+ coding system doesn't agree with system locale (this reverts changes
+ by Dave Love, dated 2002-10-27 and 2002-10-09).
- * progmodes/cc-styles.el (c-style-alist): Doc fix.
+ * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
+ * emacs-lisp/cl-macs.el (get-setf-method): Use `string-match-p'.
-2006-05-19 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * emacs-lisp/copyright.el (copyright-update-year): Use `looking-at-p'.
- * term/mac-win.el (mac-bytes-to-digits): Remove function.
- (mac-handle-toolbar-switch-mode): Use coercion instead of it.
+2008-04-08 Glenn Morris <rgm@gnu.org>
-2006-05-19 Glenn Morris <rgm@gnu.org>
+ * calendar/calendar.el (calendar-date-style): Remove autoload cookie.
+ * textmodes/remember.el (remember-diary-convert-entry):
+ Require calendar.
+
+ * textmodes/remember.el (remember-diary-extract-entries): Don't pass
+ diary-file, since it is the default for make-diary-entry anyway.
+
+ * calendar/cal-menu.el (cal-menu-event-to-date):
+ Rename calendar-event-to-date. Update callers.
+ (calendar-mouse-tex-day): Rename cal-tex-mouse-day.
+ (calendar-mouse-tex-week): Rename cal-tex-mouse-week.
+ (calendar-mouse-tex-week2): Rename cal-tex-mouse-week2.
+ (calendar-mouse-tex-week-iso): Rename cal-tex-mouse-week-iso.
+ (calendar-mouse-tex-week-monday): Rename cal-tex-mouse-week-monday.
+ (calendar-mouse-tex-filofax-daily): Rename cal-tex-mouse-filofax-daily.
+ (calendar-mouse-tex-filofax-2week): Rename cal-tex-mouse-filofax-2week.
+ (calendar-mouse-tex-filofax-week): Rename cal-tex-mouse-filofax-week.
+ (calendar-mouse-tex-month): Rename cal-tex-mouse-month.
+ (calendar-mouse-tex-month-landscape):
+ Rename cal-tex-mouse-month-landscape.
+ (calendar-mouse-tex-year): Rename cal-tex-mouse-year.
+ (calendar-mouse-tex-filofax-year): Rename cal-tex-mouse-filofax-year.
+ (calendar-mouse-tex-year-landscape):
+ Rename cal-tex-mouse-year-landscape.
+ (cal-menu-context-mouse-menu): Update for above name changes.
+
+ * calendar/cal-bahai.el, calendar/cal-china.el, calendar/cal-coptic.el:
+ * calendar/cal-french.el, calendar/cal-hebrew.el, calendar/cal-islam.el:
+ * calendar/cal-iso.el, calendar/cal-julian.el, calendar/cal-move.el:
+ * calendar/cal-persia.el, calendar/cal-tex.el, calendar/calendar.el:
+ * calendar/holidays.el: Replace int-to-string with number-to-string.
+
+2008-04-08 Chong Yidong <cyd@stupidchicken.com>
+
+ * mwheel.el (mwheel-scroll): Deactivate any temporarily active
+ region if point moves.
+
+2008-04-08 Kenichi Handa <handa@m17n.org>
+
+ * faces.el (font-slant-table): Change numeric values for `r',
+ `roman', and `normal'.
+
+2008-04-07 Vincent Belaïche <vincent.b.1@hotmail.fr>
+
+ * calc/calc-vec.el (calcFunc-kron, calc-kron): New functions.
+
+2008-04-07 Jay Belanger <jay.p.belanger@gmail.com>
+
+ * calc/calc-ext.el (calc-init-extensions): Add `calc-kron' and
+ `calcFunc-kron' to autoloads. Add keybinding for `calc-kron'.
+
+2008-04-07 Michael Albinus <michael.albinus@gmx.de>
+
+ * net/tramp.el (tramp-methods): Fix again tramp-copy-args of
+ "pscp" and "psftp". Reported by Gilles Pion <gpion@lfdj.com>.
+
+2008-04-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * dired-aux.el (dired-read-shell-command): Use read-shell-command.
+
+2008-04-07 Sam Steingold <sds@gnu.org>
+
+ * progmodes/inf-lisp.el (lisp-compile-string, lisp-eval-string):
+ Add helper functions.
+ (lisp-do-defun): Extract the common part of lisp-eval-defun and
+ lisp-compile-defun; DEFVAR forms reset the variables to the init
+ values, just like in emacs-lisp mode eval-defun.
+ (lisp-eval-defun, lisp-compile-defun): Use lisp-do-defun.
+ (lisp-compile-region): Use lisp-compile-string.
+
+2008-04-07 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * subr.el (combine-and-quote-strings): Also quote strings that contain
+ the separator.
+
+ * pcvs-util.el (cvs-map): Avoid recursion :-(
+
+2008-04-07 Glenn Morris <rgm@gnu.org>
+
+ * calendar/calendar.el (calendar-mode-map): Replace use of kbd.
+
+ * calendar.el (diary-view-entries-initially-flag): Rename
+ view-diary-entries-initially. Keep old name as alias, update users.
+ (calendar-mark-diary-entries-flag): Rename
+ mark-diary-entries-in-calendar. Keep old name as alias, update users.
+ (calendar-view-holidays-initially-flag): Rename
+ view-calendar-holidays-initially. Keep old name as alias, update users.
+ (calendar-mark-holidays-flag): Rename mark-holidays-in-calendar.
+ Keep old name as alias, update users.
+ (calendar-initial-window-hook): Rename initial-calendar-window-hook.
+ Keep old name as alias, update users.
+ (calendar-today-visible-hook): Rename today-visible-calendar-hook.
+ Keep old name as alias, update users.
+ (calendar-today-invisible-hook): Rename today-invisible-calendar-hook.
+ Keep old name as alias, update users.
+ (diary-iso-date-forms): Rename iso-date-diary-pattern. Update users.
+ (diary-american-date-forms): Rename american-date-diary-pattern.
+ Keep old name as alias, update users.
+ (diary-european-date-forms): Rename european-date-diary-pattern.
+ Keep old name as alias, update users.
+ (calendar-iso-date-display-form): Rename iso-calendar-display-form.
+ Keep old name as alias, update users.
+ (calendar-european-date-display-form): Rename
+ european-calendar-display-form. Keep old name as alias, update users.
+ (calendar-american-date-display-form): Rename
+ european-calendar-display-form. Keep old name as alias, update users.
+ (diary-show-holidays-flag): Rename holidays-in-diary-buffer.
+ Keep old name as alias, update users.
+ (holiday-general-holidays): Rename general-holidays.
+ Keep old name as alias, update users.
+ (holiday-oriental-holidays): Rename oriental-holidays.
+ Keep old name as alias, update users.
+ (holiday-local-holidays): Rename local-holidays.
+ Keep old name as alias, update users.
+ (holiday-other-holidays): Rename other-holidays.
+ Keep old name as alias, update users.
+ (holiday-hebrew-holidays): Rename hebrew-holidays.
+ Keep old name as alias, update users.
+ (holiday-christian-holidays): Rename christian-holidays.
+ Keep old name as alias, update users.
+ (holiday-islamic-holidays): Rename islamic-holidays.
+ Keep old name as alias, update users.
+ (holiday-bahai-holidays): Rename bahai-holidays.
+ Keep old name as alias, update users.
+ (holiday-solar-holidays): Rename solar-holidays.
+ Keep old name as alias, update users.
+ (diary-fancy-buffer): Rename fancy-diary-buffer.
+ Keep old name as alias, update users.
+ (calendar-other-calendars-buffer): Rename other-calendars-buffer.
+ Update users.
+ (calendar-hebrew-yahrzeit-buffer): Rename cal-hebrew-yahrzeit-buffer.
+ Update users.
+ (calendar-increment-month): Rename increment-calendar-month.
+ Keep old name as alias, update callers.
+ (calendar-increment-month-cons): Rename old calendar-increment-month.
+ Update callers.
+ (calendar-extract-month): Rename extract-calendar-month.
+ Keep old name as alias, update callers
+ (calendar-extract-day): Rename extract-calendar-day.
+ Keep old name as alias, update callers.
+ (calendar-extract-year): Rename extract-calendar-year.
+ Keep old name as alias, update callers.
+ (calendar-generate-window): Rename generate-calendar-window.
+ Update callers.
+ (calendar-generate): Rename generate-calendar. Update callers.
+ (calendar-generate-month): Rename generate-calendar-month.
+ Update callers.
+ (calendar-redraw): Rename redraw-calendar. Update callers.
+ (calendar-describe-mode): Rename describe-calendar-mode. Update uses.
+ (calendar-mouse-other-month): Rename mouse-calendar-other-month.
+ Update callers.
+ (calendar-update-mode-line): Rename update-calendar-mode-line.
+ Update callers.
+ (calendar-exit): Rename exit-calendar. Keep old name as alias,
+ update callers.
+ (calendar-mark-visible-date): Rename mark-visible-calendar-date.
+ Keep old name as alias, update callers.
+ * calendar/cal-bahai.el, calendar/cal-china.el, calendar/cal-coptic.el:
+ * calendar/cal-dst.el, calendar/cal-french.el, calendar/cal-hebrew.el:
+ * calendar/cal-html.el, calendar/cal-islam.el, calendar/cal-iso.el:
+ * calendar/cal-julian.el, calendar/cal-menu.el, calendar/cal-move.el:
+ * calendar/cal-persia.el, calendar/cal-tex.el, calendar/cal-x.el:
+ * calendar/diary-lib.el, calendar/holidays.el, calendar/lunar.el:
+ * calendar/solar.el: Update for calendar.el name changes.
+ * org/org.el (org-agenda-format-date-aligned)
+ (org-agenda-execute-calendar-command): Access date elements directly
+ rather than using calendar functions.
+ (org-read-date, org-goto-calendar, org-agenda-goto-calendar):
+ Also set calendar-view-diary-initially-flag,
+ calendar-view-holidays-initially-flag
+ (org-get-entries-from-diary): Also set diary-fancy-buffer.
+ (org-agenda-execute-calendar-command): No need to set displayed-day.
- * calendar/diary-lib.el (diary-bahai-date)
- (list-bahai-diary-entries, mark-bahai-diary-entries)
- (mark-bahai-calendar-date-pattern): Not interactive.
- (add-to-diary-list): New optional arg LITERAL. Doc fix.
- (diary-entries-list): Change format of 4th element in each entry.
- (diary-list-entries): Use add-to-diary-list.
- (diary-goto-entry): Handle the case where the buffer visiting the
- diary has been killed.
- (fancy-diary-display): Add 'locator to button rather than 'marker.
- Only generate temp-face when there are marks to apply.
- (list-sexp-diary-entries): Pass literal to add-to-diary-list.
- (diary-fancy-date-pattern): New variable.
- (diary-time-regexp): Doc fix.
- (diary-anniversary, diary-time): New faces.
- (fancy-diary-font-lock-keywords): Use diary-fancy-date-pattern and
- diary-time-regexp. Add font-lock-multiline property where needed.
- Use new faces diary-anniversary and diary-time.
- (diary-fancy-font-lock-fontify-region-function): New function, to
- handle multiline font-lock pattern in fancy diary.
- (fancy-diary-display-mode): Set font-lock-fontify-region-function.
- (diary-font-lock-keywords): Tweak time regexp. Use new face
- diary-time.
+2008-04-06 Alan Mackenzie <acm@muc.de>
-2006-05-19 Alexander Shopov <ash@contact.bg> (tiny change)
+ * progmodes/cc-langs.el (c-before-font-lock-function): Correct a
+ typo in the doc string.
- * international/code-pages.el (mik): Table corrected.
+ * progmodes/cc-mode.el (c-basic-common-init):
+ Set font-lock-extend-after-change-region-function.
+ (c-extend-after-change-region): New function, used in
+ font-lock-extend-after-change-region-function, thus superseding
+ advice on the Font Lock after change functions.
+ (c-advise-fl-for-region): Remove this macro.
+
+2008-04-06 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * textmodes/flyspell.el (flyspell-duplicate-distance):
+ Improve custom type.
+
+2008-04-06 Glenn Morris <rgm@gnu.org>
+
+ * calendar/diary-lib.el (diary-sexp-entry-symbol):
+ Rename sexp-diary-entry-symbol. Keep old name as alias, update users.
+ (diary-list-entries-hook): Rename list-diary-entries-hook.
+ Keep old name as alias, update users.
+ (diary-mark-entries-hook): Rename mark-diary-entries-hook.
+ Keep old name as alias, update users.
+ (diary-nongregorian-listing-hook): Rename
+ nongregorian-diary-listing-hook. Keep old name as alias, update users.
+ (diary-nongregorian-marking-hook): Rename
+ nongregorian-diary-marking-hook. Keep old name as alias, update users.
+ (diary-print-entries-hook): Rename print-diary-entries-hook.
+ Keep old name as alias, update users.
+ (diary-abbreviated-year-flag): Rename abbreviated-calendar-year.
+ Keep old name as alias, update users.
+ (diary-number-of-entries): Rename number-of-diary-entries.
+ Keep old name as alias, update users.
+ (view-diary-entries, list-diary-entries, show-all-diary-entries):
+ Give version of obsolescence.
+ (diary-view-other-diary-entries): Rename view-other-diary-entries.
+ Keep old name as alias, update callers.
+ (diary-add-to-list): Rename add-to-diary-list. Keep old name as alias,
+ update callers.
+ (diary-include-other-diary-files): Rename include-other-diary-files.
+ Keep old name as alias, update callers.
+ (diary-simple-display): Rename simple-diary-display.
+ Keep old name as alias, update callers.
+ (diary-fancy-display): Rename fancy-diary-display.
+ Keep old name as alias, update callers.
+ (diary-print-entries): Rename print-diary-entries.
+ Keep old name as alias, update callers.
+ (diary-marking-entries-flag): Rename marking-diary-entries.
+ Update users.
+ (diary-marking-entry-flag): Rename marking-diary-entry. Update users.
+ (diary-mark-entries): Rename mark-diary-entries.
+ Keep old name as alias, update callers.
+ (diary-mark-sexp-entries): Rename mark-sexp-diary-entries.
+ Keep old name as alias, update callers.
+ (diary-mark-included-diary-files): Rename mark-included-diary-files.
+ Keep old name as alias, update callers.
+ (calendar-mark-days-named): Rename mark-calendar-days-named.
+ Keep old name as alias, update callers.
+ (calendar-mark-month): Rename mark-calendar-month.
+ Keep old name as alias, update callers.
+ (calendar-mark-date-pattern): Rename mark-calendar-date-pattern.
+ Keep old name as alias, update callers.
+ (diary-sort-entries): Rename sort-diary-entries.
+ Keep old name as alias, update callers.
+ (diary-list-sexp-entries): Rename list-sexp-diary-entries.
+ Keep old name as alias, update callers.
+ (diary-make-entry): Rename make-diary-entry. Keep old name as alias,
+ update callers.
+ (diary-insert-entry): Rename insert-diary-entry.
+ Keep old name as alias.
+ (diary-insert-weekly-entry): Rename insert-weekly-diary-entry.
+ Keep old name as alias.
+ (diary-insert-monthly-entry): Rename insert-monthly-diary-entry.
+ Keep old name as alias.
+ (diary-insert-yearly-entry): Rename insert-yearly-diary-entry.
+ Keep old name as alias.
+ (diary-insert-anniversary-entry): Rename insert-anniversary-diary-entry.
+ Keep old name as alias.
+ (diary-insert-block-entry): Rename insert-block-diary-entry.
+ Keep old name as alias.
+ (diary-insert-cyclic-entry): Rename insert-cyclic-diary-entry.
+ Keep old name as alias.
+ (diary-fancy-font-lock-keywords): Rename fancy-diary-font-lock-keywords.
+ Keep old name as alias, update users.
+ (diary-fancy-display-mode): Rename fancy-diary-display-mode.
+ Keep old name as alias, update callers.
+ * calendar/cal-bahai.el, calendar/cal-hebrew.el, calendar/cal-islam.el:
+ * calendar/cal-menu.el, calendar/cal-x.el, calendar/calendar.el:
+ * calendar/icalendar.el: Update for diary-lib name changes.
-2006-05-18 Kim F. Storm <storm@cua.dk>
+2008-04-06 Chong Yidong <cyd@stupidchicken.com>
- * progmodes/grep.el (grep-find): Don't check grep-find-command
- before running command (breaks non-interactive usage).
+ * dired-aux.el (dired-overwrite-confirmed): Revert last change.
-2006-05-18 Thien-Thi Nguyen <ttn@gnu.org>
+ * dired.el (dired-dnd-handle-local-file): Obey dired-backup-overwrite
+ for copy, move, and link operations.
- * emacs-lisp/ewoc.el (ewoc--adjust): New func.
- (ewoc--insert-new-node): Don't insert trailing newline.
- Instead, adjust successor nodes's start markers.
- (ewoc--refresh-node): Delete all text from current node's start
- marker to the next one's; adjust successor nodes's start markers.
- (ewoc--create): Doc fixes.
- (ewoc--refresh): Don't insert newline.
- (ewoc--set-hf): Use `ewoc--set-buffer-bind-dll-let*'.
- * pcvs.el (cvs-make-cvs-buffer):
- Specify extra newline for ewoc's header and footer.
- (cvs-update-header): Update initial header recognition.
- Append newline to final header and footer values.
- * pcvs-info.el (cvs-fileinfo-pp): Insert trailing newline.
+2008-04-06 Michael Kifer <kifer@cs.stonybrook.edu>
-2006-05-17 Richard Stallman <rms@gnu.org>
+ * emulation/viper-init.el, emulation/viper-ex.el, emulation/viper-cmd.el
+ (viper-search-wrap-around-t): Replace with viper-search-wrap-around.
- * files.el (file-name-extension): Doc fix.
+ * ediff-util.el, ediff-vers.el, ediff-wind.el: Replace 3-argument
+ 'require' statements with 1-argument ones (wrapped in if's).
+ For compatibility with the current stable version of XEmacs.
-2006-05-17 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-04-06 Dan Nicolaescu <dann@ics.uci.edu>
- * shell.el (shell-dirtrack-mode): Make it into a proper minor mode, so
- we can explicitly enable/disable rather than toggle.
- (shell-mode): Use it.
- (shell-cd): Don't try to reproduce what `cd' does.
+ * vc.el (vc-status-prepare-status-buffer): Reset vc-parent-buffer-name.
-2006-05-17 Kim F. Storm <storm@cua.dk>
+2008-04-06 Jason Rumney <jasonr@gnu.org>
- * ido.el (ido-read-internal): Use only nondirectory part of
- default item.
+ * language/burmese.el ("Burmese"): Make sample text consistent with
+ language name.
-2006-05-17 Thien-Thi Nguyen <ttn@gnu.org>
+2008-04-06 Nick Roberts <nickrob@snap.net.nz>
- * emacs-lisp/ewoc.el (ewoc-data): Add docstring.
- (ewoc-nth): Doc fix.
+ * progmodes/gdb-ui.el (gdb): New group.
+ (gdb-debug-log-max, gdb-enable-debug)
+ (gdb-cpp-define-alist-program, gdb-cpp-define-alist-flags)
+ (gdb-show-main, gdb-many-windows, gdb-use-separate-io-buffer)
+ (gdb-speedbar-auto-raise, gdb-use-colon-colon-notation)
+ (gdb-show-changed-values, gdb-max-children)
+ (gdb-delete-out-of-scope, gdb-same-frame, gdb-find-source-frame)
+ (breakpoint-enabled, breakpoint-disabled, gdb-max-frames)
+ (gdb-all-registers, gdb-memory-repeat-count, gdb-memory-format)
+ (gdb-memory-unit): Move to new group from GUD group.
+ (menu): Allow customization from GDB-UI menu-item.
- (ewoc-map, ewoc-invalidate): Compute PP before looping.
+2008-04-05 Chong Yidong <cyd@stupidchicken.com>
-2006-05-16 Eli Zaretskii <eliz@gnu.org>
+ * dired-aux.el (dired-overwrite-confirmed): Supply initial value.
- * international/mule.el (auto-coding-alist): Add .lha to files
- read with no-conversion.
+2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
- * files.el (auto-mode-alist): Add .lha files to archive file
- extensions.
+ * vc-bzr.el (vc-bzr-log-view-mode, vc-bzr-annotate-command)
+ (vc-bzr-annotate-time, vc-bzr-annotate-extract-revision-at-line):
+ Revision numbers can include ".".
- * arc-mode.el (archive-arc-summarize, archive-lzh-summarize):
- Convert csize to integer when computing offsets within the
- compressed archive file.
+ * diff-mode.el (diff-end-of-hunk): Be careful not to overlook trailing
+ "+" lines not accounted for by counting "-" and context lines.
-2006-05-16 Kim F. Storm <storm@cua.dk>
+2008-04-05 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
- * subr.el (add-to-history): Add KEEP-ALL arg and align functionality
- with read-from-minibuffer.
+ * term/mac-win.el (mac-service-open-file): Use file URL instead of
+ file name string.
-2006-05-16 Reiner Steib <Reiner.Steib@gmx.de>
+2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
- * emacs-lisp/bytecomp.el (byte-compile-warnings-safe-p): New function.
- (byte-compile-warnings): Fix safe-local-variable property.
+ * vc-bzr.el (vc-bzr-annotate-command): Preserve line alignment.
+ (vc-bzr-annotate-time): Accept space used to preserve alignment.
-2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
+2008-04-05 Richard Stallman <rms@gnu.org>
- * allout.el (allout-show-bodies, allout-old-style-prefixes)
- (allout-stylish-prefixes, allout-numbered-bullet)
- (allout-file-xref-bullet, allout-use-hanging-indents): Use simple
- predicates to qualify `safe-local-variable' property, when
- available, else use equivalent lambda.
- (allout-current-topic-collapsed-p): Do the right thing regarding
- trailing blank lines.
+ * emacs-lisp/advice.el (defadvice): Add usage pattern.
-2006-05-16 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-04-05 Nick Roberts <nickrob@snap.net.nz>
- * server.el (server-start): Only create a directory if needed.
- (server-edit, server-unload-hook): server-start => server-mode.
- (kill-emacs-hook): Cleanup upon exit.
+ * progmodes/gdb-ui.el: Add advice about using Cygwin GDB (from a
+ thread in [h-e-w]).
-2006-05-15 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-04-05 Juanma Barranquero <lekktu@gmail.com>
+
+ * files.el (abort-if-file-too-large): Fix typo in docstring.
+
+2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * subr.el (functionp): Return nil for special forms.
+
+2008-04-05 Glenn Morris <rgm@gnu.org>
+
+ * emacs-lisp/autoload.el (autoload-ensure-default-file):
+ Provide a feature.
+ * calendar/calendar.el, calendar/diary-lib.el, calendar/holidays.el:
+ Require loaddef file rather than loading it.
+ * Makefile.in ($(lisp)/mh-e/mh-loaddefs.el): Simplify rule now that
+ autoload-ensure-default-file provides a feature.
+
+ * Makefile.in (LOADDEFS): Add mh-loaddefs.el.
+ (AUTOGENEL): mh-loaddefs is in $LOADDEFS now.
+ (compile, compile-always, recompile): Use $LOADDEFS.
+ (cal-autoloads): Remove.
+
+ * calendar/cal-x.el (calendar-dedicate-diary): Use get-buffer rather
+ than buffer-live-p. Reported by David Koppelman <koppel@ece.lsu.edu>.
+
+ * calendar/calendar.el (hebrew-holidays-1, hebrew-holidays-2)
+ (hebrew-holidays-3, hebrew-holidays-4): Don't autoload obsolescence.
+
+ * calendar/calendar.el (diary-hebrew-entry-symbol):
+ Rename hebrew-diary-entry-symbol. Keep old name as alias.
+ (diary-islamic-entry-symbol): Rename islamic-diary-entry-symbol.
+ Keep old name as alias.
+ (diary-bahai-entry-symbol): Rename bahai-diary-entry-symbol.
+ Keep old name as alias.
+ * calendar/cal-bahai.el: Update for rename bahai-diary-entry-symbol
+ to diary-bahai-entry-symbol.
+ * calendar/cal-hebrew.el: Update for rename hebrew-diary-entry-symbol
+ to diary-hebrew-entry-symbol.
+ * calendar/cal-islam.el: Update for rename islamic-diary-entry-symbol
+ to diary-islamic-entry-symbol.
+ * calendar/diary-lib.el: Update for diary-entry-symbol renames.
+
+ * calendar/solar.el (diary-sabbath-candles-minutes)
+ (diary-sabbath-candles): Move to cal-hebrew.
+ * calendar/cal-hebrew.el (diary-hebrew-sabbath-candles-minutes)
+ (diary-hebrew-sabbath-candles): Move here from solar.el and rename.
+ Doc fix. Keep old name as alias.
+ (diary-hebrew-sabbath-candles): Simplify.
+ (solar-setup, solar-sunrise-sunset, calendar-latitude)
+ (calendar-longitude, calendar-time-zone): Declare for compiler.
+ * calendar/diary-lib.el (list-sexp-diary-entries): Update doc for
+ rename.
+
+ * calendar/cal-coptic.el (calendar-coptic-month-name-array):
+ Rename coptic-calendar-month-name-array. Update callers.
+ (calendar-coptic-epoch): Rename coptic-calendar-epoch. Update callers.
+ (calendar-coptic-name): Rename coptic-name. Update callers.
+ (calendar-coptic-leap-year-p): Rename coptic-calendar-leap-year-p.
+ Update callers.
+ (calendar-coptic-last-day-of-month):
+ Rename coptic-calendar-last-day-of-month. Update callers.
+ (calendar-coptic-to-absolute): Rename calendar-absolute-from-coptic.
+ Keep old name as alias, update callers.
+ (calendar-coptic-print-date): Rename calendar-print-coptic-date.
+ Keep old name as alias, update callers.
+ (calendar-coptic-goto-date): Rename calendar-goto-coptic-date.
+ Keep old name as alias.
+ (calendar-ethiopic-month-name-array):
+ Rename ethiopic-calendar-month-name-array. Update callers.
+ (calendar-ethiopic-epoch): Rename ethiopic-calendar-epoch.
+ Update callers.
+ (calendar-ethiopic-name): Rename ethiopic-name. Update callers.
+ (calendar-ethiopic-to-absolute): Rename calendar-absolute-from-ethiopic.
+ Keep old name as alias, update callers.
+ (calendar-ethiopic-print-date): Rename calendar-print-ethiopic-date.
+ Keep old name as alias, update callers.
+ (calendar-ethiopic-goto-date): Rename calendar-goto-ethiopic-date.
+ Keep old name as alias.
+
+ * calendar/cal-french.el (calendar-french-epoch):
+ Rename french-calendar-epoch. Update callers.
+ (calendar-french-month-name-array): Rename variable and function
+ french-calendar-month-name-array. Update callers.
+ (calendar-french-multibyte-month-name-array):
+ Rename french-calendar-multibyte-month-name-array. Update callers.
+ (calendar-french-day-name-array): Rename variable and function
+ french-calendar-day-name-array. Update callers.
+ (calendar-french-special-days-array): Rename variable and function
+ french-calendar-special-days-array. Update callers.
+ (calendar-french-multibyte-special-days-array):
+ Rename french-calendar-multibyte-special-days-array. Update callers.
+ (calendar-french-accents-p): Rename french-calendar-accents.
+ Update callers.
+ (calendar-french-leap-year-p): Rename french-calendar-leap-year-p.
+ Update callers.
+ (calendar-french-last-day-of-month):
+ Rename french-calendar-last-day-of-month. Update callers.
+ (calendar-french-to-absolute): Rename calendar-absolute-from-french.
+ Keep old name as alias, update callers.
+ (calendar-french-print-date): Rename calendar-print-french-date.
+ Keep old name as alias, update callers.
+ (calendar-french-goto-date): Rename calendar-goto-french-date.
+ Keep old name as alias.
+
+ * calendar/cal-menu.el, calendar/calendar.el:
+ Update for Coptic and French name changes.
+
+ * calendar/cal-china.el (calendar-chinese): Rename custom group
+ from chinese-calendar. Update users.
+ (calendar-chinese-time-zone): Rename chinese-calendar-time-zone.
+ Keep old name as alias, update users.
+ (calendar-chinese-location-name): Rename chinese-calendar-location-name.
+ Keep old name as alias.
+ (calendar-chinese-daylight-time-offset):
+ Rename chinese-calendar-daylight-time-offset. Keep old name as alias,
+ update users.
+ (calendar-chinese-standard-time-zone-name):
+ Rename chinese-calendar-standard-time-zone-name.
+ Keep old name as alias, update users.
+ (calendar-chinese-daylight-saving-start):
+ Rename chinese-calendar-daylight-savings-starts.
+ Keep old name as alias, update users.
+ (calendar-chinese-daylight-saving-end):
+ Rename chinese-calendar-daylight-savings-ends. Keep old name as alias,
+ update users.
+ (calendar-chinese-daylight-saving-start-time):
+ Rename chinese-calendar-daylight-savings-starts-time.
+ Keep old name as alias, update users.
+ (calendar-chinese-daylight-saving-end-time):
+ Rename chinese-calendar-daylight-savings-ends-time.
+ Keep old name as alias, update users.
+ (calendar-chinese-celestial-stem): Rename
+ calendar-chinese-celestial-stem. Keep old name as alias, update users.
+ (calendar-chinese-terrestrial-branch):
+ Rename calendar-chinese-terrestrial-branch. Keep old name as alias,
+ update users.
+ (calendar-chinese-zodiac-sign-on-or-after):
+ Rename chinese-zodiac-sign-on-or-after. Update callers.
+ (calendar-chinese-new-moon-on-or-after):
+ Rename chinese-new-moon-on-or-after. Update callers.
+ (calendar-chinese-month-list): Rename chinese-month-list.
+ Update callers.
+ (calendar-chinese-number-months): Rename number-chinese-months.
+ Update callers.
+ (calendar-chinese-compute-year): Rename compute-chinese-year.
+ Update callers.
+ (calendar-chinese-year-cache): Rename chinese-year-cache. Update users.
+ (calendar-chinese-year): Rename chinese-year. Update callers.
+ (calendar-chinese-year-cache-init): Rename chinese-year-cache-init.
+ (calendar-chinese-to-absolute): Rename calendar-absolute-from-chinese.
+ Keep old name as alias, update callers.
+ (calendar-chinese-print-date): Rename calendar-print-chinese-date.
+ Keep old name as alias, update callers.
+ (calendar-chinese-months-to-alist):
+ Rename make-chinese-month-assoc-list. Update callers.
+ (calendar-chinese-months): Rename chinese-months. Update callers.
+ (calendar-chinese-goto-date): Rename calendar-goto-chinese-date.
+ Keep old name as alias, update callers.
+
+ * calendar/cal-hebrew.el (calendar-hebrew-leap-year-p):
+ Rename hebrew-calendar-leap-year-p. Update callers.
+ (calendar-hebrew-last-month-of-year):
+ Rename hebrew-calendar-last-month-of-year. Update callers.
+ (calendar-hebrew-elapsed-days): Rename hebrew-calendar-elapsed-days.
+ Update callers.
+ (calendar-hebrew-days-in-year): Rename hebrew-calendar-days-in-year.
+ Update callers.
+ (calendar-hebrew-long-heshvan-p): Rename hebrew-calendar-long-heshvan-p.
+ Update callers.
+ (calendar-hebrew-short-kislev-p): Rename hebrew-calendar-short-kislev-p.
+ Update callers.
+ (calendar-hebrew-last-day-of-month):
+ Rename hebrew-calendar-last-day-of-month. Update callers.
+ (calendar-hebrew-to-absolute): Rename calendar-absolute-from-hebrew.
+ Keep old name as alias, update callers.
+ (calendar-hebrew-print-date): Rename calendar-print-hebrew-date.
+ Keep old name as alias, update callers.
+ (calendar-hebrew-yahrzeit): Rename hebrew-calendar-yahrzeit.
+ Keep old name as alias, update callers.
+ (calendar-hebrew-goto-date): Rename calendar-goto-hebrew-date.
+ Keep old name as alias.
+ (holiday-hebrew-rosh-hashanah): Rename holiday-rosh-hashanah-etc.
+ Keep old name as alias.
+ (holiday-hebrew-hanukkah): Rename holiday-hanukkah.
+ Keep old name as alias.
+ (holiday-hebrew-passover): Rename holiday-passover-etc.
+ Keep old name as alias.
+ (holiday-hebrew-tisha-b-av): Rename holiday-tisha-b-av-etc.
+ Keep old name as alias, update callers.
+ (diary-hebrew-list-entries): Rename list-hebrew-diary-entries.
+ Keep old name as alias.
+ (calendar-hebrew-mark-date-pattern):
+ Rename mark-hebrew-calendar-date-pattern. Keep old name as alias,
+ update callers.
+ (diary-hebrew-mark-entries): Rename mark-hebrew-diary-entries.
+ Keep old name as alias.
+ (diary-hebrew-insert-entry): Rename insert-hebrew-diary-entry.
+ Keep old name as alias.
+ (diary-hebrew-insert-monthly-entry):
+ Rename insert-monthly-hebrew-diary-entry. Keep old name as alias.
+ (diary-hebrew-insert-yearly-entry):
+ Rename insert-yearly-hebrew-diary-entry. Keep old name as alias.
+ (calender-hebrew-list-yahrzeits): Rename list-yahrzeit-dates.
+ Keep old name as alias.
+ (diary-hebrew-omer): Rename diary-omer. Keep old name as alias.
+ (diary-hebrew-yahrzeit): Rename diary-yahrzeit. Keep old name as alias.
+ (diary-hebrew-rosh-hodesh): Rename diary-rosh-hodesh.
+ Keep old name as alias.
+ (calendar-hebrew-parashiot-names):
+ Rename hebrew-calendar-parashiot-names. Update callers.
+ (calendar-hebrew-parasha-name): Rename hebrew-calendar-parasha-name.
+ (calendar-hebrew-year-Saturday-incomplete-Sunday):
+ Rename hebrew-calendar-year-Saturday-incomplete-Sunday.
+ (calendar-hebrew-year-Saturday-complete-Tuesday):
+ Rename hebrew-calendar-year-Saturday-complete-Tuesday.
+ (calendar-hebrew-year-Monday-incomplete-Tuesday):
+ Rename hebrew-calendar-year-Monday-incomplete-Tuesday.
+ (calendar-hebrew-year-Monday-complete-Thursday):
+ Rename hebrew-calendar-year-Monday-complete-Thursday.
+ (calendar-hebrew-year-Tuesday-regular-Thursday):
+ Rename hebrew-calendar-year-Tuesday-regular-Thursday.
+ (calendar-hebrew-year-Thursday-regular-Saturday):
+ Rename hebrew-calendar-year-Thursday-regular-Saturday.
+ (calendar-hebrew-year-Thursday-complete-Sunday):
+ Rename hebrew-calendar-year-Thursday-complete-Sunday.
+ (calendar-hebrew-year-Saturday-incomplete-Tuesday):
+ Rename hebrew-calendar-year-Saturday-incomplete-Tuesday.
+ (calendar-hebrew-year-Saturday-complete-Thursday):
+ Rename hebrew-calendar-year-Saturday-complete-Thursday.
+ (calendar-hebrew-year-Monday-incomplete-Thursday):
+ Rename hebrew-calendar-year-Monday-incomplete-Thursday.
+ (calendar-hebrew-year-Monday-complete-Saturday):
+ Rename hebrew-calendar-year-Monday-complete-Saturday.
+ (calendar-hebrew-year-Tuesday-regular-Saturday):
+ Rename hebrew-calendar-year-Tuesday-regular-Saturday.
+ (calendar-hebrew-year-Thursday-incomplete-Sunday):
+ Rename hebrew-calendar-year-Thursday-incomplete-Sunday.
+ (calendar-hebrew-year-Thursday-complete-Tuesday):
+ Rename hebrew-calendar-year-Thursday-complete-Tuesday.
+ (diary-hebrew-parasha): Rename diary-parasha. Keep old name as alias.
+ Update for above name changes of constants.
+
+ * calendar/cal-menu.el, calendar/calendar.el:
+ Update for chinese and hebrew name changes.
+ * calendar/diary-lib.el: Update for hebrew name changes.
+
+2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * subr.el (keymap-canonicalize): Correct thinko.
+
+ * server.el: Undo part of the multi-tty change, which is only
+ needed if server.el is preloaded, and broke server-running-p.
+ (server-socket-dir): Initialize in the defvar, as before.
+ (server-start): Remove initialization of server-socket-dir.
+
+2008-04-05 Eli Zaretskii <eliz@gnu.org>
+
+ * ls-lisp.el (ls-lisp-format): Support inodes that are 2- or
+ 3-member cons cells.
+
+2008-04-05 Chong Yidong <cyd@stupidchicken.com>
+
+ * cus-face.el (custom-face-attributes): Handle roman slant.
+
+ * faces.el (default): Ensure the face-defface-spec property is set.
+
+2008-04-05 Adrian Robert <Adrian.B.Robert@gmail.com>
+
+ * files.el (abort-if-file-too-large): New function.
+ (find-file-noselect, insert-file-1): Use it.
+
+2008-04-05 Reto Zimmermann <reto@gnu.org>
+
+ * progmodes/vhdl-mode.el (vhdl-mode-map-init):
+ Replace C-c[a-zA-Z] key bindings.
+
+2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * progmodes/hideif.el (hif-token-alist): New var.
+ (hif-token-regexp, hif-tokenize): Use it.
+ (hif-mathify-binop): New macro.
+ (hif-plus, hif-minus, hif-notequal, hif-greater, hif-less)
+ (hif-greater-equal, hif-less-equal): Use it.
+ (hif-logior, hif-logand): New functions.
+ (hif-math): Accept | and & as well.
+
+ * progmodes/etags.el: Fix problem with completion for buffer-local
+ tables. Reported by Radey Shouman <shouman@comcast.net>.
+ (tags-complete-tag): Remove.
+ (tags-lazy-completion-table): New function to replace it.
+ (find-tag-tag, complete-tag): Update users.
+
+2008-04-04 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-rcs.el (vc-rcs-dir-status):
+ * vc-sccs.el (vc-sccs-dir-status): New function.
+
+ * outline.el (outline-mode-menu-bar-map):
+ * term.el (terminal-signal-menu): Add :help.
+
+ * net/eudc.el (eudc-mode-map): Declare and define in one step.
+ (eudc-tail-menu, eudc-server-menu, eudc-tools-menu): Add :help.
+
+ * emacs-lisp/re-builder.el (reb-mode-map):
+ * textmodes/nroff-mode.el (nroff-mode-map): Add menus.
+
+ * diff-mode.el (diff-file-junk-re): Recognize the git format for
+ new files, deleted files and for changing permissions.
+ (diff-mode): Set beginning-of-defun-function and
+ end-of-defun-function.
- * hexl.el (hexlify-buffer): Encode process arguments manually.
+ * vc-bzr.el (vc-bzr-state): Use when instead of if.
-2006-05-16 Nick Roberts <nickrob@snap.net.nz>
+ * vc.el (vc-default-status-fileinfo-extra): New function.
+ (vc-status-mark-buffer-changed): Use it.
+ (vc-update-vc-status-buffer): Allow for partial updates.
- * progmodes/gud.el (gud-tooltip-tips): Add missing argument to
- call to gdb-tooltip-print.
+2008-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-15 Romain Francoise <romain@orebokech.com>
+ * net/tramp.el (after-init-hook): Don't wrap a lambda around
+ tramp-register-completion-file-name-handler.
- * dired-x.el (dired-guess-shell-gnutar): On GNU and GNU/Linux
- systems, default to "tar" since those systems probably have GNU tar.
+ * subr.el (keymap-canonicalize): New function.
+ * mouse.el (mouse-menu-non-singleton): Use it.
+ (mouse-major-mode-menu): Remove hack made unnecessary.
-2006-05-14 Lars Hansen <larsh@soem.dk>
+ * simple.el (set-fill-column): Prompt rather than error by default.
- * desktop.el (desktop-missing-file-warning): Fix docstring.
- (desktop-restore-file-buffer): Correct question asked on missing file.
+2008-04-04 Andreas Schwab <schwab@suse.de>
-2006-05-14 Kim F. Storm <storm@cua.dk>
+ * calendar/cal-dst.el (calendar-time-zone-daylight-rules):
+ Reset new-rules after each round.
- * progmodes/cc-subword.el (c-forward-subword, c-backward-subword):
- Add CUA move property.
+ * Makefile.in (cal-autoloads): New target.
+ (compile, compile-always, recompile): Depend on it.
+ ($(lisp)/calendar/cal-loaddefs.el)
+ ($(lisp)/calendar/diary-loaddefs.el)
+ ($(lisp)/calendar/hol-loaddefs.el): Depend on calendar/*.el.
-2006-05-13 Chong Yidong <cyd@stupidchicken.com>
+2008-04-04 Michael Kifer <kifer@cs.stonybrook.edu>
- * custom.el (custom-push-theme): Load the variable before checking
- its `standard-value'.
+ * ediff*.el: Replace load with require in eval-when-compile.
-2006-05-13 Lars Hansen <larsh@soem.dk>
+ * ediff-hook: Delete all invocations of (autoload ...).
- * desktop.el (desktop-save): Use with-temp-buffer.
+ * ediff-util.el (ediff-setup): Make window-min-height a local variable
+ in ediff control window, and set its min height to 2.
+ (ediff-setup-control-buffer): Dedicate the control window.
+ (ediff-toggle-multiframe): Undedicate control window.
+ Work directly with ediff-setup-windows-multiframe and
+ ediff-setup-windows-plain.
-2006-05-12 Glenn Morris <rgm@gnu.org>
+ * ediff-wind (ediff-choose-window-setup-function-automatically):
+ New function.
+ (ediff-window-setup-function): Change initialization.
+ (ediff-setup-windows-automatic): Delete.
+ (ediff-setup-windows-plain-merge): Make control window dedicated.
+ (ediff-destroy-control-frame): Do not skip frames if working in a
+ single frame.
- * calendar/cal-menu.el (calendar-mode-map, calendar-mouse-3-map):
- * calendar/calendar.el (calendar-mode-map):
- * calendar/diary-lib.el (include-other-diary-files, diary-mail-entries):
- * calendar/appt.el (appt-check, appt-make-list): Refer to
- diary-view-entries, diary-list-entries, diary-show-all-entries
- rather than obsolete aliases.
+ * emulation/viper-ex.el: Move provide's forward, prevent recursion in
+ eval-when-compile.
-2006-05-12 Chong Yidong <cyd@stupidchicken.com>
+ * emulation/viper-util.el: Move provide's forward, prevent recursion in
+ eval-when-compile.
- * simple.el (line-move-finish): Avoid calling point motion hooks
- while processing intangibility.
+2008-04-04 Glenn Morris <rgm@gnu.org>
+
+ * calendar/cal-bahai.el (calendar-bahai-to-absolute): Rename
+ calendar-absolute-from-bahai. Update callers, keep old name as alias.
+
+ * calendar/cal-islam.el (calendar-islamic-leap-year-p):
+ Rename islamic-calendar-leap-year-p. Update callers.
+ (calendar-islamic-last-day-of-month):
+ Rename islamic-calendar-last-day-of-month. Update callers.
+ (calendar-islamic-day-number):
+ Rename islamic-calendar-day-number. Update callers.
+ (calendar-islamic-to-absolute): Rename calendar-absolute-from-islamic.
+ Update callers, keep old name as alias.
+ (calendar-islamic-print-date): Rename calendar-print-islamic-date.
+ Update callers, keep old name as alias.
+ (calendar-islamic-goto-date): Rename calendar-goto-islamic-date.
+ Keep old name as alias.
+ (diary-islamic-list-entries): Rename list-islamic-diary-entries.
+ Update callers, keep old name as alias.
+ (calendar-islamic-mark-date-pattern):
+ Rename mark-islamic-calendar-date-pattern. Update callers, keep old
+ name as alias.
+ (diary-islamic-insert-entry): Rename insert-islamic-diary-entry.
+ Keep old name as alias.
+ (diary-islamic-insert-monthly-entry):
+ Rename insert-monthly-islamic-diary-entry. Keep old name as alias.
+ (diary-islamic-insert-yearly-entry):
+ Rename insert-yearly-islamic-diary-entry. Keep old name as alias.
+
+ * calendar/cal-iso.el (calendar-iso-to-absolute): Rename
+ calendar-absolute-from-iso. Update callers, keep old name as alias.
+ (calendar-iso-print-date): Rename calendar-print-iso-date.
+ Update callers, keep old name as alias.
+ (calendar-iso-goto-date): Rename calendar-goto-iso-date.
+ Keep old name as alias.
+ (calendar-iso-goto-week): Rename calendar-goto-iso-week.
+ Keep old name as alias.
+
+ * calendar/cal-julian.el (calendar-julian-to-absolute): Rename
+ calendar-absolute-from-julian. Update callers, keep old name as alias.
+ (calendar-julian-print-date): Rename calendar-print-julian-date.
+ Update callers, keep old name as alias.
+ (calendar-julian-goto-date): Rename calendar-goto-julian-date.
+ Update callers, keep old name as alias.
+ (calendar-astro-to-absolute): Rename calendar-absolute-from-astro.
+ Update callers, keep old name as alias.
+ (calendar-astro-print-day-number):
+ Rename calendar-print-astro-day-number. Update callers, keep old
+ name as alias.
+ (calendar-astro-goto-day-number): Rename calendar-goto-astro-day-number.
+ Update callers, keep old name as alias.
+
+ * calendar/cal-mayan.el (calendar-mayan-string-from-long-count):
+ Rename calendar-string-to-mayan-long-count. Update callers.
+ (calendar-mayan-print-date): Rename calendar-print-mayan-date.
+ Update callers, keep old name as alias.
+ (calendar-mayan-read-haab-date): Rename calendar-read-mayan-haab-date.
+ Update callers.
+ (calendar-mayan-read-tzolkin-date):
+ Rename calendar-read-mayan-tzolkin-date. Update callers.
+ (calendar-mayan-next-haab-date): Rename calendar-next-haab-date.
+ Keep old name as alias.
+ (calendar-mayan-previous-haab-date): Rename calendar-previous-haab-date.
+ Keep old name as alias.
+ (calendar-mayan-next-tzolkin-date): Rename calendar-next-tzolkin-date.
+ Keep old name as alias.
+ (calendar-mayan-previous-tzolkin-date):
+ Rename calendar-previous-tzolkin-date. Keep old name as alias.
+ (calendar-mayan-next-round-date):
+ Rename calendar-next-calendar-round-date. Keep old name as alias.
+ (calendar-mayan-previous-round-date):
+ Rename calendar-previous-calendar-round-date. Keep old name as alias.
+ (calendar-mayan-long-count-to-absolute): Rename
+ calendar-absolute-from-mayan-long-count. Keep old name as alias.
+ (calendar-mayan-goto-long-count-date):
+ Rename calendar-goto-mayan-long-count-date. Keep old name as alias.
+
+ * calendar/cal-persia.el (calendar-persian-month-name-array):
+ Rename persian-calendar-month-name-array. Update callers.
+ (calendar-persian-epoch): Rename persian-calendar-epoch.
+ Update callers.
+ (calendar-persian-leap-year-p): Rename persian-calendar-leap-year-p.
+ Update callers.
+ (calendar-persian-last-day-of-month):
+ Rename persian-calendar-last-day-of-month. Update callers.
+ (calendar-persian-to-absolute): Rename calendar-absolute-from-persian.
+ Update callers, keep old name as alias.
+ (calendar-persian-print-date): Rename calendar-print-persian-date.
+ Update callers, keep old name as alias.
+ (calendar-persian-goto-date): Rename calendar-goto-persian-date.
+ Keep old name as alias.
+
+ * calendar/cal-china.el, calendar/cal-coptic.el, calendar/cal-islam.el:
+ * calendar/cal-persia.el, calendar/holidays.el, calendar/lunar.el:
+ * calendar/solar.el: Update for cal-julian name changes.
+
+ * calendar/cal-dst.el: Update for persian name changes.
+
+ * calendar/cal-menu.el, calendar/calendar.el:
+ Update for islamic, iso, julian, mayan, persian name changes.
+
+ * calendar/diary-lib.el: Update for islamic name changes.
+
+ * calendar/calendar.el (calendar-hebrew-all-holidays-flag):
+ Rename all-hebrew-calendar-holidays. Update callers, keep old name
+ as alias.
+ (calendar-christian-all-holidays-flag):
+ Rename all-christian-calendar-holidays. Update callers, keep old
+ name as alias.
+ (calendar-islamic-all-holidays-flag):
+ Rename all-islamic-calendar-holidays. Update callers, keep old
+ name as alias.
+ (calendar-bahai-all-holidays-flag): Rename all-bahai-calendar-holidays.
+ Update callers, keep old name as alias.
+ * calendar/cal-bahai.el, calendar/cal-hebrew.el, calendar/holidays.el:
+ Update for the above name changes.
+
+2008-04-04 Juanma Barranquero <lekktu@gmail.com>
+
+ * hilit-chg.el (global-highlight-changes-mode)
+ (highlight-changes-passive-string, highlight-changes-active-string):
+ Mark as obsolete since 23.1, not 22.1.
+
+2008-04-03 Juanma Barranquero <lekktu@gmail.com>
+
+ * hilit-chg.el (highlight-changes-visibility-initial-state)
+ (hilit-chg-update, highlight-changes-mode-turn-on):
+ Fix typos in docstrings.
-2006-05-12 Dan Nicolaescu <dann@ics.uci.edu>
+2008-04-03 Stephen Berman <Stephen.Berman@gmx.net>
- * term/xterm.el (terminal-init-xterm): Fix typo.
+ * newcomment.el (comment-enter-backward): Be careful to restore
+ position changed during narrowing.
-2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
+2008-04-03 Giuliano Procida <giuliano.procida@googlemail.com> (tiny change)
- * allout.el (allout-view-change-hook): Mark as being deprecated,
- to be replaced by `allout-exposure-change-hook'.
- (allout-exposure-change-hook): New, replacing
- `allout-view-change-hook'.
- (allout-flag-region): Run new hook `allout-exposure-change-hook',
- in addition to `allout-view-change-hook'.
- (allout-show-bodies, allout-old-style-prefixes)
- (allout-stylish-prefixes, allout-use-hanging-indents): Quote the
- lambda forms to prevent their showing up in variable help
- presentations as inscrutable byte-compiled code.
- (allout-numbered-bullet, allout-file-xref-bullet, allout-layout):
- Use string-or-null-p to qualify safe-local-variable values.
- (allout-reindent-bodies): Use memq to qualify matches against
- valid safe-local-variable values. Also, quote the lambda as above.
- (allout-use-mode-specific-leader): Add missing candidate-value
- symbols, use memq, and quote the lambda.
- (allout-overlay-interior-modification-handler): Remove unused
- variables `msg' and 'opened'.
- (allout-hidden-p): Constrain invisibility consideration to allout's
- invisibility spec, disregarding invisibility for other reasons.
+ * progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
+ Recognize `sub ($$)'.
+
+2008-04-03 Richard Sharman <rsharman@pobox.com>
+
+ * hilit-chg.el (highlight-changes-mode): Rename from
+ highlight-changes; no longer uses sub-modes active and passive;
+ implemented by define-minor-mode.
+ (highlight-changes-toggle-visibility): New function, to replace
+ the old passive/active submodes of global-highlight-changes-mode;
+ implemented by define-minor-mode.
+ (global-highlight-changes-mode): Rename from global-highlight-changes;
+ rewrite using define-globalized-minor-mode.
+ (hilit-chg-major-mode-hook, hilit-chg-check-global)
+ (hilit-chg-post-command-hook, hilit-chg-check-global)
+ (hilit-chg-update-all-buffers, hilit-chg-turn-off-maybe): Remove due
+ to use of define-globalized-minor-mode.
+ (highlight-changes-global-initial-state): Change to be boolean.
+ (highlight-changes-visible-string, highlight-changes-invisible-string):
+ Rename from highlight-changes-active-string and
+ highlight-changes-passive-string.
+ (hilit-chg-update, hilit-chg-set): Use them.
+ (global-highlight-changes-mode): Rename from global-highlight-changes.
+ (hilit-chg-map-changes, hilit-chg-display-changes): Add arguments to
+ docstring.
+ (hilit-chg-hide-changes): Rewrite to use dolist.
+ (hilit-chg-set-face-on-change, hilit-chg-update)
+ (highlight-changes-rotate-faces): Use highlight-changes-visible-mode
+ variable instead of testing highlight-changes-mode.
+ (highlight-markup-buffers): Add require ediff-util; argument on calls
+ to highlight-changes-mode changed.
+ (highlight-compare-with-file): Fix problems with interactive
+ call giving invalid default file.
-2006-05-12 Reiner Steib <Reiner.Steib@gmx.de>
+2008-04-03 Nick Roberts <nickrob@snap.net.nz>
- * files.el (version-control): Correct safe values.
+ * progmodes/gdb-ui.el (gdb-mouse-set-clear-breakpoint):
+ Fix in disassembly buffer (regression in 22.2).
-2006-05-12 Thien-Thi Nguyen <ttn@gnu.org>
+2008-04-03 Michael Kifer <kifer@cs.stonybrook.edu>
- * emacs-lisp/ewoc.el (ewoc-refresh): Compute PP once before looping.
+ * emulation/viper-macs.el (viper-read-fast-keysequence):
+ Use viper-read-event instead of viper-read-key.
- (ewoc--node-enter-before, ewoc--create-node): Delete funcs.
- (ewoc--insert-new-node): New func.
- Update callers of deleted funcs to use it, instead.
+ * emulation/viper.el (viper-mode): Move the check for fundamental mode.
-2006-05-11 Glenn Morris <rgm@gnu.org>
+ * emulation/viper-utils.el (viper-get-saved-cursor-color-in-insert-mode)
+ (viper-get-saved-cursor-color-in-replace-mode): Get rid of redundant
+ let-statements.
- * calendar/calendar.el (diary-show-all-entries): Do not refer to
- obsolete alias `show-all-diary-entries'.
- (make-diary-entry): Not interactive.
- (cal-tex-cursor-month, cal-tex-cursor-month-landscape)
- (cal-tex-cursor-day, cal-tex-cursor-week, cal-tex-cursor-week2)
- (cal-tex-cursor-week-iso, cal-tex-cursor-week-monday)
- (cal-tex-cursor-filofax-2week, cal-tex-cursor-filofax-week)
- (cal-tex-cursor-year-landscape, cal-tex-cursor-filofax-year)
- (cal-tex-cursor-filofax-daily, cal-tex-cursor-year): Interactive.
+ * emulation/viper-ex.el, emulation/viper-macs.el:
+ * emulation/viper-mous.el:
+ Replace load with require in eval-when-compile.
-2006-05-11 Johan Bockg\e,Ae\e(Brd <bojohan@dd.chalmers.se>
+2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
- * calendar/calendar.el (calendar-french-date-string)
- (calendar-mayan-date-string, calendar-chinese-date-string)
- (calendar-astro-date-string, calendar-iso-date-string)
- (calendar-islamic-date-string, calendar-bahai-date-string)
- (calendar-hebrew-date-string, calendar-coptic-date-string)
- (calendar-ethiopic-date-string, calendar-persian-date-string):
- These functions are not interactive.
+ * files.el (auto-mode-alist): Use archive-mode for Debian packages.
-2006-05-11 Luc Teirlinck <teirllm@auburn.edu>
+ * arc-mode.el (archive-mode-map): Obey mouse-1-click-follows-link.
+ (archive-try-jka-compr): New function.
+ (archive-set-buffer-as-visiting-file): Use it.
- * files.el: Balance parentheses.
+ * tar-mode.el (tar-mode-map): Obey mouse-1-click-follows-link.
-2006-05-11 Reiner Steib <Reiner.Steib@gmx.de>
+2008-04-03 Chong Yidong <cyd@stupidchicken.com>
- * files.el, newcomment.el, outline.el, simple.el,
- * emacs-lisp/bytecomp.el, progmodes/cc-compat.el,
- * progmodes/cc-vars.el, progmodes/compile.el:
- Move `safe-local-variable' declarations to the respective files.
+ * simple.el (handle-shift-selection): New arg.
- * help-fns.el (describe-variable): Don't print safe-var if it is
- byte-code. Improve wording as suggested by Luc Teirlinck.
+2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-11 Nick Roberts <nickrob@snap.net.nz>
+ * emacs-lisp/cl-macs.el (defsetf): Accept a lambda for the 2-arg form.
- * progmodes/gdb-ui.el (gdb-reset): Update speedbar if necessary.
- (gdb-var-evaluate-expression-handler, gdb-var-update-handler):
- Use a token for pending-triggers to ensure gdb-var-update
- gets called once per user input again for pre-GDB 6.4.
- (gdb-var-delete): Match on more complex expressions.
- (gdb-var-list-children-handler, gdb-var-create-handler):
- Use a token for consistency.
+ * vc-bzr.el (vc-bzr-previous-revision, vc-bzr-next-revision): New funs.
-2006-05-11 Carsten Dominik <dominik@science.uva.nl>
+2008-04-03 Chong Yidong <cyd@stupidchicken.com>
- * textmodes/org.el (org-read-date, org-goto-calendar)
- (org-agenda-goto-calendar):
- Bind `view-calendar-holidays-initially' to nil.
+ * shell.el (shell-dynamic-complete-filename): New fun.
+ (shell-dynamic-complete-functions): Use it.
-2006-05-11 Thien-Thi Nguyen <ttn@gnu.org>
+ * help-fns.el (describe-variable): Undo 2008-02-25 change.
- * emacs-lisp/ewoc.el (ewoc--refresh-node): No longer save-excursion.
- Update all callers to do it there, instead.
+2008-04-03 Kenichi Handa <handa@m17n.org>
-2006-05-10 Glenn Morris <rgm@gnu.org>
+ * international/fontset.el (create-fontset-from-x-resource):
+ Handle the error of X resource more gracefully.
- * calendar/calendar.el (calendar-basic-setup): Set day to 1 in
- prefix arg case, to avoid view-diary-entries-initially error.
- Reported by Stephen Berman <Stephen.Berman at gmx.net>.
- (calendar-date-is-legal-p): Handle dates with no day part.
+ * international/latin1-disp.el (latin1-display): Don't use make-char.
+ Fix the argument to set-char-table-range.
+ (latin1-display-identities): Don't use make-char.
+ (latin1-display-reset): Use map-charset-chars instead of directly
+ calling standard-display-default.
+ (latin1-display-check-font): Don't use make-char.
+ (latin1-display-setup): Likewise.
+ (latin1-display-ucs-per-lynx): Likewise.
-2006-05-11 Nick Roberts <nickrob@snap.net.nz>
+2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
- * comint.el (comint-insert-input): Just make it when
- comint-use-prompt regexp is nil (default) and with the mouse.
- (comint-copy-old-input): Reinstate from 2004-06-23.
- (comint-mode-map): Bind C-c C-m to it.
+ * emacs-lisp/timer.el (timer): Define as a defstruct, so we can
+ name the fields, to make the code clearer.
+ Rewrite all `aset' and `aref' using the defined accessors.
+ (timer--time): New pseudo-field.
+ (timer-set-time, timer-set-idle-time, timer-inc-time)
+ (timer-set-time-with-usecs, with-timeout-suspend): Use it.
+ (timer--time-less-p): New function.
+ (timer--activate): New function, extracted from timer-activate.
+ (timer-activate-when-idle, timer-activate): Use it.
+ (cancel-function-timers): Use dolist.
-2006-05-10 J.D. Smith <jdsmith@as.arizona.edu>
+2008-04-03 Glenn Morris <rgm@gnu.org>
- * progmodes/idlw-shell.el (idlwave-shell-move-or-history):
- Remove spurious move to point-max (new comint behavior fixes).
+ * add-log.el (c-beginning-of-defun, c-end-of-defun):
+ Remove declarations; no longer used.
+ (c-cpp-define-name, c-defun-name): Declare as functions.
- * progmodes/idlwave.el (idlwave-push-mark): Removed obsolete
- compatibility function (Emacs 18/19).
- (idlwave-is-continuation-line): Always return point at start of
- previous non-blank continuation line.
- (keyword-parameters): Fix continued comment font-lock matcher.
- (idlwave-font-lock-fontify-region): Written, use as
- font-lock-fontify-region-function, to fix continued keyword
- fontification issues.
+ * calendar/cal-bahai.el (holiday-fixed): Autoload it.
+ (holiday-bahai-new-year, holiday-bahai-ridvan): New functions.
-2006-05-10 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * calendar/cal-hebrew.el (holiday-rosh-hashanah-etc)
+ (holiday-passover-etc, holiday-hanukkah): Doc fix.
+ Add optional argument. Simplify.
+ (holiday-tisha-b-av-etc): Use memq rather than unless.
+ (holiday-julian): Autoload it.
+ (holiday-hebrew-misc): New function.
- * term/mac-win.el (mac-font-panel-mode): Doc fix.
- (mac-service-selection, mac-service-open-file)
- (mac-service-open-selection, mac-service-mail-selection)
- (mac-service-mail-to, mac-service-insert-text): Rename from
- mac-services-*. All uses changed.
- (mac-apple-event-map): Rename event symbol `services' to `service'.
+ * calendar/cal-islam.el (holiday-islamic-new-year): New function.
-2006-05-10 Thien-Thi Nguyen <ttn@gnu.org>
+ * calendar/calendar.el (hebrew-holidays-1, hebrew-holidays-2)
+ (hebrew-holidays-3, hebrew-holidays-4): Make obsolete.
+ (hebrew-holidays-2): Just use holiday-hanukkah now it respects
+ all-hebrew-calendar-holidays.
+ (hebrew-holidays, christian-holidays, islamic-holidays, bahai-holidays):
+ Simplify using new functions.
+ (calendar-holidays): Doc fix.
+ (generate-calendar-window): Use bound-and-true-p.
- * emacs-lisp/ewoc.el (ewoc--dll-create, ewoc--node-delete)
- (ewoc--node-enter-first, ewoc--node-enter-last)
- (ewoc--delete-node-internal): Merge funcs into unique callers.
+ * calendar/diary-lib.el (diary-mail-addr): Use bound-and-true-p.
-2006-05-09 Chong Yidong <cyd@stupidchicken.com>
+ * calendar/holidays.el (calendar-holiday-list): Fix previous change.
+ (holiday-filter-visible-calendar): Doc fix. Use mapcar.
+ (holiday-easter-etc): Fix nesting of result. Tweak holiday order.
+ Use calendar-date-is-visible-p, not holiday-filter-visible-calendar.
- * emacs-lisp/crm.el (completing-read-multiple): Properly handle
- return value of read-from-minibuffer for empty input.
+ * net/tramp.el (tramp-drop-volume-letter): Move definition before use.
-2006-05-09 Miles Bader <miles@gnu.org>
+2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
- * comint.el (comint-insert-input): Remove redundant calls to setq
- and goto-char.
+ * vc-mtn.el (vc-mtn-command): Avoid localization of messages.
-2006-05-10 Nick Roberts <nickrob@snap.net.nz>
+ * vc-bzr.el (vc-bzr-checkout): Simplify.
- * comint.el (comint-insert-input): Make it work when
- comint-use-prompt-regexp is t.
+ * image-mode.el (image-mode-fit-frame): New command.
-2006-05-10 Miles Bader <miles@gnu.org>
+ * simple.el (beginning-of-buffer, end-of-buffer, goto-line, undo)
+ (copy-region-as-kill, kill-ring-save, use-region-p, mark-word)
+ (keyboard-escape-quit): Check region-active-p i.s.o
+ transient-mark-mode.
- * subr.el (field-at-pos): New function.
+2008-04-02 Simon Josefsson <simon@josefsson.org>
- * comint.el (comint-insert-input): Use it.
+ * net/imap.el (imap-enable-exchange-bug-workaround): New variable.
+ (imap-message-copyuid-1): Use it.
+ (imap-message-appenduid-1): Likewise. Based on patch by Nathan
+ J. Williams in
+ <http://permalink.gmane.org/gmane.emacs.gnus.general/65855>.
-2006-05-09 Juri Linkov <juri@jurta.org>
+2008-04-02 Alan Mackenzie <acm@muc.de>
- * battery.el (battery-linux-proc-acpi): Also try
- `/proc/acpi/thermal_zone/THR2/temperature'.
+ * progmodes/cc-cmds.el (c-defun-name, c-cpp-define-name):
+ New optimised functions to get the name of the current defun/macro.
- * files.el <safe-local-variable>: Remove `eval' and `let' binding
- for now unused lambda `string-or-null'.
+ * add-log.el (add-log-current-defun): Move the functionality which
+ gets the current function name for C like modes to cc-cmds.el,
+ thus optimising for speed.
- * add-log.el (change-log-default-name): Put `string-or-null-p'
- instead of lambda on `safe-local-variable' property.
+2008-04-02 Chong Yidong <cyd@stupidchicken.com>
- * diff-mode.el (diff-context->unified): Use `region-beginning' and
- `region-end' instead of `mark' and `point'.
- (diff-unified->context, diff-reverse-direction, diff-fixup-modifs):
- Operate on region in Transient Mark mode when the mark is active.
- Use `region-beginning' and `region-end' instead of `mark' and
- `point'.
- (diff-hunk-text, diff-goto-source): Doc fix.
+ * simple.el (deactivate-mark): When the mark is temporarily
+ active, restore the original value of transient-mark-mode.
+ (set-mark-command): First deactivate the mark if was temporarily active.
+ (exchange-point-and-mark): Reactivate the mark if it was
+ temporarily active.
+ (handle-shift-selection): New fun.
+ (transient-mark-mode): Move var documentation here from buffer.c.
+ (next-line, previous-line, backward-word, move-end-of-line)
+ (move-beginning-of-line, forward-to-indentation)
+ (backward-to-indentation, back-to-indentation)
+ (beginning-of-buffer, end-of-buffer): Add ^ interactive spec.
- * startup.el (fancy-splash-screens, normal-splash-screen): Use
- face `mode-line-buffer-id' for mode-line buffer face instead of
- hard-coded `(:weight bold)'.
+ * mouse.el (mouse-set-region-1): Save the old value of
+ transient-mark-mode.
+ (mouse-drag-track): Ignore the now-obsolete value `identity' for
+ transient-mark-mode.
- * arc-mode.el (archive-set-buffer-as-visiting-file): Bind
- buffer-undo-list to t (undo-ask is reproducible by visiting
- nested archives).
+ * textmodes/paragraphs.el (forward-paragraph)
+ (backward-paragraph, forward-sentence, backward-sentence): Add ^
+ interactive spec.
-2006-05-09 Kim F. Storm <storm@cua.dk>
+ * emulation/cua-base.el (cua-mode): Turn off shift-select-mode.
- * progmodes/grep.el (rgrep): Set default directory of *grep*
- buffer if we start M-x rgrep in the *grep* buffer and choose
- a different base directory.
+2008-04-02 Michael Albinus <michael.albinus@gmx.de>
-2006-05-09 Michael Albinus <michael.albinus@gmx.de>
+ * net/tramp.el (tramp-make-tramp-temp-file):
+ Use `tramp-drop-volume-letter' for the local file name part.
- * net/tramp.el (tramp-register-file-name-handlers): Enable Tramp
- completion also when ido is loaded.
+2008-04-02 Dan Nicolaescu <dann@ics.uci.edu>
-2006-05-09 Masatake YAMATO <jet@gyve.org>
+ * progmodes/sh-script.el (sh-mode-map): Rename the menu. Add :help.
+ Add menu entries corresponding to all the key bindings.
- * font-lock.el (cpp-font-lock-keywords-source-directives): Addded
- "warning" and "import".
- (cpp-font-lock-keywords): Added "warning".
+ * emacs-lisp/debug.el (debugger-mode-map):
+ * textmodes/conf-mode.el (conf-mode-map): Add a menu.
+ (conf-align-assignments): Only work on the region if it is active.
+ (conf-quote-normal): Use when instead of if. Remove redundant test.
-2006-05-08 Dan Nicolaescu <dann@ics.uci.edu>
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
+ for tracing and re-builder.
- * term/xterm.el (terminal-init-xterm): Add more key bindings.
+2008-04-02 Glenn Morris <rgm@gnu.org>
-2006-05-08 Stefan Monnier <monnier@iro.umontreal.ca>
+ * calendar/appt.el (appt-disp-window-function): Doc fix.
+ (appt-display-message): Move beep before display.
+ (appt-check): Make interactive. Reduce the number of lets.
+ Use string-equal to compare mode-line strings.
+ (appt-disp-window): Pluralize "minute" as needed. Make appt buffer
+ read-only.
+ (appt-select-lowest-window, appt-make-list): Reduce the number of lets.
+ (appt-delete): Simplify.
- * mwheel.el (mwheel-scroll): Make sure that when scrolling multiple
- pages at a time, if we signal the end, we should indeed reach that end.
+ * calendar/cal-china.el (holiday-chinese-new-year): Use a single let.
-2006-05-08 David Reitter <david.reitter@gmail.com>
+ * calendar/cal-dst.el (calendar-time-zone-daylight-rules): Simplify.
- * emacs-lisp/easy-mmode.el (define-minor-mode): Only preserve messages
- output during execution of the body.
+ * calendar/cal-hebrew.el (list-yahrzeit-dates):
+ * calendar/cal-tex.el (cal-tex-insert-blank-days-at-end)
+ (cal-tex-last-blank-p, cal-tex-daily-page): Expand calendar-for-loops.
-2006-05-08 Kim F. Storm <storm@cua.dk>
+ * calendar/calendar.el (diary-entry-marker, calendar-today-marker)
+ (calendar-holiday-marker, mark-visible-calendar-date):
+ * calendar/diary-lib.el (fancy-diary-display):
+ Check for font-lock-mode before using faces.
- * progmodes/grep.el (lgrep, rgrep): Doc fixes.
+ * calendar/calendar.el (hebrew-holidays-3, generate-calendar-month)
+ (calendar-gregorian-from-absolute): Reduce the number of lets.
+ (hebrew-holidays-4, generate-calendar-window): Simplify.
+ (calendar-for-loop): Make obsolete.
+ (calendar-nth-named-day): Doc fix.
-2006-05-08 Thien-Thi Nguyen <ttn@gnu.org>
+ * calendar/diary-lib.el (diary-list-entries, fancy-diary-display)
+ (print-diary-entries, mark-sexp-diary-entries, calendar-mark-complex)
+ (calendar-mark-1, list-sexp-diary-entries, diary-remind):
+ Reduce the number of lets.
+ (mark-sexp-diary-entries, calendar-mark-complex):
+ Expand calendar-for-loops.
- * emacs-lisp/ewoc.el (ewoc--set-buffer-bind-dll-let*):
- Use with-current-buffer.
+2008-04-01 Chong Yidong <cyd@stupidchicken.com>
-2006-05-07 Kim F. Storm <storm@cua.dk>
+ * find-dired.el (find-dired-filter): Fix last patch to handle
+ multi-line process input. Pad link numbers too.
- * subr.el (add-to-history): Remove keep-dups arg.
+2008-04-01 Jari Aalto <jari.aalto@cante.net>
- * kmacro.el (kmacro-push-ring): Let-bind history-delete-duplicates
- to nil around call to add-to-history.
+ * find-dired.el (find-dired-filter): Align columns by padding file sizes.
-2006-05-07 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-04-01 Jason Rumney <jasonr@gnu.org>
- * emacs-lisp/syntax.el (syntax-ppss): Flush the cache before rather
- than after a buffer modification.
+ * international/characters.el (script-list): Add phonetic script,
+ covering IPA (previously Latin), Phonetic Extensions and
+ Phonetic Extensions Supplement (both previously unassigned).
-2006-05-08 Nick Roberts <nickrob@snap.net.nz>
+ * international/fontset.el (setup-default-fontset): Use unicode fonts
+ that cover bopomofo script for bopomofo.
+ Likewise for braille and mathematical.
+ Use unicode scripts that cover the phonetic script for IPA.
- * progmodes/gdb-ui.el (gdb-var-create-handler): Move speedbar
- call to...
- (gud-watch): ...here so speedbar is raised for already watched
- expressions.
- (gdb-speedbar-refresh): Delete function.
- (gdb-speedbar-update, gdb-speedbar-timer-fn): New functions.
- Use speedbar-timer-fn instead of speedbar-refresh (reverting
- earlier change).
- (gdb-var-evaluate-expression-handler)
- (gdb-var-list-children-handler-1, gdb-var-update-handler-1): Use it.
+2008-04-01 Johan Bockgård <bojohan@gnu.org>
- * speedbar.el (speedbar-timer-fn): Remove save-window-excursion.
- Update localized contents for all buffers except ignored modes.
+ * emacs-lisp/cl-macs.el (frame-parameter) <defsetf>: Make it
+ return the assigned value.
-2006-05-07 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+2008-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
- * term/mac-win.el (mac-utxt-to-string): Use `eq' instead of `='.
- (mac-atsu-font-table, mac-font-panel-mode): Add defvars.
- (mac-bytes-to-digits, mac-handle-toolbar-switch-mode)
- (mac-handle-font-panel-closed, mac-handle-font-selection):
- New functions.
- (mac-font-panel-mode): New minor mode.
- (mac-apple-event-map): Add bindings for toolbar toggle button and
- font panel.
- (menu-bar-showhide-menu): Add mac-font-panel-mode.
+ * abbrev.el (abbrev-mode): Use define-minor-mode.
-2006-05-07 John Paul Wallington <jpw@pobox.com>
+ * mouse.el (mouse-major-mode-menu-prefix): Remove. Remove uses.
+ (mouse-menu-non-singleton): Rename from mouse-major-mode-menu-1.
+ Use map-keymap.
+ (minor-mode-menu-from-indicator): Use it. Simplify.
- * ibuffer.el (ibuffer-compressed-file-name-regexp):
- Avoid `regexp-opt'; simplify regexp for readability.
+ * bindings.el (mode-line-mode-menu): Move before (new) first use.
+ (mode-line-major-mode-keymap, mode-line-minor-mode-keymap):
+ Bind the key directly to the menu.
+ (mode-line-mode-menu-1, mode-line-mode-menu): Remove functions.
-2006-05-06 Eli Zaretskii <eliz@gnu.org>
+2008-04-01 Daiki Ueno <ueno@unixuser.org>
- * ldefs-boot.el (dired-do-redisplay, dired-maybe-insert-subdir):
- * files.el (buffer-stale-function):
- * dired-aux.el (dired-do-redisplay, dired-maybe-insert-subdir):
- * autorevert.el (global-auto-revert-non-file-buffers): Point Info
- links to the main manual, not to emacs-xtra.
+ * epa.el (epa-decrypt-region): Explain the reason why this
+ function should not be used in Lisp programs.
+ (epa-decrypt-armor-in-region): Ditto.
+ (epa-verify-region): Ditto.
+ (epa-verify-cleartext-in-region): Ditto.
+ (epa-sign-region): Ditto.
+ (epa-encrypt-region): Ditto.
-2006-05-06 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * epg.el (epg-start-receive-keys): Fix typo in docstring.
- * term/mac-win.el (mac-utxt-to-string): Don't make adjustment for
- MacJapanese if text is ASCII-only.
+ * epa.el (epa-select-keys): Show menu even if there is no key in
+ GnuPG's keyring.
-2006-05-06 Nick Roberts <nickrob@snap.net.nz>
+2008-04-01 Glenn Morris <rgm@gnu.org>
- * progmodes/gdb-ui.el (gdb-goto-breakpoint): Use or instead of
- unless so nil isn't returned.
- (gdb-setup-windows, gdb-restore-windows): Reset gdb-source-window.
+ * calendar/calendar.el (calendar-make-temp-face): New function.
+ (mark-visible-calendar-date):
+ * calendar/diary-lib.el (fancy-diary-display): Use it.
-2006-05-06 Kim F. Storm <storm@cua.dk>
+ * vc-hooks.el (vc-responsible-backend): Declare as function.
- * subr.el (add-to-history): New function.
+ * calendar/calendar.el (calendar-nongregorian-visible-p): New function.
+ * calendar/cal-hebrew.el (calendar-hebrew-date-is-visible-p):
+ * calendar/cal-julian.el (holiday-julian): Use it.
- * ediff.el (ediff-files, ediff-files3, ediff-merge-files)
- (ediff-merge-files-with-ancestor):
- * env.el (setenv):
- * isearch.el (isearch-update-ring):
- * server.el (server-visit-files):
- * progmodes/grep.el (lgrep, rgrep):
- * progmodes/vhdl-mode.el (vhdl-generate-makefile-1):
- * progmodes/xscheme.el (xscheme-insert-expression):
- Use add-to-history.
+ * calendar/cal-hebrew.el (hebrew-calendar-elapsed-days): Doc fix.
+ (calendar-hebrew-date-is-visible-p): Extract some common code into
+ separate function.
+ (holiday-hebrew, mark-hebrew-calendar-date-pattern): Use it.
+
+ * calendar/cal-menu.el (cal-menu-holidays-menu):
+ * calendar/calendar.el (calendar-mode-map): Use calendar-mark-holidays
+ rather than obsolete alias.
- * kmacro.el (kmacro-push-ring): Use add-to-history.
- (kmacro-ring-length): Remove unused defun.
- (kmacro-start-macro): Use kmacro-push-ring.
+ * calendar/calendar.el (mark-visible-calendar-date): Also use overlay
+ for mark characters.
+ (calendar-unmark): Unmark by removing all overlays, rather than
+ redrawing.
+ (calendar-starred-day): Remove.
+ (calendar-mode): Disable undo. Don't make calendar-starred-day local.
+ (calendar-cursor-to-date): No need for special star handling now
+ using overlays.
+ (calendar-star-date): Use overlays.
-2006-05-06 Thien-Thi Nguyen <ttn@gnu.org>
+ * calendar/cal-french.el (calendar-goto-french-date):
+ * calendar/cal-hebrew.el (calendar-hebrew-from-absolute)
+ (holiday-hanukkah, mark-hebrew-calendar-date-pattern):
+ * calendar/cal-move.el (calendar-forward-month, calendar-end-of-month):
+ * calendar/cal-persia.el (calendar-persian-date-string):
+ * calendar/cal-tex.el (cal-tex-cursor-month-landscape)
+ (cal-tex-cursor-month, cal-tex-LaTeXify-string):
+ * calendar/lunar.el (lunar-phase-list, lunar-new-moon-on-or-after):
+ * calendar/solar.el (solar-equinoxes-solstices):
+ Reduce nesting of some lets.
- * emacs-lisp/ewoc.el (ewoc-create, ewoc-set-hf): Use `insert'
- directly instead of a lambda expression that calls it.
+ * calendar/cal-mayan.el (calendar-string-to-mayan-long-count):
+ (calendar-goto-mayan-long-count-date): Simplify.
-2006-05-06 Kim F. Storm <storm@cua.dk>
+ * calendar/holidays.el (calendar-holiday-list, holiday-easter-etc):
+ Simplify by using mapcar.
+ (calendar-list-holidays): Return holiday-list.
+ (list-holidays): Use let rather than let*. Remove un-needed locals
+ `d', `never'.
+ (calendar-check-holidays): Return result from dolist.
+ (holiday-float): Use a single let*. Simplify if-and to and.
+ (holiday-sexp, holiday-advent, holiday-greek-orthodox-easter): Use a
+ single let*.
- * avoid.el (mouse-avoidance-point-position): Use posn-at-point
- instead of compute-motion.
+2008-04-01 Jay Belanger <jay.p.belanger@gmail.com>
-2006-05-05 Dan Nicolaescu <dann@ics.uci.edu>
+ * calc/calc.el: Autoload `calc-yank'.
+ (calc-mode-map): Add keybindings for `calc-yank'.
+ * calc/calc-ext.el (calc-init-extensions): Remove keybinding
+ assignments for `calc-yank'.
- * ibuffer.el (ibuffer-compressed-file-name-regexp): Undo previous
- change.
+2008-03-31 Dan Nicolaescu <dann@ics.uci.edu>
-2006-05-05 Reiner Steib <Reiner.Steib@gmx.de>
+ * vc.el (vc-status-add-entry): Assume ENTRY is a list, not a cons.
+ (vc-status-mark-buffer-changed): Handle the extra field.
- * startup.el (command-line-1): Refer to "Pure Storage" on
- pure-space-overflow.
+ * vc-bzr.el (vc-bzr-after-dir-status):
+ * vc-cvs.el (vc-cvs-after-dir-status):
+ * vc-hg.el (vc-hg-after-dir-status):
+ * vc-svn.el (vc-svn-after-dir-status): Return a list, not a cons.
-2006-05-05 Martin Rudalics <rudalics@gmx.at>
+2008-03-31 Stefan Monnier <monnier@iro.umontreal.ca>
- * emacs-lisp/re-builder.el (reb-update-overlays): Cycle through
- provided faces once they all have been used up.
+ * doc-view.el: Compute displayed pages first (in PDF).
+ (doc-view-current-converter-processes): Rename from
+ doc-view-current-converter-process. Update users.
+ (doc-view-sentinel): Test buffer's liveness.
+ (doc-view-pdf/ps->png-sentinel): Remove.
+ (doc-view-start-process): New function.
+ (doc-view-dvi->pdf, doc-view-pdf/ps->png, doc-view-pdf->txt)
+ (doc-view-ps->pdf): Use it.
+ (doc-view-pdf->png-1, doc-view-pdf->png, doc-view-active-pages):
+ New functions.
+ (doc-view-convert-current-doc, doc-view-goto-page): Use them.
+ (doc-view-mode): Kill the processes when leaving the mode.
-2006-05-05 Eli Zaretskii <eliz@gnu.org>
+2008-03-31 Juanma Barranquero <lekktu@gmail.com>
- * startup.el (normal-splash-screen, fancy-splash-screens-1): Add a
- reference to the Lisp manual to the warning about pure space
- overflow.
+ * emacs-lisp/bytecomp.el (byte-compile-warnings-safe-p):
+ Use `byte-compile-warning-types'. Add docstring.
-2006-05-05 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
+2008-03-31 Stefan Monnier <monnier@iro.umontreal.ca>
- * textmodes/ispell.el (ispell-buffer-local-dict): Add a `no-reload'
- argument to avoid the call to `ispell-internal-change-dictionary'
- when not needed.
- (ispell-change-dictionary): Use this argument and call
- `ispell-internal-change-dictionary' after the possible change
- to `ispell-local-dictionary'.
- (ispell-internal-change-dictionary): Check for a change in
- personal dictionary use too.
+ * smerge-mode.el (smerge-apply-resolution-patch): New fun.
+ (smerge-resolve): Add various resolution heuristics.
-2006-05-05 Eli Zaretskii <eliz@gnu.org>
+ * smerge-mode.el (smerge-refine): Allow highlighting other subparts
+ in 3-way conflicts.
- * startup.el (command-line): On MS-Windows, probe "~", not
- "~USER", for warning about non-existent home directory.
+2008-03-31 Glenn Morris <rgm@gnu.org>
- * arc-mode.el (archive-l-e): New optional argument `float' means
- generate a float value.
- (archive-arc-summarize, archive-lzh-summarize)
- (archive-zip-summarize, archive-zoo-summarize): Invoke archive-l-e
- with 3rd argument non-nil when file's size is being computed.
- Format the file sizes with %8.0f instead of %8d.
+ * calendar/cal-bahai.el (diary-bahai-mark-entries):
+ * calendar/cal-hebrew.el (mark-hebrew-diary-entries):
+ * calendar/cal-islam.el (mark-islamic-diary-entries):
+ Fix argument order in call to diary-mark-entries-1.
-2006-05-05 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * calendar/cal-bahai.el (calendar-bahai-date-string): Avoid an error for
+ pre-Bahai dates.
+ (holiday-bahai): Use an algorithm actually relevant to this calendar
+ system.
- * cus-start.el (all): Add mac-dnd-known-types.
+ * calendar/cal-china.el (holiday-chinese-new-year): Doc fix.
- * term/mac-win.el (mac-utxt-to-string, mac-string-to-utxt)
- (mac-TEXT-to-string, mac-string-to-TEXT, mac-furl-to-string)
- (mac-TIFF-to-string): New functions.
- (x-get-selection, x-selection-value)
- (mac-select-convert-to-string): Use them.
- (mac-text-encoding-mac-japanese-basic-variant): New constant.
- (mac-dnd-types-alist): New customization variable.
- (mac-dnd-handle-furl, mac-dnd-handle-hfs, mac-dnd-insert-utxt)
- (mac-dnd-insert-TEXT, mac-dnd-insert-TIFF, mac-dnd-drop-data)
- (mac-dnd-handle-drag-n-drop-event): New functions.
- (mac-drag-n-drop): Remove function.
- (global-map): Bind drag-n-drop and M-drag-n-drop to
- mac-dnd-handle-drag-n-drop-event.
+ * calendar/cal-islam.el (holiday-islamic): Remove un-needed let.
+ Use and.
-2006-05-04 Karl Chen <quarl@NOSPAM.quarl.org>
+ * calendar/cal-julian.el (holiday-julian): Fix a problem with holidays
+ in the last fortnight in Julian October.
- * progmodes/perl-mode.el (perl-beginning-of-function):
- Skip anonymous subs.
+ * calendar/calendar.el (increment-calendar-month): Optionally handle
+ systems without 12 months per year.
-2006-05-04 Dan Nicolaescu <dann@ics.uci.edu>
+ (calendar-date-is-visible-p): Doc fix. Simplify.
- * ibuffer.el (ibuffer-compressed-file-name-regexp): Avoid loading
- regexp-opt at run time.
+ * calendar/holidays.el (holiday-filter-visible-calendar): Return result
+ from dolist.
- * term.el (term-handle-ansi-escape): Fix off by one error.
+2008-03-30 Juanma Barranquero <lekktu@gmail.com>
-2006-05-04 Nick Roberts <nickrob@snap.net.nz>
+ * hi-lock.el (hi-lock-mode): Fix typos in docstring.
+ (hi-lock-unload-function): New function.
- * progmodes/gdb-ui.el (gdb-force-update): Delete variable...
- (gdb-init-1, gdb-post-prompt): ...and references to it.
- (gdb-frame-handler): Strip directory name from filename if present.
+2008-03-30 Michael Albinus <michael.albinus@gmx.de>
- * progmodes/gud.el (gdb-force-update): Delete defvar
- (gud-speedbar-buttons): ...and references to it. Use window-start
- to try to keep positon in watch expression.
+ * net/tramp.el (tramp-do-copy-or-rename-file): Fix check for
+ overwriting when NEWNAME is a local file.
-2006-05-03 Richard Stallman <rms@gnu.org>
+ * net/trampver.el: Update release number.
- * simple.el (next-history-element, previous-history-element): Doc fix.
+2008-03-30 Alexandre Julliard <julliard@winehq.org>
- * isearch.el (isearch-update-ring): Doc fix.
+ * vc-git.el: Make vc-status display information about copies,
+ renames and permission changes.
+ (vc-git-extra-fileinfo): New defstruct.
+ (vc-git-escape-file-name, vc-git-file-type-as-string)
+ (vc-git-rename-as-string, vc-git-permissions-as-string)
+ (vc-git-status-printer): New functions.
+ (vc-git-after-dir-status-stage2): Also return vc-git-extra-fileinfo.
+ (vc-git-after-dir-status-stage1): Look for copies, renames and
+ permission changes.
+ (vc-git-after-dir-status-stage1-empty-db): Set permissions.
+ (vc-git-dir-status): Ask for staged files and renames.
-2006-05-03 Dan Nicolaescu <dann@ics.uci.edu>
+2008-03-30 Dan Nicolaescu <dann@ics.uci.edu>
- * isearch.el (isearch-update-ring): Take history-delete-duplicates
- into consideration. Replace one arm ifs with whens.
+ * vc.el: Allow backends to display backend specific information in
+ the vc-status listing.
+ (vc-status-fileinfo): Add a field for backend specific information.
+ (vc-status-printer): Rename to ...
+ (vc-default-status-printer): ... this.
+ (vc-status-printer): New function.
+ (vc-update-vc-status-buffer): Set the backend specific file info
+ if provided.
-2006-05-03 Nick Roberts <nickrob@snap.net.nz>
+2008-03-30 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/gdb-ui.el (gud-watch): Let user select an expression.
- (menu): Fix typo.
+ * textmodes/remember.el (remember-diary-convert-entry): Revert last
+ change (ill-conceived).
-2006-05-02 Miles Bader <miles@gnu.org>
+2008-03-29 Glenn Morris <rgm@gnu.org>
- * replace.el (occur-engine): Bind `inhibit-field-text-motion' to t.
+ * calendar/cal-hebrew.el (holiday-hebrew): Simplify.
+ * calendar/cal-julian.el (holiday-julian): Simplify.
-2006-05-02 Jay Belanger <belanger@truman.edu>
+ * calendar/holidays.el (list-holidays): Use or.
- * calc/calc-embed.el (calc-override-minor-modes-map)
- (calc-override-minor-modes): New variables.
- (calc-do-embedded): Make sure that Calc keystrokes aren't
- overwritten by minor modes.
+2008-03-29 Juri Linkov <juri@jurta.org>
-2006-05-02 Chong Yidong <cyd@mit.edu>
+ * window.el (split-window-preferred-horizontally): New function.
- * msb.el (msb): If EVENT is a down event, read and discard the up event.
+ * cus-start.el (split-window-preferred-function):
+ Set choice for "vertically" to nil instead of split-window.
+ Set choice for "horizontally" to split-window-preferred-horizontally
+ instead of lambda.
-2006-05-02 Reiner Steib <Reiner.Steib@gmx.de>
+2008-03-29 Juri Linkov <juri@jurta.org>
- * startup.el (command-line-1): Refer to Lisp manual when
- pure-space-overflow occurs.
+ * simple.el (minibuffer-default-add-function): New variable with
+ the default to minibuffer-default-add-completions.
+ (minibuffer-default-add-done): New variable. Make it buffer-local.
+ (minibuffer-default-add-completions): New function.
+ (goto-history-element): Set minibuffer-default-add-done to t and
+ call a function in minibuffer-default-add-function when the
+ specified absolute history position is greater than the length of
+ the minibuffer-default list and minibuffer-default-add-done is nil.
+ Change "^End of history; no next item$" to "^End of defaults;
+ no next item$".
- * files.el (byte-compile-dynamic, byte-compile-dynamic-docstrings)
- (byte-compile-warnings, find-file-visit-truename, indent-tabs-mode)
- (left-margin, no-byte-compile, no-update-autoloads, truncate-lines)
- (version-control): Don't use `t' for safe-local-variable declarations.
+ * bindings.el (debug-ignored-errors): Change "^End of history;
+ no next item$" to "^End of defaults; no next item$".
-2006-05-01 Richard Stallman <rms@gnu.org>
+2008-03-29 Stefan Monnier <monnier@iro.umontreal.ca>
- * diff-mode.el (diff-mode-shared-map): Don't bind M-W, M-U, M-C,
- M-r, M-R, M-A, M-SPC or M-DEL.
- (diff-mode-map): diff-refine-hunk now on C-c C-w
- (diff-mode-map): Bind C-c C-e, C-c C-n, C-c C-r, C-c C-u.
+ * subr.el (with-temp-buffer): Assume kill-buffer can change cur-buf.
- * help-mode.el (help-mode): view-exit-action calls delete-window
- only when it is safe and possible.
+ * textmodes/remember.el (remember-diary-convert-entry): Prefer boundp
+ to with-no-warnings.
- * simple.el (undo-outer-limit-truncate): Put quotes around buffer name
- in messages.
+2008-03-29 Michael Albinus <michael.albinus@gmx.de>
- * emacs-lisp/warnings.el (display-warning, lwarn): Doc fixes.
+ Sync with Tramp 2.1.13.
- * tool-bar.el (tool-bar-setup): Put Help and Preferences items
- in the default tool-bar-map.
+ * net/tramp-ftp.el: Require 'cl when byte-compiling.
-2006-05-01 Michael Albinus <michael.albinus@gmx.de>
+ * net/trampver.el: Update release number.
- * net/tramp.el (tramp-completion-file-name-handler-alist)
- (tramp-run-real-handler, tramp-completion-run-real-handler)
- (tramp-completion-handle-file-name-all-completions)
- (tramp-completion-handle-file-name-completion): Autoload them.
- (tramp-completion-handle-file-exists-p)
- (tramp-completion-handle-file-name-directory)
- (tramp-completion-handle-file-name-nondirectory)
- (tramp-completion-handle-expand-file-name): Remove them.
- (tramp-handle-file-name-directory): Return the real directory name.
- Returning "/" only doesn't need to be necessary any longer.
- (tramp-file-name-handler): Make special attention when in hostname
- completion mode.
- (tramp-completion-file-name-handler): Revert patch from 2006-04-28.
- (tramp-register-file-name-handlers):
- Register `tramp-completion-file-name-handler' only when
- `partial-completion-mode' is enabled.
- (tramp-completion-handle-file-name-all-completions):
- Delete directory part from results.
- (tramp-get-completion-methods, tramp-get-completion-user-host):
- Discard deleting "/", it doesn't work after the change of
- `tramp-handle-file-name-directory' above.
+2008-03-29 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-hooks.el (vc-menu-map-filter): Be more careful when finding
+ the current backend.
+
+ * vc.el (vc-status-menu-map, vc-status-mode-map): Bind vc-revert.
+ (vc-status-refresh): Create a temporary buffer and call the
+ `dir-status' backend function from that buffer.
+
+ * vc-bzr.el (vc-bzr-dir-status): Don't create a buffer.
+ (vc-bzr-after-dir-status): Don't kill the buffer.
+
+ * vc-cvs.el (vc-cvs-dir-status): Don't create a buffer.
+ (vc-cvs-after-dir-status): Don't kill the buffer.
+
+ * vc-git.el (vc-git-dir-status): Don't create a buffer.
+ (vc-git-after-dir-status-stage2): Don't kill the buffer.
+
+ * vc-hg.el (vc-hg-dir-status): Don't create a buffer.
+ (vc-hg-after-dir-status): Don't kill the buffer.
+
+ * vc-svn.el (vc-svn-dir-status): Don't create a buffer.
+ (vc-svn-after-dir-status): Don't kill the buffer.
+
+2008-03-29 Glenn Morris <rgm@gnu.org>
+
+ * calendar/calendar.el (diary-file, american-date-diary-pattern)
+ (european-date-diary-pattern, european-calendar-display-form)
+ (american-calendar-display-form, diary-display-hook): Doc fixes.
+ (european-calendar-style): Doc fix. Use calendar-set-date-style for
+ custom :set. Mark as obsolete.
+ (calendar-date-style, iso-date-diary-pattern)
+ (iso-calendar-display-form): New user variables.
+ (diary-date-forms, calendar-date-display-form): Set using
+ calendar-date-style. Doc fix.
+ (calendar-set-date-style): New command.
+ (european-calendar, american-calendar): Use calendar-set-date-style.
+ Mark as obsolete.
+
+ * calendar/diary-lib.el (number): Move declaration where needed.
+ (diary-mail-entries, list-sexp-diary-entries): Doc fixes.
+ (diary-make-date): New function.
+ (diary-date, diary-block, diary-anniversary, diary-cyclic): Doc fix.
+ Use diary-make-date.
+ (diary-date-display-form, diary-insert-entry-1): New functions.
+ (insert-monthly-diary-entry, insert-yearly-diary-entry):
+ Use diary-insert-entry-1.
+ (insert-anniversary-diary-entry, insert-block-diary-entry)
+ (insert-cyclic-diary-entry): Use diary-date-display-form.
+
+ * calendar/cal-bahai.el, calendar/cal-hebrew.el, calendar/cal-islam.el:
+ Autoload diary-insert-entry-1.
+ * calendar/cal-bahai.el (diary-bahai-insert-entry)
+ (diary-bahai-insert-monthly-entry, diary-bahai-insert-yearly-entry):
+ * calendar/cal-hebrew.el (insert-hebrew-diary-entry)
+ (insert-monthly-hebrew-diary-entry, insert-yearly-hebrew-diary-entry)
+ * calendar/cal-islam.el (insert-islamic-diary-entry)
+ (insert-monthly-islamic-diary-entry, insert-yearly-islamic-diary-entry):
+ Use diary-insert-entry-1.
+
+ * calendar/cal-hebrew.el (diary-make-date): Autoload it.
+ (diary-yahrzeit): Doc fix. Use diary-make-date.
+
+ * calendar/icalendar.el (icalendar--datetime-to-american-date):
+ New name for icalendar--datetime-to-noneuropean-date. Make old name
+ obsolete alias.
+ (icalendar--datetime-to-iso-date): New function.
+ (icalendar--datetime-to-diary-date): Doc fix. Respect
+ calendar-date-style if bound.
-2006-05-01 Kim F. Storm <storm@cua.dk>
+ * textmodes/remember.el (remember-diary-convert-entry):
+ Respect calendar-date-style if bound.
- * progmodes/grep.el (grep-expand-template): Use save-match-data
- and symbol-value.
+2008-03-29 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-05-01 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * xt-mouse.el (xterm-mouse-mode): Use delete-terminal-functions.
+ (xterm-mouse-handle-delete-frame): Delete.
- * term/mac-win.el (mac-ae-open-documents, mac-drag-n-drop):
- Use select-frame-set-input-focus instead of raise-frame.
- (global-map): Bind M-drag-n-drop to mac-drag-n-drop.
+ * term/xterm.el (terminal-init-xterm): Use delete-terminal-functions.
+ (xterm-turn-on-modify-other-keys, xterm-turn-off-modify-other-keys)
+ (xterm-remove-modify-other-keys): Lookup terminal rather than frame
+ in xterm-modify-other-keys-terminal-list.
-2006-05-01 Nick Roberts <nickrob@snap.net.nz>
+ * vc-bzr.el (vc-bzr-state-heuristic): Fix last change for when there
+ are conflicts.
- * progmodes/gud.el (gud-def): Add %c case.
- (gud-speedbar-buttons): Don't bind case-fold-search unnecessarily.
- (gud-format-command): Make match case sensitive. Match on %F.
+2008-03-29 Dan Nicolaescu <dann@ics.uci.edu>
-2006-04-30 Glenn Morris <rgm@gnu.org>
+ * vc.el (vc-update): Check if the buffer is unsaved only if it
+ actually exists.
+ (vc-status-mode-map, vc-status-menu-map): Bind vc-update and
+ vc-print-log.
- * calendar/cal-tex.el (cal-tex-preamble-extra): New variable.
- (cal-tex-preamble): Use cal-tex-preamble-extra.
- (cal-tex-list-diary-entries): Refer to `diary-list-entries' rather
- than alias `list-diary-entries'.
+2008-03-28 Magnus Henoch <mange@freemail.hu>
-2006-04-29 Dan Nicolaescu <dann@ics.uci.edu>
+ * net/dns.el (dns-write): Use set-buffer-multibyte.
- * help-fns.el (describe-variable): Add info about safe local variables.
+2008-03-28 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-29 Richard Stallman <rms@gnu.org>
+ * vc-bzr.el (vc-bzr-sha1): New fun.
+ (vc-bzr-state-heuristic): New fun, extracted from vc-bzr-registered.
+ (vc-bzr-registered): Use it.
- * bindings.el (mode-line-format): help-echo doc fixes.
+2008-03-28 Dan Nicolaescu <dann@ics.uci.edu>
- * net/tramp.el (tramp-file-name-handler-alist): Delete
- expand-file-name and other operations that can cause spurious loading.
+ * vc.el (vc-status-kill-dir-status-process): Simplify.
+ (vc-status-refresh): Make sure the buffer is live.
+ (ring): Don't require it, not used.
-2006-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-03-28 Wilson Snyder <wsnyder@wsnyder.org>
- * files.el (safe-local-variable-p): Remove support for the special
- value t.
+ * progmodes/verilog-mode.el (verilog-auto-inout-module):
+ Add optional regular expression to AUTOINOUTMODULE.
+ (verilog-inject-auto, verilog-auto-arg, verilog-auto-inst)
+ (verilog-auto-inst-param, verilog-auto-reg)
+ (verilog-auto-reg-input, verilog-auto-wire, verilog-auto-output)
+ (verilog-auto-output-every, verilog-auto-input)
+ (verilog-auto-inout, verilog-auto-sense, verilog-auto-tieoff)
+ (verilog-auto-unused, verilog-auto): Update documentation to use
+ more obvious instance module names versus cell names.
- * textmodes/paragraphs.el (sentence-end-without-space):
- Fix safety predicate.
- (sentence-end-double-space, sentence-end-without-period)
- (paragraph-ignore-fill-prefix):
- * textmodes/fill.el (colon-double-space):
- * abbrev.el (abbrev-mode): Tighten the safety predicate.
+2008-03-28 Jan Djärv <jan.h.d@swipnet.se>
- * subr.el (booleanp): New fun.
+ * progmodes/compile.el (compilation-mode-tool-bar-map): Only enable
+ kill if a process is running.
- * textmodes/reftex-vars.el (reftex-guess-label-type):
- Tighten the safety predicate.
+ * progmodes/grep.el (grep-mode-tool-bar-map): The same.
-2006-04-28 Kim F. Storm <storm@cua.dk>
+2008-03-28 Dan Nicolaescu <dann@ics.uci.edu>
- * progmodes/grep.el (defgroup grep): Doc fix.
- (grep-auto-highlight): Remove.
- (grep-template): New defcustom.
- (grep-find-template): Rename from grep-tree-template.
- (grep-files-aliases): Rename from grep-tree-files-aliases.
- Remove "all" alias, add "l" alias.
- (grep-tree-ignore-case, grep-tree-ignore-CVS-directories): Remove.
- (grep-find-ignored-directories): New defcustom to replace
- grep-tree-ignore-CVS-directories, to facilitate ignoring
- subdirectories for multiple version control systems.
- (grep-mode-map): Add Recursive grep item to GREP menu.
- (grep-regexp-history, grep-files-history): New defvars.
- (grep-probe): New helper function.
- (grep-compute-defaults): Use it to simplify code.
- Adapt to name changes.
- Use `.' as base in grep-find-template rather than <D>.
- (grep): Remove superfluous highlight-regexp arg. Fix doc.
- Call grep-compute-defaults unconditionally.
- (grep-expand-keywords): New defconst.
- (grep-expand-template): Rename from grep-expand-command-macros.
- Simplify via grep-expand-keywords. Look at case-fold-search instead
- of grep-tree-ignore-case to add -i option.
- Bind case-fold-search to nil while matching keywords.
- (grep-tree-last-regexp, grep-tree-last-files): Remove.
- (grep-read-regexp, grep-read-files): New helper functions.
- (rgrep): Rename from grep-tree. Rework to use proper histories.
- Adapt to changes in defcustoms and functions above.
- (lgrep): New command, as grep, but using same interactive UI as rgrep.
+ * vc.el: Add new backend function 'status-extra-headers.
+ (vc-default-status-extra-headers): New function.
+ (vc-status-headers): Call 'status-extra-headers. Add colors.
-2006-04-28 Michael Albinus <michael.albinus@gmx.de>
+ * vc-git.el (vc-git-status-extra-headers): New function.
- * net/tramp.el (tramp-completion-file-name-handler):
- Disable Tramp's functionality while loading Tramp itself.
- (tramp-register-file-name-handlers): That's a defsubst now.
- Code from `tramp-repair-jka-compr' moved here. Apply it via
- `after-init-hook'.
- (tramp-repair-jka-compr): Remove.
+2008-03-28 Glenn Morris <rgm@gnu.org>
-2006-04-27 Jay Belanger <belanger@truman.edu>
+ * calendar/cal-menu.el (cal-menu-holidays-menu)
+ (cal-menu-list-holidays-year, cal-menu-list-holidays-following-year)
+ (cal-menu-list-holidays-previous-year): Simplify now that 2nd arg of
+ holiday-list is optional.
+ (calendar-mouse-holidays): Remove un-needed local `l'.
- * calc/calc-embed.el (calc-embedded-make-info): Use `math-read-expr' to
- read expression when `math-read-big-expr' doesn't work.
+ * calendar/cal-move.el (calendar-cursor-to-nearest-date):
+ Remove un-needed local `date'.
+ (calendar-cursor-to-visible-date): Use let rather than let*.
+ Remove un-needed local `first-of-month-weekday'.
-2006-04-27 Reiner Steib <Reiner.Steib@gmx.de>
+ * calendar/calendar.el (abbreviated-calendar-year): Move to diary-lib.
- * startup.el (command-line-1): Display warning when
- pure-space-overflow is non-nil.
+ * calendar/diary-lib.el (print-diary-entries-hook, diary-list-entries):
+ Doc fixes.
+ (abbreviated-calendar-year): Move here from calendar.el. Doc fix.
+ (diary-header-line-flag, diary-header-line-format): Declare.
+ (diary-pull-attrs): Check for multiple matches.
+ (diary-list-entries-2): Simplify finding start of date.
+ (diary-show-all-entries, make-diary-entry): Respect non-nil values of
+ pop-up-frames.
+ (diary-mark-entries-1): Re-use offset in abbreviated-year case.
+ (mark-sexp-diary-entries): Remove superfluous call to diary-pull-attrs.
-2006-04-26 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
+2008-03-27 Dan Nicolaescu <dann@ics.uci.edu>
- * textmodes/bibtex.el (bibtex-user-optional-fields): Mark as
- risky.
+ * vc-hg.el (vc-hg-state, vc-hg-dir-state): Deal with 'missing files.
-2006-04-26 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Fix predicate.
- * textmodes/bibtex.el (bibtex-url): New optional arg no-browse.
- Return the URL or nil if none can be generated.
+2008-03-27 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-27 Nick Roberts <nickrob@snap.net.nz>
+ * vc-hooks.el (vc-before-save): Don't prevent saving the file.
- * progmodes/gud.el (gud-comint-buffer): Move forward to stop
- byte compiler warnings.
- (gud-basic-call, gud-find-expr): Let user select an expression
- for printing. Print expression as well as value in GUD buffer.
+ * image-mode.el (image-mode-reapply-winprops): Fix last change.
-2006-04-17 Ken Manheimer <ken.manheimer@gmail.com>
+2008-03-27 Kenichi Handa <handa@ni.aist.go.jp>
- * allout.el: Remove local autoload declaration for
- pgg-gpg-symmetric-key-p, since that's now done in pgg-gpg.el.
- (allout-show-bodies, allout-header-prefix, allout-primary-bullet)
- (allout-plain-bullets-string, allout-distinctive-bullets-string)
- (allout-use-mode-specific-leader, allout-old-style-prefixes)
- (allout-stylish-prefixes, allout-numbered-bullet)
- (allout-file-xref-bullet, allout-presentation-padding)
- (allout-use-hanging-indents, allout-reindent-bodies): Mark as
- safe-local-variable with suitable value spec, and add autoload
- cookie for loaddefs inclusion. We now use an explicit spec everywhere.
- (move-beginning-of-line, move-end-of-line): Repair so these compat
- functions now actually resituate the point, when appropriate.
+ * international/mule-conf.el (define-iso-single-byte-charset):
+ Don't make latin-iso8859-* supplementary.
+ (#'set-charset-priority): Don't change the priority of charsets
+ `unicode' and `emacs'.
-2006-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-03-27 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/cc-subword.el (c-subword-mode-map): Use command remapping.
+ * vc.el (vc-do-command): Don't pop to the buffer if it's an internal
+ temp buffer.
- * add-log.el (add-log-iso8601-time-zone): Make parameter optional.
- (add-log-iso8601-time-string): Fix call to format-time-string.
+2008-03-27 Glenn Morris <rgm@gnu.org>
-2006-04-26 Kim F. Storm <storm@cua.dk>
+ * calendar/cal-bahai.el (diary-bahai-list-entries):
+ * calendar/cal-hebrew.el (list-hebrew-diary-entries):
+ * calendar/cal-islam.el (list-islamic-diary-entries): Doc fix.
- * subr.el (posn-string, posn-image, posn-object): Doc fix.
+ * calendar/calendar.el (diary-file): Doc fix.
-2006-04-26 Masatake YAMATO <jet@gyve.org>
+ * calendar/diary-lib.el (diary-face-attrs): Fix `height' regexp.
+ (list-diary-entries-hook, mark-diary-entries-hook)
+ (include-other-diary-files, diary-mail-entries)
+ (mark-included-diary-files, list-sexp-diary-entries): Doc fixes.
+ (diary-set-header): New function.
+ (diary-header-line-flag, diary-header-line-format):
+ Use diary-set-header for custom :set function.
+ (diary-set-maybe-redraw): Use symbol-value rather than eval.
+ (diary-attrtype-convert): Use intern-soft rather than read.
+ (diary-display-no-entries): New function.
+ (simple-diary-display, fancy-diary-display): Use it.
+ (fancy-diary-display): Doc fix. Remove unneeded local entry-list.
+ (diary-mark-entries-1): Fix position offsets in non-gregorian case.
- * progmodes/asm-mode.el (asm-mode, asm-mode-syntax-table):
- Add support for "//" style comments. Remove `b' flag
- from ?* in `asm-mode-syntax-table'.
+ * calendar/holidays.el (list-holidays): Doc fix.
-2006-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-03-26 Jay Belanger <jay.p.belanger@gmail.com>
- * follow.el: Use (featurep 'xemacs) everywhere.
- (follow-mode): Use define-minor-mode.
- (follow-mode-map): Move initialization into the declaration.
- Use command remapping.
- (follow-emacs-version-xemacs-p): Remove.
- (follow-submit-feedback): Remove.
+ * calc/calc-store.el (calc-read-var-name-history): New variable.
+ (calc-read-var-name): Use `calc-read-var-name-history'.
- * allout.el (allout-layout, allout-passphrase-verifier-string)
- (allout-passphrase-hint-string): Tighten up a bit the safety predicate.
+2008-03-26 Stefan Monnier <monnier@iro.umontreal.ca>
- * textmodes/reftex-vars.el (reftex-vref-is-default)
- (reftex-fref-is-default, reftex-guess-label-type):
- Tighten up a bit the safety predicate.
+ * image-mode.el (image-mode-reapply-winprops): Simplify now that
+ window-configuration-change-hook works buffer-locally.
- * textmodes/paragraphs.el (sentence-end-double-space)
- (sentence-end-without-period, sentence-end-without-space)
- (page-delimiter, paragraph-ignore-fill-prefix):
- Tighten up a bit the safety predicate.
+2008-03-26 Johan Bockgård <bojohan@gnu.org>
- * textmodes/fill.el (colon-double-space): Tighten up the safety pred.
+ * emacs-lisp/lisp-mnt.el (lm-with-file): Use mode and syntax table
+ for Emacs Lisp, not Lisp.
- * progmodes/python.el (python-continuation-line-p)
- (python-beginning-of-statement): syntax-ppss may return
- a negative depth.
- (python-mode): Don't forcefully enable font-lock.
+2008-03-26 Juanma Barranquero <lekktu@gmail.com>
- * time-stamp.el (time-stamp-start, time-stamp-end)
- (time-stamp-inserts-lines): Tighten up a bit the safety predicate.
+ * help-fns.el (describe-function-1, describe-variable):
+ If CURRENT-NAME is nil, don't end obsolescence info with semicolon.
- * add-log.el: Remove spurious * in docstrings.
- (add-log-time-zone-rule): Rename from change-log-time-zone-rule.
- (add-change-log-entry): Use it here, since it's not specific
- to iso8601.
- (add-log-iso8601-time-string): Don't use it here any more.
- (change-log-indent-text, change-log-indent): Rename from add-log-*.
+ * emacs-lisp/bytecomp.el (byte-compile-obsolete): If no
+ replacement is provided, don't print "use nil instead".
- * abbrev.el (abbrev-mode): Tighten up a bit the safety predicate.
+2008-03-26 Johan Bockgård <bojohan@gnu.org>
-2006-04-25 Ryan Yeske <rcyeske@gmail.com>
+ * complete.el (PC-do-completion): Use regexp-quote.
- * net/rcirc.el (rcirc-print): Revert last change with ignored nicks.
- (rcirc-toggle-low-priority): Doc fix.
- (rcirc-handler-NOTICE): Remove beginning of line anchor in
- ChanServ regexp.
- (rcirc-startup-channels-alist): Connect to #rcirc by default, not
- #emacs.
- (rcirc-bright-nick-regexp, rcirc-dim-nick-regexp): Add variables.
- (rcirc-decode-coding-system): Use utf-8 as the default.
- (rcirc-multiline-minor-mode): Set the fill-column.
- (rcirc-format-response-string): Display bright and dim nicks.
- (rcirc-browse-url): Update interactive spec to fill ARG.
- (rcirc-bright-nick, rcirc-dim-nick): Add faces.
- (rcirc-print): Ignore dim-nick messages wrt modeline-activity.
+2008-03-26 Dan Nicolaescu <dann@ics.uci.edu>
-2006-04-24 J.D. Smith <jdsmith@as.arizona.edu>
+ * vc-cvs.el (vc-cvs-parse-status, vc-cvs-after-dir-status):
+ Detect missing files.
- * textmodes/bibtex.el (bibtex-find-entry): Don't demand matching
- case for @Article, etc.
+ * vc-git.el (vc-git-extra-menu-map): New key map.
+ (vc-git-extra-menu, vc-git-extra-status-menu, vc-git-grep):
+ New functions.
-2006-04-23 Michael Albinus <michael.albinus@gmx.de>
+ * vc-hooks.el (vc-default-mode-line-string): Deal with 'removed
+ and 'missing files.
- * net/tramp.el (tramp-register-file-name-handlers): New defun.
- Added with autoload cookie.
- (tramp-unload-file-name-handlers): Rename from
- `tramp-unload-file-name-handler-alist'.
+2008-03-26 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-23 Romain Francoise <romain@orebokech.com>
+ * calendar/holidays.el (list-holidays): Make Y2 optional.
- * comint.el (comint-match-partial-filename): Doc fix.
+ * calendar/appt.el (appt-buffer-name): Don't use a leading space for
+ buffers shown to the user.
+ (appt-disp-window): Disable undo explicitly now that the leading space
+ is gone.
-2006-04-21 Glenn Morris <rgm@gnu.org>
+ * simple.el (activate-mark): New function.
+ (set-mark-command): Use it with region-active-p to clean up the code.
+ (exchange-point-and-mark): Invert the meaning of C-u when
+ transient-mark-mode is active.
- * calendar/cal-menu.el (calendar-mode-map): Refer to
- `diary-view-entries' rather than alias `view-diary-entries'.
- * calendar/diary-lib.el (view-other-diary-entries): Ditto.
+ * dired-aux.el (dired-create-files): Use dolist.
-2006-04-21 Luc Teirlinck <teirllm@auburn.edu>
+ * bindings.el (mode-line-change-eol): Use with-selected-window.
- * progmodes/antlr-mode.el (antlr-default):
- * cus-edit.el (custom-documentation):
- * faces.el (scroll-bar, border, cursor, mouse): Avoid nil spec
- in defface.
+ * apropos.el (apropos-command): Include macros.
-2006-04-21 Kim F. Storm <storm@cua.dk>
+2008-03-26 Glenn Morris <rgm@gnu.org>
- * image.el (image-type): New defun split out of create-image.
- (create-image): Use it.
+ * calendar/cal-bahai.el: Require calendar, not cal-julian.
+ (calendar-bahai-epoch): Doc fix.
-2006-04-21 Carsten Dominik <dominik@science.uva.nl>
+ * calendar/cal-china.el: Explicitly require calendar.
- * textmodes/org.el (org-mode-map): Catch conflict with old allout.el.
- (org-open-at-point): Remove the "...done" message to keep output
- in the echo area visible.
- (org-export-as-xoxo): Fix call to `indent-region'.
+ * calendar/cal-coptic.el, calendar/cal-islam.el, calendar/cal-persia.el:
+ Require calendar rather than cal-julian.
+ Autoload calendar-absolute-from-julian.
+ * calendar/cal-coptic.el (coptic-calendar-epoch):
+ * calendar/cal-islam.el (calendar-islamic-epoch):
+ * calendar/cal-persia.el (persian-calendar-epoch): Set when compiling.
-2006-04-21 Kevin Ryde <user42@zip.com.au>
+ * calendar/cal-islam.el (calendar-islamic-epoch): Doc fix.
- * international/mule.el (keyboard-coding-system): defcustom
- info-link fixes: "Specify Coding" has been split, keyboard now in
- "Terminal Coding", and "Single-Byte Character Support" is now
- "Unibyte Mode".
+ * calendar/cal-dst.el: Don't require cal-persia.
+ (calendar-absolute-from-persian): Autoload it.
+ (dst-adjust-time): Doc fix.
-2006-04-21 Nick Roberts <nickrob@snap.net.nz>
+ * calendar/cal-menu.el (cal-menu-diary-menu): Remove menu headings that
+ cause cal-bahai, cal-islam, cal-hebrew to be loaded on starting the
+ calendar.
- * progmodes/gdb-ui.el (gdb-data-list-register-values-handler):
- Use font-lock-warning-face for any errors e.g. no stack.
- (gdb-stack-list-locals-handler): Display any errors e.g. no stack.
+ * calendar/cal-menu.el: Require calendar rather than declaring
+ functions.
+ * calendar/calendar.el: Provide calendar before requiring cal-menu.
-2006-04-20 Dan Nicolaescu <dann@ics.uci.edu>
+ * calendar/cal-x.el (calendar-after-frame-setup-hook): New name for
+ calendar-after-frame-setup-hooks. Update callers, make old name an
+ obsolete alias. Doc fix.
+ (calendar-frame-1): Doc fix.
- * progmodes/sh-script.el (sh-shell): Mark as safe.
+ * calendar/calendar.el (solar-holidays): Simplify holiday-sexp calls.
- * newcomment.el (comment-start, comment-start-skip)
- (comment-end-skip, comment-end): Mark as safe.
+ * calendar/calendar.el (oriental-holidays, solar-holidays):
+ * calendar/holidays.el (list-holidays): Assume atan always bound.
-2006-04-20 Carsten Dominik <dominik@science.uva.nl>
+ * calendar/lunar.el, calendar/solar.el: Remove floating-point check.
+ Explicitly require calendar, not cal-julian.
+ * calendar/lunar.el: Explicitly require cal-dst.
- * textmodes/org.el (org-deadline-announce): Face removed.
- (org-level-faces, org-n-levels): Convert to constant.
- (org-compatible-face): New function.
- (org-hide, org-level-1, org-level-2, org-level-3, org-level-4)
- (org-level-5, org-level-6, org-level-7, org-level-8)
- (org-special-keyword, org-warning, org-headline-done, org-link)
- (org-date, org-tag, org-todo, org-done, org-table, org-formula)
- (org-scheduled-today, org-scheduled-previously, org-time-grid):
- Face definition revised for better color tty support.
- (org-bold-re, org-italic-re, org-underline-re): New constants.
- (org-set-font-lock-defaults): Use the new constants.
- (org-agenda-highlight-todo): New function.
- (org-agenda-todo): Fix bug with point at end of line.
- (org-agenda-change-all-lines, org-finalize-agenda-entries):
- Fontify TODO keywords.
- (org-insert-link): Preserve relative path in ../ links.
- (org-export-as-html): Convert links pointing to .org files into
- links that will work beteen the exported HTML files.
- (org-todo-list): Fix bug when arg=0.
- (org-insert-heading): More fine-tuning.
+2008-03-26 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-19 Romain Francoise <romain@orebokech.com>
+ * autorevert.el (auto-revert-buffers): Use buffer-live-p.
- * mail/rmail.el (rmail-convert-to-babyl-format): Use second group
- from `rmail-mime-charset-pattern'.
+ * help-fns.el (describe-function-1, describe-variable): If no
+ replacement is provided, don't print "use nil instead".
-2006-04-18 Dan Nicolaescu <dann@ics.uci.edu>
+2008-03-25 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
- * progmodes/python.el (python-mode): Fix typo.
+ * proced.el: New file.
-2006-04-18 J.D. Smith <jdsmith@as.arizona.edu>
+2008-03-25 Tetsurou Okazaki <okazaki@be.to> (tiny change)
- * comint.el (comint-previous-input): Don't clobber input line
- when moving off either end of the input history ring.
- (comint-delete-input): New function, used by
- `comint-previous-input' and others.
- (comint-previous-matching-input):
- Use `coming-delete-input'. Save the partial input if leaving the
- edit line. Goto point-max before deleting input to avoid
- partial input fragments hanging around.
- (comint-restore-input): New function, used by `comint-previous-input'.
+ * emacs-lisp/byte-opt.el (side-effect-free-fns): Fix typo.
-2006-04-18 Luc Teirlinck <teirllm@auburn.edu>
+2008-03-25 Juri Linkov <juri@jurta.org>
- * imenu.el (imenu--index-alist): Balance parentheses.
+ * battery.el: Add file cookie coding:iso-8859-1 for the degree sign
+ in battery-mode-line-format.
-2006-04-18 Dan Nicolaescu <dann@ics.uci.edu>
+ * bindings.el (minibuffer-local-map): For the command
+ file-cache-minibuffer-complete replace keymap minibuffer-local-map
+ with map which is already locally bound to minibuffer-local-map.
- * progmodes/python.el (python-mode): Add support for hs-minor-mode.
+2008-03-25 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-19 Reiner Steib <Reiner.Steib@gmx.de>
+ * subr.el (map-keymap-sorted): Rename from map-keymap-internal.
+ Remove `sort-first' argument.
- * abbrev.el (read-abbrev-file): Use abbrev-file-name if optional
- file is nil.
+ * subr.el (redisplay-end-trigger-functions)
+ (window-redisplay-end-trigger, set-window-redisplay-end-trigger)
+ (process-filter-multibyte-p, set-process-filter-multibyte):
+ Mark as obsolete.
-2006-04-18 Richard Stallman <rms@gnu.org>
+2008-03-25 Juanma Barranquero <lekktu@gmail.com>
- * tooltip.el (tooltip-mode, tooltip-use-echo-area): Doc fixes.
+ * emacs-lisp/re-builder.el (reb-mode-common): Remove reference to
+ bogus variable `reb-kill-buffer'; don't make hooks buffer-local,
+ use the LOCAL arg of `add-hook'.
+ (reb-blink-delay, reb-mode-hook, reb-re-syntax, reb-auto-match-limit):
+ Remove spurious * from defcustom docstrings.
+ (reb-next-match, reb-prev-match, reb-enter-subexp-mode):
+ Fix typos in messages.
+ (reb-mode-buffer-p): New function.
+ (re-builder, reb-kill-buffer): Use `reb-mode-buffer-p'. Use `when'.
+ (top, reb-show-subexp, reb-auto-update, reb-auto-update)
+ (reb-delete-overlays, reb-cook-regexp, reb-update-regexp)
+ (reb-update-overlays): Use `unless', `when'.
+ (re-builder-unload-function): New function.
- * imenu.el (imenu-create-index-function, imenu--index-alist)
- (imenu--last-menubar-index-alist, imenu--make-index-alist)
- (imenu-default-create-index-function, imenu--generic-function):
- Doc fixes.
+2008-03-25 Dan Nicolaescu <dann@ics.uci.edu>
- * image-mode.el (image-toggle-display): Handle tar and arc subfiles.
+ * vc-hooks.el (vc-state): Add documentation for 'missing.
- * help-mode.el (help-mode): Set view-exit-action to delete window.
+2008-03-25 Wilson Snyder <wsnyder@wsnyder.org>
- * env.el (setenv): Get rid of arg UNSET. Interactive unsetting
- now works by passing nil as arg.
+ * progmodes/verilog-mode.el (verilog-auto-output)
+ (verilog-auto-input, verilog-auto-inout, verilog-auto)
+ (verilog-delete-auto): Add optional regular expression to
+ AUTOINPUT/AUTOOUTPUT/AUTOINOUT.
+ (verilog-signals-matching-regexp): New internal function for
+ signal matching.
- * apropos.el (apropos-print): Don't do where-is on self-insert-command.
+2008-03-25 Johan Bockgård <bojohan@gnu.org>
- * abbrev.el (edit-abbrevs-redefine): Temporarily widen.
- (read-abbrev-file): Provide default when reading filename.
+ * info.el (Info-isearch-search): Always return point.
- * files.el (enable-local-variables): Allow :all as value.
- (hack-local-variables): Implement that value.
- (safe-local-variable-values, safe-local-eval-forms)
- (enable-local-variables): Mark as risky.
- (find-file-visit-truename, kept-old-versions): Mark safe.
+2008-03-25 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * diff-mode.el (diff-remembered-defdir): New var.
+ (diff-find-file-name): Use it to flush diff-remembered-files-alist.
+
+2008-03-25 Glenn Morris <rgm@gnu.org>
+
+ * calendar/cal-bahai.el (calendar-bahai-read-date): New name for
+ calendar-bahai-prompt-for-date. Update callers, make old name an
+ obsolete alias. Doc fix.
+ * calendar/cal-coptic.el (calendar-coptic-read-date): New name for
+ coptic-prompt-for-date. Update callers, make old name an
+ obsolete alias. Doc fix.
+ * calendar/cal-hebrew.el (calendar-hebrew-read-date): New name for
+ calendar-hebrew-prompt-for-date. Update callers. Doc fix.
+ * calendar/cal-islam.el (calendar-islamic-read-date): New name for
+ calendar-islamic-prompt-for-date. Update callers. Doc fix.
+ * calendar/cal-iso.el (calendar-iso-read-date): New name for
+ calendar-iso-read-args. Update callers, make old name an obsolete
+ alias.
+ * calendar/cal-persia.el (calendar-persian-read-date): New name for
+ persian-prompt-for-date. Update callers, make old name an
+ obsolete alias. Doc fix. Move definition before use.
+
+ * calendar/cal-x.el (diary-frame-parameters)
+ (calendar-frame-parameters, calendar-and-diary-frame-parameters):
+ (calendar-frame-1): Doc fixes.
+ (make-fancy-diary-buffer): Remove declaration.
+ (calendar-dedicate-diary): Replace call to deleted function
+ make-fancy-diary-buffer.
+ (calendar-frame-setup): New function.
+ (calendar-one-frame-setup, calendar-only-one-frame-setup)
+ (calendar-two-frame-setup): Call calendar-frame-setup to do the actual
+ work, and mark as obsolete.
+ (special-display-buffer-names): Don't mess with this; it's not our
+ business.
+ (cal-x-load-hook): Defvar it, and mark as obsolete.
+
+ * calendar/calendar.el (calendar-remove-frame-by-deleting):
+ Default to t. Add to 'calendar group.
+ (calendar): Doc fix. Use calendar-frame-setup.
+ (calendar-basic-setup): Doc fix. Add optional NODISPLAY argument.
+ (generate-calendar-window): Doc fix.
+
+2008-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * vc-bzr.el (vc-bzr-print-log, vc-bzr-diff): Do it asynchronously.
+
+2008-03-24 Drew Adams <drew.adams@oracle.com>
+
+ * finder.el (finder-mode-syntax-table, finder-font-lock-keywords):
+ New variables.
+ (finder-mode): Use finder-mode-syntax-table. Set font-lock-defaults.
+ (finder-exit): Ignore errors rather than avoiding them.
+ Kill *Finder-package* buffer also.
- * time-stamp.el (time-stamp-format, time-stamp-line-limit)
- (time-stamp-start, time-stamp-end, time-stamp-inserts-lines)
- (time-stamp-count, time-stamp-pattern): Add safe-local-variable prop.
+2008-03-24 Andreas Schwab <schwab@suse.de>
-2006-04-18 Stefan Monnier <monnier@iro.umontreal.ca>
+ * xt-mouse.el (xterm-mouse-event): Avoid error with buttons > 5.
- * progmodes/tcl.el (tcl-send-string, tcl-send-region):
- Use forward-line so as to get to BOL even in the presence of fields.
- (tcl-eval-region): Strip surrounding space to avoid multiple prompts
- in return.
- (inferior-tcl): Tell tclsh to work in interactive mode.
+2008-03-24 Dan Nicolaescu <dann@ics.uci.edu>
- * complete.el (partial-completion-mode):
- Use 'choose-completion-string-functions to make sure that
- choose-completion fills the minibuffer properly.
+ * vc-hg.el (vc-hg-after-dir-status):
+ * vc-bzr.el (vc-bzr-after-dir-status): Detect missing files.
- * complete.el (PC-old-read-file-name-internal): Remove.
- (PC-read-include-file-name-internal): Remove. Turn it into an advice
- of read-file-name-internal.
- (partial-completion-mode): Enable/disable this advice.
+ * vc-cvs.el (vc-cvs-after-dir-status, vc-cvs-parse-status):
+ Detect removed files.
-2006-04-18 Juanma Barranquero <lekktu@gmail.com>
+ * vc.el (vc-status-printer): Use a different face for missing files.
+ (vc-status-hide-up-to-date): Rename from
+ vc-status-remove-up-to-date. Update all callers.
+ (vc-status-mode-map): Bind C-m.
- * net/tramp.el (tramp-completion-file-name-handler): Revert change
- of 2006-04-17.
+2008-03-24 Alexandre Julliard <julliard@winehq.org>
-2006-04-18 Carsten Dominik <dominik@science.uva.nl>
+ * vc-git.el (vc-git-after-dir-status-stage1): Move state matching
+ code ...
+ (vc-git--state-code): ... to this new function.
+ (vc-git-state): Use it.
- * textmodes/org.el (org-insert-heading): Insert heading before
- current if at beginning of line.
- (org-todo, org-date): New faces.
- (org-table-align): Make sure tooltip window contains full text.
- (org-no-properties): New defsubst.
- (org-set-font-lock-defaults): Use new faces.
+2008-03-24 Trent Buck <trentbuck@gmail.com> (tiny change)
-2006-04-18 Nick Roberts <nickrob@snap.net.nz>
+ * textmodes/remember.el (remember-mail-date)
+ (remember-store-in-mailbox): Write date and From line in such a
+ way that Mutt can read it.
- * progmodes/gud.el (gud-speedbar-item-info): Display frame address
- for root variables.
+2008-03-23 Chong Yidong <cyd@stupidchicken.com>
- * progmodes/gdb-ui.el (gdb-pc-address): Rename from gdb-frame-address.
- (gdb-frame-address): Re-use to identify frame for watch expression.
- (gdb-var-list, gdb-var-create-handler): Add frame address for root
- variables.
- (gdb-init-1, gdb-source, gdb-post-prompt)
- (gdb-assembler-custom, gdb-invalidate-assembler): Use gdb-pc-address.
- (gdb-frame-handler): Get gdb-frame-address.
+ * simple.el (transient-mark-mode): Turn on by default.
-2006-04-17 Michael Albinus <michael.albinus@gmx.de>
+2008-03-23 Dan Nicolaescu <dann@ics.uci.edu>
- Sync with Tramp 2.0.53.
+ * vc-bzr.el (vc-bzr-state): Return 'removed for removed files and
+ 'unregistered for unregistered files.
- * net/tramp.el (tramp-completion-mode): ?\t has event-modifier
- 'control. Reported by Matthias F\e,Av\e(Brste <slashdevslashnull@gmx.net>.
- (tramp-completion-file-name-handler): Add autoload cookie for
- adding to `file-name-handler-alist'.
+ * vc-hg.el (vc-hg-state): Return 'removed for removed files.
- * net/tramp-smb.el (tramp-smb-wait-for-output): Wait always for
- the prompt. If it returns earlier (when detecting an error
- message), the rest of the output will merge accidently with the
- output of the next command. Reported by M Jared Finder
- <jared@hpalace.com>.
+ * bindings.el (standard-mode-line-modes): Avoid duplicating a string.
- * net/tramp-vc.el (vc-user-login-name): Wrap defadvice with a test
- for `process-file', in order to let it work for older Emacsen too.
+ * vc-cvs.el (vc-cvs-parse-status): Note there are problems with
+ subdirectories.
-2006-04-17 Ralf Angeli <angeli@iwi.uni-sb.de>
+ * vc.el (vc-status-prepare-status-buffer): Fix thinko.
+ (vc-status-menu-map): Add binding for vc-status-kill-dir-status-process.
+ Add :enable for vc-status-refresh.
+ (vc-status-menu-map-filter): Remove vc-ignore-menu-filter test.
+ (vc-status-tool-bar-map): Add binding for
+ vc-status-kill-dir-status-process.
+ Don't test display-graphic-p and don't bind vc-ignore-menu-filter.
+ (vc-update-vc-status-buffer, vc-status-kill-dir-status-process):
+ Reset vc-status-process-buffer.
+ (vc-status-refresh): Don't run two refreshes at a time.
+ (vc-status): If the buffer is already in vc-status-mode only refresh.
+ (vc-status-mark-buffer-changed): Add an optional file parameter.
+ (vc-resynch-buffer): Use it.
+ (vc-delete-file): Expand the file name before using it.
+ Be careful to not create a new buffer with the old file contents.
+ Update the VC state after performing the operation.
- * textmodes/tex-mode.el (tex-font-lock-match-suscript): New function.
- (tex-font-lock-keywords-3): Use it.
+2008-03-23 Andreas Schwab <schwab@suse.de>
-2006-04-16 Stefan Monnier <monnier@iro.umontreal.ca>
+ * menu-bar.el (menu-bar-showhide-fringe-ind-menu) [mixed]:
+ Fix radio button condition.
+ [box]: Likewise.
+ [customize]: Add radio button.
- * newcomment.el (comment-add): New function.
- (comment-region-default, comment-dwim): Use it.
+2008-03-23 Jay Belanger <jay.p.belanger@gmail.com>
-2006-04-15 Michael Olson <mwolson@gnu.org>
+ * calc/calc.el (calc-was-keypad-mode, calc-full-mode)
+ (calc-user-parse-tables, calc-gnuplot-default-device)
+ (calc-gnuplot-default-output, calc-gnuplot-print-device)
+ (calc-gnuplot-print-output, calc-gnuplot-geometry)
+ (calc-graph-default-resolution, calc-graph-default-resolution-3d)
+ (calc-invocation-macro, calc-trail-pointer, calc-trail-overlay)
+ (calc-undo-list, calc-redo-list, calc-main-buffer)
+ (calc-trail-buffer, calc-why, calc-last-kill, calc-dollar-values)
+ (calc-dollar-used, calc-hashes-used, calc-quick-prev-results)
+ (calc-said-hello, calc-executing-macro, calc-any-selections)
+ (calc-help-phase, calc-full-help-flag, calc-refresh-count)
+ (calc-display-dirty, calc-embedded-info, calc-embedded-active)
+ (calc-standalone-flag, var-EvalRules, math-expr-function-mapping)
+ (math-expr-variable-mapping, calc-mode-map, calc-digit-map)
+ (calc-dispatch-map, calc-do-dispatch, calc-read-key-sequence)
+ (calc-create-buffer, calc-quit): Add docstrings.
- * emacs-lisp/tq.el: Improve comments.
- (tq-queue-head-question): New accessor function.
- (tq-queue-head-regexp, tq-queue-head-closure, tq-queue-head-fn):
- Update for modified queue structure.
- (tq-queue-add): Accept `question' argument.
- (tq-queue-pop): If a question is pending, send it.
- (tq-enqueue): Accept new optional argument `delay-question'.
- If this is non-nil, and at least one other question is pending a
- response, queue the question rather than sending it immediately.
+2008-03-23 Juanma Barranquero <lekktu@gmail.com>
-2006-04-15 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
+ * makefile.w32-in (WINS_ALMOST): Add org.
- * calendar/appt.el (appt-add): Check whether an appointment is
- already present in appt-time-msg-list. Simplify code.
+2008-03-23 Dan Nicolaescu <dann@ics.uci.edu>
-2006-04-14 Stefan Monnier <monnier@iro.umontreal.ca>
+ * vc-cvs.el (vc-cvs-after-dir-status, vc-cvs-dir-status):
+ New functions to implement vc-status support.
- * progmodes/cc-langs.el (c-mode-menu):
- Don't presume c-subword-mode is bound.
+2008-03-22 Dan Nicolaescu <dann@ics.uci.edu>
-2006-04-13 Bill Wohler <wohler@newt.com>
+ * vc.el (vc-status-prepare-status-buffer): New function.
+ (vc-status): Use it.
- * cus-edit.el (customize-package-emacs-version-alist): Update docstring.
- (customize-package-emacs-version): Use cdr instead of cadr now
- that alists use dotted pairs.
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add ... where
+ appropriate.
- * custom.el (defcustom): Fix docstring for :package-version.
+2008-03-22 Alexandre Julliard <julliard@winehq.org>
-2006-04-13 Michael Albinus <michael.albinus@gmx.de>
+ * vc-git.el (vc-git--empty-db-p)
+ (vc-git-after-dir-status-stage1-empty-db): New functions.
+ (vc-git-dir-status, vc-git-after-dir-status-stage1, vc-git-state):
+ Add support for empty repositories.
- * net/tramp.el (tramp-display-shell-command-buffer): New defvar.
- (tramp-handle-shell-command): Display output buffer only when
- `tramp-display-shell-command-buffer' is true.
- (tramp-handle-process-file): Set `tramp-display-shell-command-buffer'.
+2008-03-22 Dan Nicolaescu <dann@ics.uci.edu>
-2006-04-13 Carsten Dominik <dominik@science.uva.nl>
+ * vc-git.el (vc-git-annotate-extract-revision-at-line):
+ Allow "^" in a version name.
- * textmodes/org.el (org-set-autofill-regexps): Set only the local
- values of `adaptive-fill-regexp' and `adaptive-fill-function'.
+ * vc-mtn.el (vc-mtn-state): Support the added state.
-2006-04-13 Romain Francoise <romain@orebokech.com>
+2008-03-22 Carsten Dominik <dominik@science.uva.nl>
- * pcvs-parse.el (cvs-parse-table): Use `with-temp-buffer' to avoid
- leaving temporary .cvsignore buffers behind.
+ * org: New directory for Org-mode.
-2006-04-13 Carsten Dominik <dominik@science.uva.nl>
+ * org/org-export-latex.el: Moved from lisp/texmodes.
- * textmodes/org.el (org-set-regexps-and-options)
- (org-get-current-options): Better names for the startup folding
- options.
+ * org/org-irc.el: Moved from lisp/texmodes.
-2006-04-13 Thien-Thi Nguyen <ttn@gnu.org>
+ * org/org-mac-message.el: Moved from lisp/texmodes.
- * vc.el (vc-annotate): Arrange for point to end up at the same
- line number as in the original, but only when using a new buffer.
+ * org/org-mouse.el: Moved from lisp/texmodes.
-2006-04-12 Stuart Herring <herring@lanl.gov> (tiny change)
+ * org/org-publish.el: Moved from lisp/texmodes.
- * files.el (hack-one-local-variable-eval-safep):
- Recognize `edebug-form-spec' for `put', but only if it passes
- `edebug-basic-spec'. Generalize `put' handling.
+2008-03-21 Juri Linkov <juri@jurta.org>
- * emacs-lisp/edebug.el (edebug-basic-spec): New function for
- vetting file-local form specs.
+ * comint.el (comint-dynamic-simple-complete):
+ Use variable `stub' for the second arg `common-substring'
+ of `comint-dynamic-list-completions'.
+ (comint-dynamic-list-filename-completions):
+ Use variable `filenondir' for the second arg `common-substring'
+ of `comint-dynamic-list-completions'.
+ (comint-dynamic-list-completions): Add new optional arg
+ `common-substring'. Add `common-substring' as the second arg of
+ the call to `display-completion-list'. Doc fix.
- * allout.el (allout-layout): Autoload its `safe-local-variable'
- property.
+ * comint.el (comint-dynamic-complete-as-filename)
+ (comint-dynamic-list-filename-completions)
+ (comint-dynamic-simple-complete): Use `minibuffer-message'
+ to display message "No completions of %s" when a command
+ is called in the minibuffer.
+ (comint-dynamic-simple-complete): Don't display other
+ completion messages when a command is called in the minibuffer.
+ (comint-dynamic-list-completions): Use `minibuffer-message'
+ to display message " [Type space to flush ...]" when a command
+ is called in the minibuffer.
-2006-04-13 Carsten Dominik <dominik@science.uva.nl>
+ * shell.el (shell-dynamic-complete-command)
+ (shell-dynamic-complete-environment-variable): Don't display
+ completion messages when command is called in the minibuffer.
- * textmodes/org.el (org-ctrl-c-ctrl-c): Improve documentation string.
- (org-agenda-mouse-1-follows-link)
- (org-mouse-1-follows-link): New options.
- (org-format-agenda-item): Fix bug if TAGS is nil.
- (org-agenda-get-scheduled): Quote `priority' symbol in plist.
+ * emacs-lisp/lisp.el (lisp-complete-symbol):
+ Use `minibuffer-message' to display message "No completions of %s"
+ when this command is called in the minibuffer.
-2006-04-13 Nick Roberts <nickrob@snap.net.nz>
+ * bindings.el (standard-mode-line-modes): Put special help-echo
+ tooltip on recursive edit %[ %] mode-line constructs.
- * progmodes/gdb-ui.el (gdb-set-gud-minor-mode-existing-buffers):
- GDB 6.1+ gives full filename for "info sources" so use
- file-name-nondirectory.
+ * dabbrev.el (debug-ignored-errors): Remove $ from the end of
+ "^No dynamic expansion for .* found$" to allow error messages like
+ "No dynamic expansion for \"%s\" found in this-buffer".
-2006-04-12 Romain Francoise <romain@orebokech.com>
+2008-03-21 Michael Albinus <michael.albinus@gmx.de>
- * subr.el (read-passwd): Bind `message-log-max' to nil.
+ * net/tramp.el (tramp-methods): Fix tramp-copy-args of "pscp" and
+ "psftp".
-2006-04-12 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-03-21 Stefan Monnier <monnier@iro.umontreal.ca>
- * progmodes/perl-mode.el (perl-indent-new-calculate):
- Recompute parse-start after jumping backward by a whole sexp.
+ * vc-hooks.el (vc-default-mode-line-string): Add case for added files.
+ * vc.el (vc-default-dired-state-info): Use just "modified".
+ * vc-cvs.el (vc-cvs-state-heuristic): Turn rev 0 into `added'.
+ (vc-cvs-mode-line-string): Make use of the better default.
+ (vc-cvs-parse-entry): Use the new `added'.
+ (vc-cvs-dired-state-info): Remove.
+ * vc-svn.el (vc-svn-dired-state-info): Remove.
+ * vc-hg.el (vc-hg-dired-state-info): Remove.
+ * vc-git.el (vc-git-dired-state-info): Remove.
-2006-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-03-21 Dan Nicolaescu <dann@ics.uci.edu>
- * vc.el (vc-ensure-vc-buffer): Only change current-buffer, not the
- window configuration.
- (vc-annotate-display-select): Select the buffer so that current-buffer
- (and selected-window) is the output buffer at the end of vc-annotate.
+ * vc-git.el (vc-git-status-result): New variable.
+ (vc-git-dir-status): Split out ...
+ (vc-git-after-dir-status-stage1, vc-git-after-dir-status-stage2):
+ ... these new functions and work asynchronously.
-2006-04-11 J.D. Smith <jdsmith@as.arizona.edu>
+2008-03-21 Alexandre Julliard <julliard@winehq.org>
- * vc.el (vc-annotate-color-map): Add custom TTY color map for
- 8-color terminals, to use all of the colors in a sensible order.
- 256-color terminals work well with the standard map.
- (vc-annotate-lines): Only strip the first color character if it
- is "#", to allow for terminal-style named colors.
- (vc-annotate-warp-version): Pass buf to `goto-line' to ensure
- the correct buffer is scrolled.
+ * vc-git.el (vc-git-after-dir-status): Remove.
+ (vc-git-dired-state-info): Reimplement.
-2006-04-11 Richard Stallman <rms@gnu.org>
+2008-03-21 Dan Nicolaescu <dann@ics.uci.edu>
- * emacs-lisp/bytecomp.el (byte-compile-file):
- Bind enable-local-variables to :safe, and make normal-mode obey it.
+ * replace.el (occur-mode-map): Add :help.
- * files.el (enable-local-variables): Allow value :safe.
- (normal-mode): Doc fix.
- (hack-local-variables): Implement enable-local-variables = :safe.
- (hack-local-variables-confirm): Don't prevent quitting.
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entry
+ for disassemble.
-2006-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
+ * vc.el (vc-status-mark-buffer-changed): Better deal with files in
+ the 'added state.
+ (vc-status-remove-up-to-date): New function.
+ (vc-status-mode-map, vc-status-menu-map): Bind it.
+ (vc-status-printer): Use a different face up-to-date files.
+ (vc-resynch-buffer): Update the vc-status buffer if it exists.
+ (Todo): Remove solved entries.
- * loadhist.el (unload-feature): A bit of sanity check of
- load-history entries. Cancel timer-vars before unbinding them.
+ * vc-hg.el (vc-hg-state):
+ * vc-git.el (vc-git-state):
+ * vc-cvs.el (vc-cvs-parse-status):
+ * vc-bzr.el (vc-bzr-state): Return 'added when the file is in that
+ state.
- * hexl.el (hexl-isearch-search-function): Fix regexp-building code to
- quote special chars, and make the trick work on the hex part of the
- buffer as well.
- (hexl-mode, hexl-save-buffer, hexl-mode-exit)
- (hexl-maybe-dehexlify-buffer): Use restore-buffer-modified-p.
+2008-03-20 Stefan Monnier <monnier@iro.umontreal.ca>
- * startup.el (normal-splash-screen): Fix last change so we don't wait
- 2 minutes if we don't show the splash screen.
+ * progmodes/compile.el (compile):
+ * progmodes/grep.el (grep, grep-find): Use read-shell-command.
-2006-04-11 Carsten Dominik <dominik@science.uva.nl>
+ * simple.el (minibuffer-local-shell-command-map): New var.
+ (minibuffer-complete-shell-command, read-shell-command): New funs.
+ (shell-command, shell-command-on-region): Use them.
- * textmodes/org.el (org-export-plain-list-max-depth)
- (org-table-spaces-around-separators)
- (org-radio-targets, org-activate-camels)
- (org-table-spaces-around-invisible-separators): Options removed.
- (org-time-stamp-rounding-minutes, org-remember-templates)
- (org-ellipsis, org-activate-links, org-descriptive-links):
- New options.
- (org-remember-apply-template, org-current-time)
- (org-finish-edit-table-field)
- (org-link-unescape, org-link-escape)
- (org-string-width, org-table-clean-line, org-html-do-expand)
- (org-edit-agenda-file-list, org-store-new-agenda-file-list)
- (org-read-agenda-file-list): New functions.
- (org-table-edit-field)
- (org-table-create-or-convert-from-region): New commands
- (org-table-toggle-vline-visibility): Command removed.
- (org-table-convert-region): Made a command.
- (orgtbl-deleta-backward-char, orgtbl-delete-char): Remove commands.
- Replace with the normal org- functions.
- (org-self-insert-command): Don't trigger realign unnecessarily
- when blanking a field that is not full.
- (org-mode): `Set buffer-invisibility-spec' for links.
- (org-activate-links2): Hide link part and only show descriptive
- part of the link.
- (org-insert-link): Modify for new linking system.
- (org-store-link): Store description separately, for use by
- `org-insert-link'.
- (org-table-align): Use `org-string-width'.
- (defgroup): Completely new group structure for custom variables.
- (org-agenda-files): Option: Single file name allowed. Function:
- Optional argument unrestrited means ignore any restricitons.
- (org-install-agenda-files-menu): Find a buffer in Org-mode before
- trying to modify the menu. Use generalized access to
- `org-agenda-files.'
- (org-agenda-list, org-todo-list, org-cycle-agenda-files)
- (org-agenda-file-to-front, org-remove-file, org-diary)
- (org-tags-view, org-export-icalendar-all-agenda-files)
- (org-export-icalendar-combine-agenda-files): Use generalized
- access to `org-agenda-files'.
- (org-remember-handler): Correctly preserve heading if present.
- (org-table-insert-row, org-table-insert-hline): Deal with
- invisible characters.
-
-2006-04-10 J.D. Smith <jdsmith@as.arizona.edu>
-
- * vc.el (vc-annotate-display-mode): Made default 'fullscale.
- (vc-annotate-color-map): New 18 element constant
- value/saturation, rotating hue colormap, from red->blue.
- (vc-annotate-mode-menu): "Default" -> "By Color Map Range".
- (vc-annotate-display-select): Switch to annotate-mode elsewhere.
- (vc-annotate): To avoid killing the required local variables,
- set them before the end of `with-output-to-temp-buffer', and
- after first switching to annotate-mode.
- (vc-annotate-warp-version): Add buffer argument in goto-line to
- ensure annotation, not source, is scrolled.
-
-2006-04-10 Bill Wohler <wohler@newt.com>
-
- * custom.el (defcustom, custom-handle-keyword):
- Add :package-version keyword.
- (custom-add-package-version): New function. Sets value of new
- property 'custom-package-version from :package-version keyword.
- (defcustom): Create Common Keywords section in docstring.
- (defface, defgroup): Replace definitions of a select few keywords
- with a reference to the Common Keywords in defcustom.
- (defcustom, defface, defgroup): Replace reference to Customization
- chapter in manual with hyperlink.
-
- * cus-edit.el (customize-package-emacs-version-alist): New variable.
- (customize-changed-options): Add check for custom-package-version.
- (customize-package-emacs-version): New function to look up Emacs
- version corresponding to the given package version.
-
- * emacs-lisp/find-func.el (find-function-regexp): Allow dashes in
- defun name, in similar fashion to find-variable-regexp.
-
-2006-04-10 Eli Zaretskii <eliz@gnu.org>
-
- * international/mule-cmds.el (set-locale-environment): Fix last
- change for when the locale's preferences don't specify any encoding.
-
-2006-04-10 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/find-func.el (find-function-search-for-symbol): Fix regexp
- so the defined var/fun doesn't need to be quoted.
-
-2006-04-10 Richard Stallman <rms@gnu.org>
-
- * finder.el (finder-mode-map): Add n and p bindings.
-
-2006-04-10 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-init-1): Re-initialise gdb-main-file to nil.
- (gdb-get-version): Make it work for pre "interpreter mi" (GDB 5.3?).
- (gdb-setup-windows): Put something in source window if we can't find
- the source file.
- (gdb-frame-handler): Make it work again with just assembly.
- (gdb-data-list-register-values-handler): Make it work when there is
- no stack.
-
-2006-04-09 Richard Stallman <rms@gnu.org>
-
- * mail/rmail.el (rmail-mime-charset-pattern): Ignore format and delsp
- specs while looking for charset.
-
- * textmodes/picture.el (picture-mode-exit): Run picture-mode-exit-hook.
-
- * play/landmark.el (lm-font-lock-face-O, lm-font-lock-face-X):
- Make them faces.
- (lm-font-lock-keywords): Update appropriately.
-
-2006-04-10 Kim F. Storm <storm@cua.dk>
-
- * simple.el (filter-buffer-substring): Add NOPROPS arg, so
- it can also replace buffer-substring-no-properties.
-
- * emulation/cua-base.el (cua-delete-region, cua-paste)
- (cua-repeat-replace-region): Use filter-buffer-substring.
-
- * emulation/cua-gmrk.el (cua-copy-region-to-global-mark)
- (cua-cut-region-to-global-mark): Likewise.
-
- * emulation/cua-rect.el (cua--extract-rectangle)
- (cua-incr-rectangle, cua--rectangle-aux-replace): Likewise.
-
-2006-04-09 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-entry-update): New optional arg
- entry-type. Add field delimiters to numerical fields if they are
- not present.
-
-2006-04-09 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
-
- * textmodes/bibtex.el (bibtex-find-text-internal): Add new element
- string-const to return value.
- (bibtex-remove-delimiters): Use it.
-
-2006-04-08 Stefan Monnier <monnier@iro.umontreal.ca>
-
- * emacs-lisp/bytecomp.el (byte-compile-form): Don't call
- cl-byte-compile-compiler-macro unless it exists.
-
-2006-04-08 Eli Zaretskii <eliz@gnu.org>
-
- * files.el (hack-local-variables-confirm) <offer-save>:
- Clarify message text. Suggested by Ralf Angeli.
-
-2006-04-08 Micha\e,Ak\e(Bl Cadilhac <michael.cadilhac@lrde.org>
-
- * rect.el (kill-rectangle): Don't barf if `kill-read-only-ok' is set.
- (delete-extract-rectangle-line): Use `filter-buffer-substring'
- instead of `buffer-substring' and `delete-region'. (Most of the
- code actually copied from `kill-region'.)
+2008-03-20 Dan Nicolaescu <dann@ics.uci.edu>
-2006-04-08 Ryan Yeske <rcyeske@gmail.com>
+ * vc.el (vc-status-mark-buffer-changed): New function to implement
+ updating of the *vc-status* buffer when a buffer is saved.
+ (vc-status-mode): Use it for after-change-hook.
+ (vc-add-to-vc-status-buffer): Rename to ...
+ (vc-status-add-entry): ... this.
+ (Todo): Add new entry.
- * net/rcirc.el (rcirc-default-server): Rename from rcirc-server.
- (rcirc-default-port): Rename from rcirc-port.
- (rcirc-default-nick): Rename from rcirc-nick.
- (rcirc-default-user-name): Rename from rcirc-user-name.
- (rcirc-default-user-full-name): Rename from rcirc-user-full-name.
- (rcirc-low-priority-flag): New variable.
- (rcirc-decode-coding-system): New defcustom.
- (rcirc-encode-coding-system): New defcustom.
- (rcirc-coding-system-alist): New defcustom.
- (rcirc-multiline-major-mode): New defcustom.
- (rcirc-nick): New internal variable.
- (rcirc-process): Remove variable.
- (rcirc-server-buffer): New variable.
- (rcirc): Update to use rcirc-default-* variables above.
- (rcirc-connect): Do not add window-configuration-hook-here.
- (rcirc-server): New internal variable.
- (rcirc-connect): Do not send keepalive pings if
- rcirc-keepalive-seconds is nil.
- (with-rcirc-server-buffer): New macro.
- (rcirc-send-string): Encode with rcirc-encode-coding-system.
- (rcirc-server-name): Rename from rcirc-server.
- (rcirc-buffer-process): New function.
- (rcirc-buffer-nick): New function.
- (rcirc-buffer-target): Remove function.
- (set-rcirc-decode-coding-system, set-rcirc-encode-coding-system):
- New commands.
- (rcirc-mode-map): Change binding of C-c C-l to
- rcirc-toggle-low-priority.
- (rcirc-mode): Initialize coding system based on
- rcirc-coding-system-alist. New change-major-mode-hook to part the
- channel on a mode change. Make kill-buffer-hook buffer-local.
- (rcirc-change-major-mode-hook): New function.
- (rcirc-clean-up-buffer): Rename from rcirc-kill-buffer-hook-1.
- (rcirc-last-post-time): New variable.
- (rcirc-process-message): Store the last time user posted a message
- to this target.
- (rcirc-multiline-minor-mode): New mode.
- (rcirc-multiline-minor-mode-map): New mode map.
- (rcirc-edit-multiline): Put multiline-edit buffer in
- rcirc-multiline-major-mode along with rcirc-multiline-minor-mode.
- (rcirc-print): Ignore any line starting with an ignored nick.
- (rcirc-print): Decode using rcirc-decode-coding-system.
- (rcirc-track-minor-mode): Update global-mode-string when disabling
- this mode.
- (minor-mode-alist): Add LowPri indicator.
- (rcirc-toggle-low-priority): New function.
- (rcirc-last-non-irc-buffer): Prefix arg now no means switch to
- next lowpriority buffer with activity.
- (rcirc-record-activity): Sort buffers in rcirc-activity by the
- last time the user posted a message in to the target.
- (rcirc-update-activity-string): New formatting for low priority
- buffers.
- (rcirc-split-activity): New function.
- (rcirc-handler-PART, rcirc-handler-KICK)
- (rcirc-handler-PART-or-KICK): Kick responses are printed properly.
- (rcirc-nick-away-alist): New variable.
- (rcirc-handler-301): New handler. Away messages are printed once
- per change.
+2008-03-20 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-08 Eli Zaretskii <eliz@gnu.org>
+ * sort.el (sort-reorder-buffer): Preserve the buffer's multibyteness.
- * info.el (Info-follow-nearest-node): Doc fix.
+2008-03-20 Juanma Barranquero <lekktu@gmail.com>
- * international/mule-cmds.el (set-locale-environment): Make sure
- the coding-system preferred by the locale's language has the same
- EOL conversion type as the original buffer-file-coding-system.
- (locale-language-names): Add a few MS Windows language codes.
+ * icomplete.el (icomplete-prospects-length, icomplete-max-delay-chars)
+ (icomplete-show-key-bindings, icomplete-minibuffer-setup-hook):
+ Remove spurious * from defcustom docstrings.
+ (icomplete-compute-delay): Fix docstring and remove spurious *.
+ (icomplete-delay-completions-threshold): Fix typo in docstring and
+ remove spurious *.
+ (icomplete-completions): While collecting the list of prospective
+ candidates, don't overshoot `icomplete-prospects-length'.
-2006-04-07 Richard Stallman <rms@gnu.org>
+2008-03-20 Dan Nicolaescu <dann@ics.uci.edu>
- * simple.el (eval-expression): Doc fix.
+ * textmodes/refbib.el:
+ * textmodes/reftex.el:
+ * textmodes/reftex-global.el:
+ * textmodes/reftex-vars.el:
+ * textmodes/reftex-toc.el: Don't use eval-and-compile for byte
+ compiler pacifying defvars.
+ (reftex-toc-mode): Only make zmacs-regions local on XEmacs.
+ * textmodes/reftex-index.el (zmacs-regions): Remove pacifier,
+ not needed.
- * emacs-lisp/lisp-mode.el (eval-print-last-sexp, eval-last-sexp)
- (eval-defun): Doc fixes.
+2008-03-20 Wilson Snyder <wsnyder@wsnyder.org>
-2006-04-07 Reiner Steib <Reiner.Steib@gmx.de>
+ * progmodes/verilog-mode.el (verilog-easy-menu-filter): New function.
+ (verilog-stmt-menu, verilog-menu): Add :help and filter it.
+ (verilog-customize, verilog-font-customize)
+ (electric-verilog-backward-sexp, electric-verilog-forward-sexp)
+ (verilog-mode): Update documentation strings to match tool tips.
+ (verilog-auto-search-do, verilog-auto-re-search-do)
+ (verilog-skip-forward-comment-or-string): Fix verilog-auto
+ expansion when a .* appears inside a string.
+ (verilog-re-search-forward, verilog-re-search-backward):
+ Add comment to recall how this works.
+ (verilog-read-decls): Fix AUTOINPUT/AUTOOUTPUT mis-including genvars.
- * pgg-gpg.el: Revert to revision 1.8 to allow the use of gpg-agent.
+2008-03-20 Glenn Morris <rgm@gnu.org>
-2006-04-07 Nick Roberts <nickrob@snap.net.nz>
+ * calendar/calendar.el (calendar-other-dates): New function.
+ (calendar-print-other-dates): Use calendar-other-dates.
+ * calendar/cal-menu.el (calendar-other-dates): Declare it, and removes
+ the declarations it replaces.
+ (calendar-mouse-print-dates): Use calendar-other-dates.
- * progmodes/gdb-ui.el (gdb-init-2): Set current filename using
- GDB list command without argument for greater generality.
+ * calendar/cal-bahai.el (calendar-bahai-leap-year-p)
+ (calendar-bahai-leap-base, calendar-bahai-from-absolute): Doc fixes.
+ (calendar-absolute-from-bahai): Fix the leap-year case.
+ (calendar-bahai-from-absolute): Re-use the Gregorian month.
+ (calendar-bahai-date-string, calendar-bahai-print-date):
+ Handle pre-Bahai dates.
-2006-04-06 Reiner Steib <Reiner.Steib@gmx.de>
+ * calendar/cal-china.el (chinese-calendar-celestial-stem)
+ (chinese-calendar-terrestrial-branch): Make defcustoms.
- * subr.el (string-or-null-p): New function.
+ * calendar/cal-menu.el (calendar-mouse-holidays): Re-use the title.
+ (calendar-mouse-view-diary-entries): Use or.
+ (calendar-mouse-chinese-date): Remove unused command.
+ (cal-menu-load-hook): Mark as obsolete.
- * textmodes/paragraphs.el (sentence-end): Use string-or-null-p.
+ * calendar/solar.el (calendar-location-name, calendar-latitude)
+ (calendar-longitude, solar-arctan, sunrise-sunset)
+ (solar-mean-equinoxes/solstices): Use the appropriate equality test.
- * textmodes/ispell.el (ispell-local-dictionary): Use string-or-null-p.
+2008-03-20 Jay Belanger <jay.p.belanger@gmail.com>
- * files.el: Update comment about safe-local-variable declarations.
+ * calc/calc.el: Remove outdated comments.
+ (defcalcmodevar, calc-mode-var-list-restore-default-values)
+ (calc-mode-var-list-restore-saved-values, calc-autorange-units):
+ Add docstrings.
-2006-04-06 J.D. Smith <jdsmith@as.arizona.edu>
+2008-03-19 Jason Rumney <jasonr@gnu.org>
- * progmodes/idlwave.el: Updated to IDLWAVE version 6.0.
- See idlwave.org.
+ * w32-fns.el (x-alternatives-map): Add S-tab mapping.
- * progmodes/idlw-shell.el: Updated to IDLWAVE version 6.0.
- See idlwave.org. Includes code to obsolete idlw-rinfo.el.
+2008-03-19 Reiner Steib <Reiner.Steib@gmx.de>
- * progmodes/idlw-help.el: Updated to IDLWAVE version 6.0.
- See idlwave.org.
+ * net/tls.el (open-tls-stream): Reindent.
- * progmodes/idlw-complete-structtag.el: Updated to IDLWAVE
- version 6.0 (minimal changes). See idlwave.org.
+2008-03-19 Michael Albinus <michael.albinus@gmx.de>
- * progmodes/idlw-toolbar.el: Updated to IDLWAVE version
- 6.0 (minimal changes). See idlwave.org.
+ * net/tramp.el (tramp-let-maybe): Removed.
+ (tramp-drop-volume-letter): Don't use `replace-regexp-in-string'.
+ It does not exist under XEmacs.
+ (tramp-handle-file-truename, tramp-handle-expand-file-name)
+ (tramp-completion-file-name-handler): Let-bind
+ `directory-sep-char'.
- * progmodes/idlw-rinfo.el: File obsoleted and removed.
+ * net/tramp-fish.el (tramp-fish-handle-expand-file-name): Let-bind
+ `directory-sep-char'.
-2006-04-06 Romain Francoise <romain@orebokech.com>
+2008-03-19 Stefan Monnier <monnier@iro.umontreal.ca>
- * pgg-gpg.el: Sync back with Gnus 5.10, reverting changes that add
- symmetric encryption features and a new asynchronous interface to
- GnuPG. This new version is version 1.4, plus whitespace changes.
+ * help-fns.el (describe-function-1): Don't signal "missing arglist"
+ for autoloaded keymaps.
-2006-04-06 Reiner Steib <Reiner.Steib@gmx.de>
+ * progmodes/verilog-mode.el (verilog-syntax-ppss): New function.
+ (electric-verilog-terminate-line, verilog-in-struct-region-p)
+ (verilog-backward-ws&directives, verilog-forward-ws&directives)
+ (verilog-in-comment-p, verilog-in-star-comment-p)
+ (verilog-in-slash-comment-p, verilog-skip-backward-comments)
+ (verilog-parenthesis-depth, verilog-skip-backward-comment-or-string)
+ (verilog-skip-forward-comment-or-string, verilog-in-paren)
+ (verilog-skip-forward-comment-p): Use it.
- * files.el: Move some `safe-local-variable' declarations to the
- respective files.
+2008-03-19 Juanma Barranquero <lekktu@gmail.com>
- * textmodes/ispell.el (ispell-check-comments)
- (ispell-local-dictionary): Mark as safe.
+ * textmodes/org.el (org-link-store, org-link-follow, org-latex)
+ (org-remember-templates, org-time-stamp-rounding-minutes)
+ (org-back-over-empty-lines, org-find-base-buffer-visiting)
+ (org-columns-new): Fix typos in docstrings.
- * abbrev.el (abbrev-mode): Mark as safe.
+2008-03-19 Glenn Morris <rgm@gnu.org>
- * add-log.el (change-log-default-name): Mark as safe.
+ * net/tramp.el (tramp-drop-volume-letter): Evaluate when compiling.
+ (tramp-handle-shell-command): Use condition-case rather than
+ ignore-errors.
- * textmodes/reftex-vars.el (reftex-vref-is-default)
- (reftex-fref-is-default, reftex-level-indent)
- (reftex-guess-label-type): Mark as safe.
+2008-03-19 Dan Nicolaescu <dann@ics.uci.edu>
- * textmodes/fill.el (colon-double-space): Mark as safe.
+ * diff-mode.el (diff-header): Make the color louder.
+ (diff-refine-change): Tone the color down.
- * textmodes/paragraphs.el (paragraph-start, paragraph-separate)
- (sentence-end-double-space, sentence-end-without-period)
- (sentence-end-without-space, sentence-end, sentence-end-base)
- (page-delimiter, paragraph-ignore-fill-prefix): Mark as safe.
+2008-03-19 Juanma Barranquero <lekktu@gmail.com>
-2006-04-06 Kim F. Storm <storm@cua.dk>
+ * descr-text.el (describe-char): When `describe-char-unidata-list'
+ is set to show all properties, list them in the right order.
- * ido.el (ido-mode): Remove ido-ignore-unc-host-regexps from
- the :set-after list.
- (ido-downcase-unc-hosts): New user option. Default on.
- (ido-ignore-unc-host-regexps): Don't reset ido-unc-hosts-cache
- when it is set, as regexps are now applied on the fly.
- (ido-unc-hosts): Keep all known hosts in ido-unc-hosts-cache.
- Make C-a DTRT--filter hosts through ido-ignore-unc-host-regexps
- on the fly, but only when ido-process-ignore-lists is set.
- Do case insensitive filtering if ido-downcase-unc-hosts is set.
- Only downcase names if ido-downcase-unc-hosts is set.
+2008-03-19 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-06 Juanma Barranquero <lekktu@gmail.com>
+ * international/mule.el (load-with-code-conversion): Avoid setting
+ default-enable-multibyte-characters.
- * ido.el (ido-unc-hosts-cache): Fix typo in docstring.
+2008-03-19 Gustav HÃ¥llberg <gustav@virtutech.com> (tiny change)
- * woman.el (WoMan-xref-man-page): Fix call to `substring'.
+ * vc.el (vc-annotate-background): Fix custom type.
-2006-04-05 Kim F. Storm <storm@cua.dk>
+2008-03-19 Stefan Monnier <monnier@iro.umontreal.ca>
- * ido.el (ido-mode): Set after ido-unc-hosts and
- ido-ignore-unc-host-regexps.
- (ido-save-history): Save ido-unc-hosts-cache.
- (ido-load-history): Load ido-unc-hosts-cache.
- (ido-reread-directory): Refresh unc hosts cache in // dir.
+ * descr-text.el (describe-char-unidata-list): Allow specifying
+ just all properties.
+ (describe-char): Handle that new value.
- * startup.el (fancy-splash-screens): Set emulation-mode-map-alists
- to nil while displaying slash screen.
+ * emulation/cua-base.el (cua-paste): Signal an error in read-only buf.
-2006-04-05 Daiki Ueno <ueno@unixuser.org>
+2008-03-18 Tassilo Horn <tassilo@member.fsf.org>
- * pgg-gpg.el (pgg-gpg-encrypt-region, pgg-gpg-sign-region):
- Wait for BEGIN_SIGNING too, new in GnuPG 1.4.3.
+ * doc-view.el (doc-view-initiate-display): Use doc-view-doc-type
+ instead of file name extension to make docs with uncommon
+ extensions work.
-2006-04-05 Kenichi Handa <handa@m17n.org>
+2008-03-18 Tassilo Horn <tassilo@member.fsf.org>
- * international/characters.el: Setup cases of Latin, Greek, and
- Cyrillic characters in CJK charsets.
+ * doc-view.el (require): Require cl at compile time because
+ `assert' needs it.
-2006-03-29 Daiki Ueno <ueno@unixuser.org>
+2008-03-18 Glenn Morris <rgm@gnu.org>
- * pgg-gpg.el (pgg-gpg-start-process): Don't bind
- default-enable-multibyte-characters. This reverts the change from
- revision 6.17 which is no longer necessary because the passphrase
- is sent separately now. GnuPG messages are unreadable under
- multibyte locales with default-enable-multibyte-characters set to nil.
+ * calendar/calendar.el (initial-calendar-window-hook)
+ (today-visible-calendar-hook): Doc fixes.
-2006-04-04 Andreas Schwab <schwab@suse.de>
+2008-03-17 Michael Albinus <michael.albinus@gmx.de>
- * files.el: Mark `left-margin', `byte-compile-dynamic-docstrings'
- and `byte-compile-warnings' as `safe-local-variable'.
+ * net/tramp.el (tramp-root-regexp): Simplify.
+ (tramp-completion-file-name-regexp-separate): Don't insist on
+ leading "[". This prevents method or user or host completion.
+ (tramp-let-maybe): Autoload it.
+ (tramp-drop-volume-letter): Don't autoload. When not on W32, it
+ is an alias for `identity'.
+ (tramp-handle-write-region): Protect `last-coding-system-used'
+ over the trailing statements.
+ (tramp-completion-file-name-handler-post-function): Remove.
+ (tramp-completion-file-name-handler): Let-bind `directory-sep-char'
+ instead of calling `tramp-drop-volume-letter'.
-2006-04-04 Dan Nicolaescu <dann@ics.uci.edu>
+ * net/tramp.el:
+ * net/tramp-uu.el:
+ * net/trampver.el: Move coding cookie at the end.
+
+2008-03-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * net/tramp.el (tramp-completion-mode-p): Don't use char-equal for
+ elements which may be something else than characters.
+
+2008-03-17 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-bzr.el (vc-bzr-dir-status, vc-bzr-after-dir-status):
+ New functions to implement vc-status support.
+
+ * vc.el (vc-default-extra-status-menu)
+ (vc-add-to-vc-status-buffer): New functions.
+
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
+ for eldoc and ielm.
+
+2008-03-17 Glenn Morris <rgm@gnu.org>
+
+ * calendar/cal-x.el (diary-frame-parameters)
+ (calendar-frame-parameters, calendar-and-diary-frame-parameters):
+ Fix custom type; add options.
+ (calendar-frame, diary-frame): Doc fixes.
+ (calendar-dedicate-diary, calendar-frame-1): Extract common code into
+ new functions.
+ (calendar-one-frame-setup, calendar-two-frame-setup): Doc fixes.
+ Use calendar-frame-1 and calendar-dedicate-diary.
+ (calendar-one-frame-setup): Also handle only-one-frame case.
+ (calendar-only-one-frame-setup): Doc fix. Just call
+ calendar-one-frame-setup.
+
+ * calendar/diary-lib.el: Re-order some definitions before their use.
+ (nongregorian-diary-listing-hook, nongregorian-diary-marking-hook)
+ (diary-list-entries): Doc fixes.
+ (make-fancy-diary-display): Remove function.
+
+ * calendar/calendar.el (calendar-today-marker)
+ (initial-calendar-window-hook, today-visible-calendar-hook)
+ (today-invisible-calendar-hook, diary-file, calendar-basic-setup):
+ (calendar-star-date, calendar-mark-today): Doc fixes.
+ (today-visible-calendar-hook): Add options.
+ (calendar-in-read-only-buffer): New macro.
+ (calendar-basic-setup): Adapt for change in calendar-read-date.
+ Place holiday let inside if.
+ (calendar-day-name-array, calendar-month-name-array): Make defcustoms.
+ (calendar-read-date): Set day to 1 rather than nil in the NODAY case.
+ (calendar-print-other-dates): Use one let rather than many.
+
+ * calendar/calendar.el (calendar-in-read-only-buffer): New macro.
+ (calendar-print-other-dates):
+ * calendar/cal-hebrew.el (list-yahrzeit-dates):
+ * calendar/diary-lib.el (simple-diary-display, fancy-diary-display):
+ * calendar/holidays.el (calendar-list-holidays, list-holidays)
+ (calendar-cursor-holidays):
+ * calendar/lunar.el (calendar-phases-of-moon): Use
+ calendar-in-read-only-buffer to replace previous code and disable undo.
- * man.el (Man-mode-map): Restore the \r binding.
- (Man-abstract-xref-man-page): If Man-target-string is a function,
- call it.
- (Man-highlight-references): Use Man-default-man-entry to get the
- target. Deal with xrefs too.
- (Man-highlight-references0): Don't call the target function.
+2008-03-16 Juri Linkov <juri@jurta.org>
- * woman.el (WoMan-xref-man-page): Strip the section number, woman
- cannot deal with it.
+ * isearch.el (isearch-edit-string): Use search-ring-yank-pointer
+ and regexp-search-ring-yank-pointer for the HISTPOS argument of
+ read-from-minibuffer to provide the correct initial minibuffer
+ history position in isearch-edit-string when it is called from
+ isearch-ring-adjust.
-2006-04-04 Daiki Ueno <ueno@unixuser.org>
+ * menu-bar.el (kill-this-buffer): Use menu-bar-non-minibuffer-window-p
+ to check if the current buffer is the minibuffer, and in this case
+ call abort-recursive-edit to kill the minibuffer. Doc fix.
+ (kill-this-buffer-enabled-p): Allow this function to return non-nil
+ when the current buffer is the minibuffer.
- * pgg-gpg.el: Clean up process buffers every time gpg processes
- complete.
+ * simple.el (goto-line): Leave mark at previous position. Doc fix.
-2006-04-04 Kenichi Handa <handa@m17n.org>
+2008-03-16 Tassilo Horn <tassilo@member.fsf.org>
- * sort.el (sort-build-lists): Don't bind inhibit-field-text-motion
- here.
- (sort-lines, sort-numeric-fields, sort-fields, sort-columns):
- Temporarily bind inhibit-field-text-motion to t.
+ * doc-view.el (doc-view-doc->txt, doc-view-convert-current-doc):
+ Use non-nil PARENTS attribute of make-directory instead of
+ explicitly checking existence the current cache directory.
-2006-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
+2008-03-16 Daiki Ueno <ueno@unixuser.org>
- * startup.el (normal-splash-screen): Only set mode-line-format in the
- splash buffer, so as not to interfere when debugging the code.
- Ignore errors when switching buffer.
+ * epa-file.el (epa-file-select-keys): Fix bug with C-x C-s after
+ M-x epa-file-select-keys.
-2006-04-03 Romain Francoise <romain@orebokech.com>
+2008-03-16 Kenichi Handa <handa@m17n.org>
- * dired.el (dired-dnd-protocol-alist): Fix typo.
+ * international/mule.el (auto-coding-alist):
+ Use no-conversion-multibyte for archive files.
-2006-04-03 Reiner Steib <Reiner.Steib@gmx.de>
+2008-03-16 Glenn Morris <rgm@gnu.org>
- * savehist.el (savehist): Add :version.
- (savehist-ignored-variables): New variable.
- (savehist-minibuffer-hook): Don't save variables listed in
- `savehist-ignored-variables'.
+ * calendar/diary-lib.el (calendar-mark-complex, calendar-mark-1):
+ New functions.
+ * calendar/cal-bahai.el (calendar-mark-1): Autoload it.
+ (calendar-bahai-mark-date-pattern): Add optional argument `color'.
+ Use calendar-mark-1.
+ * calendar/cal-hebrew.el (calendar-mark-complex): Autoload it.
+ (mark-hebrew-calendar-date-pattern): Add optional argument `color'.
+ Use calendar-mark-complex.
+ * calendar/cal-islam.el (calendar-mark-1): Autoload it.
+ (mark-islamic-calendar-date-pattern): Add optional argument `color'.
+ Use calendar-mark-1.
+
+ * calendar/calendar.el (calendar-mod): Remove.
+ * calendar/cal-china.el (calendar-chinese-from-absolute)
+ (calendar-chinese-date-string): Expand calendar-mod calls.
+ * calendar/cal-mayan.el (calendar-mayan-tzolkin-from-absolute):
+ Expand calendar-mod calls.
+
+ * calendar/cal-bahai.el (calendar-bahai-date-string): Use a single let.
+ (diary-bahai-insert-entry, diary-bahai-insert-monthly-entry)
+ (diary-bahai-insert-yearly-entry): Use let rather than let*.
+ Move obsolete aliases after the functions that replaced them.
+
+ * calendar/cal-hebrew.el (calendar-absolute-from-hebrew)
+ (hebrew-calendar-yahrzeit, insert-hebrew-diary-entry)
+ (insert-monthly-hebrew-diary-entry, insert-yearly-hebrew-diary-entry):
+ Use let rather than let*.
+ (calendar-hebrew-prompt-for-date): New function.
+ (calendar-goto-hebrew-date): Use calendar-hebrew-prompt-for-date.
+ (holiday-tisha-b-av-etc): Use unless, let.
+
+ * calendar/cal-islam.el (calendar-islamic-prompt-for-date): New func.
+ (calendar-goto-islamic-date): Use calendar-islamic-prompt-for-date.
+
+ * calendar/cal-mayan.el (calendar-mayan-haab-to-string): Simplify.
+
+ * calendar/calendar.el (calendar-for-loop): Add indent spec.
+
+ * calendar/diary-lib.el (diary-remind-message, mark-sexp-diary-entries)
+ (list-sexp-diary-entries, diary-font-lock-sexps): Use format rather
+ than concat.
+ (diary): Remove un-needed let.
+ (view-other-diary-entries): Rename argument.
+ (diary-list-entries-2): New function.
+ (diary-list-entries-1, diary-list-entries): Use diary-list-entries-2.
+ (print-diary-entries): Use unless.
+ (diary-mark-entries-1): Change argument order, make all but
+ markfunc optional. Handle the standard (Gregorian) case.
+ Use match-string-no-properties. Handle marks.
+ (mark-diary-entries): Use diary-mark-entries-1.
+ (diary-font-lock-keywords-1): New macro.
+ (diary-font-lock-keywords): Use diary-font-lock-keywords-1.
+
+2008-03-16 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar.el (icalendar-version): Increase to 0.18.
+ (icalendar-export-hidden-diary-entries): New variable.
+ (icalendar-export-region): Use icalendar-export-hidden-diary-entries.
+ In case of error, insert full error-val.
+ (icalendar-first-weekday-of-year): Remove `offset' argument. Doc fix.
+ Use calendar-day-of-week. Return the day number.
+ (icalendar--convert-weekly-to-ical): Use funcall rather than apply.
+
+2008-03-16 Craig Markwardt <Craig.Markwardt@nasa.gov>
+
+ * icalendar.el (icalendar-recurring-start-year): New variable.
+ (icalendar--diarytime-to-isotime): Fix treatment of 12:00pm - 12:59pm.
+ (icalendar-export-region): Ignore hidden diary entries.
+ (icalendar--convert-ordinary-to-ical): Fix case where event
+ spans across midnight boundary.
+ (icalendar-first-weekday-of-year): New function.
+ (icalendar--convert-weekly-to-ical): Allow user-selectable start
+ year for recurring events (Mozilla calendars do not propagate
+ recurring events forever, so year 2000 start date was not working).
+ (icalendar--convert-yearly-to-ical): Remove extra spaces in
+ formatting of BYMONTH and BYMONTHDAY (not allowed by ical spec).
+
+2008-03-15 Michael Albinus <michael.albinus@gmx.de>
+
+ * net/tramp.el (tramp-root-regexp): New defconst.
+ (tramp-completion-file-name-regexp-unified)
+ (tramp-completion-file-name-regexp-separate)
+ (tramp-completion-file-name-regexp-url): Use it.
+ (tramp-do-copy-or-rename-file-via-buffer):
+ Set `enable-multibyte-characters' to nil. Set `jka-compr-inhibit' to
+ t for `insert-file-contents-literally'.
+ (tramp-drop-volume-letter): Rewrite, using `tramp-root-regexp'.
+ Autoload it.
+ (tramp-completion-file-name-handler-post-function): New defconst.
+ (tramp-completion-file-name-handler): Use it.
+ (tramp-maybe-open-connection): Update calls to
+ `tramp-flush-connection-property' for removed 2nd argument.
+
+2008-03-15 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * vc-bzr.el (vc-bzr-diff): Use a faster invocation when possible.
+ (vc-bzr-complete-with-prefix, vc-bzr-revision-completion-table):
+ New functions.
- * dired.el (dired-dnd-protocol-alist): Mention that change does
- only apply to new buffers in doc string.
+2008-03-15 Glenn Morris <rgm@gnu.org>
-2006-04-03 Lennart Borgman <lennart.borgman.073@student.lu.se> (tiny change)
+ * calendar/diary-lib.el (diary-list-entries-1, diary-mark-entries-1):
+ New functions.
+ * calendar/cal-bahai.el (number, original-date, add-to-diary-list)
+ (diary-name-pattern, mark-calendar-days-named): Remove declarations.
+ (diary-list-entries-1, diary-mark-entries-1): Autoload.
+ (diary-bahai-list-entries): Use diary-list-entries-1.
+ (diary-bahai-mark-entries): Doc fix. Use diary-mark-entries-1.
+ * calendar/cal-hebrew.el (number, original-date, add-to-diary-list)
+ (diary-name-pattern, mark-calendar-days-named): Remove declarations.
+ (diary-list-entries-1, diary-mark-entries-1): Autoload.
+ (list-hebrew-diary-entries): Use diary-list-entries-1.
+ (mark-hebrew-diary-entries): Doc fix. Use diary-mark-entries-1.
+ * calendar/cal-islam.el (number, original-date, add-to-diary-list)
+ (diary-name-pattern, mark-calendar-days-named): Remove declarations.
+ (diary-list-entries-1, diary-mark-entries-1): Autoload.
+ (list-islamic-diary-entries): Use diary-list-entries-1.
+ (mark-islamic-diary-entries): Doc fix. Use diary-mark-entries-1.
+
+ * calendar/appt.el (appt-check, appt-delete, appt-make-list): Use caar.
+
+ * calendar/cal-bahai.el (calendar-bahai-epoch): Doc fix.
+
+ * calendar/cal-china.el (number-chinese-months)
+ (calendar-chinese-from-absolute): Use nth, caar.
+
+ * calendar/cal-coptic.el (coptic-calendar-epoch): Doc fix.
+
+ * calendar/cal-french.el (french-calendar-accents): Doc fix.
+
+ * calendar/cal-hebrew.el (calendar-hebrew-month-name-array-common-year)
+ (calendar-hebrew-month-name-array-leap-year)
+ (hebrew-calendar-parashiot-names): Make constants.
+ (diary-parasha): Move definition after constants it uses.
+
+ * calendar/cal-html.el (cal-html-insert-link-yearpage)
+ (cal-html-htmlify-list): Doc fix.
+ (cal-html-htmlify-entry): Use nth.
+
+ * calendar/cal-islam.el (calendar-islamic-month-name-array)
+ (calendar-islamic-epoch): Make constants.
+ (calendar-islamic-epoch): Doc fix.
+
+ * calendar/cal-menu.el (cal-menu-goto-menu): Use "Go To".
+
+ * calendar/cal-tex.el (cal-tex-hook, cal-tex-insert-preamble)
+ (cal-tex-month-name): Doc fix.
+ (cal-tex-last-blank-p): Use zerop.
+
+ * calendar/calendar.el (european-calendar-style, calendar-for-loop)
+ (calendar-sum, calendar-insert-indented, mouse-calendar-other-month)
+ (calendar-cursor-to-date): Doc fix.
+ (hebrew-holidays-1, hebrew-holidays-4): Simplify.
+ (extract-calendar-day, extract-calendar-year): Use cadr, nth.
+ (calendar-day-number): Use when.
+ (generate-calendar-month): Use dotimes.
+ (exit-calendar, calendar-print-other-dates): Use let rather than let*.
+ (calendar-set-mark): Reverse conditional.
+ (calendar-make-alist): Move definition before use.
+
+ * calendar/diary-lib.el (diary-face-attrs)
+ (diary-glob-file-regexp-prefix, diary-selective-display)
+ (number-of-diary-entries, diary-list-entries, diary-goto-entry):
+ (list-sexp-diary-entries, diary-date, diary-block, diary-float)
+ (diary-anniversary, diary-cyclic)
+ (diary-fancy-font-lock-fontify-region-function): Doc fixes.
+ (diary-header-line-format): Change wording.
+ (diary-list-entries): Set `date-start' in let.
+ (include-other-diary-files, mark-included-diary-files): Use format.
+ (simple-diary-display, fancy-diary-display): Use cadr, unless.
+ (mark-diary-entries): Use 1+.
+ (mark-sexp-diary-entries, list-sexp-diary-entries): Use when.
+ (mark-calendar-month): Use dotimes.
+
+ * calendar/holidays.el (displayed-month, displayed-year):
+ Move declarations where needed.
+ (calendar-list-holidays): Doc fix.
+
+ * calendar/parse-time.el (parse-time-string): Simplify.
+
+ * calendar/solar.el (solar-n-hemi-seasons, solar-s-hemi-seasons):
+ Make constants.
+ (solar-sunrise-sunset): Rename some local variables for clarity.
+ (sunrise-sunset): Use zerop.
+ (solar-mean-equinoxes/solstices): Doc fix.
+
+ * calendar/timeclock.el (timeclock-time-to-seconds, timeclock-log-data):
+ Use nth.
+ (timeclock-completing-read, timeclock-generate-report): Use zerop.
+ (timeclock-mean, timeclock-generate-report): Use dolist.
+
+ * calendar/todo-mode.el (todo-add-category): Simplify.
+ (todo-more-important-p, todo-delete-item, todo-file-item):
+ Use unless, when.
+ (todo-top-priorities): Use zerop.
+
+2008-03-14 Nick Roberts <nickrob@snap.net.nz>
+
+ * buff-menu.el (list-buffers-noselect): Display buffer name in
+ tooltip instead of mouse binding when it doesn't fit in the list.
+
+2008-03-14 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * faces.el (xw-defined-colors):
+ * simple.el (widget-convert, shell-mode): Declare as functions
+ instead of autoloading.
+
+ * abbrev.el:
+ * button.el:
+ * cus-face.el:
+ * ediff-hook.el:
+ * emacs-lisp/backquote.el:
+ * emacs-lisp/timer.el:
+ * facemenu.el:
+ * faces.el:
+ * menu-bar.el:
+ * simple.el:
+ * subr.el:
+ * textmodes/fill.el:
+ * textmodes/paragraphs.el: Remove autoloads, redundant when the
+ files are preloaded.
- * recentf.el (recentf-open-files-item): Include newline in button
- field, so opening a file will work, when the point is at the end
- of the file name. Allow, for example, to [i]search a file by
- extension and just push RET to open it.
+2008-03-14 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-03 Daiki Ueno <ueno@unixuser.org>
+ * desktop.el (desktop-create-buffer): Don't catch errors if
+ debug-on-error is set.
- * pgg-gpg.el (pgg-gpg-process-filter)
- (pgg-gpg-wait-for-completion): Check if buffer is alive.
+2008-03-14 Eli Zaretskii <eliz@gnu.org>
- * pgg-gpg.el (pgg-gpg-process-sentinel): Don't remove GNUPG:
- lines, temporary fix.
+ * makefile.w32-in ($(lisp)/calendar/cal-loaddefs.el)
+ ($(lisp)/calendar/diary-loaddefs.el)
+ ($(lisp)/calendar/hol-loaddefs.el): New targets.
+ (LOADDEFS): New macro.
+ (autoloads): Depend on $(LOADDEFS).
-2006-04-02 Dan Nicolaescu <dann@ics.uci.edu>
+2008-03-14 Dan Nicolaescu <dann@ics.uci.edu>
- * ibuf-macs.el (define-ibuffer-column): Document the new parameter.
+ * font-lock.el (featurep): Remove test, not useful anymore.
+ (facemenu-keymap): Move key binding ...
+ * facemenu.el (facemenu-keymap): ... here.
-2006-04-02 Richard Stallman <rms@gnu.org>
+ * vc-bzr.el (vc-bzr-print-log): Insert a file marker. Run the log
+ for each file in the list.
+ (vc-bzr-log-view-mode): Recognize the file marker.
- * progmodes/compile.el (compilation-message-face): Make it defcustom.
+ * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
+ for checkdoc and profiling.
+
+2008-03-14 Bastien Guerry <bzg@altern.org>
+
+ * textmodes/flyspell.el (nxml-mode): Add the right
+ `flyspell-mode-predicate'.
+
+ * wid-edit.el (link): Use 'mouse-face for :follow-link.
+
+2008-03-14 Glenn Morris <rgm@gnu.org>
+
+ * calendar/solar.el: Reorder so that functions are defined before use.
+ (displayed-month, displayed-year): Move declarations where needed.
+ (solar-get-number): Move definition before use. Use unless.
+ (solar-equatorial-coordinates): Simplify.
+ (solar-sunrise-and-sunset): Use let rather than let*.
+ (solar-longitude, solar-equinoxes-solstices): Use cadr, nth.
+
+ * startup.el (command-line-1): Rename -internal-script back to
+ -scriptload (reverts previous change).
+
+ * calendar/cal-bahai.el (calendar-bahai-month-name-array)
+ (calendar-bahai-leap-base): Add doc strings.
+ (calendar-bahai-prompt-for-date, calendar-bahai-mark-date-pattern):
+ Move definition before use.
+ (calendar-bahai-goto-date, diary-bahai-list-entries): Doc fix.
+ (diary-bahai-list-entries, diary-bahai-mark-entries): Move some constant
+ variables outside the loop. Use dolist.
+ (holiday-bahai, calendar-bahai-mark-date-pattern): Use unless.
+
+ * calendar/cal-china.el: Re-order so that functions are defined before
+ use.
+ (displayed-month, displayed-year): Move declarations where needed.
+ (chinese-calendar-time-zone, calendar-goto-chinese-date): Doc fix.
+ (chinese-calendar-celestial-stem, chinese-calendar-terrestrial-branch):
+ Add doc strings.
+ (chinese-year-cache): Recenter on 2010. Doc fix.
+ (chinese-year, number-chinese-months, calendar-absolute-from-chinese):
+ Doc fix. Simplify.
+ (chinese-year-cache-init): New function.
+ (compute-chinese-year, holiday-chinese-new-year)
+ (calendar-chinese-date-string, calendar-goto-chinese-date)
+ (make-chinese-month-assoc-list): Use cadr, nth.
+ (chinese-months): Remove un-needed let.
+
+ * calendar/cal-coptic.el (coptic-calendar-month-name-array):
+ (ethiopic-calendar-month-name-array, ethiopic-name): Add doc strings.
+ (coptic-prompt-for-date): Move definition before use.
+
+ * calendar/cal-dst.el (calendar-time-zone-daylight-rules): Simplify.
+ (calendar-dst-find-data, calendar-daylight-time-offset)
+ (calendar-standard-time-zone-name, calendar-daylight-time-zone-name)
+ (calendar-daylight-savings-starts-time)
+ (calendar-daylight-savings-ends-time): Use cadr, nth.
+
+ * calendar/cal-french.el (french-calendar-epoch)
+ (calendar-goto-french-date): Doc fix.
+ (french-calendar-month-name-array)
+ (french-calendar-multibyte-month-name-array)
+ (french-calendar-day-name-array, french-calendar-special-days-array):
+ Add doc strings.
+
+ * calendar/cal-hebrew.el (displayed-month, displayed-year)
+ (original-date): Move declarations where needed.
+ (calendar-goto-hebrew-date, list-hebrew-diary-entries, diary-yahrzeit):
+ Doc fix.
+ (list-hebrew-diary-entries, mark-hebrew-diary-entries): Move some
+ constant variables outside the loop. Use dolist.
+
+ * calendar/cal-islam.el (displayed-month, displayed-year)
+ (original-date): Move declarations where needed.
+ (islamic-calendar-day-number): Remove unused local variable `day'.
+ (calendar-goto-islamic-date): Doc fix.
+ (holiday-islamic): Use unless.
+ (list-islamic-diary-entries, mark-islamic-diary-entries): Move some
+ constant variables outside the loop. Use dolist.
+ (mark-islamic-calendar-date-pattern): Move definition before use.
+ Use unless.
+ (mark-islamic-diary-entries): Doc fix.
+ (insert-islamic-diary-entry, insert-monthly-islamic-diary-entry)
+ (insert-yearly-islamic-diary-entry): Use let rather than let*.
+
+ * calendar/cal-julian.el (calendar-absolute-from-julian):
+ Move definition before use. Remove un-needed local `day'.
+ (calendar-goto-julian-date, calendar-goto-astro-day-number): Doc fix.
+
+ * calendar/cal-mayan.el (calendar-mayan-haab-month-name-array)
+ (calendar-mayan-tzolkin-names-array): Add doc strings.
+ (calendar-mayan-long-count-from-absolute): Use a single let.
+ (calendar-string-to-mayan-long-count): Simplify.
+ (calendar-next-haab-date, calendar-previous-haab-date)
+ (calendar-next-tzolkin-date, calendar-previous-tzolkin-date)
+ (calendar-previous-calendar-round-date)
+ (calendar-goto-mayan-long-count-date, calendar-mayan-date-string):
+ Doc fix.
+ (calendar-mayan-tzolkin-haab-on-or-before): Use zerop.
+ (calendar-mayan-date-string, calendar-print-mayan-date)
+ (calendar-read-mayan-haab-date, calendar-read-mayan-tzolkin-date)
+ (calendar-mayan-long-count-common-era): Move definitions before use.
-2006-04-02 Dan Nicolaescu <dann@ics.uci.edu>
+ * calendar/cal-menu.el (displayed-year): Move declaration where needed.
+ (calendar-event-to-date, cal-tex-mouse-week, cal-tex-mouse-week-iso):
+ Doc fix.
+ (calendar-mouse-goto-date): Move definition before use.
+
+ * calendar/cal-move.el (calendar-cursor-to-nearest-date): Use or, when.
+ Move definition before use.
+ (calendar-cursor-to-visible-date): Move definition before use.
+ (calendar-scroll-left): Use unless and zerop. Combine lets into one,
+ and place inside the conditional.
+ (calendar-forward-day): Simplify.
+ (calendar-end-of-month): Use unless.
+ (calendar-goto-day-of-year): Doc fix.
+ Relocate obsolete aliases after their replacements.
+
+ * calendar/cal-persia.el (calendar-goto-persian-date): Doc fix.
+
+ * calendar/diary-lib.el (mark-diary-entries): Move some constant
+ variables outside the diary-date-forms loop.
+
+ * calendar/calendar.el (diary-file): Doc fix.
+ (calendar-buffer-list): Return buffers rather than strings (fixes
+ previous change).
+ (hebrew-holidays-4): Fix typo.
+
+ * calendar/holidays.el (displayed-month, displayed-year):
+ Move declarations where needed.
+ (calendar-holiday-list, calendar-list-holidays)
+ (holiday-filter-visible-calendar): Move definitions before use.
+ (list-holidays): Use cadr.
+ Relocate obsolete aliases after their replacements.
+
+ * calendar/lunar.el (date, displayed-month, displayed-year):
+ Move declarations where needed.
+ (lunar-phase-list): Move definition after functions it uses.
+ (calendar-phases-of-moon, diary-phases-of-moon)
+ (lunar-new-moon-on-or-after): Use cadr, nth.
+ (lunar-new-moon-on-or-after): Doc fix.
+
+ * textmodes/org-irc.el (top-level): CL not required when compiling.
+ (org-irc-visit-erc): Replace runtime CL functions.
+
+ * textmodes/org-publish.el (declare-function): Add compatibility stub.
+ (org-publish-delete-dups): Declare as function.
+
+2008-03-14 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * vc-bzr.el (vc-bzr-log-view-mode): "." can be part of a revno.
+ (vc-bzr-show-log-entry): Make regexp match more cases.
+ (vc-diff-switches-list): Remove autoload, not needed.
- * ibuf-macs.el (define-ibuffer-column): Add a new key:
- header-mouse-map.
+2008-03-14 Juri Linkov <juri@jurta.org>
- * ibuffer.el (ibuffer-name-header-map, ibuffer-size-header-map)
- (ibuffer-mode-header-map): New keymaps.
- (ibuffer-update-title-and-summary): Enable mouse face highlighting
- and keybindings for column headers.
- (name, size, mode) <define-ibuffer-column>: Add a header-mouse-map
- property.
+ * isearch.el (isearch-edit-string): Remove one call to
+ `isearch-push-state' not to push an inconsistent state,
+ but keep another correct call to `isearch-push-state'.
+ (isearch-ring-adjust): Call `isearch-push-state' only when
+ `search-ring-update' is non-nil since `isearch-edit-string'
+ already pushes its state.
+ (isearch-message): Improve matching the failed part by checking
+ if the original message starts with the last successful message.
-2006-04-02 Drew Adams <drew.adams@oracle.com>
+ * dired.el (dired-warn-writable): Rename to `dired-perm-write'.
+ (dired-perm-write): Rename from `dired-warn-writable'.
+ Change parent face from `font-lock-warning-face' to
+ `font-lock-comment-delimiter-face'.
+ (dired-warn-writable-face): Rename to `dired-perm-write-face'.
+ (dired-perm-write-face): Rename from `dired-warn-writable-face'.
+ (dired-font-lock-keywords): Replace `dired-warn-writable-face'
+ with `dired-perm-write-face'.
- * speedbar.el (speedbar-after-create-hook): Doc fix.
+2008-03-13 Tassilo Horn <tassilo@member.fsf.org>
-2006-04-02 Michael Ernst <mernst@alum.mit.edu>
+ * doc-view.el (doc-view-doc->txt, doc-view-convert-current-doc):
+ Create cache dir only if it doesn't already exist.
- * shell.el (shell-directory-tracker)
- (shell-dynamic-complete-command): Doc fixes.
+2008-03-13 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-04-01 Matt Hodges <MPHodges@member.fsf.org>
+ * progmodes/sh-script.el (sh-font-lock-quoted-subshell): Fix handling
+ of \ and '.
- * pcomplete.el (pcomplete-show-completions): Recognize TAB on text
- terminals.
+2008-03-13 Johan Bockgård <bojohan@gnu.org>
-2006-04-01 Kim F. Storm <storm@cua.dk>
+ * net/browse-url.el (browse-url-text-xterm):
+ Unquote browse-url-text-browser.
- * ido.el (ido-unc-hosts-cache): New defvar.
- (ido-unc-hosts): If value of defcustom is a function, call it to
- get list of UNC hosts. Add function-item choices to specify
- ido-unc-hosts-net-view or user function.
- (ido-ignore-unc-host-regexps): New defcustom.
- (ido-unc-hosts-net-view, ido-unc-hosts): New functions.
- (ido-is-unc-root, ido-is-unc-host, ido-file-name-all-completions)
- (ido-exhibit): Call ido-unc-hosts to get list of UNC hosts.
+2008-03-13 Carsten Dominik <dominik@science.uva.nl>
-2006-03-13 Stefan Monnier <monnier@iro.umontreal.ca>
+ * textmodes/org-mouse.el: Version number change.
- * pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than
- wwidth.
+ * textmodes/org-publish.el (org-publish-expand-components):
+ Remove null projects from the list of components.
+ (org-publish-attachment): Bugfix: handle mandatory argument pub-dir.
+ Remove unused retrieval of the :publishing-directory property.
+ (org-publish-file): Bugfix: when using a relative directory as the
+ publishing directory, convert it to a directory filename.
+ (org-publish-project): New alias.
+ (org-publish-get-files): Protect against empty p.
+ (org-publish-file): Send an error when file is not part of any project.
+ (org-publish-file): Offer to refresh the list of files in known
+ project when the current file is not part of any project.
+ (org-publish-before-export-hook)
+ (org-publish-after-export-hook): New hooks.
+ (org-publish-org-to): Use new hooks and kill buffers.
+ (org-publish-file): Remove the code for killing buffers.
+ (org-publish-initialize-files-alist): Use interactive.
+ (org-publish-file): If the publishing function creates a new
+ buffer, kill it after publishing.
+ (org-publish-timestamp-filename): Protect ":" in file name path
+ under windows.
-2006-03-31 Juanma Barranquero <lekktu@gmail.com>
+ * textmodes/org-export-latex.el (org-export-as-latex): Revert the
+ change that killed the LaTeX buffer.
- * ido.el (ido-cache-unc-host-shares-time, ido-report-no-match)
- (ido-max-work-file-list, ido-switch-buffer)
- (ido-read-file-name-as-directory-commands):
- Fix typos in docstrings.
+ * textmodes/org.el (org-ctrl-c-star): Implement a missing branch
+ in the decision tree.
+ (org-select-remember-template): Clean the code.
+ (org-prepare-dblock): Add the extra :content parameter.
+ (org-write-agenda): New output type ".ics" files.
+ (org-write-agenda): Call `org-icalendar-verify-function', both for
+ time stamps and for TODO entries.
+ (org-agenda-collect-markers, org-create-marker-find-array)
+ (org-check-agenda-marker-table): New functions.
+ (org-agenda-marker-table): New variable.
+ (org-export-as-html): Revert the change that killed the html
+ buffer. Side effects first need to be studied carefully.
+ (org-get-tags-at): Fix the structure of the condition-case statement.
+ (org-ts-regexp0, org-repeat-re, org-display-custom-time)
+ (org-timestamp-change): Fix regulear expressions to swallow the
+ extra character for repeat-shift control.
+ (org-auto-repeat-maybe): Implement the new repeater mechanisms.
+ (org-get-legal-level): Alias to `org-get-valid-level'.
+ (org-dblock-write:clocktable): Add a :link parameter, linking
+ headlines to their location in the Org agenda files.
+ (org-get-tags-at): Bugfix: prevent `org-back-to-heading' from
+ throwing an error when getting tags before headlines.
+ (org-timestamp-change, org-modify-ts-extra)
+ (org-ts-regexp1): Fix timestamp editing.
+ (org-agenda-custom-commands-local-options): New constant.
+ (org-agenda-custom-commands):
+ Use `org-agenda-custom-commands-local-options' to improve customize
+ type. "htmlize": Removed hack to fix face problem with htmlize,
+ it no longer seem necessary.
+ (org-follow-link-hook): New hook.
+ (org-agenda-custom-commands): Add "Component" as a tag for each
+ item in a command serie.
+ (org-open-at-point): Run `org-follow-link-hook'.
+ (org-agenda-schedule): Bugfix: don't display marker type when it
+ is nil.
+ (org-store-link): org-irc required.
+ (org-set-regexps-and-options): Parse the new logging options.
+ (org-extract-log-state-settings): New function.
+ (org-todo): Handle the new ways of recording state change stuff.
+ (org-local-logging): New function.
+ (org-columns-open-link): Fix bug with opening link in column view.
+ (org-local-logging): New function
+ (org-todo): Make sure that LOGGING properties are honoured.
+ (org-todo-keywords): Improve docstring.
+ (org-startup-options): Cleanup startup options.
+ (org-set-regexps-and-options): Process the "!" markers.
+ (org-todo): Respect the new logging stuff.
+ (org-log-note-how): New variable.
+ (org-add-log-maybe): New parameter HOW that defines how logging
+ should be done and also overrides PURPOSE. Add a docstring.
+ (org-add-log-note): Check if we really need to ask for a note.
+ (org-get-current-options): Digest the new keyword.
+ (org-agenda-reset-markers): Rename from
+ `org-agenda-maybe-reset-markers'. Remove FORCE argument.
+ (org-diary, org-agenda-quit, org-prepare-agenda): Call the renamed
+ function, without force argument.
+ (org-buffer-property-keys): Bind local variables s and p.
+ (org-make-tags-matcher): Allow "" to match an empty or
+ non-existent property value.
+ (org-export-as-html): Join unsorted lists when they directly
+ follow each other. Such lists may be created by headlines that
+ are converted to lists.
+ (org-nofm-to-completion): New function.
+ (org-export-as-html): Use :html-extension instead of
+ org-export-html-extension.
+ (org-store-link): Support for links from `rmail-summary-mode'.
+ (org-columns-new, org-complete, org-set-property): Set the
+ `include-columns' argument in the call to
+ `org-buffer-property-keys'.
+ (org-buffer-property-keys): New argument `include-columns', to
+ include properties expected by any of the COLUMS formats in the
+ current buffer.
+ (org-cleaned-string-for-export): Get rid of drawers first, so that
+ they will be removed also in the text before the first headline.
+ (org-clock-report): Show the clocktable when found.
+ (org-refile): Fix positioning bug when `org-reverse-note-order' is nil.
+ (org-version): With prefix argument, insert `org-version' at point.
+ (org-agenda-goto): Recenter the window after finding the target
+ location, to make sure the correct position will be displayed.
+ (org-agenda-get-deadlines): Don't scale priority with the warning
+ period.
+ (org-insert-heading): Don't break line in the middle of the line.
+ (org-agenda-get-deadlines): Allow `org-deadline-warning-days' to
+ be 0.
+ (org-update-checkbox-count): Revamp to deal with hierarchical
+ beckboxes. This was a patch from Miguel A. Figueroa-Villanueva.
+ (org-remove-timestamp-with-keyword): New function.
+ (org-schedule, org-deadline):
+ Use `org-remove-timestamp-with-keyword' to make sure all such time
+ stamps are removed.
+ (org-mode): Support for `align'.
+ (org-agenda-get-deadlines): Make sure priorities increase as the
+ due date approaches and is passed.
+ (org-remember-apply-template): Fix problem with tags that
+ contain "_" or "@".
+ (org-make-link-regexps): Improve the regular expression for plain links.
+ (org-agenda-get-closed): List each clocking entry.
+ (org-set-tags): Only tabify before tags if indent-tabs-mode is t.
+ (org-special-ctrl-k): New option.
+ (org-kill-line): New function.
+ (org-archive-all-done): Fix incorrect number of stars in regexp.
+ (org-refile-get-location): New function.
+ (org-refile-goto-last-stored): New function.
+ (org-global-tags-completion-table): Add the value of org-tag-alist
+ in each buffer, to make sure that also unused tags will be
+ available for completion.
+ (org-columns-edit-value)
+ (org-columns-next-allowed-value): Only update if not in agenda.
+ (org-clocktable-steps): New function.
+ (org-dblock-write:clocktable): Call `org-clocktable-steps'.
+ (org-archive-subtree): Add the outline tree context as a property.
+ (org-closest-date): New optional argument `prefer'.
+ (org-goto-auto-isearch): New option.
+ (org-goto-map, org-get-location): Implement auto-isearch.
+ (org-goto-local-auto-isearch-map): New variable.
+ (org-goto-local-search-forward-headings)
+ (org-goto-local-auto-isearch): New functions.
-2006-03-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+2008-03-13 Philip Jackson <emacs@shellarchive.co.uk>
- * term/mac-win.el (mac-system-coding-system): Define and use after
- Mac-specific coding systems are ready.
+ * textmodes/org-irc.el: New file.
-2006-03-27 Romain Francoise <romain@orebokech.com>
+2008-03-13 John Wiegley <johnw@gnu.org>
- * net/rcirc.el (rcirc-connect): Add autoload cookie.
+ * textmodes/org-mac-message.el: New file.
- * ldefs-boot.el: Update.
+2008-03-13 Dan Nicolaescu <dann@ics.uci.edu>
-2006-03-27 Daiki Ueno <ueno@unixuser.org>
+ * font-lock.el (font-lock-comment-face): Set the foreground for
+ the light background 8 colors case.
- * pgg-gpg.el: Invoke gpg asynchronous, to avoid querying for
- passphrases when it is not needed.
- (pgg-gpg-use-agent): Add, to hard code that pgg shouldn't wait for
- passphrase stuff from gpg, should only be necessary when you use
- gpg with a smartcard.
+2008-03-13 Glenn Morris <rgm@gnu.org>
+
+ * font-lock.el (lisp-font-lock-keywords-1): Support wider range of
+ generate-autoload-cookie patterns.
+
+ * startup.el (command-line-1): Rename -scriptload to -internal-script.
+
+ * Makefile.in ($(lisp)/loaddefs.el): Remove this target.
+ (MH_E_SRC): Remove variable.
+ ($(lisp)/mh-e/mh-loaddefs.el): Remove $MH_E_SRC dependency.
+ Simplify file header. Use $@ for generated-autoload-file.
+
+ * Makefile.in (LOADDEFS): New variable.
+ (AUTOGENEL): Use $LOADDEFS.
+ (autoloads): Remove $(lisp)/loaddefs.el dependency; add $LOADDEFS.
+ ($(lisp)/calendar/cal-loaddefs.el, $(lisp)/calendar/diary-loaddefs.el):
+ ($(lisp)/calendar/hol-loaddefs.el): New targets.
+ * calendar/cal-bahai.el, calendar/cal-china.el, calendar/cal-coptic.el:
+ * calendar/cal-french.el, calendar/cal-hebrew.el, calendar/cal-html.el:
+ * calendar/cal-islam.el, calendar/cal-iso.el, calendar/cal-julian.el:
+ * calendar/cal-mayan.el, calendar/cal-move.el, calendar/cal-persia.el:
+ * calendar/cal-tex.el, calendar/cal-x.el, calendar/diary-lib.el:
+ * calendar/holidays.el, calendar/lunar.el, calendar/solar.el:
+ Add calendar-specific autoload cookies, and remove any setting of
+ generated-autoload-file.
+ * calendar/calendar.el: Remove explicit autoloads now in cal-loaddefs.
+ * calendar/diary-lib.el: Replace explicit autoloads with reading of
+ diary-loaddefs.
+ * calendar/holidays.el: Replace explicit autoloads with reading of
+ hol-loaddefs.
+
+ * calendar/calendar.el (cal-hebrew-yahrzeit-buffer): New constant.
+ (calendar-buffer-list): Simplify.
+ (generate-calendar-window): Use calendar-mark-holidays rather than
+ obsolete alias.
-2006-03-27 Nick Roberts <nickrob@snap.net.nz>
+ * calendar/cal-hebrew.el (list-yahrzeit-dates):
+ Use cal-hebrew-yahrzeit-buffer.
- * comint.el (comint-dynamic-list-completions): Allow user to
- select *Completions* buffer.
+ * calendar/cal-x.el (calendar-only-one-frame-setup)
+ (calendar-two-frame-setup): Doc fixes.
+ (special-display-buffer-names): Use cal-hebrew-yahrzeit-buffer.
-2006-03-27 Carsten Dominik <dominik@science.uva.nl>
+ * calendar/appt.el (appt-mode-string): Mark as risky.
+ (appt-check): Apply mode-line-emphasis face to appt-mode-string.
- * textmodes/org.el (org-get-level-face): Fix bug with level counting.
+ * calendar/cal-html.el (diary-list-entries):
+ * calendar/cal-tex.el (calendar-holiday-list, diary-list-entries)
+ (calendar-iso-from-absolute): Fix autoloads.
-2006-03-26 Andreas Schwab <schwab@suse.de>
+ * calendar/cal-iso.el (calendar-absolute-from-iso)
+ (calendar-iso-read-args): Simplify.
+ (calendar-iso-date-string, calendar-iso-read-args)
+ (calendar-goto-iso-date, calendar-goto-iso-week): Doc fixes.
- * progmodes/gud.el (gdb): Only complain about multiple debugging
- when the gdb process is still running.
+ * calendar/cal-julian.el (calendar-julian-from-absolute): Use zerop.
+ (displayed-month, displayed-year): Move declarations where needed.
+ (calendar-print-astro-day-number): Doc fix.
-2006-03-25 Eli Zaretskii <eliz@gnu.org>
+ * calendar/cal-persia.el (persian-calendar-month-name-array)
+ (persian-calendar-epoch, calendar-persian-date-string): Doc fixes.
+ (persian-prompt-for-date): Remove local variable `today'.
- * mail/rmail.el (tool-bar-map): Defvar it.
- (rmail-tool-bar-map): Tool-bar buttons for Rmail.
- (rmail-perm-variables): Make rmail-tool-bar-map a local variable.
+ * calendar/diary-lib.el (mark-calendar-month): Use zerop.
-2006-03-25 Sven Joachim <svenjoac@gmx.de> (tiny change)
+ * calendar/solar.el (solar-moment, solar-exact-local-noon)
+ (solar-sunrise-sunset, solar-sunrise-sunset-string)
+ (solar-ephemeris-time, solar-date-next-longitude, solar-sidereal-time):
+ (diary-sabbath-candles, solar-equinoxes/solstices)
+ (solar-equinoxes-solstices): Use cadr, cdar, nth, zerop.
+ (solar-time-equation, solar-date-to-et): Simplify.
- * help.el (print-help-return-message): Suggest to use
- display-buffer instead of switch-to-buffer-other-window to restore
- the previous window without selecting it.
+ * mail/supercite.el: Remove the `function' in `(function (lambda'.
+ Replace `(car (cdr' with cadr'.
-2006-03-25 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+ * progmodes/f90.el (f90-font-lock-n): New function.
+ (f90-font-lock-1, f90-font-lock-2, f90-font-lock-3, f90-font-lock-4):
+ Use f90-font-lock-n.
+ (f90-indent-region, f90-indent-subprogram, f90-match-end): Use cadr.
- * frame.el (select-frame-by-name): Call x-focus-frame also when
- window-system is mac.
+ * progmodes/f90.el (f90-mode-abbrev-table):
+ * progmodes/fortran.el (fortran-mode-abbrev-table):
+ Use newer form of define-abbrev, where supported. No need to bind
+ abbrevs-changed for system abbrevs.
- * term/mac-win.el: Adjust Courier font specifications in
- x-fixed-font-alist.
- (mac-select-convert-to-string): Use utf-16be-mac or utf-16le-mac
- when directly encoding to UTF-16 in native byte order, no BOM.
+2008-03-13 Stefan Monnier <monnier@iro.umontreal.ca>
-2006-03-25 Kim F. Storm <storm@cua.dk>
+ * term/xterm.el (terminal-init-xterm): delete-frame-hook ->
+ delete-frame-functions.
- * emulation/cua-base.el (cua-rectangle-mark-key): New defcustom.
- (cua--init-keymaps): Use it instead of fixed C-return.
- (cua-mode): Set after it.
+ * bookmark.el (Info-current-node): Remove.
- * emulation/cua-rect.el (cua--init-rectangles):
- Use cua-rectangle-mark-key instead of fixed C-return.
+2008-03-12 Juri Linkov <juri@jurta.org>
-2006-03-25 Nick Roberts <nickrob@snap.net.nz>
+ * help.el (describe-project): Remove defaliases for view-todo and
+ describe-project that are now unnecessary after the merge from
+ emacs--rel--22 that added define-obsolete-function-alias.
- * progmodes/gdb-ui.el (gdba): Revert 2006-03-10 change for case of
- "run" in .gdbinit.
- (gdb-var-create-regexp): Remove "^done" prefix for gdb-mi.el.
+ * startup.el (inhibit-startup-screen): Revert incomplete
+ 2008-03-10 merge from emacs--rel--22 that partly reverted
+ 2008-02-28 change that added initial message to *scratch* buffer
+ regardless of the value of `inhibit-startup-screen'.
+ Now keep this change in the trunk, but not in the 22 branch.
-2006-03-24 Romain Francoise <romain@orebokech.com>
+2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca>
- * files.el (ctl-x-5-map): Really bind C-x 5 C-o to
- `display-buffer-other-frame'.
+ * international/quail.el (quail-setup-completion-buf, quail-help):
+ * mail/binhex.el (binhex-decode-region-internal):
+ * mail/uudecode.el (uudecode-decode-region-internal):
+ * net/dns.el (dns-read-string-name, dns-read, dns-read-type, query-dns):
+ * sha1.el (sha1-string-external): Use set-buffer-multibyte rather than
+ setting default-enable-multibyte-characters.
-2006-03-24 Kim F. Storm <storm@cua.dk>
+ * emulation/viper-util.el (viper-file-remote-p): Remove, unused.
- * apropos.el (apropos-synonyms): Add selection => region.
+ * comint.el: Fix up indentation and comment style. Remove `function'.
-2006-03-24 Nick Roberts <nickrob@snap.net.nz>
+ * international/mule-cmds.el (reset-language-environment)
+ (set-language-environment-nonascii-translation):
+ Don't set-unibyte-charset.
- * progmodes/gdb-ui.el (gdb-var-create-regexp)
- (gdb-var-list-children-regexp, gdb-var-update-regexp)
- (gdb-var-list-children-regexp-1, gdb-var-update-regexp-1)
- (gdb-data-list-register-values-regexp)
- (gdb-stack-list-locals-regexp, gdb-stack-list-locals-handler):
- Future proof against new fields being added to MI output.
- (gdb-send): Don't treat backslashes for program input as
- continuations.
- (gdb-assembler-handler): Don't use window-start for this handler.
- (gdb-frame-handler): Don't change to hollow arrow if overlay
- arrow doesn't move to new frame.
+ * doc-view.el: Remove all cb-args, use closures instead.
+ (doc-view-sentinel): Merge doc-view-dvi->pdf-sentinel,
+ doc-view-ps->pdf-sentinel, and doc-view-pdf->txt-sentinel (which was
+ doing an incorrect check). Update all callers to use the new name.
+ (doc-view-doc->txt): Add missing `txt' argument.
-2006-03-24 Nick Roberts <nickrob@snap.net.nz>
+2008-03-12 Tassilo Horn <tassilo@member.fsf.org>
- * progmodes/gdb-ui.el (gdb-continuation): Declare earlier to
- prevent compiler warnings.
- (gdb-stopped): Check for gud-last-last-frame (case: signal).
- (breakpoint-disabled): Make lighter for contrast with overlay arrow.
- (gdb-assembler-custom): Use hollow-right-triangle for assembler
- buffer too.
+ * doc-view.el (doc-view-current-cache-dir): Set buffer used for
+ md5 sum calculation to single-byte.
-2006-03-23 Reiner Steib <reinersteib+gmane@imap.cc>
+2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca>
- * pgg-gpg.el (pgg-gpg-update-agent): Check for
- make-network-process, so we can use the same code in Gnus v5-10
- too and have this file fully synchronized with that release.
+ * doc-view.el (doc-view-new-window-function): Add assertion.
+ (doc-view-doc-type): New var.
+ (doc-view-convert-current-doc, doc-view-doc->txt): Use it.
+ (doc-view-intersection): New fun.
+ (doc-view-mode): Use it to set the new var.
-2006-03-23 Romain Francoise <romain@orebokech.com>
+2008-03-12 Tassilo Horn <tassilo@member.fsf.org>
- * ibuf-ext.el (ibuffer-read-filter-group-name):
- Use `ibuffer-generate-filter-groups' to make completion list match
- the filter groups that are really displayed in the Ibuffer buffer.
- (ibuffer-generate-filter-groups): Add new args noempty, nodefault.
+ * doc-view.el (doc-view-doc->txt, doc-view-open-text)
+ (doc-view-already-converted-p): New functions.
+ (doc-view-clear-cache): Don't recreate doc-view-cache-directory.
+ (doc-view-mode-map): Bind C-c C-t to doc-view-open-text.
+ (doc-view-dvi->pdf-sentinel, doc-view-dvi->pdf)
+ (doc-view-pdf->txt-sentinel, doc-view-pdf->txt)
+ (doc-view-ps->pdf-sentinel, doc-view-ps->pdf)
+ (doc-view-convert-current-doc): Don't hardwire the functions the
+ sentinels call. Now they're provided by two args CALLBACK and
+ CB-ARGS to the functions.
+ (doc-view-search): Use doc-view-doc->txt.
+ (doc-view-initiate-display): Use doc-view-already-converted-p.
+ Mention new binding C-c C-t if doc-view-mode doesn't work.
-2006-03-23 Kenichi Handa <handa@m17n.org>
+2008-03-12 Dan Nicolaescu <dann@ics.uci.edu>
- * international/mule-cmds.el (sort-coding-systems): Describe that
- the argument is modified in docstring.
+ * diff-mode.el (diff-refine-change): Adjust colors to be more visible.
-2006-03-22 Sascha Wilde <wilde@sha-bang.de>
+2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca>
- * pgg-gpg.el (pgg-gpg-use-agent): Disable by default.
- (pgg-gpg-update-agent): New function.
- (pgg-gpg-use-agent-p): New function.
- (pgg-gpg-process-region, pgg-gpg-encrypt-region)
- (pgg-gpg-encrypt-symmetric-region, pgg-gpg-decrypt-region)
- (pgg-gpg-sign-region): Use it.
+ * textmodes/sgml-mode.el (sgml-font-lock-syntactic-keywords):
+ Mark " outside of tags as punctuation.
-2006-03-21 Chong Yidong <cyd@stupidchicken.com>
+2008-03-11 Stefan Monnier <monnier@iro.umontreal.ca>
- * cus-edit.el (custom-face-set): Call custom-push-theme before
- face-spec set so that `changed' theme is correctly saved.
- (custom-face-reset-standard): Reset to recalculated face rather
- than defface spec.
+ * menu-bar.el (minibuffer-local-map): Use the same command for the
+ "Quit" menu as used for the C-g key, so the shortcut displayed is C-g.
+ Prefer RET over C-j for exit-minibuffer.
- * custom.el (custom-push-theme): Only save `changed' theme if the
- current face does not match the defface specs.
+ * files.el (display-buffer-other-frame): Eliminate problematic code.
-2006-03-21 Simon Josefsson <jas@extundo.com>
+ * menu-bar.el (menu-bar-update-buffers-maxbuf): Remove.
+ (menu-bar-select-buffer): Remove.
+ (menu-bar-select-frame): Make non-interactive and take a frame arg.
+ (menu-bar-update-buffers): Don't use buffer-names or frame names as events.
- * pgg-gpg.el: Ideas below based on patch from Sascha Wilde
- <wilde@sha-bang.de>.
- (pgg-gpg-use-agent): New variable.
- (pgg-gpg-process-region): Use it.
- (pgg-gpg-encrypt-region): Likewise.
- (pgg-gpg-encrypt-symmetric-region): Likewise.
- (pgg-gpg-decrypt-region): Likewise.
- (pgg-gpg-sign-region): Likewise.
- (pgg-gpg-possibly-cache-passphrase): Don't cache a nil password.
+2008-03-11 Juanma Barranquero <lekktu@gmail.com>
-2006-03-21 Carsten Dominik <dominik@science.uva.nl>
+ * icomplete.el (icomplete-completions): Remove obsolete code.
- * textmodes/org.el (org-open-at-point): Fix bug in wiki-style
- bracket links.
+ * net/net-utils.el (iwconfig-program-options): Doc fix.
+ (net-utils-run-program, run-network-program): Define as functions.
-2006-03-21 Kim F. Storm <storm@cua.dk>
+2008-03-11 Dan Nicolaescu <dann@ics.uci.edu>
- * progmodes/gdb-ui.el (gdb-reset): Set buffer local value of
- fringe-indicator-alist instead of modifying global value.
- (gdb-frame-handler): Likewise.
+ * emacs-lisp/lisp-mode.el (lisp-interaction-mode-map): Fix typo.
-2006-03-21 Nick Roberts <nickrob@snap.net.nz>
+2008-03-11 Glenn Morris <rgm@gnu.org>
- * diff-mode.el (diff-function): Make it inherit from diff-header
- instead of diff-context.
+ * faces.el (mode-line-emphasis): New face.
+ * vc.el (vc-set-mode-line-busy-indicator): Use mode-line-emphasis face.
- * progmodes/gdb-ui.el (hollow-right-triangle): Define as fringe
- bitmap.
- (gdb-info-stack-custom): Rename from gdb-info-frames-custom and
- change names in macro above for consistency.
- (gdb-frame-handler): Use hollow-right-triangle for all selected
- frames which except the innermost (where execution has stopped).
- (gdb-reset): Reset buffer-local values of overlay-arrow.
+ * calendar/calendar.el (top-level): Load cal-loaddefs when compiling.
-2006-03-20 Richard Stallman <rms@gnu.org>
+2008-03-11 Chong Yidong <cyd@stupidchicken.com>
* simple.el (set-mark-command): Doc fix.
--- /dev/null
- (when (string-match
- (concat
- "\\`[ \t]*\\([-+]\\{1,2\\}\\)"
- "\\([0-9]+\\)?"
- "\\([dwmy]\\|\\(" (mapconcat 'car parse-time-weekdays "\\|") "\\)\\)?"
- "\\([ \t]\\|$\\)") s)
- (let* ((dir (if (match-end 1)
+;;; org.el --- Outline-based notes management and organizer
+;; Carstens outline-mode for keeping track of everything.
+;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;
+;; Author: Carsten Dominik <carsten at orgmode dot org>
+;; Keywords: outlines, hypermedia, calendar, wp
+;; Homepage: http://orgmode.org
+;; Version: 6.02b
+;;
+;; This file is part of GNU Emacs.
+;;
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Commentary:
+;;
+;; Org-mode is a mode for keeping notes, maintaining ToDo lists, and doing
+;; project planning with a fast and effective plain-text system.
+;;
+;; Org-mode develops organizational tasks around NOTES files that contain
+;; information about projects as plain text. Org-mode is implemented on
+;; top of outline-mode, which makes it possible to keep the content of
+;; large files well structured. Visibility cycling and structure editing
+;; help to work with the tree. Tables are easily created with a built-in
+;; table editor. Org-mode supports ToDo items, deadlines, time stamps,
+;; and scheduling. It dynamically compiles entries into an agenda that
+;; utilizes and smoothly integrates much of the Emacs calendar and diary.
+;; Plain text URL-like links connect to websites, emails, Usenet
+;; messages, BBDB entries, and any files related to the projects. For
+;; printing and sharing of notes, an Org-mode file can be exported as a
+;; structured ASCII file, as HTML, or (todo and agenda items only) as an
+;; iCalendar file. It can also serve as a publishing tool for a set of
+;; linked webpages.
+;;
+;; Installation and Activation
+;; ---------------------------
+;; See the corresponding sections in the manual at
+;;
+;; http://orgmode.org/org.html#Installation
+;;
+;; Documentation
+;; -------------
+;; The documentation of Org-mode can be found in the TeXInfo file. The
+;; distribution also contains a PDF version of it. At the homepage of
+;; Org-mode, you can read the same text online as HTML. There is also an
+;; excellent reference card made by Philip Rooke. This card can be found
+;; in the etc/ directory of Emacs 22.
+;;
+;; A list of recent changes can be found at
+;; http://orgmode.org/Changes.html
+;;
+;;; Code:
+
+(defvar org-inhibit-highlight-removal nil) ; dynamically scoped param
+(defvar org-table-formula-constants-local nil
+ "Local version of `org-table-formula-constants'.")
+(make-variable-buffer-local 'org-table-formula-constants-local)
+
+;;;; Require other packages
+
+(eval-when-compile
+ (require 'cl)
+ (require 'gnus-sum)
+ (require 'calendar))
+;; For XEmacs, noutline is not yet provided by outline.el, so arrange for
+;; the file noutline.el being loaded.
+(if (featurep 'xemacs) (condition-case nil (require 'noutline)))
+;; We require noutline, which might be provided in outline.el
+(require 'outline) (require 'noutline)
+;; Other stuff we need.
+(require 'time-date)
+(unless (fboundp 'time-subtract) (defalias 'time-subtract 'subtract-time))
+(require 'easymenu)
+
+(require 'org-macs)
+(require 'org-compat)
+(require 'org-faces)
+
+;;;; Customization variables
+
+;;; Version
+
+(defconst org-version "6.02b"
+ "The version number of the file org.el.")
+
+(defun org-version (&optional here)
+ "Show the org-mode version in the echo area.
+With prefix arg HERE, insert it at point."
+ (interactive "P")
+ (let ((version (format "Org-mode version %s" org-version)))
+ (message version)
+ (if here
+ (insert version))))
+
+;;; Compatibility constants
+
+;;; The custom variables
+
+(defgroup org nil
+ "Outline-based notes management and organizer."
+ :tag "Org"
+ :group 'outlines
+ :group 'hypermedia
+ :group 'calendar)
+
+(defcustom org-load-hook nil
+ "Hook that is run after org.el has been loaded."
+ :group 'org
+ :type 'hook)
+
+(defvar org-modules) ; defined below
+(defvar org-modules-loaded nil
+ "Have the modules been loaded already?")
+
+(defun org-load-modules-maybe (&optional force)
+ "Load all extensions listed in `org-default-extensions'."
+ (when (or force (not org-modules-loaded))
+ (mapc (lambda (ext)
+ (condition-case nil (require ext)
+ (error (message "Problems while trying to load feature `%s'" ext))))
+ org-modules)
+ (setq org-modules-loaded t)))
+
+(defun org-set-modules (var value)
+ "Set VAR to VALUE and call `org-load-modules-maybe' with the force flag."
+ (set var value)
+ (when (featurep 'org)
+ (org-load-modules-maybe 'force)))
+
+(defcustom org-modules '(org-bbdb org-bibtex org-gnus org-info org-infojs org-irc org-mew org-mhe org-rmail org-vm org-wl)
+ "Modules that should always be loaded together with org.el.
+If a description starts with <C>, the file is not part of emacs
+and loading it will require that you have downloaded and properly installed
+the org-mode distribution.
+
+You can also use this system to load external packages (i.e. neither Org
+core modules, not modules from the CONTRIB directory). Just add symbols
+to the end of the list. If the package is called org-xyz.e, then you need
+to add the symbol `xyz', and the package must have a call to
+
+ (provide 'org-xyz)"
+ :group 'org
+ :set 'org-set-modules
+ :type
+ '(set :greedy t
+ (const :tag " bbdb: Links to BBDB entries" org-bbdb)
+ (const :tag " bibtex: Links to BibTeX entries" org-bibtex)
+ (const :tag " gnus: Links to GNUS folders/messages" org-gnus)
+ (const :tag " info: Links to Info nodes" org-info)
+ (const :tag " infojs: Set up Sebastian Rose's JavaScript org-info.js" org-infojs)
+ (const :tag " irc: Links to IRC/ERC chat sessions" org-irc)
+ (const :tag " mac-message: Links to messages in Apple Mail" org-mac-message)
+ (const :tag " mew Links to Mew folders/messages" org-mew)
+ (const :tag " mhe: Links to MHE folders/messages" org-mhe)
+ (const :tag " rmail: Links to RMAIL folders/messages" org-rmail)
+ (const :tag " vm: Links to VM folders/messages" org-vm)
+ (const :tag " wl: Links to Wanderlust folders/messages" org-wl)
+ (const :tag " mouse: Additional mouse support" org-mouse)
+
+ (const :tag "C annotate-file: Annotate a file with org syntax" org-annotate-file)
+ (const :tag "C bookmark: Org links to bookmarks" org-bookmark)
+ (const :tag "C depend: TODO dependencies for Org-mode" org-depend)
+ (const :tag "C elisp-symbol: Org links to emacs-lisp symbols" org-elisp-symbol)
+ (const :tag "C expiry: Expiry mechanism for Org entries" org-expiry)
+ (const :tag "C id: Global id's for identifying entries" org-id)
+ (const :tag "C interactive-query: Interactive modification of tags query" org-interactive-query)
+ (const :tag "C mairix: Hook mairix search into Org for different MUAs" org-mairix)
+ (const :tag "C man: Support for links to manpages in Org-mode" org-man)
+ (const :tag "C mew: Support for links to messages in Mew" org-mew)
+ (const :tag "C panel: Simple routines for us with bad memory" org-panel)
+ (const :tag "C registry: A registry for Org links" org-registry)
+ (const :tag "C org2rem: Convert org appointments into reminders" org2rem)
+ (const :tag "C screen: Visit screen sessions through Org-mode links" org-screen)
+ (const :tag "C toc: Table of contents for Org-mode buffer" org-toc)
+ (const :tag "C sqlinsert: Convert Org-mode tables to SQL insertions" orgtbl-sqlinsert)
+ (repeat :tag "External packages" :inline t (symbol :tag "Package"))))
+
+
+(defgroup org-startup nil
+ "Options concerning startup of Org-mode."
+ :tag "Org Startup"
+ :group 'org)
+
+(defcustom org-startup-folded t
+ "Non-nil means, entering Org-mode will switch to OVERVIEW.
+This can also be configured on a per-file basis by adding one of
+the following lines anywhere in the buffer:
+
+ #+STARTUP: fold
+ #+STARTUP: nofold
+ #+STARTUP: content"
+ :group 'org-startup
+ :type '(choice
+ (const :tag "nofold: show all" nil)
+ (const :tag "fold: overview" t)
+ (const :tag "content: all headlines" content)))
+
+(defcustom org-startup-truncated t
+ "Non-nil means, entering Org-mode will set `truncate-lines'.
+This is useful since some lines containing links can be very long and
+uninteresting. Also tables look terrible when wrapped."
+ :group 'org-startup
+ :type 'boolean)
+
+(defcustom org-startup-align-all-tables nil
+ "Non-nil means, align all tables when visiting a file.
+This is useful when the column width in tables is forced with <N> cookies
+in table fields. Such tables will look correct only after the first re-align.
+This can also be configured on a per-file basis by adding one of
+the following lines anywhere in the buffer:
+ #+STARTUP: align
+ #+STARTUP: noalign"
+ :group 'org-startup
+ :type 'boolean)
+
+(defcustom org-insert-mode-line-in-empty-file nil
+ "Non-nil means insert the first line setting Org-mode in empty files.
+When the function `org-mode' is called interactively in an empty file, this
+normally means that the file name does not automatically trigger Org-mode.
+To ensure that the file will always be in Org-mode in the future, a
+line enforcing Org-mode will be inserted into the buffer, if this option
+has been set."
+ :group 'org-startup
+ :type 'boolean)
+
+(defcustom org-replace-disputed-keys nil
+ "Non-nil means use alternative key bindings for some keys.
+Org-mode uses S-<cursor> 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
+*before* org.el is loaded. Changing it requires a restart of Emacs to
+become effective."
+ :group 'org-startup
+ :type 'boolean)
+
+(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 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 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.
+When nil, just use the standard three dots. When a string, use that instead,
+When a face, use the standart 3 dots, but with the specified face.
+The change affects only Org-mode (which will then use its own display table).
+Changing this requires executing `M-x org-mode' in a buffer to become
+effective."
+ :group 'org-startup
+ :type '(choice (const :tag "Default" nil)
+ (face :tag "Face" :value org-warning)
+ (string :tag "String" :value "...#")))
+
+(defvar org-display-table nil
+ "The display table for org-mode, in case `org-ellipsis' is non-nil.")
+
+(defgroup org-keywords nil
+ "Keywords in Org-mode."
+ :tag "Org Keywords"
+ :group 'org)
+
+(defcustom org-deadline-string "DEADLINE:"
+ "String to mark deadline entries.
+A deadline is this string, followed by a time stamp. Should be a word,
+terminated by a colon. You can insert a schedule keyword and
+a timestamp with \\[org-deadline].
+Changes become only effective after restarting Emacs."
+ :group 'org-keywords
+ :type 'string)
+
+(defcustom org-scheduled-string "SCHEDULED:"
+ "String to mark scheduled TODO entries.
+A schedule is this string, followed by a time stamp. Should be a word,
+terminated by a colon. You can insert a schedule keyword and
+a timestamp with \\[org-schedule].
+Changes become only effective after restarting Emacs."
+ :group 'org-keywords
+ :type 'string)
+
+(defcustom org-closed-string "CLOSED:"
+ "String used as the prefix for timestamps logging closing a TODO entry."
+ :group 'org-keywords
+ :type 'string)
+
+(defcustom org-clock-string "CLOCK:"
+ "String used as prefix for timestamps clocking work hours on an item."
+ :group 'org-keywords
+ :type 'string)
+
+(defcustom org-comment-string "COMMENT"
+ "Entries starting with this keyword will never be exported.
+An entry can be toggled between COMMENT and normal with
+\\[org-toggle-comment].
+Changes become only effective after restarting Emacs."
+ :group 'org-keywords
+ :type 'string)
+
+(defcustom org-quote-string "QUOTE"
+ "Entries starting with this keyword will be exported in fixed-width font.
+Quoting applies only to the text in the entry following the headline, and does
+not extend beyond the next headline, even if that is lower level.
+An entry can be toggled between QUOTE and normal with
+\\[org-toggle-fixed-width-section]."
+ :group 'org-keywords
+ :type 'string)
+
+(defconst org-repeat-re
+ "<[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^>\n]*\\([.+]?\\+[0-9]+[dwmy]\\)"
+ "Regular expression for specifying repeated events.
+After a match, group 1 contains the repeat expression.")
+
+(defgroup org-structure nil
+ "Options concerning the general structure of Org-mode files."
+ :tag "Org Structure"
+ :group 'org)
+
+(defgroup org-reveal-location nil
+ "Options about how to make context of a location visible."
+ :tag "Org Reveal Location"
+ :group 'org-structure)
+
+(defconst org-context-choice
+ '(choice
+ (const :tag "Always" t)
+ (const :tag "Never" nil)
+ (repeat :greedy t :tag "Individual contexts"
+ (cons
+ (choice :tag "Context"
+ (const agenda)
+ (const org-goto)
+ (const occur-tree)
+ (const tags-tree)
+ (const link-search)
+ (const mark-goto)
+ (const bookmark-jump)
+ (const isearch)
+ (const default))
+ (boolean))))
+ "Contexts for the reveal options.")
+
+(defcustom org-show-hierarchy-above '((default . t))
+ "Non-nil means, show full hierarchy 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 hierarchy of headings
+above the exposed location is shown.
+Turning this off for example for sparse trees makes them very compact.
+Instead of t, this can also be an alist specifying this option for different
+contexts. Valid contexts are
+ agenda when exposing an entry from the agenda
+ org-goto when using the command `org-goto' on key C-c C-j
+ occur-tree when using the command `org-occur' on key C-c /
+ tags-tree when constructing a sparse tree based on tags matches
+ link-search when exposing search matches associated with a link
+ mark-goto when exposing the jump goal of a mark
+ bookmark-jump when exposing a bookmark location
+ isearch when exiting from an incremental search
+ default default for all contexts not set explicitly"
+ :group 'org-reveal-location
+ :type org-context-choice)
+
+(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
+match is shown.
+Turning this off for example for sparse trees makes them very compact,
+but makes it harder to edit the location of the match. In such a case,
+use the command \\[org-reveal] to show more context.
+Instead of t, this can also be an alist specifying this option for different
+contexts. See `org-show-hierarchy-above' for valid contexts."
+ :group 'org-reveal-location
+ :type org-context-choice)
+
+(defcustom org-show-siblings '((default . nil) (isearch t))
+ "Non-nil means, show all sibling 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 sibling of the current entry
+heading are all made visible. If `org-show-hierarchy-above' is t,
+the same happens on each level of the hierarchy above the current entry.
+
+By default this is on for the isearch context, off for all other contexts.
+Turning this off for example for sparse trees makes them very compact,
+but makes it harder to edit the location of the match. In such a case,
+use the command \\[org-reveal] to show more context.
+Instead of t, this can also be an alist specifying this option for different
+contexts. See `org-show-hierarchy-above' for valid contexts."
+ :group 'org-reveal-location
+ :type org-context-choice)
+
+(defcustom org-show-entry-below '((default . nil))
+ "Non-nil means, show the entry below a headline 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 text below the headline that is
+exposed is also shown.
+
+By default this is off for all contexts.
+Instead of t, this can also be an alist specifying this option for different
+contexts. See `org-show-hierarchy-above' for valid contexts."
+ :group 'org-reveal-location
+ :type org-context-choice)
+
+(defcustom org-indirect-buffer-display 'other-window
+ "How should indirect tree buffers be displayed?
+This applies to indirect buffers created with the commands
+\\[org-tree-to-indirect-buffer] and \\[org-agenda-tree-to-indirect-buffer].
+Valid values are:
+current-window Display in the current window
+other-window Just display in another window.
+dedicated-frame Create one new frame, and re-use it each time.
+new-frame Make a new frame each time. Note that in this case
+ previously-made indirect buffers are kept, and you need to
+ kill these buffers yourself."
+ :group 'org-structure
+ :group 'org-agenda-windows
+ :type '(choice
+ (const :tag "In current window" current-window)
+ (const :tag "In current frame, other window" other-window)
+ (const :tag "Each time a new frame" new-frame)
+ (const :tag "One dedicated frame" dedicated-frame)))
+
+(defgroup org-cycle nil
+ "Options concerning visibility cycling in Org-mode."
+ :tag "Org Cycle"
+ :group 'org-structure)
+
+(defcustom org-drawers '("PROPERTIES" "CLOCK")
+ "Names of drawers. Drawers are not opened by cycling on the headline above.
+Drawers only open with a TAB on the drawer line itself. A drawer looks like
+this:
+ :DRAWERNAME:
+ .....
+ :END:
+The drawer \"PROPERTIES\" is special for capturing properties through
+the property API.
+
+Drawers can be defined on the per-file basis with a line like:
+
+#+DRAWERS: HIDDEN STATE PROPERTIES"
+ :group 'org-structure
+ :type '(repeat (string :tag "Drawer Name")))
+
+(defcustom org-cycle-global-at-bob nil
+ "Cycle globally if cursor is at beginning of buffer and not at a headline.
+This makes it possible to do global cycling without having to use S-TAB or
+C-u TAB. For this special case to work, the first line of the buffer
+must not be a headline - it may be empty ot some other text. When used in
+this way, `org-cycle-hook' is disables temporarily, to make sure the
+cursor stays at the beginning of the buffer.
+When this option is nil, don't do anything special at the beginning
+of the buffer."
+ :group 'org-cycle
+ :type 'boolean)
+
+(defcustom org-cycle-emulate-tab t
+ "Where should `org-cycle' emulate TAB.
+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
+ :type '(choice (const :tag "Never" nil)
+ (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-hide-drawers
+ 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
+the new state that was set by the most recent `org-cycle' command. The
+argument is a symbol. After a global state change, it can have the values
+`overview', `content', or `all'. After a local state change, it can have
+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-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
+promotion/demotion commands. It also influences how levels are
+handled by the exporters.
+Changing it requires restart of `font-lock-mode' to become effective
+for fontification also in regions already fontified.
+You may also set this on a per-file basis by adding one of the following
+lines to the buffer:
+
+ #+STARTUP: odd
+ #+STARTUP: oddeven"
+ :group 'org-edit-structure
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defcustom org-adapt-indentation t
+ "Non-nil means, adapt indentation when promoting and demoting.
+When this is set and the *entire* text in an entry is indented, the
+indentation is increased by one space in a demotion command, and
+decreased by one in a promotion command. If any line in the entry
+body starts at column 0, indentation is not changed at all."
+ :group 'org-edit-structure
+ :type 'boolean)
+
+(defcustom org-special-ctrl-a/e nil
+ "Non-nil means `C-a' and `C-e' behave specially in headlines and items.
+When t, `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.
+In an item, this will be the position after the bullet.
+When the cursor is already at that position, another `C-a' will bring
+it to the beginning of the line.
+`C-e' will jump to the end of the headline, ignoring the presence of tags
+in the headline. A second `C-e' will then jump to the true end of the
+line, after any tags.
+When set to the symbol `reversed', the first `C-a' or `C-e' works normally,
+and only a directly following, identical keypress will bring the cursor
+to the special positions."
+ :group 'org-edit-structure
+ :type '(choice
+ (const :tag "off" nil)
+ (const :tag "after bullet first" t)
+ (const :tag "border first" reversed)))
+
+(if (fboundp 'defvaralias)
+ (defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e))
+
+(defcustom org-special-ctrl-k nil
+ "Non-nil means `C-k' will behave specially in headlines.
+When nil, `C-k' will call the default `kill-line' command.
+When t, the following will happen while the cursor is in the headline:
+
+- When the cursor is at the beginning of a headline, kill the entire
+ line and possible the folded subtree below the line.
+- When in the middle of the headline text, kill the headline up to the tags.
+- When after the headline text, kill the tags."
+ :group 'org-edit-structure
+ :type 'boolean)
+
+(defcustom org-M-RET-may-split-line '((default . t))
+ "Non-nil means, M-RET will split the line at the cursor position.
+When nil, it will go to the end of the line before making a
+new line.
+You may also set this option in a different way for different
+contexts. Valid contexts are:
+
+headline when creating a new headline
+item when creating a new item
+table in a table field
+default the value to be used for all contexts not explicitly
+ customized"
+ :group 'org-structure
+ :group 'org-table
+ :type '(choice
+ (const :tag "Always" t)
+ (const :tag "Never" nil)
+ (repeat :greedy t :tag "Individual contexts"
+ (cons
+ (choice :tag "Context"
+ (const headline)
+ (const item)
+ (const table)
+ (const default))
+ (boolean)))))
+
+
+(defcustom org-blank-before-new-entry '((heading . nil)
+ (plain-list-item . nil))
+ "Should `org-insert-heading' leave a blank line before new heading/item?
+The value is an alist, with `heading' and `plain-list-item' as car,
+and a boolean flag as cdr."
+ :group 'org-edit-structure
+ :type '(list
+ (cons (const heading) (boolean))
+ (cons (const plain-list-item) (boolean))))
+
+(defcustom org-insert-heading-hook nil
+ "Hook being run after inserting a new heading."
+ :group 'org-edit-structure
+ :type 'hook)
+
+(defcustom org-enable-fixed-width-editor t
+ "Non-nil means, lines starting with \":\" are treated as fixed-width.
+This currently only means, they are never auto-wrapped.
+When nil, such lines will be treated like ordinary lines.
+See also the QUOTE keyword."
+ :group 'org-edit-structure
+ :type 'boolean)
+
+(defcustom org-goto-auto-isearch t
+ "Non-nil means, typing characters in org-goto starts incremental search."
+ :group 'org-edit-structure
+ :type 'boolean)
+
+(defgroup org-sparse-trees nil
+ "Options concerning sparse trees in Org-mode."
+ :tag "Org Sparse Trees"
+ :group 'org-structure)
+
+(defcustom org-highlight-sparse-tree-matches t
+ "Non-nil means, highlight all matches that define a sparse tree.
+The highlights will automatically disappear the next time the buffer is
+changed by an edit command."
+ :group 'org-sparse-trees
+ :type 'boolean)
+
+(defcustom org-remove-highlights-with-change t
+ "Non-nil means, any change to the buffer will remove temporary highlights.
+Such highlights are created by `org-occur' and `org-clock-display'.
+When nil, `C-c C-c needs to be used to get rid of the highlights.
+The highlights created by `org-preview-latex-fragment' always need
+`C-c C-c' to be removed."
+ :group 'org-sparse-trees
+ :group 'org-time
+ :type 'boolean)
+
+
+(defcustom org-occur-hook '(org-first-headline-recenter)
+ "Hook that is run after `org-occur' has constructed a sparse tree.
+This can be used to recenter the window to show as much of the structure
+as possible."
+ :group 'org-sparse-trees
+ :type 'hook)
+
+(defgroup org-plain-lists nil
+ "Options concerning plain lists in Org-mode."
+ :tag "Org Plain lists"
+ :group 'org-structure)
+
+(defcustom org-cycle-include-plain-lists nil
+ "Non-nil means, include plain lists into visibility cycling.
+This means that during cycling, plain list items will *temporarily* be
+interpreted as outline headlines with a level given by 1000+i where i is the
+indentation of the bullet. In all other operations, plain list items are
+not seen as headlines. For example, you cannot assign a TODO keyword to
+such an item."
+ :group 'org-plain-lists
+ :type 'boolean)
+
+(defcustom org-plain-list-ordered-item-terminator t
+ "The character that makes a line with leading number an ordered list item.
+Valid values are ?. and ?\). To get both terminators, use t. While
+?. may look nicer, it creates the danger that a line with leading
+number may be incorrectly interpreted as an item. ?\) therefore is
+the safe choice."
+ :group 'org-plain-lists
+ :type '(choice (const :tag "dot like in \"2.\"" ?.)
+ (const :tag "paren like in \"2)\"" ?\))
+ (const :tab "both" t)))
+
+(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)
+
+(defcustom org-auto-renumber-ordered-lists t
+ "Non-nil means, automatically renumber ordered plain lists.
+Renumbering happens when the sequence have been changed with
+\\[org-shiftmetaup] or \\[org-shiftmetadown]. After other editing commands,
+use \\[org-ctrl-c-ctrl-c] to trigger renumbering."
+ :group 'org-plain-lists
+ :type 'boolean)
+
+(defcustom org-provide-checkbox-statistics t
+ "Non-nil means, update checkbox statistics after insert and toggle.
+When this is set, checkbox statistics is updated each time you either insert
+a new checkbox with \\[org-insert-todo-heading] or toggle a checkbox
+with \\[org-ctrl-c-ctrl-c\\]."
+ :group 'org-plain-lists
+ :type 'boolean)
+
+
+(defgroup org-imenu-and-speedbar nil
+ "Options concerning imenu and speedbar in Org-mode."
+ :tag "Org Imenu and Speedbar"
+ :group 'org-structure)
+
+(defcustom org-imenu-depth 2
+ "The maximum level for Imenu access to Org-mode headlines.
+This also applied for speedbar access."
+ :group 'org-imenu-and-speedbar
+ :type 'number)
+
+(defgroup org-table nil
+ "Options concerning tables in Org-mode."
+ :tag "Org Table"
+ :group 'org)
+
+(defcustom org-enable-table-editor 'optimized
+ "Non-nil means, lines starting with \"|\" are handled by the table editor.
+When nil, such lines will be treated like ordinary lines.
+
+When equal to the symbol `optimized', the table editor will be optimized to
+do the following:
+- Automatic overwrite mode in front of whitespace in table fields.
+ This makes the structure of the table stay in tact as long as the edited
+ field does not exceed the column width.
+- Minimize the number of realigns. Normally, the table is aligned each time
+ TAB or RET are pressed to move to another field. With optimization this
+ happens only if changes to a field might have changed the column width.
+Optimization requires replacing the functions `self-insert-command',
+`delete-char', and `backward-delete-char' in Org-mode buffers, with a
+slight (in fact: unnoticeable) speed impact for normal typing. Org-mode is
+very good at guessing when a re-align will be necessary, but you can always
+force one with \\[org-ctrl-c-ctrl-c].
+
+If you would like to use the optimized version in Org-mode, but the
+un-optimized version in OrgTbl-mode, see the variable `orgtbl-optimized'.
+
+This variable can be used to turn on and off the table editor during a session,
+but in order to toggle optimization, a restart is required.
+
+See also the variable `org-table-auto-blank-field'."
+ :group 'org-table
+ :type '(choice
+ (const :tag "off" nil)
+ (const :tag "on" t)
+ (const :tag "on, optimized" optimized)))
+
+(defcustom org-table-tab-recognizes-table.el t
+ "Non-nil means, TAB will automatically notice a table.el table.
+When it sees such a table, it moves point into it and - if necessary -
+calls `table-recognize-table'."
+ :group 'org-table-editing
+ :type 'boolean)
+
+(defgroup org-link nil
+ "Options concerning links in Org-mode."
+ :tag "Org Link"
+ :group 'org)
+
+(defvar org-link-abbrev-alist-local nil
+ "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)
+
+(defcustom org-link-abbrev-alist nil
+ "Alist of link abbreviations.
+The car of each element is a string, to be replaced at the start of a link.
+The cdrs are replacement values, like (\"linkkey\" . REPLACE). Abbreviated
+links in Org-mode buffers can have an optional tag after a double colon, e.g.
+
+ [[linkkey:tag][description]]
+
+If REPLACE is a string, the tag will simply be appended to create the link.
+If the string contains \"%s\", the tag will be inserted there.
+
+REPLACE may also be a function that will be called with the tag as the
+only argument to create the link, which should be returned as a string.
+
+See the manual for examples."
+ :group 'org-link
+ :type 'alist)
+
+(defcustom org-descriptive-links t
+ "Non-nil means, hide link part and only show description of bracket links.
+Bracket links are like [[link][descritpion]]. This variable sets the initial
+state in new org-mode buffers. The setting can then be toggled on a
+per-buffer basis from the Org->Hyperlinks menu."
+ :group 'org-link
+ :type 'boolean)
+
+(defcustom org-link-file-path-type 'adaptive
+ "How the path name in file links should be stored.
+Valid values are:
+
+relative Relative to the current directory, i.e. the directory of the file
+ into which the link is being inserted.
+absolute Absolute path, if possible with ~ for home directory.
+noabbrev Absolute path, no abbreviation of home directory.
+adaptive Use relative path for files in the current directory and sub-
+ directories of it. For other files, use an absolute path."
+ :group 'org-link
+ :type '(choice
+ (const relative)
+ (const absolute)
+ (const noabbrev)
+ (const adaptive)))
+
+(defcustom org-activate-links '(bracket angle plain radio tag date)
+ "Types of links that should be activated in Org-mode files.
+This is a list of symbols, each leading to the activation of a certain link
+type. In principle, it does not hurt to turn on most link types - there may
+be a small gain when turning off unused link types. The types are:
+
+bracket The recommended [[link][description]] or [[link]] links with hiding.
+angular Links in angular brackes that may contain whitespace like
+ <bbdb:Carsten Dominik>.
+plain Plain links in normal text, no whitespace, like http://google.com.
+radio Text that is matched by a radio target, see manual for details.
+tag Tag settings in a headline (link to tag search).
+date Time stamps (link to calendar).
+
+Changing this variable requires a restart of Emacs to become effective."
+ :group 'org-link
+ :type '(set (const :tag "Double bracket links (new style)" bracket)
+ (const :tag "Angular bracket links (old style)" angular)
+ (const :tag "Plain text links" plain)
+ (const :tag "Radio target matches" radio)
+ (const :tag "Tags" tag)
+ (const :tag "Timestamps" date)))
+
+(defcustom org-make-link-description-function nil
+ "Function to use to generate link descriptions from links. If
+nil the link location will be used. This function must take two
+parameters; the first is the link and the second the description
+org-insert-link has generated, and should return the description
+to use."
+ :group 'org-link
+ :type 'function)
+
+(defgroup org-link-store nil
+ "Options concerning storing links in Org-mode."
+ :tag "Org Store Link"
+ :group 'org-link)
+
+(defcustom org-email-link-description-format "Email %c: %.30s"
+ "Format of the description part of a link to an email or usenet message.
+The following %-excapes will be replaced by corresponding information:
+
+%F full \"From\" field
+%f name, taken from \"From\" field, address if no name
+%T full \"To\" field
+%t first name in \"To\" field, address if no name
+%c correspondent. Unually \"from NAME\", but if you sent it yourself, it
+ will be \"to NAME\". See also the variable `org-from-is-user-regexp'.
+%s subject
+%m message-id.
+
+You may use normal field width specification between the % and the letter.
+This is for example useful to limit the length of the subject.
+
+Examples: \"%f on: %.30s\", \"Email from %f\", \"Email %c\""
+ :group 'org-link-store
+ :type 'string)
+
+(defcustom org-from-is-user-regexp
+ (let (r1 r2)
+ (when (and user-mail-address (not (string= user-mail-address "")))
+ (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>")))
+ (when (and user-full-name (not (string= user-full-name "")))
+ (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
+ (if (and r1 r2) (concat r1 "\\|" r2) (or r1 r2)))
+ "Regexp mached against the \"From:\" header of an email or usenet message.
+It should match if the message is from the user him/herself."
+ :group 'org-link-store
+ :type 'regexp)
+
+(defcustom org-context-in-file-links t
+ "Non-nil means, file links from `org-store-link' contain context.
+A search string will be added to the file name with :: as separator and
+used to find the context when the link is activated by the command
+`org-open-at-point'.
+Using a prefix arg to the command \\[org-store-link] (`org-store-link')
+negates this setting for the duration of the command."
+ :group 'org-link-store
+ :type 'boolean)
+
+(defcustom org-keep-stored-link-after-insertion nil
+ "Non-nil means, keep link in list for entire session.
+
+The command `org-store-link' adds a link pointing to the current
+location to an internal list. These links accumulate during a session.
+The command `org-insert-link' can be used to insert links into any
+Org-mode file (offering completion for all stored links). When this
+option is nil, every link which has been inserted once using \\[org-insert-link]
+will be removed from the list, to make completing the unused links
+more efficient."
+ :group 'org-link-store
+ :type 'boolean)
+
+(defgroup org-link-follow nil
+ "Options concerning following links in Org-mode."
+ :tag "Org Follow Link"
+ :group 'org-link)
+
+(defcustom org-follow-link-hook nil
+ "Hook that is run after a link has been followed."
+ :group 'org-link-follow
+ :type 'hook)
+
+(defcustom org-tab-follows-link nil
+ "Non-nil means, on links TAB will follow the link.
+Needs to be set before org.el is loaded."
+ :group 'org-link-follow
+ :type 'boolean)
+
+(defcustom org-return-follows-link nil
+ "Non-nil means, on links RET will follow the link.
+Needs to be set before org.el is loaded."
+ :group 'org-link-follow
+ :type 'boolean)
+
+(defcustom org-mouse-1-follows-link
+ (if (boundp 'mouse-1-click-follows-link) mouse-1-click-follows-link t)
+ "Non-nil means, mouse-1 on a link will follow the link.
+A longer mouse click will still set point. Does not work on XEmacs.
+Needs to be set before org.el is loaded."
+ :group 'org-link-follow
+ :type 'boolean)
+
+(defcustom org-mark-ring-length 4
+ "Number of different positions to be recorded in the ring
+Changing this requires a restart of Emacs to work correctly."
+ :group 'org-link-follow
+ :type 'interger)
+
+(defcustom org-link-frame-setup
+ '((vm . vm-visit-folder-other-frame)
+ (gnus . gnus-other-frame)
+ (file . find-file-other-window))
+ "Setup the frame configuration for following links.
+When following a link with Emacs, it may often be useful to display
+this link in another window or frame. This variable can be used to
+set this up for the different types of links.
+For VM, use any of
+ `vm-visit-folder'
+ `vm-visit-folder-other-frame'
+For Gnus, use any of
+ `gnus'
+ `gnus-other-frame'
+For FILE, use any of
+ `find-file'
+ `find-file-other-window'
+ `find-file-other-frame'
+For the calendar, use the variable `calendar-setup'.
+For BBDB, it is currently only possible to display the matches in
+another window."
+ :group 'org-link-follow
+ :type '(list
+ (cons (const vm)
+ (choice
+ (const vm-visit-folder)
+ (const vm-visit-folder-other-window)
+ (const vm-visit-folder-other-frame)))
+ (cons (const gnus)
+ (choice
+ (const gnus)
+ (const gnus-other-frame)))
+ (cons (const file)
+ (choice
+ (const find-file)
+ (const find-file-other-window)
+ (const find-file-other-frame)))))
+
+(defcustom org-display-internal-link-with-indirect-buffer nil
+ "Non-nil means, use indirect buffer to display infile links.
+Activating internal links (from one location in a file to another location
+in the same file) normally just jumps to the location. When the link is
+activated with a C-u prefix (or with mouse-3), the link is displayed in
+another window. When this option is set, the other window actually displays
+an indirect buffer clone of the current buffer, to avoid any visibility
+changes to the current buffer."
+ :group 'org-link-follow
+ :type 'boolean)
+
+(defcustom org-open-non-existing-files nil
+ "Non-nil means, `org-open-file' will open non-existing files.
+When nil, an error will be generated."
+ :group 'org-link-follow
+ :type 'boolean)
+
+(defcustom org-link-mailto-program '(browse-url "mailto:%a?subject=%s")
+ "Function and arguments to call for following mailto links.
+This is a list with the first element being a lisp function, and the
+remaining elements being arguments to the function. In string arguments,
+%a will be replaced by the address, and %s will be replaced by the subject
+if one was given like in <mailto:arthur@galaxy.org::this subject>."
+ :group 'org-link-follow
+ :type '(choice
+ (const :tag "browse-url" (browse-url-mail "mailto:%a?subject=%s"))
+ (const :tag "compose-mail" (compose-mail "%a" "%s"))
+ (const :tag "message-mail" (message-mail "%a" "%s"))
+ (cons :tag "other" (function) (repeat :tag "argument" sexp))))
+
+(defcustom org-confirm-shell-link-function 'yes-or-no-p
+ "Non-nil means, ask for confirmation before executing shell links.
+Shell links can be dangerous: just think about a link
+
+ [[shell:rm -rf ~/*][Google Search]]
+
+This link would show up in your Org-mode document as \"Google Search\",
+but really it would remove your entire home directory.
+Therefore we advise against setting this variable to nil.
+Just change it to `y-or-n-p' of you want to confirm with a
+single keystroke rather than having to type \"yes\"."
+ :group 'org-link-follow
+ :type '(choice
+ (const :tag "with yes-or-no (safer)" yes-or-no-p)
+ (const :tag "with y-or-n (faster)" y-or-n-p)
+ (const :tag "no confirmation (dangerous)" nil)))
+
+(defcustom org-confirm-elisp-link-function 'yes-or-no-p
+ "Non-nil means, ask for confirmation before executing Emacs Lisp links.
+Elisp links can be dangerous: just think about a link
+
+ [[elisp:(shell-command \"rm -rf ~/*\")][Google Search]]
+
+This link would show up in your Org-mode document as \"Google Search\",
+but really it would remove your entire home directory.
+Therefore we advise against setting this variable to nil.
+Just change it to `y-or-n-p' of you want to confirm with a
+single keystroke rather than having to type \"yes\"."
+ :group 'org-link-follow
+ :type '(choice
+ (const :tag "with yes-or-no (safer)" yes-or-no-p)
+ (const :tag "with y-or-n (faster)" y-or-n-p)
+ (const :tag "no confirmation (dangerous)" nil)))
+
+(defconst org-file-apps-defaults-gnu
+ '((remote . emacs)
+ (t . mailcap))
+ "Default file applications on a UNIX or GNU/Linux system.
+See `org-file-apps'.")
+
+(defconst org-file-apps-defaults-macosx
+ '((remote . emacs)
+ (t . "open %s")
+ ("ps" . "gv %s")
+ ("ps.gz" . "gv %s")
+ ("eps" . "gv %s")
+ ("eps.gz" . "gv %s")
+ ("dvi" . "xdvi %s")
+ ("fig" . "xfig %s"))
+ "Default file applications on a MacOS X system.
+The system \"open\" is known as a default, but we use X11 applications
+for some files for which the OS does not have a good default.
+See `org-file-apps'.")
+
+(defconst org-file-apps-defaults-windowsnt
+ (list
+ '(remote . emacs)
+ (cons t
+ (list (if (featurep 'xemacs)
+ 'mswindows-shell-execute
+ 'w32-shell-execute)
+ "open" 'file)))
+ "Default file applications on a Windows NT system.
+The system \"open\" is used for most files.
+See `org-file-apps'.")
+
+(defcustom org-file-apps
+ '(
+ ("txt" . emacs)
+ ("tex" . emacs)
+ ("ltx" . emacs)
+ ("org" . emacs)
+ ("el" . emacs)
+ ("bib" . emacs)
+ )
+ "External applications for opening `file:path' items in a document.
+Org-mode uses system defaults for different file types, but
+you can use this variable to set the application for a given file
+extension. The entries in this list are cons cells where the car identifies
+files and the cdr the corresponding command. Possible values for the
+file identifier are
+ \"ext\" A string identifying an extension
+ `directory' Matches a directory
+ `remote' Matches a remote file, accessible through tramp or efs.
+ Remote files most likely should be visited through Emacs
+ because external applications cannot handle such paths.
+ t Default for all remaining files
+
+Possible values for the command are:
+ `emacs' The file will be visited by the current Emacs process.
+ `default' Use the default application for this file type.
+ string A command to be executed by a shell; %s will be replaced
+ by the path to the file.
+ sexp A Lisp form which will be evaluated. The file path will
+ be available in the Lisp variable `file'.
+For more examples, see the system specific constants
+`org-file-apps-defaults-macosx'
+`org-file-apps-defaults-windowsnt'
+`org-file-apps-defaults-gnu'."
+ :group 'org-link-follow
+ :type '(repeat
+ (cons (choice :value ""
+ (string :tag "Extension")
+ (const :tag "Default for unrecognized files" t)
+ (const :tag "Remote file" remote)
+ (const :tag "Links to a directory" directory))
+ (choice :value ""
+ (const :tag "Visit with Emacs" emacs)
+ (const :tag "Use system default" default)
+ (string :tag "Command")
+ (sexp :tag "Lisp form")))))
+
+(defgroup org-refile nil
+ "Options concerning refiling entries in Org-mode."
+ :tag "Org Remember"
+ :group 'org)
+
+(defcustom org-directory "~/org"
+ "Directory with org files.
+This directory will be used as default to prompt for org files.
+Used by the hooks for remember.el."
+ :group 'org-refile
+ :group 'org-remember
+ :type 'directory)
+
+(defcustom org-default-notes-file "~/.notes"
+ "Default target for storing notes.
+Used by the hooks for remember.el. This can be a string, or nil to mean
+the value of `remember-data-file'.
+You can set this on a per-template basis with the variable
+`org-remember-templates'."
+ :group 'org-refile
+ :group 'org-remember
+ :type '(choice
+ (const :tag "Default from remember-data-file" nil)
+ file))
+
+(defcustom org-goto-interface 'outline
+ "The default interface to be used for `org-goto'.
+Allowed vaues are:
+outline The interface shows an outline of the relevant file
+ and the correct heading is found by moving through
+ the outline or by searching with incremental search.
+outline-path-completion Headlines in the current buffer are offered via
+ completion."
+ :group 'org-refile
+ :type '(choice
+ (const :tag "Outline" outline)
+ (const :tag "Outline-path-completion" outline-path-completion)))
+
+(defcustom org-reverse-note-order nil
+ "Non-nil means, store new notes at the beginning of a file or entry.
+When nil, new notes will be filed to the end of a file or entry.
+This can also be a list with cons cells of regular expressions that
+are matched against file names, and values."
+ :group 'org-remember
+ :type '(choice
+ (const :tag "Reverse always" t)
+ (const :tag "Reverse never" nil)
+ (repeat :tag "By file name regexp"
+ (cons regexp boolean))))
+
+(defcustom org-refile-targets nil
+ "Targets for refiling entries with \\[org-refile].
+This is list of cons cells. Each cell contains:
+- a specification of the files to be considered, either a list of files,
+ or a symbol whose function or variable value will be used to retrieve
+ a file name or a list of file names. Nil means, refile to a different
+ heading in the current buffer.
+- A specification of how to find candidate refile targets. This may be
+ any of
+ - a cons cell (:tag . \"TAG\") to identify refile targets by a tag.
+ This tag has to be present in all target headlines, inheritance will
+ not be considered.
+ - a cons cell (:todo . \"KEYWORD\") to identify refile targets by
+ todo keyword.
+ - a cons cell (:regexp . \"REGEXP\") with a regular expression matching
+ headlines that are refiling targets.
+ - a cons cell (:level . N). Any headline of level N is considered a target.
+ - a cons cell (:maxlevel . N). Any headline with level <= N is a target."
+ :group 'org-remember
+ :type '(repeat
+ (cons
+ (choice :value org-agenda-files
+ (const :tag "All agenda files" org-agenda-files)
+ (const :tag "Current buffer" nil)
+ (function) (variable) (file))
+ (choice :tag "Identify target headline by"
+ (cons :tag "Specific tag" (const :tag) (string))
+ (cons :tag "TODO keyword" (const :todo) (string))
+ (cons :tag "Regular expression" (const :regexp) (regexp))
+ (cons :tag "Level number" (const :level) (integer))
+ (cons :tag "Max Level number" (const :maxlevel) (integer))))))
+
+(defcustom org-refile-use-outline-path nil
+ "Non-nil means, provide refile targets as paths.
+So a level 3 headline will be available as level1/level2/level3.
+When the value is `file', also include the file name (without directory)
+into the path. When `full-file-path', include the full file path."
+ :group 'org-remember
+ :type '(choice
+ (const :tag "Not" nil)
+ (const :tag "Yes" t)
+ (const :tag "Start with file name" file)
+ (const :tag "Start with full file path" full-file-path)))
+
+(defgroup org-todo nil
+ "Options concerning TODO items in Org-mode."
+ :tag "Org TODO"
+ :group 'org)
+
+(defgroup org-progress nil
+ "Options concerning Progress logging in Org-mode."
+ :tag "Org Progress"
+ :group 'org-time)
+
+(defcustom org-todo-keywords '((sequence "TODO" "DONE"))
+ "List of TODO entry keyword sequences and their interpretation.
+\\<org-mode-map>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 the manual.
+
+TODO keywords and interpretation can also be set on a per-file basis with
+the special #+SEQ_TODO and #+TYP_TODO lines.
+
+Each keyword can optionally specify a character for fast state selection
+\(in combination with the variable `org-use-fast-todo-selection')
+and specifiers for state change logging, using the same syntax
+that is used in the \"#+TODO:\" lines. For example, \"WAIT(w)\" says
+that the WAIT state can be selected with the \"w\" key. \"WAIT(w!)\"
+indicates to record a time stamp each time this state is selected.
+
+Each keyword may also specify if a timestamp or a note should be
+recorded when entering or leaving the state, by adding additional
+characters in the parenthesis after the keyword. This looks like this:
+\"WAIT(w@/!)\". \"@\" means to add a note (with time), \"!\" means to
+record only the time of the state change. With X and Y being either
+\"@\" or \"!\", \"X/Y\" means use X when entering the state, and use
+Y when leaving the state if and only if the *target* state does not
+define X. You may omit any of the fast-selection key or X or /Y,
+so WAIT(w@), WAIT(w/@) and WAIT(@/@) are all valid.
+
+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 '(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
+ "All TODO and DONE keywords active in a buffer.")
+(make-variable-buffer-local 'org-todo-keywords-1)
+(defvar org-todo-keywords-for-agenda nil)
+(defvar org-done-keywords-for-agenda nil)
+(defvar org-agenda-contributing-files 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-log-states nil)
+(make-variable-buffer-local 'org-todo-log-states)
+(defvar org-todo-kwd-alist nil)
+(make-variable-buffer-local 'org-todo-kwd-alist)
+(defvar org-todo-key-alist nil)
+(make-variable-buffer-local 'org-todo-key-alist)
+(defvar org-todo-key-trigger nil)
+(make-variable-buffer-local 'org-todo-key-trigger)
+
+(defcustom org-todo-interpretation 'sequence
+ "Controls how TODO keywords are interpreted.
+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)
+ (const type)))
+
+(defcustom org-use-fast-todo-selection 'prefix
+ "Non-nil means, use the fast todo selection scheme with C-c C-t.
+This variable describes if and under what circumstances the cycling
+mechanism for TODO keywords will be replaced by a single-key, direct
+selection scheme.
+
+When nil, fast selection is never used.
+
+When the symbol `prefix', it will be used when `org-todo' is called with
+a prefix argument, i.e. `C-u C-c C-t' in an Org-mode buffer, and `C-u t'
+in an agenda buffer.
+
+When t, fast selection is used by default. In this case, the prefix
+argument forces cycling instead.
+
+In all cases, the special interface is only used if access keys have actually
+been assigned by the user, i.e. if keywords in the configuration are followed
+by a letter in parenthesis, like TODO(t)."
+ :group 'org-todo
+ :type '(choice
+ (const :tag "Never" nil)
+ (const :tag "By default" t)
+ (const :tag "Only with C-u C-c C-t" prefix)))
+
+(defcustom org-after-todo-state-change-hook nil
+ "Hook which is run after the state of a TODO item was changed.
+The new state (a string with a TODO keyword, or nil) is available in the
+Lisp variable `state'."
+ :group 'org-todo
+ :type 'hook)
+
+(defcustom org-log-done nil
+ "Non-nil means, record a CLOSED timestamp when moving an entry to DONE.
+When equal to the list (done), also prompt for a closing note.
+This can also be configured on a per-file basis by adding one of
+the following lines anywhere in the buffer:
+
+ #+STARTUP: logdone
+ #+STARTUP: lognotedone
+ #+STARTUP: nologdone"
+ :group 'org-todo
+ :group 'org-progress
+ :type '(choice
+ (const :tag "No logging" nil)
+ (const :tag "Record CLOSED timestamp" time)
+ (const :tag "Record CLOSED timestamp with closing note." note)))
+
+;; Normalize old uses of org-log-done.
+(cond
+ ((eq org-log-done t) (setq org-log-done 'time))
+ ((and (listp org-log-done) (memq 'done org-log-done))
+ (setq org-log-done 'note)))
+
+(defcustom org-log-note-clock-out nil
+ "Non-nil means, recored a note when clocking out of an item.
+This can also be configured on a per-file basis by adding one of
+the following lines anywhere in the buffer:
+
+ #+STARTUP: lognoteclock-out
+ #+STARTUP: nolognoteclock-out"
+ :group 'org-todo
+ :group 'org-progress
+ :type 'boolean)
+
+(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")
+ (note . "Note taken on %t")
+ (clock-out . ""))
+ "Headings for notes added to entries.
+The value is an alist, with the car being a symbol indicating the note
+context, and the cdr is the heading to be used. The heading may also be the
+empty string.
+%t in the heading will be replaced by a time stamp.
+%s will be replaced by the new TODO state, in double quotes.
+%u will be replaced by the user name.
+%U will be replaced by the full user name."
+ :group 'org-todo
+ :group 'org-progress
+ :type '(list :greedy t
+ (cons (const :tag "Heading when closing an item" done) string)
+ (cons (const :tag
+ "Heading when changing todo state (todo sequence only)"
+ state) string)
+ (cons (const :tag "Heading when just taking a note" note) string)
+ (cons (const :tag "Heading when clocking out" clock-out) string)))
+
+(unless (assq 'note org-log-note-headings)
+ (push '(note . "%t") org-log-note-headings))
+
+(defcustom org-log-states-order-reversed t
+ "Non-nil means, the latest state change note will be directly after heading.
+When nil, the notes will be orderer according to time."
+ :group 'org-todo
+ :group 'org-progress
+ :type 'boolean)
+
+(defcustom org-log-repeat 'time
+ "Non-nil means, record moving through the DONE state when triggering repeat.
+An auto-repeating tasks is immediately switched back to TODO when marked
+done. If you are not logging state changes (by adding \"@\" or \"!\" to
+the TODO keyword definition, or recording a cloing note by setting
+`org-log-done', there will be no record of the task moving trhough DONE.
+This variable forces taking a note anyway. Possible values are:
+
+nil Don't force a record
+time Record a time stamp
+note Record a note
+
+This option can also be set with on a per-file-basis with
+
+ #+STARTUP: logrepeat
+ #+STARTUP: lognoterepeat
+ #+STARTUP: nologrepeat
+
+You can have local logging settings for a subtree by setting the LOGGING
+property to one or more of these keywords."
+ :group 'org-todo
+ :group 'org-progress
+ :type '(choice
+ (const :tag "Don't force a record" nil)
+ (const :tag "Force recording the DONE state" time)
+ (const :tag "Force recording a note with the DONE state" note)))
+
+
+(defgroup org-priorities nil
+ "Priorities in Org-mode."
+ :tag "Org Priorities"
+ :group 'org-todo)
+
+(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.
+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)
+
+(defcustom org-priority-start-cycle-with-default t
+ "Non-nil means, start with default priority when starting to cycle.
+When this is nil, the first step in the cycle will be (depending on the
+command used) one higher or lower that the default priority."
+ :group 'org-priorities
+ :type 'boolean)
+
+(defgroup org-time nil
+ "Options concerning time stamps and deadlines in Org-mode."
+ :tag "Org Time"
+ :group 'org)
+
+(defcustom org-insert-labeled-timestamps-at-point nil
+ "Non-nil means, SCHEDULED and DEADLINE timestamps are inserted at point.
+When nil, these labeled time stamps are forces into the second line of an
+entry, just after the headline. When scheduling from the global TODO list,
+the time stamp will always be forced into the second line."
+ :group 'org-time
+ :type 'boolean)
+
+(defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
+ "Formats for `format-time-string' which are used for time stamps.
+It is not recommended to change this constant.")
+
+(defcustom org-time-stamp-rounding-minutes '(0 5)
+ "Number of minutes to round time stamps to.
+These are two values, the first applies when first creating a time stamp.
+The second applies when changing it with the commands `S-up' and `S-down'.
+When changing the time stamp, this means that it will change in steps
+of N minutes, as given by the second value.
+
+When a setting is 0 or 1, insert the time unmodified. Useful rounding
+numbers should be factors of 60, so for example 5, 10, 15.
+
+When this is larger than 1, you can still force an exact time-stamp by using
+a double prefix argument to a time-stamp command like `C-c .' or `C-c !',
+and by using a prefix arg to `S-up/down' to specify the exact number
+of minutes to shift."
+ :group 'org-time
+ :get '(lambda (var) ; Make sure all entries have 5 elements
+ (if (integerp (default-value var))
+ (list (default-value var) 5)
+ (default-value var)))
+ :type '(list
+ (integer :tag "when inserting times")
+ (integer :tag "when modifying times")))
+
+;; Normalize old customizations of this variable.
+(when (integerp org-time-stamp-rounding-minutes)
+ (setq org-time-stamp-rounding-minutes
+ (list org-time-stamp-rounding-minutes
+ org-time-stamp-rounding-minutes)))
+
+(defcustom org-display-custom-times nil
+ "Non-nil means, overlay custom formats over all time stamps.
+The formats are defined through the variable `org-time-stamp-custom-formats'.
+To turn this on on a per-file basis, insert anywhere in the file:
+ #+STARTUP: customtime"
+ :group 'org-time
+ :set 'set-default
+ :type 'sexp)
+(make-variable-buffer-local 'org-display-custom-times)
+
+(defcustom org-time-stamp-custom-formats
+ '("<%m/%d/%y %a>" . "<%m/%d/%y %a %H:%M>") ; american
+ "Custom formats for time stamps. See `format-time-string' for the syntax.
+These are overlayed over the default ISO format if the variable
+`org-display-custom-times' is set. Time like %H:%M should be at the
+end of the second format."
+ :group 'org-time
+ :type 'sexp)
+
+(defun org-time-stamp-format (&optional long inactive)
+ "Get the right format for a time string."
+ (let ((f (if long (cdr org-time-stamp-formats)
+ (car org-time-stamp-formats))))
+ (if inactive
+ (concat "[" (substring f 1 -1) "]")
+ f)))
+
+(defcustom org-deadline-warning-days 14
+ "No. of days before expiration during which a deadline becomes active.
+This variable governs the display in sparse trees and in the agenda.
+When 0 or negative, it means use this number (the absolute value of it)
+even if a deadline has a different individual lead time specified."
+ :group 'org-time
+ :group 'org-agenda-daily/weekly
+ :type 'number)
+
+(defcustom org-read-date-prefer-future t
+ "Non-nil means, assume future for incomplete date input from user.
+This affects the following situations:
+1. The user gives a day, but no month.
+ For example, if today is the 15th, and you enter \"3\", Org-mode will
+ read this as the third of *next* month. However, if you enter \"17\",
+ it will be considered as *this* month.
+2. The user gives a month but not a year.
+ For example, if it is april and you enter \"feb 2\", this will be read
+ as feb 2, *next* year. \"May 5\", however, will be this year.
+
+Currently this does not work for ISO week specifications.
+
+When this option is nil, the current month and year will always be used
+as defaults."
+ :group 'org-time
+ :type 'boolean)
+
+(defcustom org-read-date-display-live t
+ "Non-nil means, display current interpretation of date prompt live.
+This display will be in an overlay, in the minibuffer."
+ :group 'org-time
+ :type 'boolean)
+
+(defcustom org-read-date-popup-calendar t
+ "Non-nil means, pop up a calendar when prompting for a date.
+In the calendar, the date can be selected with mouse-1. However, the
+minibuffer will also be active, and you can simply enter the date as well.
+When nil, only the minibuffer will be available."
+ :group 'org-time
+ :type 'boolean)
+(if (fboundp 'defvaralias)
+ (defvaralias 'org-popup-calendar-for-date-prompt
+ 'org-read-date-popup-calendar))
+
+(defcustom org-extend-today-until 0
+ "The hour when your day really ends.
+This has influence for the following applications:
+- When switching the agenda to \"today\". It it is still earlier than
+ the time given here, the day recognized as TODAY is actually yesterday.
+- When a date is read from the user and it is still before the time given
+ here, the current date and time will be assumed to be yesterday, 23:59.
+
+FIXME:
+IMPORTANT: This is still a very experimental feature, it may disappear
+again or it may be extended to mean more things."
+ :group 'org-time
+ :type 'number)
+
+(defcustom org-edit-timestamp-down-means-later nil
+ "Non-nil means, S-down will increase the time in a time stamp.
+When nil, S-up will increase."
+ :group 'org-time
+ :type 'boolean)
+
+(defcustom org-calendar-follow-timestamp-change t
+ "Non-nil means, make the calendar window follow timestamp changes.
+When a timestamp is modified and the calendar window is visible, it will be
+moved to the new date."
+ :group 'org-time
+ :type 'boolean)
+
+(defgroup org-tags nil
+ "Options concerning tags in Org-mode."
+ :tag "Org Tags"
+ :group 'org)
+
+(defcustom org-tag-alist nil
+ "List of tags allowed in Org-mode files.
+When this list is nil, Org-mode will base TAG input on what is already in the
+buffer.
+The value of this variable is an alist, the car of each entry must be a
+keyword as a string, the cdr may be a character that is used to select
+that tag through the fast-tag-selection interface.
+See the manual for details."
+ :group 'org-tags
+ :type '(repeat
+ (choice
+ (cons (string :tag "Tag name")
+ (character :tag "Access char"))
+ (const :tag "Start radio group" (:startgroup))
+ (const :tag "End radio group" (:endgroup)))))
+
+(defcustom org-use-fast-tag-selection 'auto
+ "Non-nil means, use fast tag selection scheme.
+This is a special interface to select and deselect tags with single keys.
+When nil, fast selection is never used.
+When the symbol `auto', fast selection is used if and only if selection
+characters for tags have been configured, either through the variable
+`org-tag-alist' or through a #+TAGS line in the buffer.
+When t, fast selection is always used and selection keys are assigned
+automatically if necessary."
+ :group 'org-tags
+ :type '(choice
+ (const :tag "Always" t)
+ (const :tag "Never" nil)
+ (const :tag "When selection characters are configured" 'auto)))
+
+(defcustom org-fast-tag-selection-single-key nil
+ "Non-nil means, fast tag selection exits after first change.
+When nil, you have to press RET to exit it.
+During fast tag selection, you can toggle this flag with `C-c'.
+This variable can also have the value `expert'. In this case, the window
+displaying the tags menu is not even shown, until you press C-c again."
+ :group 'org-tags
+ :type '(choice
+ (const :tag "No" nil)
+ (const :tag "Yes" t)
+ (const :tag "Expert" expert)))
+
+(defvar org-fast-tag-selection-include-todo nil
+ "Non-nil means, fast tags selection interface will also offer TODO states.
+This is an undocumented feature, you should not rely on it.")
+
+(defcustom org-tags-column (if (featurep 'xemacs) -79 -80)
+ "The column to which tags should be indented in a headline.
+If this number is positive, it specifies the column. If it is negative,
+it means that the tags should be flushright to that column. For example,
+-80 works well for a normal 80 character screen."
+ :group 'org-tags
+ :type 'integer)
+
+(defcustom org-auto-align-tags t
+ "Non-nil means, realign tags after pro/demotion of TODO state change.
+These operations change the length of a headline and therefore shift
+the tags around. With this options turned on, after each such operation
+the tags are again aligned to `org-tags-column'."
+ :group 'org-tags
+ :type 'boolean)
+
+(defcustom org-use-tag-inheritance t
+ "Non-nil means, tags in levels apply also for sublevels.
+When nil, only the tags directly given in a specific line apply there.
+If you turn off this option, you very likely want to turn on the
+companion option `org-tags-match-list-sublevels'.
+
+This may also be a list of tags that should be inherited, or a regexp that
+matches tags that should be inherited."
+ :group 'org-tags
+ :type '(choice
+ (const :tag "Not" nil)
+ (const :tag "Always" t)
+ (repeat :tag "Specific tags" (string :tag "Tag"))
+ (regexp :tag "Tags matched by regexp")))
+
+(defun org-tag-inherit-p (tag)
+ "Check if TAG is one that should be inherited."
+ (cond
+ ((eq org-use-tag-inheritance t) t)
+ ((not org-use-tag-inheritance) nil)
+ ((stringp org-use-tag-inheritance)
+ (string-match org-use-tag-inheritance tag))
+ ((listp org-use-tag-inheritance)
+ (member tag org-use-tag-inheritance))
+ (t (error "Invalid setting of `org-use-tag-inheritance'"))))
+
+(defcustom org-tags-match-list-sublevels nil
+ "Non-nil means list also sublevels of headlines matching tag search.
+Because of tag inheritance (see variable `org-use-tag-inheritance'),
+the sublevels of a headline matching a tag search often also match
+the same search. Listing all of them can create very long lists.
+Setting this variable to nil causes subtrees of a match to be skipped.
+This option is off by default, because inheritance in on. If you turn
+inheritance off, you very likely want to turn this option on.
+
+As a special case, if the tag search is restricted to TODO items, the
+value of this variable is ignored and sublevels are always checked, to
+make sure all corresponding TODO items find their way into the list."
+ :group 'org-tags
+ :type 'boolean)
+
+(defvar org-tags-history nil
+ "History of minibuffer reads for tags.")
+(defvar org-last-tags-completion-table nil
+ "The last used completion table for tags.")
+(defvar org-after-tags-change-hook nil
+ "Hook that is run after the tags in a line have changed.")
+
+(defgroup org-properties nil
+ "Options concerning properties in Org-mode."
+ :tag "Org Properties"
+ :group 'org)
+
+(defcustom org-property-format "%-10s %s"
+ "How property key/value pairs should be formatted by `indent-line'.
+When `indent-line' hits a property definition, it will format the line
+according to this format, mainly to make sure that the values are
+lined-up with respect to each other."
+ :group 'org-properties
+ :type 'string)
+
+(defcustom org-use-property-inheritance nil
+ "Non-nil means, properties apply also for sublevels.
+
+This setting is chiefly used during property searches. Turning it on can
+cause significant overhead when doing a search, which is why it is not
+on by default.
+
+When nil, only the properties directly given in the current entry count.
+When t, every property is inherited. The value may also be a list of
+properties that should have inheritance, or a regular expression matching
+properties that should be inherited.
+
+However, note that some special properties use inheritance under special
+circumstances (not in searches). Examples are CATEGORY, ARCHIVE, COLUMNS,
+and the properties ending in \"_ALL\" when they are used as descriptor
+for valid values of a property.
+
+Note for programmers:
+When querying an entry with `org-entry-get', you can control if inheritance
+should be used. By default, `org-entry-get' looks only at the local
+properties. You can request inheritance by setting the inherit argument
+to t (to force inheritance) or to `selective' (to respect the setting
+in this variable)."
+ :group 'org-properties
+ :type '(choice
+ (const :tag "Not" nil)
+ (const :tag "Always" t)
+ (repeat :tag "Specific properties" (string :tag "Property"))
+ (regexp :tag "Properties matched by regexp")))
+
+(defun org-property-inherit-p (property)
+ "Check if PROPERTY is one that should be inherited."
+ (cond
+ ((eq org-use-property-inheritance t) t)
+ ((not org-use-property-inheritance) nil)
+ ((stringp org-use-property-inheritance)
+ (string-match org-use-property-inheritance property))
+ ((listp org-use-property-inheritance)
+ (member property org-use-property-inheritance))
+ (t (error "Invalid setting of `org-use-property-inheritance'"))))
+
+(defcustom org-columns-default-format "%25ITEM %TODO %3PRIORITY %TAGS"
+ "The default column format, if no other format has been defined.
+This variable can be set on the per-file basis by inserting a line
+
+#+COLUMNS: %25ITEM ....."
+ :group 'org-properties
+ :type 'string)
+
+(defcustom org-effort-property "Effort"
+ "The property that is being used to keep track of effort estimates.
+Effort estimates given in this property need to have the format H:MM."
+ :group 'org-properties
+ :group 'org-progress
+ :type '(string :tag "Property"))
+
+(defcustom org-global-properties nil
+ "List of property/value pairs that can be inherited by any entry.
+You can set buffer-local values for this by adding lines like
+
+#+PROPERTY: NAME VALUE"
+ :group 'org-properties
+ :type '(repeat
+ (cons (string :tag "Property")
+ (string :tag "Value"))))
+
+(defvar org-local-properties nil
+ "List of property/value pairs that can be inherited by any entry.
+Valid for the current buffer.
+This variable is populated from #+PROPERTY lines.")
+
+(defgroup org-agenda nil
+ "Options concerning agenda views in Org-mode."
+ :tag "Org Agenda"
+ :group 'org)
+
+(defvar org-category nil
+ "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\"
+
+or contain a special line
+
+#+CATEGORY: ELisp
+
+If the file does not specify a category, then file's base name
+is used instead.")
+(make-variable-buffer-local 'org-category)
+
+(defcustom org-agenda-files nil
+ "The files to be used for agenda display.
+Entries may be added to this list with \\[org-agenda-file-to-front] and removed with
+\\[org-remove-file]. You can also use customize to edit the list.
+
+If an entry is a directory, all files in that directory that are matched by
+`org-agenda-file-regexp' will be part of the file list.
+
+If the value of the variable is not a list but a single file name, then
+the list of agenda files is actually stored and maintained in that file, one
+agenda file per line."
+ :group 'org-agenda
+ :type '(choice
+ (repeat :tag "List of files and directories" file)
+ (file :tag "Store list in a file\n" :value "~/.agenda_files")))
+
+(defcustom org-agenda-file-regexp "\\`[^.].*\\.org\\'"
+ "Regular expression to match files for `org-agenda-files'.
+If any element in the list in that variable contains a directory instead
+of a normal file, all files in that directory that are matched by this
+regular expression will be included."
+ :group 'org-agenda
+ :type 'regexp)
+
+(defcustom org-agenda-text-search-extra-files nil
+ "List of extra files to be searched by text search commands.
+These files will be search in addition to the agenda files by the
+commands `org-search-view' (`C-c a s') and `org-occur-in-agenda-files'.
+Note that these files will only be searched for text search commands,
+not for the other agenda views like todo lists, tag searches or the weekly
+agenda. This variable is intended to list notes and possibly archive files
+that should also be searched by these two commands.
+In fact, if the first element in the list is the symbol `agenda-archives',
+than all archive files of all agenda files will be added to the search
+scope."
+ :group 'org-agenda
+ :type '(set :greedy t
+ (const :tag "Agenda Archives" agenda-archives)
+ (repeat :inline t (file))))
+
+(if (fboundp 'defvaralias)
+ (defvaralias 'org-agenda-multi-occur-extra-files
+ 'org-agenda-text-search-extra-files))
+
+(defcustom org-agenda-skip-unavailable-files nil
+ "t means to just skip non-reachable files in `org-agenda-files'.
+Nil means to remove them, after a query, from the list."
+ :group 'org-agenda
+ :type 'boolean)
+
+(defcustom org-calendar-to-agenda-key [?c]
+ "The key to be installed in `calendar-mode-map' for switching to the agenda.
+The command `org-calendar-goto-agenda' will be bound to this key. The
+default is the character `c' because then `c' can be used to switch back and
+forth between agenda and calendar."
+ :group 'org-agenda
+ :type 'sexp)
+
+(eval-after-load "calendar"
+ '(org-defkey calendar-mode-map org-calendar-to-agenda-key
+ 'org-calendar-goto-agenda))
+
+(defgroup org-latex nil
+ "Options for embedding LaTeX code into Org-mode."
+ :tag "Org LaTeX"
+ :group 'org)
+
+(defcustom org-format-latex-options
+ '(: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 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
+ \"$\" find math expressions surrounded by $...$
+ \"$$\" find math expressions surrounded by $$....$$
+ \"\\(\" find math expressions surrounded by \\(...\\)
+ \"\\ [\" find math expressions surrounded by \\ [...\\]"
+ :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-font-lock nil
+ "Font-lock settings for highlighting in Org-mode."
+ :tag "Org Font Lock"
+ :group 'org)
+
+(defcustom org-level-color-stars-only nil
+ "Non-nil means fontify only the stars in each headline.
+When nil, the entire headline is fontified.
+Changing it requires restart of `font-lock-mode' to become effective
+also in regions already fontified."
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defcustom org-hide-leading-stars nil
+ "Non-nil means, hide the first N-1 stars in a headline.
+This works by using the face `org-hide' for these stars. This
+face is white for a light background, and black for a dark
+background. You may have to customize the face `org-hide' to
+make this work.
+Changing it requires restart of `font-lock-mode' to become effective
+also in regions already fontified.
+You may also set this on a per-file basis by adding one of the following
+lines to the buffer:
+
+ #+STARTUP: hidestars
+ #+STARTUP: showstars"
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defcustom org-fontify-done-headline nil
+ "Non-nil means, change the face of a headline if it is marked DONE.
+Normally, only the TODO/DONE keyword indicates the state of a headline.
+When this is non-nil, the headline after the keyword is set to the
+`org-headline-done' as an additional indication."
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defcustom org-fontify-emphasized-text t
+ "Non-nil means fontify *bold*, /italic/ and _underlined_ text.
+Changing this variable requires a restart of Emacs to take effect."
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defcustom org-highlight-latex-fragments-and-specials nil
+ "Non-nil means, fontify what is treated specially by the exporters."
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defcustom org-hide-emphasis-markers nil
+ "Non-nil mean font-lock should hide the emphasis marker characters."
+ :group 'org-font-lock
+ :type 'boolean)
+
+(defvar org-emph-re nil
+ "Regular expression for matching emphasis.")
+(defvar org-verbatim-re nil
+ "Regular expression for matching verbatim text.")
+(defvar org-emphasis-regexp-components) ; defined just below
+(defvar org-emphasis-alist) ; defined just below
+(defun org-set-emph-re (var val)
+ "Set variable and compute the emphasis regular expression."
+ (set var val)
+ (when (and (boundp 'org-emphasis-alist)
+ (boundp 'org-emphasis-regexp-components)
+ org-emphasis-alist org-emphasis-regexp-components)
+ (let* ((e org-emphasis-regexp-components)
+ (pre (car e))
+ (post (nth 1 e))
+ (border (nth 2 e))
+ (body (nth 3 e))
+ (nl (nth 4 e))
+ (stacked (and nil (nth 5 e))) ; stacked is no longer allowed, forced to nil
+ (body1 (concat body "*?"))
+ (markers (mapconcat 'car org-emphasis-alist ""))
+ (vmarkers (mapconcat
+ (lambda (x) (if (eq (nth 4 x) 'verbatim) (car x) ""))
+ org-emphasis-alist "")))
+ ;; make sure special characters appear at the right position in the class
+ (if (string-match "\\^" markers)
+ (setq markers (concat (replace-match "" t t markers) "^")))
+ (if (string-match "-" markers)
+ (setq markers (concat (replace-match "" t t markers) "-")))
+ (if (string-match "\\^" vmarkers)
+ (setq vmarkers (concat (replace-match "" t t vmarkers) "^")))
+ (if (string-match "-" vmarkers)
+ (setq vmarkers (concat (replace-match "" t t vmarkers) "-")))
+ (if (> nl 0)
+ (setq body1 (concat body1 "\\(?:\n" body "*?\\)\\{0,"
+ (int-to-string nl) "\\}")))
+ ;; Make the regexp
+ (setq org-emph-re
+ (concat "\\([" pre (if (and nil stacked) markers) "]\\|^\\)"
+ "\\("
+ "\\([" markers "]\\)"
+ "\\("
+ "[^" border "]\\|"
+ "[^" border (if (and nil stacked) markers) "]"
+ body1
+ "[^" border (if (and nil stacked) markers) "]"
+ "\\)"
+ "\\3\\)"
+ "\\([" post (if (and nil stacked) markers) "]\\|$\\)"))
+ (setq org-verbatim-re
+ (concat "\\([" pre "]\\|^\\)"
+ "\\("
+ "\\([" vmarkers "]\\)"
+ "\\("
+ "[^" border "]\\|"
+ "[^" border "]"
+ body1
+ "[^" border "]"
+ "\\)"
+ "\\3\\)"
+ "\\([" post "]\\|$\\)")))))
+
+(defcustom org-emphasis-regexp-components
+ '(" \t('\"" "- \t.,:?;'\")" " \t\r\n,\"'" "." 1)
+ "Components used to build the regular 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
+space POSTMATCH, the stars MARKERS, \"s\" and \"d\" are BORDER characters
+and \"trong wor\" is the body. The different components in this variable
+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.
+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.
+
+Use customize to modify this, or restart Emacs after changing it."
+ :group 'org-font-lock
+ :set 'org-set-emph-re
+ :type '(list
+ (sexp :tag "Allowed chars in pre ")
+ (sexp :tag "Allowed chars in post ")
+ (sexp :tag "Forbidden chars in border ")
+ (sexp :tag "Regexp for body ")
+ (integer :tag "number of newlines allowed")
+ (option (boolean :tag "Stacking (DISABLED) "))))
+
+(defcustom org-emphasis-alist
+ `(("*" bold "<b>" "</b>")
+ ("/" italic "<i>" "</i>")
+ ("_" underline "<u>" "</u>")
+ ("=" org-code "<code>" "</code>" verbatim)
+ ("~" org-verbatim "" "" verbatim)
+ ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t))
+ "<del>" "</del>")
+ )
+ "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 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
+ :set 'org-set-emph-re
+ :type '(repeat
+ (list
+ (string :tag "Marker character")
+ (choice
+ (face :tag "Font-lock-face")
+ (plist :tag "Face property list"))
+ (string :tag "HTML start tag")
+ (string :tag "HTML end tag")
+ (option (const verbatim)))))
+
+;;; Miscellaneous options
+
+(defgroup org-completion nil
+ "Completion in Org-mode."
+ :tag "Org Completion"
+ :group 'org)
+
+(defcustom org-completion-fallback-command 'hippie-expand
+ "The expansion command called by \\[org-complete] in normal context.
+Normal means, no org-mode-specific context."
+ :group 'org-completion
+ :type 'function)
+
+;;; Functions and variables from ther packages
+;; Declared here to avoid compiler warnings
+
+;; XEmacs only
+(defvar outline-mode-menu-heading)
+(defvar outline-mode-menu-show)
+(defvar outline-mode-menu-hide)
+(defvar zmacs-regions) ; XEmacs regions
+
+;; Emacs only
+(defvar mark-active)
+
+;; Various packages
+(declare-function calendar-absolute-from-iso "cal-iso" (date))
+(declare-function calendar-forward-day "cal-move" (arg))
+(declare-function calendar-goto-date "cal-move" (date))
+(declare-function calendar-goto-today "cal-move" ())
+(declare-function calendar-iso-from-absolute "cal-iso" (date))
+(defvar calc-embedded-close-formula)
+(defvar calc-embedded-open-formula)
+(declare-function cdlatex-tab "ext:cdlatex" ())
+(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
+(defvar font-lock-unfontify-region-function)
+(declare-function iswitchb-mode "iswitchb" (&optional arg))
+(declare-function iswitchb-read-buffer (prompt &optional default require-match start matches-set))
+(defvar iswitchb-temp-buflist)
+(declare-function org-gnus-follow-link "org-gnus" (&optional group article))
+(declare-function org-agenda-skip "org-agenda" ())
+(declare-function org-format-agenda-item "org-agenda"
+ (extra txt &optional category tags dotime noprefix remove-re))
+(declare-function org-agenda-new-marker "org-agenda" (&optional pos))
+(declare-function org-agenda-change-all-lines "org-agenda"
+ (newhead hdmarker &optional fixface))
+(declare-function org-agenda-set-restriction-lock "org-agenda" (&optional type))
+(declare-function org-agenda-maybe-redo "org-agenda" ())
+(declare-function parse-time-string "parse-time" (string))
+(declare-function remember "remember" (&optional initial))
+(declare-function remember-buffer-desc "remember" ())
+(declare-function remember-finalize "remember" ())
+(defvar remember-save-after-remembering)
+(defvar remember-data-file)
+(defvar remember-register)
+(defvar remember-buffer)
+(defvar remember-handler-functions)
+(defvar remember-annotation-functions)
+(defvar texmathp-why)
+(declare-function speedbar-line-directory "speedbar" (&optional depth))
+(declare-function table--at-cell-p "table" (position &optional object at-column))
+
+(defvar w3m-current-url)
+(defvar w3m-current-title)
+
+(defvar org-latex-regexps)
+
+;;; Autoload and prepare some org modules
+
+;; Some table stuff that needs to be defined here, because it is used
+;; by the functions setting up org-mode or checking for table context.
+
+(defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
+ "Detects an org-type or table-type table.")
+(defconst org-table-line-regexp "^[ \t]*|"
+ "Detects an org-type table line.")
+(defconst org-table-dataline-regexp "^[ \t]*|[^-]"
+ "Detects an org-type table line.")
+(defconst org-table-hline-regexp "^[ \t]*|-"
+ "Detects an org-type table hline.")
+(defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
+ "Detects a table-type table hline.")
+(defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
+ "Searching from within a table (any type) this finds the first line
+outside the table.")
+
+;; Autoload the functions in org-table.el that are needed by functions here.
+
+(eval-and-compile
+ (org-autoload "org-table"
+ '(org-table-align org-table-begin org-table-blank-field
+ org-table-convert org-table-convert-region org-table-copy-down
+ org-table-copy-region org-table-create
+ org-table-create-or-convert-from-region
+ org-table-create-with-table.el org-table-current-dline
+ org-table-cut-region org-table-delete-column org-table-edit-field
+ org-table-edit-formulas org-table-end org-table-eval-formula
+ org-table-export org-table-field-info
+ org-table-get-stored-formulas org-table-goto-column
+ org-table-hline-and-move org-table-import org-table-insert-column
+ org-table-insert-hline org-table-insert-row org-table-iterate
+ org-table-justify-field-maybe org-table-kill-row
+ org-table-maybe-eval-formula org-table-maybe-recalculate-line
+ org-table-move-column org-table-move-column-left
+ org-table-move-column-right org-table-move-row
+ org-table-move-row-down org-table-move-row-up
+ org-table-next-field org-table-next-row org-table-paste-rectangle
+ org-table-previous-field org-table-recalculate
+ org-table-rotate-recalc-marks org-table-sort-lines org-table-sum
+ org-table-toggle-coordinate-overlays
+ org-table-toggle-formula-debugger org-table-wrap-region
+ orgtbl-mode turn-on-orgtbl)))
+
+(defun org-at-table-p (&optional table-type)
+ "Return t if the cursor is inside an org-type table.
+If TABLE-TYPE is non-nil, also check for table.el-type tables."
+ (if org-enable-table-editor
+ (save-excursion
+ (beginning-of-line 1)
+ (looking-at (if table-type org-table-any-line-regexp
+ org-table-line-regexp)))
+ nil))
+(defsubst org-table-p () (org-at-table-p))
+
+(defun org-at-table.el-p ()
+ "Return t if and only if we are at a table.el table."
+ (and (org-at-table-p 'any)
+ (save-excursion
+ (goto-char (org-table-begin 'any))
+ (looking-at org-table1-hline-regexp))))
+(defun org-table-recognize-table.el ()
+ "If there is a table.el table nearby, recognize it and move into it."
+ (if org-table-tab-recognizes-table.el
+ (if (org-at-table.el-p)
+ (progn
+ (beginning-of-line 1)
+ (if (looking-at org-table-dataline-regexp)
+ nil
+ (if (looking-at org-table1-hline-regexp)
+ (progn
+ (beginning-of-line 2)
+ (if (looking-at org-table-any-border-regexp)
+ (beginning-of-line -1)))))
+ (if (re-search-forward "|" (org-table-end t) t)
+ (progn
+ (require 'table)
+ (if (table--at-cell-p (point))
+ t
+ (message "recognizing table.el table...")
+ (table-recognize-table)
+ (message "recognizing table.el table...done")))
+ (error "This should not happen..."))
+ t)
+ nil)
+ nil))
+
+(defun org-at-table-hline-p ()
+ "Return t if the cursor is inside a hline in a table."
+ (if org-enable-table-editor
+ (save-excursion
+ (beginning-of-line 1)
+ (looking-at org-table-hline-regexp))
+ nil))
+
+(defvar org-table-clean-did-remove-column nil)
+
+(defun org-table-map-tables (function)
+ "Apply FUNCTION to the start of all tables in the buffer."
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (while (re-search-forward org-table-any-line-regexp nil t)
+ (message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size)))
+ (beginning-of-line 1)
+ (if (looking-at org-table-line-regexp)
+ (save-excursion (funcall function)))
+ (re-search-forward org-table-any-border-regexp nil 1))))
+ (message "Mapping tables: done"))
+
+;; Declare and autoload functions from org-exp.el
+
+(declare-function org-default-export-plist "org-exp")
+(declare-function org-infile-export-plist "org-exp")
+(declare-function org-get-current-options "org-exp")
+(eval-and-compile
+ (org-autoload "org-exp"
+ '(org-export org-export-as-ascii org-export-visible
+ org-insert-export-options-template org-export-as-html-and-open
+ org-export-as-html-batch org-export-as-html-to-buffer
+ org-replace-region-by-html org-export-region-as-html
+ org-export-as-html org-export-icalendar-this-file
+ org-export-icalendar-all-agenda-files
+ org-export-icalendar-combine-agenda-files org-export-as-xoxo)))
+
+;; Declare and autoload functions from org-exp.el
+
+(eval-and-compile
+ (org-autoload "org-exp"
+ '(org-agenda org-agenda-list org-search-view
+ org-todo-list org-tags-view org-agenda-list-stuck-projects
+ org-diary org-agenda-to-appt)))
+
+;; Autoload org-remember
+
+(eval-and-compile
+ (org-autoload "org-remember"
+ '(org-remember-insinuate org-remember-annotation
+ org-remember-apply-template org-remember org-remember-handler)))
+
+;; Autoload org-clock.el
+
+(defvar org-clock-marker (make-marker)
+ "Marker recording the last clock-in.")
+
+(eval-and-compile
+ (org-autoload
+ "org-clock"
+ '(org-clock-in org-clock-out org-clock-cancel
+ org-clock-goto org-clock-sum org-clock-display
+ org-remove-clock-overlays org-clock-report
+ org-clocktable-shift org-dblock-write:clocktable
+ org-get-clocktable)))
+
+(defun org-clock-update-time-maybe ()
+ "If this is a CLOCK line, update it and return t.
+Otherwise, return nil."
+ (interactive)
+ (save-excursion
+ (beginning-of-line 1)
+ (skip-chars-forward " \t")
+ (when (looking-at org-clock-string)
+ (let ((re (concat "[ \t]*" org-clock-string
+ " *[[<]\\([^]>]+\\)[]>]-+[[<]\\([^]>]+\\)[]>]"
+ "\\([ \t]*=>.*\\)?"))
+ ts te h m s)
+ (if (not (looking-at re))
+ nil
+ (and (match-end 3) (delete-region (match-beginning 3) (match-end 3)))
+ (end-of-line 1)
+ (setq ts (match-string 1)
+ te (match-string 2))
+ (setq s (- (time-to-seconds
+ (apply 'encode-time (org-parse-time-string te)))
+ (time-to-seconds
+ (apply 'encode-time (org-parse-time-string ts))))
+ h (floor (/ s 3600))
+ s (- s (* 3600 h))
+ m (floor (/ s 60))
+ s (- s (* 60 s)))
+ (insert " => " (format "%2d:%02d" h m))
+ t)))))
+
+(defun org-check-running-clock ()
+ "Check if the current buffer contains the running clock.
+If yes, offer to stop it and to save the buffer with the changes."
+ (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
+ (y-or-n-p (format "Clock-out in buffer %s before killing it? "
+ (buffer-name))))
+ (org-clock-out)
+ (when (y-or-n-p "Save changed buffer?")
+ (save-buffer))))
+
+(defun org-clocktable-try-shift (dir n)
+ "Check if this line starts a clock table, if yes, shift the time block."
+ (when (org-match-line "#\\+BEGIN: clocktable\\>")
+ (org-clocktable-shift dir n)))
+
+;; Autoload archiving code
+;; The stuff that is needed for cycling and tags has to be defined here.
+
+(defgroup org-archive nil
+ "Options concerning archiving in Org-mode."
+ :tag "Org Archive"
+ :group 'org-structure)
+
+(defcustom org-archive-location "%s_archive::"
+ "The location where subtrees should be archived.
+
+Otherwise, the value of this variable is a string, consisting of two
+parts, separated by a double-colon.
+
+The first part is a file name - when omitted, archiving happens in the same
+file. %s will be replaced by the current file name (without directory part).
+Archiving to a different file is useful to keep archived entries from
+contributing to the Org-mode Agenda.
+
+The part after the double colon is a headline. The archived entries will be
+filed under that headline. When omitted, the subtrees are simply filed away
+at the end of the file, as top-level entries.
+
+Here are a few examples:
+\"%s_archive::\"
+ If the current file is Projects.org, archive in file
+ Projects.org_archive, as top-level trees. This is the default.
+
+\"::* Archived Tasks\"
+ Archive in the current file, under the top-level headline
+ \"* Archived Tasks\".
+
+\"~/org/archive.org::\"
+ Archive in file ~/org/archive.org (absolute path), as top-level trees.
+
+\"basement::** Finished Tasks\"
+ Archive in file ./basement (relative path), as level 3 trees
+ below the level 2 heading \"** Finished Tasks\".
+
+You may set this option on a per-file basis by adding to the buffer a
+line like
+
+#+ARCHIVE: basement::** Finished Tasks
+
+You may also define it locally for a subtree by setting an ARCHIVE property
+in the entry. If such a property is found in an entry, or anywhere up
+the hierarchy, it will be used."
+ :group 'org-archive
+ :type 'string)
+
+(defcustom org-archive-tag "ARCHIVE"
+ "The tag that marks a subtree as archived.
+An archived subtree does not open during visibility cycling, and does
+not contribute to the agenda listings.
+After changing this, font-lock must be restarted in the relevant buffers to
+get the proper fontification."
+ :group 'org-archive
+ :group 'org-keywords
+ :type 'string)
+
+(defcustom org-agenda-skip-archived-trees t
+ "Non-nil means, the agenda will skip any items located in archived trees.
+An archived tree is a tree marked with the tag ARCHIVE."
+ :group 'org-archive
+ :group 'org-agenda-skip
+ :type 'boolean)
+
+(defcustom org-cycle-open-archived-trees nil
+ "Non-nil means, `org-cycle' will open archived trees.
+An archived tree is a tree marked with the tag ARCHIVE.
+When nil, archived trees will stay folded. You can still open them with
+normal outline commands like `show-all', but not with the cycling commands."
+ :group 'org-archive
+ :group 'org-cycle
+ :type 'boolean)
+
+(defcustom org-sparse-tree-open-archived-trees nil
+ "Non-nil means sparse tree construction shows matches in archived trees.
+When nil, matches in these trees are highlighted, but the trees are kept in
+collapsed state."
+ :group 'org-archive
+ :group 'org-sparse-trees
+ :type 'boolean)
+
+(defun org-cycle-hide-archived-subtrees (state)
+ "Re-hide all archived subtrees after a visibility state change."
+ (when (and (not org-cycle-open-archived-trees)
+ (not (memq state '(overview folded))))
+ (save-excursion
+ (let* ((globalp (memq state '(contents all)))
+ (beg (if globalp (point-min) (point)))
+ (end (if globalp (point-max) (org-end-of-subtree t))))
+ (org-hide-archived-subtrees beg end)
+ (goto-char beg)
+ (if (looking-at (concat ".*:" org-archive-tag ":"))
+ (message "%s" (substitute-command-keys
+ "Subtree is archived and stays closed. Use \\[org-force-cycle-archived] to cycle it anyway.")))))))
+
+(defun org-force-cycle-archived ()
+ "Cycle subtree even if it is archived."
+ (interactive)
+ (setq this-command 'org-cycle)
+ (let ((org-cycle-open-archived-trees t))
+ (call-interactively 'org-cycle)))
+
+(defun org-hide-archived-subtrees (beg end)
+ "Re-hide all archived subtrees after a visibility state change."
+ (save-excursion
+ (let* ((re (concat ":" org-archive-tag ":")))
+ (goto-char beg)
+ (while (re-search-forward re end t)
+ (and (org-on-heading-p) (hide-subtree))
+ (org-end-of-subtree t)))))
+
+(defalias 'org-advertized-archive-subtree 'org-archive-subtree)
+
+(eval-and-compile
+ (org-autoload "org-archive"
+ '(org-add-archive-files org-archive-subtree
+ org-archive-to-archive-sibling org-toggle-archive-tag)))
+
+;; Autoload Column View Code
+
+(declare-function org-columns-number-to-string "org-colview")
+(declare-function org-columns-get-format-and-top-level "org-colview")
+(declare-function org-columns-compute "org-colview")
+
+(org-autoload (if (featurep 'xemacs) "org-colview-xemacs" "org-colview")
+ '(org-columns-number-to-string org-columns-get-format-and-top-level
+ org-columns-compute org-agenda-columns org-columns-remove-overlays
+ org-columns org-insert-columns-dblock))
+
+;;; Variables for pre-computed regular expressions, all buffer local
+
+(defvar org-drawer-regexp nil
+ "Matches first line of a hidden block.")
+(make-variable-buffer-local 'org-drawer-regexp)
+(defvar org-todo-regexp nil
+ "Matches any of the TODO state keywords.")
+(make-variable-buffer-local 'org-todo-regexp)
+(defvar org-not-done-regexp nil
+ "Matches any of the TODO state keywords except the last one.")
+(make-variable-buffer-local 'org-not-done-regexp)
+(defvar org-todo-line-regexp nil
+ "Matches a headline and puts TODO state into group 2 if present.")
+(make-variable-buffer-local 'org-todo-line-regexp)
+(defvar org-complex-heading-regexp nil
+ "Matches a headline and puts everything into groups:
+group 1: the stars
+group 2: The todo keyword, maybe
+group 3: Priority cookie
+group 4: True headline
+group 5: Tags")
+(make-variable-buffer-local 'org-complex-heading-regexp)
+(defvar org-todo-line-tags-regexp nil
+ "Matches a headline and puts TODO state into group 2 if present.
+Also put tags into group 4 if tags are present.")
+(make-variable-buffer-local 'org-todo-line-tags-regexp)
+(defvar org-nl-done-regexp nil
+ "Matches newline followed by a headline with the DONE keyword.")
+(make-variable-buffer-local 'org-nl-done-regexp)
+(defvar org-looking-at-done-regexp nil
+ "Matches the DONE keyword a point.")
+(make-variable-buffer-local 'org-looking-at-done-regexp)
+(defvar org-ds-keyword-length 12
+ "Maximum length of the Deadline and SCHEDULED keywords.")
+(make-variable-buffer-local 'org-ds-keyword-length)
+(defvar org-deadline-regexp nil
+ "Matches the DEADLINE keyword.")
+(make-variable-buffer-local 'org-deadline-regexp)
+(defvar org-deadline-time-regexp nil
+ "Matches the DEADLINE keyword together with a time stamp.")
+(make-variable-buffer-local 'org-deadline-time-regexp)
+(defvar org-deadline-line-regexp nil
+ "Matches the DEADLINE keyword and the rest of the line.")
+(make-variable-buffer-local 'org-deadline-line-regexp)
+(defvar org-scheduled-regexp nil
+ "Matches the SCHEDULED keyword.")
+(make-variable-buffer-local 'org-scheduled-regexp)
+(defvar org-scheduled-time-regexp nil
+ "Matches the SCHEDULED keyword together with a time stamp.")
+(make-variable-buffer-local 'org-scheduled-time-regexp)
+(defvar org-closed-time-regexp nil
+ "Matches the CLOSED keyword together with a time stamp.")
+(make-variable-buffer-local 'org-closed-time-regexp)
+
+(defvar org-keyword-time-regexp nil
+ "Matches any of the 4 keywords, together with the time stamp.")
+(make-variable-buffer-local 'org-keyword-time-regexp)
+(defvar org-keyword-time-not-clock-regexp nil
+ "Matches any of the 3 keywords, together with the time stamp.")
+(make-variable-buffer-local 'org-keyword-time-not-clock-regexp)
+(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-plain-time-of-day-regexp
+ (concat
+ "\\(\\<[012]?[0-9]"
+ "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
+ "\\(--?"
+ "\\(\\<[012]?[0-9]"
+ "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
+ "\\)?")
+ "Regular expression to match a plain time or time range.
+Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following
+groups carry important information:
+0 the full match
+1 the first time, range or not
+8 the second time, if it is a range.")
+
+(defconst org-plain-time-extension-regexp
+ (concat
+ "\\(\\<[012]?[0-9]"
+ "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
+ "\\+\\([0-9]+\\)\\(:\\([0-5][0-9]\\)\\)?")
+ "Regular expression to match a time range like 13:30+2:10 = 13:30-15:40.
+Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following
+groups carry important information:
+0 the full match
+7 hours of duration
+9 minutes of duration")
+
+(defconst org-stamp-time-of-day-regexp
+ (concat
+ "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} +\\sw+ +\\)"
+ "\\([012][0-9]:[0-5][0-9]\\(-\\([012][0-9]:[0-5][0-9]\\)\\)?[^\n\r>]*?\\)>"
+ "\\(--?"
+ "<\\1\\([012][0-9]:[0-5][0-9]\\)>\\)?")
+ "Regular expression to match a timestamp time or time range.
+After a match, the following groups carry important information:
+0 the full match
+1 date plus weekday, for backreferencing to make sure both times on same day
+2 the first time, range or not
+4 the second time, if it is a range.")
+
+(defconst org-startup-options
+ '(("fold" org-startup-folded t)
+ ("overview" org-startup-folded t)
+ ("nofold" org-startup-folded nil)
+ ("showall" org-startup-folded nil)
+ ("content" org-startup-folded content)
+ ("hidestars" org-hide-leading-stars t)
+ ("showstars" org-hide-leading-stars nil)
+ ("odd" org-odd-levels-only t)
+ ("oddeven" org-odd-levels-only nil)
+ ("align" org-startup-align-all-tables t)
+ ("noalign" org-startup-align-all-tables nil)
+ ("customtime" org-display-custom-times t)
+ ("logdone" org-log-done time)
+ ("lognotedone" org-log-done note)
+ ("nologdone" org-log-done nil)
+ ("lognoteclock-out" org-log-note-clock-out t)
+ ("nolognoteclock-out" org-log-note-clock-out nil)
+ ("logrepeat" org-log-repeat state)
+ ("lognoterepeat" org-log-repeat note)
+ ("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
+set this variable to if the option is found. An optional forth element PUSH
+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-key-alist nil)
+ (org-set-local 'org-todo-key-trigger 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)
+ (org-set-local 'org-todo-log-states nil)
+ (let ((re (org-make-options-regexp
+ '("CATEGORY" "SEQ_TODO" "TYP_TODO" "TODO" "COLUMNS"
+ "STARTUP" "ARCHIVE" "TAGS" "LINK" "PRIORITIES"
+ "CONSTANTS" "PROPERTY" "DRAWERS")))
+ (splitre "[ \t]+")
+ kwds kws0 kwsa key log value cat arch tags const links hw dws
+ tail sep kws1 prio props drawers)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (while (re-search-forward re nil t)
+ (setq key (match-string 1) value (org-match-string-no-properties 2))
+ (cond
+ ((equal key "CATEGORY")
+ (if (string-match "[ \t]+$" value)
+ (setq value (replace-match "" t t value)))
+ (setq cat value))
+ ((member key '("SEQ_TODO" "TODO"))
+ (push (cons 'sequence (org-split-string value splitre)) kwds))
+ ((equal key "TYP_TODO")
+ (push (cons 'type (org-split-string value splitre)) kwds))
+ ((equal key "TAGS")
+ (setq tags (append tags (org-split-string value splitre))))
+ ((equal key "COLUMNS")
+ (org-set-local 'org-columns-default-format value))
+ ((equal key "LINK")
+ (when (string-match "^\\(\\S-+\\)[ \t]+\\(.+\\)" value)
+ (push (cons (match-string 1 value)
+ (org-trim (match-string 2 value)))
+ links)))
+ ((equal key "PRIORITIES")
+ (setq prio (org-split-string value " +")))
+ ((equal key "PROPERTY")
+ (when (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value)
+ (push (cons (match-string 1 value) (match-string 2 value))
+ props)))
+ ((equal key "DRAWERS")
+ (setq drawers (org-split-string value splitre)))
+ ((equal key "CONSTANTS")
+ (setq const (append const (org-split-string value splitre))))
+ ((equal key "STARTUP")
+ (let ((opts (org-split-string value splitre))
+ l 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))
+ (remove-text-properties 0 (length arch)
+ '(face t fontified t) arch)))
+ )))
+ (when cat
+ (org-set-local 'org-category (intern cat))
+ (push (cons "CATEGORY" cat) props))
+ (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 props (org-set-local 'org-local-properties (nreverse props)))
+ (and drawers (org-set-local 'org-drawers drawers))
+ (and arch (org-set-local 'org-archive-location arch))
+ (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 kw)
+ (while (setq kws (pop kwds))
+ (setq inter (pop kws) sep (member "|" kws)
+ kws0 (delete "|" (copy-sequence kws))
+ kwsa nil
+ kws1 (mapcar
+ (lambda (x)
+ ;; 1 2
+ (if (string-match "^\\(.*?\\)\\(?:(\\([^!@/]\\)?.*?)\\)?$" x)
+ (progn
+ (setq kw (match-string 1 x)
+ key (and (match-end 2) (match-string 2 x))
+ log (org-extract-log-state-settings x))
+ (push (cons kw (and key (string-to-char key))) kwsa)
+ (and log (push log org-todo-log-states))
+ kw)
+ (error "Invalid TODO keyword %s" x)))
+ kws0)
+ kwsa (if kwsa (append '((:startgroup))
+ (nreverse kwsa)
+ '((:endgroup))))
+ hw (car kws1)
+ dws (if sep (org-remove-keyword-keys (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))
+ (setq org-todo-key-alist (append org-todo-key-alist kwsa))
+ (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)
+ org-todo-key-trigger (delq nil (mapcar 'cdr org-todo-key-alist))
+ org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)))
+ ;; Process the constants
+ (when const
+ (let (e cst)
+ (while (setq e (pop const))
+ (if (string-match "^\\([a-zA-Z0][_a-zA-Z0-9]*\\)=\\(.*\\)" e)
+ (push (cons (match-string 1 e) (match-string 2 e)) cst)))
+ (setq org-table-formula-constants-local cst)))
+
+ ;; Process the tags.
+ (when tags
+ (let (e tgs)
+ (while (setq e (pop tags))
+ (cond
+ ((equal e "{") (push '(:startgroup) tgs))
+ ((equal e "}") (push '(:endgroup) tgs))
+ ((string-match (org-re "^\\([[:alnum:]_@]+\\)(\\(.\\))$") e)
+ (push (cons (match-string 1 e)
+ (string-to-char (match-string 2 e)))
+ tgs))
+ (t (push (list e) tgs))))
+ (org-set-local 'org-tag-alist nil)
+ (while (setq e (pop tgs))
+ (or (and (stringp (car e))
+ (assoc (car e) org-tag-alist))
+ (push e org-tag-alist))))))
+
+ ;; Compute the regular expressions and other local variables
+ (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)
+ (length org-clock-string)
+ (length org-closed-string)))
+ org-drawer-regexp
+ (concat "^[ \t]*:\\("
+ (mapconcat 'regexp-quote org-drawers "\\|")
+ "\\):[ \t]*$")
+ 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-1
+ "\\|") "\\)\\>")
+ org-not-done-regexp
+ (concat "\\<\\("
+ (mapconcat 'regexp-quote org-not-done-keywords "\\|")
+ "\\)\\>")
+ org-todo-line-regexp
+ (concat "^\\(\\*+\\)[ \t]+\\(?:\\("
+ (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
+ "\\)\\>\\)?[ \t]*\\(.*\\)")
+ org-complex-heading-regexp
+ (concat "^\\(\\*+\\)\\(?:[ \t]+\\("
+ (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
+ "\\)\\>\\)?\\(?:[ \t]*\\(\\[#.\\]\\)\\)?[ \t]*\\(.*?\\)"
+ "\\(?:[ \t]+\\(:[[:alnum:]_@:]+:\\)\\)?[ \t]*$")
+ org-nl-done-regexp
+ (concat "\n\\*+[ \t]+"
+ "\\(?:" (mapconcat 'regexp-quote org-done-keywords "\\|")
+ "\\)" "\\>")
+ org-todo-line-tags-regexp
+ (concat "^\\(\\*+\\)[ \t]+\\(?:\\("
+ (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
+ (org-re
+ "\\)\\>\\)? *\\(.*?\\([ \t]:[[:alnum:]:_@]+:[ \t]*\\)?$\\)"))
+ 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 " *<\\([^>]+\\)>")
+ org-deadline-line-regexp
+ (concat "\\<\\(" org-deadline-string "\\).*")
+ org-scheduled-regexp
+ (concat "\\<" org-scheduled-string)
+ org-scheduled-time-regexp
+ (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>")
+ org-closed-time-regexp
+ (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]")
+ org-keyword-time-regexp
+ (concat "\\<\\(" org-scheduled-string
+ "\\|" org-deadline-string
+ "\\|" org-closed-string
+ "\\|" org-clock-string "\\)"
+ " *[[<]\\([^]>]+\\)[]>]")
+ org-keyword-time-not-clock-regexp
+ (concat "\\<\\(" org-scheduled-string
+ "\\|" org-deadline-string
+ "\\|" org-closed-string
+ "\\)"
+ " *[[<]\\([^]>]+\\)[]>]")
+ org-maybe-keyword-time-regexp
+ (concat "\\(\\<\\(" org-scheduled-string
+ "\\|" org-deadline-string
+ "\\|" org-closed-string
+ "\\|" org-clock-string "\\)\\)?"
+ " *\\([[<][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-compute-latex-and-specials-regexp)
+ (org-set-font-lock-defaults)))
+
+(defun org-extract-log-state-settings (x)
+ "Extract the log state setting from a TODO keyword string.
+This will extract info from a string like \"WAIT(w@/!)\"."
+ (let (kw key log1 log2)
+ (when (string-match "^\\(.*?\\)\\(?:(\\([^!@/]\\)?\\([!@]\\)?\\(?:/\\([!@]\\)\\)?)\\)?$" x)
+ (setq kw (match-string 1 x)
+ key (and (match-end 2) (match-string 2 x))
+ log1 (and (match-end 3) (match-string 3 x))
+ log2 (and (match-end 4) (match-string 4 x)))
+ (and (or log1 log2)
+ (list kw
+ (and log1 (if (equal log1 "!") 'time 'note))
+ (and log2 (if (equal log2 "!") 'time 'note)))))))
+
+(defun org-remove-keyword-keys (list)
+ "Remove a pair of parenthesis at the end of each string in LIST."
+ (mapcar (lambda (x)
+ (if (string-match "(.*)$" x)
+ (substring x 0 (match-beginning 0))
+ x))
+ list))
+
+;; FIXME: this could be done much better, using second characters etc.
+(defun org-assign-fast-keys (alist)
+ "Assign fast keys to a keyword-key alist.
+Respect keys that are already there."
+ (let (new e k c c1 c2 (char ?a))
+ (while (setq e (pop alist))
+ (cond
+ ((equal e '(:startgroup)) (push e new))
+ ((equal e '(:endgroup)) (push e new))
+ (t
+ (setq k (car e) c2 nil)
+ (if (cdr e)
+ (setq c (cdr e))
+ ;; automatically assign a character.
+ (setq c1 (string-to-char
+ (downcase (substring
+ k (if (= (string-to-char k) ?@) 1 0)))))
+ (if (or (rassoc c1 new) (rassoc c1 alist))
+ (while (or (rassoc char new) (rassoc char alist))
+ (setq char (1+ char)))
+ (setq c2 c1))
+ (setq c (or c2 char)))
+ (push (cons k c) new))))
+ (nreverse new)))
+
+;;; Some variables used in various places
+
+(defvar org-window-configuration nil
+ "Used in various places to store a window configuration.")
+(defvar org-finish-function nil
+ "Function to be called when `C-c C-c' is used.
+This is for getting out of special buffers like remember.")
+
+
+;; FIXME: Occasionally check by commenting these, to make sure
+;; no other functions uses these, forgetting to let-bind them.
+(defvar entry)
+(defvar state)
+(defvar last-state)
+(defvar date)
+(defvar description)
+
+;; Defined somewhere in this file, but used before definition.
+(defvar org-html-entities)
+(defvar org-struct-menu)
+(defvar org-org-menu)
+(defvar org-tbl-menu)
+(defvar org-agenda-keymap)
+
+;;;; Define the Org-mode
+
+(if (and (not (keymapp outline-mode-map)) (featurep 'allout))
+ (error "Conflict with outdated version of allout.el. Load org.el before allout.el, or ugrade to newer allout, for example by switching to Emacs 22."))
+
+
+;; We use a before-change function to check if a table might need
+;; an update.
+(defvar org-table-may-need-update t
+ "Indicates that a table might need an update.
+This variable is set by `org-before-change-function'.
+`org-table-align' sets it back to nil.")
+(defun org-before-change-function (beg end)
+ "Every change indicates that a table might need an update."
+ (setq org-table-may-need-update t))
+(defvar org-mode-map)
+(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)
+(defconst org-outline-regexp "\\*+ ")
+
+;;;###autoload
+(define-derived-mode org-mode outline-mode "Org"
+ "Outline-based notes management and organizer, alias
+\"Carsten's outline-mode for keeping track of everything.\"
+
+Org-mode develops organizational tasks around a NOTES file which
+contains information about projects as plain text. Org-mode is
+implemented on top of outline-mode, which is ideal to keep the content
+of large files well structured. It supports ToDo items, deadlines and
+time stamps, which magically appear in the diary listing of the Emacs
+calendar. Tables are easily created with a built-in table editor.
+Plain text URL-like links connect to websites, emails (VM), Usenet
+messages (Gnus), BBDB entries, and any files related to the project.
+For printing and sharing of notes, an Org-mode file (or a part of it)
+can be exported as a structured ASCII or HTML file.
+
+The following commands are available:
+
+\\{org-mode-map}"
+
+ ;; Get rid of Outline menus, they are not needed
+ ;; Need to do this here because define-derived-mode sets up
+ ;; the keymap so late. Still, it is a waste to call this each time
+ ;; we switch another buffer into org-mode.
+ (if (featurep 'xemacs)
+ (when (boundp 'outline-mode-menu-heading)
+ ;; Assume this is Greg's port, it used easymenu
+ (easy-menu-remove outline-mode-menu-heading)
+ (easy-menu-remove outline-mode-menu-show)
+ (easy-menu-remove outline-mode-menu-hide))
+ (define-key org-mode-map [menu-bar headings] 'undefined)
+ (define-key org-mode-map [menu-bar hide] 'undefined)
+ (define-key org-mode-map [menu-bar show] 'undefined))
+
+ (org-load-modules-maybe)
+ (easy-menu-add org-org-menu)
+ (easy-menu-add org-tbl-menu)
+ (org-install-agenda-files-menu)
+ (if org-descriptive-links (org-add-to-invisibility-spec '(org-link)))
+ (org-add-to-invisibility-spec '(org-cwidth))
+ (when (featurep 'xemacs)
+ (org-set-local 'line-move-ignore-invisible t))
+ (org-set-local 'outline-regexp org-outline-regexp)
+ (org-set-local 'outline-level 'org-outline-level)
+ (when (and org-ellipsis
+ (fboundp 'set-display-table-slot) (boundp 'buffer-display-table)
+ (fboundp 'make-glyph-code))
+ (unless org-display-table
+ (setq org-display-table (make-display-table)))
+ (set-display-table-slot
+ org-display-table 4
+ (vconcat (mapcar
+ (lambda (c) (make-glyph-code c (and (not (stringp org-ellipsis))
+ org-ellipsis)))
+ (if (stringp org-ellipsis) org-ellipsis "..."))))
+ (setq buffer-display-table org-display-table))
+ (org-set-regexps-and-options)
+ ;; 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)
+ ;; Activate before-change-function
+ (org-set-local 'org-table-may-need-update t)
+ (org-add-hook 'before-change-functions 'org-before-change-function nil
+ 'local)
+ ;; Check for running clock before killing a buffer
+ (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
+; (org-set-local 'comment-start "#") ;; FIXME: this breaks wrapping
+ (org-set-local 'comment-padding " ")
+
+ ;; Align options lines
+ (org-set-local
+ 'align-mode-rules-list
+ '((org-in-buffer-settings
+ (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
+ (modes . '(org-mode)))))
+
+ ;; Imenu
+ (org-set-local 'imenu-create-index-function
+ 'org-imenu-get-tree)
+
+ ;; Make isearch reveal context
+ (if (or (featurep 'xemacs)
+ (not (boundp 'outline-isearch-open-invisible-function)))
+ ;; Emacs 21 and XEmacs make use of the hook
+ (org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
+ ;; Emacs 22 deals with this through a special variable
+ (org-set-local 'outline-isearch-open-invisible-function
+ (lambda (&rest ignore) (org-show-context 'isearch))))
+
+ ;; If empty file that did not turn on org-mode automatically, make it to.
+ (if (and org-insert-mode-line-in-empty-file
+ (interactive-p)
+ (= (point-min) (point-max)))
+ (insert "# -*- mode: org -*-\n\n"))
+
+ (unless org-inhibit-startup
+ (when org-startup-align-all-tables
+ (let ((bmp (buffer-modified-p)))
+ (org-table-map-tables 'org-table-align)
+ (set-buffer-modified-p bmp)))
+ (org-cycle-hide-drawers 'all)
+ (cond
+ ((eq org-startup-folded t)
+ (org-cycle '(4)))
+ ((eq org-startup-folded 'content)
+ (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)
+
+(defun org-current-time ()
+ "Current time, possibly rounded to `org-time-stamp-rounding-minutes'."
+ (if (> (car org-time-stamp-rounding-minutes) 1)
+ (let ((r (car org-time-stamp-rounding-minutes))
+ (time (decode-time)))
+ (apply 'encode-time
+ (append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
+ (nthcdr 2 time))))
+ (current-time)))
+
+;;;; Font-Lock stuff, including the activators
+
+(defvar org-mouse-map (make-sparse-keymap))
+(org-defkey org-mouse-map
+ (if (featurep 'xemacs) [button2] [mouse-2]) 'org-open-at-mouse)
+(org-defkey org-mouse-map
+ (if (featurep 'xemacs) [button3] [mouse-3]) 'org-find-file-at-mouse)
+(when org-mouse-1-follows-link
+ (org-defkey org-mouse-map [follow-link] 'mouse-face))
+(when org-tab-follows-link
+ (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
+ (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<>")
+(defvar org-link-types '("http" "https" "ftp" "mailto" "file" "news"
+ "shell" "elisp"))
+(defvar org-link-types-re nil
+ "Matches a link that has a url-like prefix like \"http:\"")
+(defvar org-link-re-with-space nil
+ "Matches a link with spaces, optional angular brackets around it.")
+(defvar org-link-re-with-space2 nil
+ "Matches a link with spaces, optional angular brackets around it.")
+(defvar org-angle-link-re nil
+ "Matches link with angular brackets, spaces are allowed.")
+(defvar org-plain-link-re nil
+ "Matches plain link, without spaces.")
+(defvar org-bracket-link-regexp nil
+ "Matches a link in double brackets.")
+(defvar org-bracket-link-analytic-regexp nil
+ "Regular expression used to analyze links.
+Here is what the match groups contain after a match:
+1: http:
+2: http
+3: path
+4: [desc]
+5: desc")
+(defvar org-any-link-re nil
+ "Regular expression matching any link.")
+
+(defun org-make-link-regexps ()
+ "Update the link regular expressions.
+This should be called after the variable `org-link-types' has changed."
+ (setq org-link-types-re
+ (concat
+ "\\`\\(" (mapconcat 'identity org-link-types "\\|") "\\):")
+ org-link-re-with-space
+ (concat
+ "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
+ "\\([^" org-non-link-chars " ]"
+ "[^" org-non-link-chars "]*"
+ "[^" org-non-link-chars " ]\\)>?")
+ org-link-re-with-space2
+ (concat
+ "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
+ "\\([^" org-non-link-chars " ]"
+ "[^]\t\n\r]*"
+ "[^" org-non-link-chars " ]\\)>?")
+ org-angle-link-re
+ (concat
+ "<\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
+ "\\([^" org-non-link-chars " ]"
+ "[^" org-non-link-chars "]*"
+ "\\)>")
+ org-plain-link-re
+ (concat
+ "\\<\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
+ "\\([^]\t\n\r<>() ]+[^]\t\n\r<>,.;() ]\\)")
+ org-bracket-link-regexp
+ "\\[\\[\\([^][]+\\)\\]\\(\\[\\([^][]+\\)\\]\\)?\\]"
+ org-bracket-link-analytic-regexp
+ (concat
+ "\\[\\["
+ "\\(\\(" (mapconcat 'identity org-link-types "\\|") "\\):\\)?"
+ "\\([^]]+\\)"
+ "\\]"
+ "\\(\\[" "\\([^]]+\\)" "\\]\\)?"
+ "\\]")
+ org-any-link-re
+ (concat "\\(" org-bracket-link-regexp "\\)\\|\\("
+ org-angle-link-re "\\)\\|\\("
+ org-plain-link-re "\\)")))
+
+(org-make-link-regexps)
+
+(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>]*?\\)[]>]"
+ "Regular expression for fast time stamp matching.")
+(defconst org-ts-regexp0 "\\(\\([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.
+This one does not require the space after the date, so it can be used
+on a string that terminates immediately after the date.")
+(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 "[^>\n]\\{0,16\\}>")
+ "Regular expression matching time stamps, with groups.")
+(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,16\\}[]>]")
+ "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.")
+(defconst org-tr-regexp-both
+ (concat org-ts-regexp-both "--?-?" org-ts-regexp-both)
+ "Regular expression matching a time stamp range.")
+(defconst org-tsr-regexp (concat org-ts-regexp "\\(--?-?"
+ org-ts-regexp "\\)?")
+ "Regular expression matching a time stamp or time stamp range.")
+(defconst org-tsr-regexp-both (concat org-ts-regexp-both "\\(--?-?"
+ org-ts-regexp-both "\\)?")
+ "Regular expression matching a time stamp or time stamp range.
+The time stamps may be either active or inactive.")
+
+(defvar org-emph-face nil)
+
+(defun org-do-emphasis-faces (limit)
+ "Run through the buffer and add overlays to links."
+ (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))
+ (when org-hide-emphasis-markers
+ (add-text-properties (match-end 4) (match-beginning 5)
+ '(invisible org-link))
+ (add-text-properties (match-beginning 3) (match-end 3)
+ '(invisible org-link)))))
+ (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))))
+
+(defconst org-nonsticky-props
+ '(mouse-face highlight keymap invisible intangible help-echo org-linked-text))
+
+
+(defun org-activate-plain-links (limit)
+ "Run through the buffer and add overlays to links."
+ (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 org-nonsticky-props
+ 'keymap org-mouse-map
+ ))
+ (throw 'exit t))))))
+
+(defun org-activate-code (limit)
+ (if (re-search-forward "^[ \t]*\\(:.*\\)" limit t)
+ (unless (get-text-property (match-beginning 1) 'face)
+ (remove-text-properties (match-beginning 0) (match-end 0)
+ '(display t invisible t intangible t))
+ t)))
+
+(defun org-activate-angle-links (limit)
+ "Run through the buffer and add overlays to links."
+ (if (re-search-forward org-angle-link-re limit t)
+ (progn
+ (add-text-properties (match-beginning 0) (match-end 0)
+ (list 'mouse-face 'highlight
+ 'rear-nonsticky org-nonsticky-props
+ 'keymap org-mouse-map
+ ))
+ t)))
+
+(defun org-activate-bracket-links (limit)
+ "Run through the buffer and add overlays to bracketed links."
+ (if (re-search-forward org-bracket-link-regexp limit t)
+ (let* ((help (concat "LINK: "
+ (org-match-string-no-properties 1)))
+ ;; FIXME: above we should remove the escapes.
+ ;; but that requires another match, protecting match data,
+ ;; a lot of overhead for font-lock.
+ (ip (org-maybe-intangible
+ (list 'invisible 'org-link 'rear-nonsticky org-nonsticky-props
+ 'keymap org-mouse-map 'mouse-face 'highlight
+ 'font-lock-multiline t 'help-echo help)))
+ (vp (list 'rear-nonsticky org-nonsticky-props
+ 'keymap org-mouse-map 'mouse-face 'highlight
+ ' font-lock-multiline t 'help-echo help)))
+ ;; We need to remove the invisible property here. Table narrowing
+ ;; may have made some of this invisible.
+ (remove-text-properties (match-beginning 0) (match-end 0)
+ '(invisible nil))
+ (if (match-end 3)
+ (progn
+ (add-text-properties (match-beginning 0) (match-beginning 3) ip)
+ (add-text-properties (match-beginning 3) (match-end 3) vp)
+ (add-text-properties (match-end 3) (match-end 0) ip))
+ (add-text-properties (match-beginning 0) (match-beginning 1) ip)
+ (add-text-properties (match-beginning 1) (match-end 1) vp)
+ (add-text-properties (match-end 1) (match-end 0) ip))
+ t)))
+
+(defun org-activate-dates (limit)
+ "Run through the buffer and add overlays to dates."
+ (if (re-search-forward org-tsr-regexp-both limit t)
+ (progn
+ (add-text-properties (match-beginning 0) (match-end 0)
+ (list 'mouse-face 'highlight
+ 'rear-nonsticky org-nonsticky-props
+ 'keymap org-mouse-map))
+ (when org-display-custom-times
+ (if (match-end 3)
+ (org-display-custom-time (match-beginning 3) (match-end 3)))
+ (org-display-custom-time (match-beginning 1) (match-end 1)))
+ t)))
+
+(defvar org-target-link-regexp nil
+ "Regular expression matching radio targets in plain text.")
+(defvar org-target-regexp "<<\\([^<>\n\r]+\\)>>"
+ "Regular expression matching a link target.")
+(defvar org-radio-target-regexp "<<<\\([^<>\n\r]+\\)>>>"
+ "Regular expression matching a radio target.")
+(defvar org-any-target-regexp "<<<?\\([^<>\n\r]+\\)>>>?" ; FIXME, not exact, would match <<<aaa>> as a radio target.
+ "Regular expression matching any target.")
+
+(defun org-activate-target-links (limit)
+ "Run through the buffer and add overlays to target matches."
+ (when org-target-link-regexp
+ (let ((case-fold-search t))
+ (if (re-search-forward org-target-link-regexp limit t)
+ (progn
+ (add-text-properties (match-beginning 0) (match-end 0)
+ (list 'mouse-face 'highlight
+ 'rear-nonsticky org-nonsticky-props
+ 'keymap org-mouse-map
+ 'help-echo "Radio target link"
+ 'org-linked-text t))
+ t)))))
+
+(defun org-update-radio-target-regexp ()
+ "Find all radio targets in this file and update the regular expression."
+ (interactive)
+ (when (memq 'radio org-activate-links)
+ (setq org-target-link-regexp
+ (org-make-target-link-regexp (org-all-targets 'radio)))
+ (org-restart-font-lock)))
+
+(defun org-hide-wide-columns (limit)
+ (let (s e)
+ (setq s (text-property-any (point) (or limit (point-max))
+ 'org-cwidth t))
+ (when s
+ (setq e (next-single-property-change s 'org-cwidth))
+ (add-text-properties s e (org-maybe-intangible '(invisible org-cwidth)))
+ (goto-char e)
+ t)))
+
+(defvar org-latex-and-specials-regexp nil
+ "Regular expression for highlighting export special stuff.")
+(defvar org-match-substring-regexp)
+(defvar org-match-substring-with-braces-regexp)
+(defvar org-export-html-special-string-regexps)
+
+(defun org-compute-latex-and-specials-regexp ()
+ "Compute regular expression for stuff treated specially by exporters."
+ (if (not org-highlight-latex-fragments-and-specials)
+ (org-set-local 'org-latex-and-specials-regexp nil)
+ (require 'org-exp)
+ (let*
+ ((matchers (plist-get org-format-latex-options :matchers))
+ (latexs (delq nil (mapcar (lambda (x) (if (member (car x) matchers) x))
+ org-latex-regexps)))
+ (options (org-combine-plists (org-default-export-plist)
+ (org-infile-export-plist)))
+ (org-export-with-sub-superscripts (plist-get options :sub-superscript))
+ (org-export-with-LaTeX-fragments (plist-get options :LaTeX-fragments))
+ (org-export-with-TeX-macros (plist-get options :TeX-macros))
+ (org-export-html-expand (plist-get options :expand-quoted-html))
+ (org-export-with-special-strings (plist-get options :special-strings))
+ (re-sub
+ (cond
+ ((equal org-export-with-sub-superscripts '{})
+ (list org-match-substring-with-braces-regexp))
+ (org-export-with-sub-superscripts
+ (list org-match-substring-regexp))
+ (t nil)))
+ (re-latex
+ (if org-export-with-LaTeX-fragments
+ (mapcar (lambda (x) (nth 1 x)) latexs)))
+ (re-macros
+ (if org-export-with-TeX-macros
+ (list (concat "\\\\"
+ (regexp-opt
+ (append (mapcar 'car org-html-entities)
+ (if (boundp 'org-latex-entities)
+ org-latex-entities nil))
+ 'words))) ; FIXME
+ ))
+ ;; (list "\\\\\\(?:[a-zA-Z]+\\)")))
+ (re-special (if org-export-with-special-strings
+ (mapcar (lambda (x) (car x))
+ org-export-html-special-string-regexps)))
+ (re-rest
+ (delq nil
+ (list
+ (if org-export-html-expand "@<[^>\n]+>")
+ ))))
+ (org-set-local
+ 'org-latex-and-specials-regexp
+ (mapconcat 'identity (append re-latex re-sub re-macros re-special
+ re-rest) "\\|")))))
+
+(defun org-do-latex-and-special-faces (limit)
+ "Run through the buffer and add overlays to links."
+ (when org-latex-and-specials-regexp
+ (let (rtn d)
+ (while (and (not rtn) (re-search-forward org-latex-and-specials-regexp
+ limit t))
+ (if (not (memq (car-safe (get-text-property (1+ (match-beginning 0))
+ 'face))
+ '(org-code org-verbatim underline)))
+ (progn
+ (setq rtn t
+ d (cond ((member (char-after (1+ (match-beginning 0)))
+ '(?_ ?^)) 1)
+ (t 0)))
+ (font-lock-prepend-text-property
+ (+ d (match-beginning 0)) (match-end 0)
+ 'face 'org-latex-and-export-specials)
+ (add-text-properties (+ d (match-beginning 0)) (match-end 0)
+ '(font-lock-multiline t)))))
+ rtn)))
+
+(defun org-restart-font-lock ()
+ "Restart font-lock-mode, to force refontification."
+ (when (and (boundp 'font-lock-mode) font-lock-mode)
+ (font-lock-mode -1)
+ (font-lock-mode 1)))
+
+(defun org-all-targets (&optional radio)
+ "Return a list of all targets in this file.
+With optional argument RADIO, only find radio targets."
+ (let ((re (if radio org-radio-target-regexp org-target-regexp))
+ rtn)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward re nil t)
+ (add-to-list 'rtn (downcase (org-match-string-no-properties 1))))
+ rtn)))
+
+(defun org-make-target-link-regexp (targets)
+ "Make regular expression matching all strings in TARGETS.
+The regular expression finds the targets also if there is a line break
+between words."
+ (and targets
+ (concat
+ "\\<\\("
+ (mapconcat
+ (lambda (x)
+ (while (string-match " +" x)
+ (setq x (replace-match "\\s-+" t t x)))
+ x)
+ targets
+ "\\|")
+ "\\)\\>")))
+
+(defun org-activate-tags (limit)
+ (if (re-search-forward (org-re "^\\*+.*[ \t]\\(:[[:alnum:]_@:]+:\\)[ \r\n]") limit t)
+ (progn
+ (add-text-properties (match-beginning 1) (match-end 1)
+ (list 'mouse-face 'highlight
+ 'rear-nonsticky org-nonsticky-props
+ 'keymap org-mouse-map))
+ t)))
+
+(defun org-outline-level ()
+ (save-excursion
+ (looking-at outline-regexp)
+ (if (match-beginning 1)
+ (+ (org-get-string-indentation (match-string 1)) 1000)
+ (1- (- (match-end 0) (match-beginning 0))))))
+
+(defvar org-font-lock-keywords nil)
+
+(defconst org-property-re (org-re "^[ \t]*\\(:\\([[:alnum:]_]+\\):\\)[ \t]*\\([^ \t\r\n].*\\)")
+ "Regular expression matching a property line.")
+
+(defun org-set-font-lock-defaults ()
+ (let* ((em org-fontify-emphasized-text)
+ (lk org-activate-links)
+ (org-font-lock-extra-keywords
+ (list
+ ;; Headlines
+ '("^\\(\\**\\)\\(\\* \\)\\(.*\\)" (1 (org-get-level-face 1))
+ (2 (org-get-level-face 2)) (3 (org-get-level-face 3)))
+ ;; Table lines
+ '("^[ \t]*\\(\\(|\\|\\+-[-+]\\).*\\S-\\)"
+ (1 'org-table t))
+ ;; Table internals
+ '("^[ \t]*|\\(?:.*?|\\)? *\\(:?=[^|\n]*\\)" (1 'org-formula t))
+ '("^[ \t]*| *\\([#*]\\) *|" (1 'org-formula t))
+ '("^[ \t]*|\\( *\\([$!_^/]\\) *|.*\\)|" (1 'org-formula t))
+ ;; Drawers
+ (list org-drawer-regexp '(0 'org-special-keyword t))
+ (list "^[ \t]*:END:" '(0 'org-special-keyword t))
+ ;; Properties
+ (list org-property-re
+ '(1 'org-special-keyword t)
+ '(3 'org-property-value t))
+ (if org-format-transports-properties-p
+ '("| *\\(<[0-9]+>\\) *" (1 'org-formula t)))
+ ;; 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)))
+ '("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t))
+ '(org-hide-wide-columns (0 nil append))
+ ;; TODO lines
+ (list (concat "^\\*+[ \t]+" org-todo-regexp)
+ '(1 (org-get-todo-face 1) t))
+ ;; DONE
+ (if org-fontify-done-headline
+ (list (concat "^[*]+ +\\<\\("
+ (mapconcat 'regexp-quote org-done-keywords "\\|")
+ "\\)\\(.*\\)")
+ '(2 'org-headline-done t))
+ nil)
+ ;; Priorities
+ (list (concat "\\[#[A-Z0-9]\\]") '(0 'org-special-keyword t))
+ ;; Special keywords
+ (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))
+ (list (concat "\\<" org-clock-string) '(0 'org-special-keyword t))
+ ;; Emphasis
+ (if em
+ (if (featurep 'xemacs)
+ '(org-do-emphasis-faces (0 nil append))
+ '(org-do-emphasis-faces)))
+ ;; Checkboxes
+ '("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[- X]\\]\\)"
+ 2 'bold prepend)
+ (if org-provide-checkbox-statistics
+ '("\\[\\([0-9]*%\\)\\]\\|\\[\\([0-9]*\\)/\\([0-9]*\\)\\]"
+ (0 (org-get-checkbox-statistics-face) t)))
+ (list (concat "^\\*+ \\(.*:" org-archive-tag ":.*\\)")
+ '(1 'org-archived prepend))
+ ;; Specials
+ '(org-do-latex-and-special-faces)
+ ;; Code
+ '(org-activate-code (1 'org-code t))
+ ;; COMMENT
+ (list (concat "^\\*+[ \t]+\\<\\(" org-comment-string
+ "\\|" org-quote-string "\\)\\>")
+ '(1 'org-special-keyword t))
+ '("^#.*" (0 'font-lock-comment-face t))
+ )))
+ (setq org-font-lock-extra-keywords (delq nil org-font-lock-extra-keywords))
+ ;; Now set the full font-lock-keywords
+ (org-set-local 'org-font-lock-keywords org-font-lock-extra-keywords)
+ (org-set-local 'font-lock-defaults
+ '(org-font-lock-keywords t nil nil backward-paragraph))
+ (kill-local-variable 'font-lock-keywords) nil))
+
+(defvar org-m nil)
+(defvar org-l nil)
+(defvar org-f nil)
+(defun org-get-level-face (n)
+ "Get the right face for match N in font-lock matching of healdines."
+ (setq org-l (- (match-end 2) (match-beginning 1) 1))
+ (if org-odd-levels-only (setq org-l (1+ (/ org-l 2))))
+ (setq org-f (nth (% (1- org-l) org-n-level-faces) org-level-faces))
+ (cond
+ ((eq n 1) (if org-hide-leading-stars 'org-hide org-f))
+ ((eq n 2) org-f)
+ (t (if org-level-color-stars-only nil org-f))))
+
+(defun org-get-todo-face (kwd)
+ "Get the right face for a TODO keyword KWD.
+If KWD is a number, get the corresponding match group."
+ (if (numberp kwd) (setq kwd (match-string kwd)))
+ (or (cdr (assoc kwd org-todo-keyword-faces))
+ (and (member kwd org-done-keywords) 'org-done)
+ 'org-todo))
+
+(defun org-unfontify-region (beg end &optional maybe_loudly)
+ "Remove fontification and activation overlays from links."
+ (font-lock-default-unfontify-region beg end)
+ (let* ((buffer-undo-list t)
+ (inhibit-read-only t) (inhibit-point-motion-hooks t)
+ (inhibit-modification-hooks t)
+ deactivate-mark buffer-file-name buffer-file-truename)
+ (remove-text-properties beg end
+ '(mouse-face t keymap t org-linked-text t
+ invisible t intangible t))))
+
+;;;; Visibility cycling, including org-goto and indirect buffer
+
+;;; Cycling
+
+(defvar org-cycle-global-status nil)
+(make-variable-buffer-local 'org-cycle-global-status)
+(defvar org-cycle-subtree-status nil)
+(make-variable-buffer-local 'org-cycle-subtree-status)
+
+;;;###autoload
+(defun org-cycle (&optional arg)
+ "Visibility cycling for Org-mode.
+
+- When this function is called with a prefix argument, rotate the entire
+ buffer through 3 states (global cycling)
+ 1. OVERVIEW: Show only top-level headlines.
+ 2. CONTENTS: Show all headlines of all levels, but no body text.
+ 3. SHOW ALL: Show everything.
+
+- When point is at the beginning of a headline, rotate the subtree started
+ by this line through 3 different states (local cycling)
+ 1. FOLDED: Only the main headline is shown.
+ 2. CHILDREN: The main headline and the direct children are shown.
+ From this state, you can move to one of the children
+ and zoom in further.
+ 3. SUBTREE: Show the entire subtree, including body text.
+
+- When there is a numeric prefix, go up to a heading with level ARG, do
+ a `show-subtree' and return to the previous cursor position. If ARG
+ is negative, go up that many levels.
+
+- When point is not at the beginning of a headline, execute
+ `indent-relative', like TAB normally does. See the option
+ `org-cycle-emulate-tab' for details.
+
+- Special case: if point is at the beginning of the buffer and there is
+ no headline in line 1, this function will act as if called with prefix arg.
+ But only if also the variable `org-cycle-global-at-bob' is t."
+ (interactive "P")
+ (org-load-modules-maybe)
+ (let* ((outline-regexp
+ (if (and (org-mode-p) org-cycle-include-plain-lists)
+ "\\(?:\\*+ \\|\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) \\)"
+ outline-regexp))
+ (bob-special (and org-cycle-global-at-bob (bobp)
+ (not (looking-at outline-regexp))))
+ (org-cycle-hook
+ (if bob-special
+ (delq 'org-optimize-window-after-visibility-change
+ (copy-sequence org-cycle-hook))
+ org-cycle-hook))
+ (pos (point)))
+
+ (if (or bob-special (equal arg '(4)))
+ ;; special case: use global cycling
+ (setq arg t))
+
+ (cond
+
+ ((org-at-table-p 'any)
+ ;; Enter the table or move to the next field in the table
+ (or (org-table-recognize-table.el)
+ (progn
+ (if arg (org-table-edit-field t)
+ (org-table-justify-field-maybe)
+ (call-interactively 'org-table-next-field)))))
+
+ ((eq arg t) ;; Global cycling
+
+ (cond
+ ((and (eq last-command this-command)
+ (eq org-cycle-global-status 'overview))
+ ;; We just created the overview - now do table of contents
+ ;; This can be slow in very large buffers, so indicate action
+ (message "CONTENTS...")
+ (org-content)
+ (message "CONTENTS...done")
+ (setq org-cycle-global-status 'contents)
+ (run-hook-with-args 'org-cycle-hook 'contents))
+
+ ((and (eq last-command this-command)
+ (eq org-cycle-global-status 'contents))
+ ;; We just showed the table of contents - now show everything
+ (show-all)
+ (message "SHOW ALL")
+ (setq org-cycle-global-status 'all)
+ (run-hook-with-args 'org-cycle-hook 'all))
+
+ (t
+ ;; Default action: go to overview
+ (org-overview)
+ (message "OVERVIEW")
+ (setq org-cycle-global-status 'overview)
+ (run-hook-with-args 'org-cycle-hook 'overview))))
+
+ ((and org-drawers org-drawer-regexp
+ (save-excursion
+ (beginning-of-line 1)
+ (looking-at org-drawer-regexp)))
+ ;; Toggle block visibility
+ (org-flag-drawer
+ (not (get-char-property (match-end 0) 'invisible))))
+
+ ((integerp arg)
+ ;; Show-subtree, ARG levels up from here.
+ (save-excursion
+ (org-back-to-heading)
+ (outline-up-heading (if (< arg 0) (- arg)
+ (- (funcall outline-level) arg)))
+ (org-show-subtree)))
+
+ ((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)
+ ;; First, some boundaries
+ (save-excursion
+ (org-back-to-heading)
+ (save-excursion
+ (beginning-of-line 2)
+ (while (and (not (eobp)) ;; this is like `next-line'
+ (get-char-property (1- (point)) 'invisible))
+ (beginning-of-line 2)) (setq eol (point)))
+ (outline-end-of-heading) (setq eoh (point))
+ (org-end-of-subtree t)
+ (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)
+ (save-excursion
+ (goto-char eos)
+ (outline-next-heading)
+ (if (org-invisible-p) (org-flag-heading nil))))
+ ((or (>= eol eos)
+ (not (string-match "\\S-" (buffer-substring 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)
+ (eq org-cycle-subtree-status 'children))
+ ;; We just showed the children, now show everything.
+ (org-show-subtree)
+ (message "SUBTREE")
+ (setq org-cycle-subtree-status 'subtree)
+ (run-hook-with-args 'org-cycle-hook 'subtree))
+ (t
+ ;; Default action: hide the subtree.
+ (hide-subtree)
+ (message "FOLDED")
+ (setq org-cycle-subtree-status 'folded)
+ (run-hook-with-args 'org-cycle-hook 'folded)))))
+
+ ;; TAB emulation
+ (buffer-read-only (org-back-to-heading))
+
+ ((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)
+ (= (match-end 0) (point-at-eol)))
+ (and (eq org-cycle-emulate-tab 'whitestart)
+ (>= (match-end 0) pos))))
+ t
+ (eq org-cycle-emulate-tab t))
+ (call-interactively (global-key-binding "\t")))
+
+ (t (save-excursion
+ (org-back-to-heading)
+ (org-cycle))))))
+
+;;;###autoload
+(defun org-global-cycle (&optional arg)
+ "Cycle the global visibility. For details see `org-cycle'."
+ (interactive "P")
+ (let ((org-cycle-include-plain-lists
+ (if (org-mode-p) org-cycle-include-plain-lists nil)))
+ (if (integerp arg)
+ (progn
+ (show-all)
+ (hide-sublevels arg)
+ (setq org-cycle-global-status 'contents))
+ (org-cycle '(4)))))
+
+(defun org-overview ()
+ "Switch to overview mode, shoing only top-level headlines.
+Really, this shows all headlines with level equal or greater than the level
+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)
+ (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.
+With numerical argument N, show content up to level N."
+ (interactive "P")
+ (save-excursion
+ ;; Visit all headings and show their offspring
+ (and (integerp arg) (org-overview))
+ (goto-char (point-max))
+ (catch 'exit
+ (while (and (progn (condition-case nil
+ (outline-previous-visible-heading 1)
+ (error (goto-char (point-min))))
+ t)
+ (looking-at outline-regexp))
+ (if (integerp arg)
+ (show-children (1- arg))
+ (show-branches))
+ (if (bobp) (throw 'exit nil))))))
+
+
+(defun org-optimize-window-after-visibility-change (state)
+ "Adjust the window after a change in outline visibility.
+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-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-compact-display-after-subtree-move ()
+ (let (beg end)
+ (save-excursion
+ (if (org-up-heading-safe)
+ (progn
+ (hide-subtree)
+ (show-entry)
+ (show-children)
+ (org-cycle-show-empty-lines 'children)
+ (org-cycle-hide-drawers 'children))
+ (org-overview)))))
+
+(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-cycle-hide-drawers (state)
+ "Re-hide all drawers after a visibility state change."
+ (when (and (org-mode-p)
+ (not (memq state '(overview folded))))
+ (save-excursion
+ (let* ((globalp (memq state '(contents all)))
+ (beg (if globalp (point-min) (point)))
+ (end (if globalp (point-max) (org-end-of-subtree t))))
+ (goto-char beg)
+ (while (re-search-forward org-drawer-regexp end t)
+ (org-flag-drawer t))))))
+
+(defun org-flag-drawer (flag)
+ (save-excursion
+ (beginning-of-line 1)
+ (when (looking-at "^[ \t]*:[a-zA-Z][a-zA-Z0-9]*:")
+ (let ((b (match-end 0))
+ (outline-regexp org-outline-regexp))
+ (if (re-search-forward
+ "^[ \t]*:END:"
+ (save-excursion (outline-next-heading) (point)) t)
+ (outline-flag-region b (point-at-eol) flag)
+ (error ":END: line missing"))))))
+
+
+
+(defun org-subtree-end-visible-p ()
+ "Is the end of the current subtree visible?"
+ (pos-visible-in-window-p
+ (save-excursion (org-end-of-subtree t) (point))))
+
+(defun org-first-headline-recenter (&optional N)
+ "Move cursor to the first headline and recenter the headline.
+Optional argument N means, put the headline into the Nth line of the window."
+ (goto-char (point-min))
+ (when (re-search-forward (concat "^\\(" outline-regexp "\\)") nil t)
+ (beginning-of-line)
+ (recenter (prefix-numeric-value N))))
+
+;;; Org-goto
+
+(defvar org-goto-window-configuration nil)
+(defvar org-goto-marker nil)
+(defvar org-goto-map
+ (let ((map (make-sparse-keymap)))
+ (let ((cmds '(isearch-forward isearch-backward kill-ring-save set-mark-command mouse-drag-region universal-argument org-occur)) cmd)
+ (while (setq cmd (pop cmds))
+ (substitute-key-definition cmd cmd map global-map)))
+ (suppress-keymap map)
+ (org-defkey map "\C-m" 'org-goto-ret)
+ (org-defkey map [(return)] 'org-goto-ret)
+ (org-defkey map [(left)] 'org-goto-left)
+ (org-defkey map [(right)] 'org-goto-right)
+ (org-defkey map [(control ?g)] 'org-goto-quit)
+ (org-defkey map "\C-i" 'org-cycle)
+ (org-defkey map [(tab)] 'org-cycle)
+ (org-defkey map [(down)] 'outline-next-visible-heading)
+ (org-defkey map [(up)] 'outline-previous-visible-heading)
+ (if org-goto-auto-isearch
+ (if (fboundp 'define-key-after)
+ (define-key-after map [t] 'org-goto-local-auto-isearch)
+ nil)
+ (org-defkey map "q" 'org-goto-quit)
+ (org-defkey map "n" 'outline-next-visible-heading)
+ (org-defkey map "p" 'outline-previous-visible-heading)
+ (org-defkey map "f" 'outline-forward-same-level)
+ (org-defkey map "b" 'outline-backward-same-level)
+ (org-defkey map "u" 'outline-up-heading))
+ (org-defkey map "/" 'org-occur)
+ (org-defkey map "\C-c\C-n" 'outline-next-visible-heading)
+ (org-defkey map "\C-c\C-p" 'outline-previous-visible-heading)
+ (org-defkey map "\C-c\C-f" 'outline-forward-same-level)
+ (org-defkey map "\C-c\C-b" 'outline-backward-same-level)
+ (org-defkey map "\C-c\C-u" 'outline-up-heading)
+ map))
+
+(defconst org-goto-help
+"Browse buffer copy, to find location or copy text. Just type for auto-isearch.
+RET=jump to location [Q]uit and return to previous location
+\[Up]/[Down]=next/prev headline TAB=cycle visibility [/] org-occur")
+
+(defvar org-goto-start-pos) ; dynamically scoped parameter
+
+(defun org-goto (&optional alternative-interface)
+ "Look up a different location in the current file, keeping current visibility.
+
+When you want look-up or go to a different location in a document, the
+fastest way is often to fold the entire buffer and then dive into the tree.
+This method has the disadvantage, that the previous location will be folded,
+which may not be what you want.
+
+This command works around this by showing a copy of the current buffer
+in an indirect buffer, in overview mode. You can dive into the tree in
+that copy, use org-occur and incremental search to find a location.
+When pressing RET or `Q', the command returns to the original buffer in
+which the visibility is still unchanged. After RET is will also jump to
+the location selected in the indirect buffer and expose the
+the headline hierarchy above."
+ (interactive "P")
+ (let* ((org-refile-targets '((nil . (:maxlevel . 10))))
+ (org-refile-use-outline-path t)
+ (interface
+ (if (not alternative-interface)
+ org-goto-interface
+ (if (eq org-goto-interface 'outline)
+ 'outline-path-completion
+ 'outline)))
+ (org-goto-start-pos (point))
+ (selected-point
+ (if (eq interface 'outline)
+ (car (org-get-location (current-buffer) org-goto-help))
+ (nth 3 (org-refile-get-location "Goto: ")))))
+ (if selected-point
+ (progn
+ (org-mark-ring-push org-goto-start-pos)
+ (goto-char selected-point)
+ (if (or (org-invisible-p) (org-invisible-p2))
+ (org-show-context 'org-goto)))
+ (message "Quit"))))
+
+(defvar org-goto-selected-point nil) ; dynamically scoped parameter
+(defvar org-goto-exit-command nil) ; dynamically scoped parameter
+(defvar org-goto-local-auto-isearch-map) ; defined below
+
+(defun org-get-location (buf help)
+ "Let the user select a location in the Org-mode buffer BUF.
+This function uses a recursive edit. It returns the selected position
+or nil."
+ (let ((isearch-mode-map org-goto-local-auto-isearch-map)
+ (isearch-hide-immediately nil)
+ (isearch-search-fun-function
+ (lambda () 'org-goto-local-search-forward-headings))
+ (org-goto-selected-point org-goto-exit-command))
+ (save-excursion
+ (save-window-excursion
+ (delete-other-windows)
+ (and (get-buffer "*org-goto*") (kill-buffer "*org-goto*"))
+ (switch-to-buffer
+ (condition-case nil
+ (make-indirect-buffer (current-buffer) "*org-goto*")
+ (error (make-indirect-buffer (current-buffer) "*org-goto*"))))
+ (with-output-to-temp-buffer "*Help*"
+ (princ help))
+ (shrink-window-if-larger-than-buffer (get-buffer-window "*Help*"))
+ (setq buffer-read-only nil)
+ (let ((org-startup-truncated t)
+ (org-startup-folded nil)
+ (org-startup-align-all-tables nil))
+ (org-mode)
+ (org-overview))
+ (setq buffer-read-only t)
+ (if (and (boundp 'org-goto-start-pos)
+ (integer-or-marker-p org-goto-start-pos))
+ (let ((org-show-hierarchy-above t)
+ (org-show-siblings t)
+ (org-show-following-heading t))
+ (goto-char org-goto-start-pos)
+ (and (org-invisible-p) (org-show-context)))
+ (goto-char (point-min)))
+ (org-beginning-of-line)
+ (message "Select location and press RET")
+ (use-local-map org-goto-map)
+ (recursive-edit)
+ ))
+ (kill-buffer "*org-goto*")
+ (cons org-goto-selected-point org-goto-exit-command)))
+
+(defvar org-goto-local-auto-isearch-map (make-sparse-keymap))
+(set-keymap-parent org-goto-local-auto-isearch-map isearch-mode-map)
+(define-key org-goto-local-auto-isearch-map "\C-i" 'isearch-other-control-char)
+(define-key org-goto-local-auto-isearch-map "\C-m" 'isearch-other-control-char)
+
+(defun org-goto-local-search-forward-headings (string bound noerror)
+ "Search and make sure that anu matches are in headlines."
+ (catch 'return
+ (while (search-forward string bound noerror)
+ (when (let ((context (mapcar 'car (save-match-data (org-context)))))
+ (and (member :headline context)
+ (not (member :tags context))))
+ (throw 'return (point))))))
+
+(defun org-goto-local-auto-isearch ()
+ "Start isearch."
+ (interactive)
+ (goto-char (point-min))
+ (let ((keys (this-command-keys)))
+ (when (eq (lookup-key isearch-mode-map keys) 'isearch-printing-char)
+ (isearch-mode t)
+ (isearch-process-search-char (string-to-char keys)))))
+
+(defun org-goto-ret (&optional arg)
+ "Finish `org-goto' by going to the new location."
+ (interactive "P")
+ (setq org-goto-selected-point (point)
+ org-goto-exit-command 'return)
+ (throw 'exit nil))
+
+(defun org-goto-left ()
+ "Finish `org-goto' by going to the new location."
+ (interactive)
+ (if (org-on-heading-p)
+ (progn
+ (beginning-of-line 1)
+ (setq org-goto-selected-point (point)
+ org-goto-exit-command 'left)
+ (throw 'exit nil))
+ (error "Not on a heading")))
+
+(defun org-goto-right ()
+ "Finish `org-goto' by going to the new location."
+ (interactive)
+ (if (org-on-heading-p)
+ (progn
+ (setq org-goto-selected-point (point)
+ org-goto-exit-command 'right)
+ (throw 'exit nil))
+ (error "Not on a heading")))
+
+(defun org-goto-quit ()
+ "Finish `org-goto' without cursor motion."
+ (interactive)
+ (setq org-goto-selected-point nil)
+ (setq org-goto-exit-command 'quit)
+ (throw 'exit nil))
+
+;;; Indirect buffer display of subtrees
+
+(defvar org-indirect-dedicated-frame nil
+ "This is the frame being used for indirect tree display.")
+(defvar org-last-indirect-buffer nil)
+
+(defun org-tree-to-indirect-buffer (&optional arg)
+ "Create indirect buffer and narrow it to current subtree.
+With numerical prefix ARG, go up to this level and then take that tree.
+If ARG is negative, go up that many levels.
+If `org-indirect-buffer-display' is not `new-frame', the command removes the
+indirect buffer previously made with this command, to avoid proliferation of
+indirect buffers. However, when you call the command with a `C-u' prefix, or
+when `org-indirect-buffer-display' is `new-frame', the last buffer
+is kept so that you can work with several indirect buffers at the same time.
+If `org-indirect-buffer-display' is `dedicated-frame', the C-u prefix also
+requests that a new frame be made for the new buffer, so that the dedicated
+frame is not changed."
+ (interactive "P")
+ (let ((cbuf (current-buffer))
+ (cwin (selected-window))
+ (pos (point))
+ beg end level heading ibuf)
+ (save-excursion
+ (org-back-to-heading t)
+ (when (numberp arg)
+ (setq level (org-outline-level))
+ (if (< arg 0) (setq arg (+ level arg)))
+ (while (> (setq level (org-outline-level)) arg)
+ (outline-up-heading 1 t)))
+ (setq beg (point)
+ heading (org-get-heading))
+ (org-end-of-subtree t) (setq end (point)))
+ (if (and (buffer-live-p org-last-indirect-buffer)
+ (not (eq org-indirect-buffer-display 'new-frame))
+ (not arg))
+ (kill-buffer org-last-indirect-buffer))
+ (setq ibuf (org-get-indirect-buffer cbuf)
+ org-last-indirect-buffer ibuf)
+ (cond
+ ((or (eq org-indirect-buffer-display 'new-frame)
+ (and arg (eq org-indirect-buffer-display 'dedicated-frame)))
+ (select-frame (make-frame))
+ (delete-other-windows)
+ (switch-to-buffer ibuf)
+ (org-set-frame-title heading))
+ ((eq org-indirect-buffer-display 'dedicated-frame)
+ (raise-frame
+ (select-frame (or (and org-indirect-dedicated-frame
+ (frame-live-p org-indirect-dedicated-frame)
+ org-indirect-dedicated-frame)
+ (setq org-indirect-dedicated-frame (make-frame)))))
+ (delete-other-windows)
+ (switch-to-buffer ibuf)
+ (org-set-frame-title (concat "Indirect: " heading)))
+ ((eq org-indirect-buffer-display 'current-window)
+ (switch-to-buffer ibuf))
+ ((eq org-indirect-buffer-display 'other-window)
+ (pop-to-buffer ibuf))
+ (t (error "Invalid value.")))
+ (if (featurep 'xemacs)
+ (save-excursion (org-mode) (turn-on-font-lock)))
+ (narrow-to-region beg end)
+ (show-all)
+ (goto-char pos)
+ (and (window-live-p cwin) (select-window cwin))))
+
+(defun org-get-indirect-buffer (&optional buffer)
+ (setq buffer (or buffer (current-buffer)))
+ (let ((n 1) (base (buffer-name buffer)) bname)
+ (while (buffer-live-p
+ (get-buffer (setq bname (concat base "-" (number-to-string n)))))
+ (setq n (1+ n)))
+ (condition-case nil
+ (make-indirect-buffer buffer bname 'clone)
+ (error (make-indirect-buffer buffer bname)))))
+
+(defun org-set-frame-title (title)
+ "Set the title of the current frame to the string TITLE."
+ ;; FIXME: how to name a single frame in XEmacs???
+ (unless (featurep 'xemacs)
+ (modify-frame-parameters (selected-frame) (list (cons 'name title)))))
+
+;;;; Structure editing
+
+;;; Inserting headlines
+
+(defun org-insert-heading (&optional force-heading)
+ "Insert a new heading or item with same depth at point.
+If point is in a plain list and FORCE-HEADING is nil, create a new list item.
+If point is at the beginning of a headline, insert a sibling before the
+current headline. If point is not at the beginning, do not split the line,
+but create the new hedline after the current line."
+ (interactive "P")
+ (if (= (buffer-size) 0)
+ (insert "\n* ")
+ (when (or force-heading (not (org-insert-item)))
+ (let* ((head (save-excursion
+ (condition-case nil
+ (progn
+ (org-back-to-heading)
+ (match-string 0))
+ (error "*"))))
+ (blank (cdr (assq 'heading org-blank-before-new-entry)))
+ pos)
+ (cond
+ ((and (org-on-heading-p) (bolp)
+ (or (bobp)
+ (save-excursion (backward-char 1) (not (org-invisible-p)))))
+ ;; insert before the current line
+ (open-line (if blank 2 1)))
+ ((and (bolp)
+ (or (bobp)
+ (save-excursion
+ (backward-char 1) (not (org-invisible-p)))))
+ ;; insert right here
+ nil)
+ (t
+ ;; in the middle of the line
+ (org-show-entry)
+ (let ((split
+ (org-get-alist-option org-M-RET-may-split-line 'headline))
+ tags pos)
+ (if (org-on-heading-p)
+ (progn
+ (looking-at ".*?\\([ \t]+\\(:[[:alnum:]_@:]+:\\)\\)?[ \t]*$")
+ (setq tags (and (match-end 2) (match-string 2)))
+ (and (match-end 1)
+ (delete-region (match-beginning 1) (match-end 1)))
+ (setq pos (point-at-bol))
+ (or split (end-of-line 1))
+ (delete-horizontal-space)
+ (newline (if blank 2 1))
+ (when tags
+ (save-excursion
+ (goto-char pos)
+ (end-of-line 1)
+ (insert " " tags)
+ (org-set-tags nil 'align))))
+ (or split (end-of-line 1))
+ (newline (if blank 2 1))))))
+ (insert head) (just-one-space)
+ (setq pos (point))
+ (end-of-line 1)
+ (unless (= (point) pos) (just-one-space) (backward-delete-char 1))
+ (run-hooks 'org-insert-heading-hook)))))
+
+(defun org-get-heading (&optional no-tags)
+ "Return the heading of the current entry, without the stars."
+ (save-excursion
+ (org-back-to-heading t)
+ (if (looking-at
+ (if no-tags
+ (org-re "\\*+[ \t]+\\([^\n\r]*?\\)\\([ \t]+:[[:alnum:]:_@]+:[ \t]*\\)?$")
+ "\\*+[ \t]+\\([^\r\n]*\\)"))
+ (match-string 1) "")))
+
+(defun org-insert-heading-after-current ()
+ "Insert a new heading with same level as current, after current subtree."
+ (interactive)
+ (org-back-to-heading)
+ (org-insert-heading)
+ (org-move-subtree-down)
+ (end-of-line 1))
+
+(defun org-insert-todo-heading (arg)
+ "Insert a new heading with the same level and TODO state as current heading.
+If the heading has no TODO state, or if the state is DONE, use the first
+state (TODO by default). Also with prefix arg, force first state."
+ (interactive "P")
+ (when (not (org-insert-item 'checkbox))
+ (org-insert-heading)
+ (save-excursion
+ (org-back-to-heading)
+ (outline-previous-heading)
+ (looking-at org-todo-line-regexp))
+ (if (or arg
+ (not (match-beginning 2))
+ (member (match-string 2) org-done-keywords))
+ (insert (car org-todo-keywords-1) " ")
+ (insert (match-string 2) " "))))
+
+(defun org-insert-subheading (arg)
+ "Insert a new subheading and demote it.
+Works for outline headings and for plain lists alike."
+ (interactive "P")
+ (org-insert-heading arg)
+ (cond
+ ((org-on-heading-p) (org-do-demote))
+ ((org-at-item-p) (org-indent-item 1))))
+
+(defun org-insert-todo-subheading (arg)
+ "Insert a new subheading with TODO keyword or checkbox and demote it.
+Works for outline headings and for plain lists alike."
+ (interactive "P")
+ (org-insert-todo-heading arg)
+ (cond
+ ((org-on-heading-p) (org-do-demote))
+ ((org-at-item-p) (org-indent-item 1))))
+
+;;; Promotion and Demotion
+
+(defun org-promote-subtree ()
+ "Promote the entire subtree.
+See also `org-promote'."
+ (interactive)
+ (save-excursion
+ (org-map-tree 'org-promote))
+ (org-fix-position-after-promote))
+
+(defun org-demote-subtree ()
+ "Demote the entire subtree. See `org-demote'.
+See also `org-promote'."
+ (interactive)
+ (save-excursion
+ (org-map-tree 'org-demote))
+ (org-fix-position-after-promote))
+
+
+(defun org-do-promote ()
+ "Promote the current heading higher up the tree.
+If the region is active in `transient-mark-mode', promote all headings
+in the region."
+ (interactive)
+ (save-excursion
+ (if (org-region-active-p)
+ (org-map-region 'org-promote (region-beginning) (region-end))
+ (org-promote)))
+ (org-fix-position-after-promote))
+
+(defun org-do-demote ()
+ "Demote the current heading lower down the tree.
+If the region is active in `transient-mark-mode', demote all headings
+in the region."
+ (interactive)
+ (save-excursion
+ (if (org-region-active-p)
+ (org-map-region 'org-demote (region-beginning) (region-end))
+ (org-demote)))
+ (org-fix-position-after-promote))
+
+(defun org-fix-position-after-promote ()
+ "Make sure that after pro/demotion cursor position is right."
+ (let ((pos (point)))
+ (when (save-excursion
+ (beginning-of-line 1)
+ (looking-at org-todo-line-regexp)
+ (or (equal pos (match-end 1)) (equal pos (match-end 2))))
+ (cond ((eobp) (insert " "))
+ ((eolp) (insert " "))
+ ((equal (char-after) ?\ ) (forward-char 1))))))
+
+(defun org-reduced-level (l)
+ (if org-odd-levels-only (1+ (floor (/ l 2))) l))
+
+(defun org-get-valid-level (level &optional change)
+ "Rectify a level change under the influence of `org-odd-levels-only'
+LEVEL is a current level, CHANGE is by how much the level should be
+modified. Even if CHANGE is nil, LEVEL may be returned modified because
+even level numbers will become the next higher odd number."
+ (if org-odd-levels-only
+ (cond ((or (not change) (= 0 change)) (1+ (* 2 (/ level 2))))
+ ((> change 0) (1+ (* 2 (/ (+ level (* 2 change)) 2))))
+ ((< change 0) (max 1 (1+ (* 2 (/ (+ level (* 2 change)) 2))))))
+ (max 1 (+ level change))))
+
+(if (boundp 'define-obsolete-function-alias)
+ (if (or (featurep 'xemacs) (< emacs-major-version 23))
+ (define-obsolete-function-alias 'org-get-legal-level
+ 'org-get-valid-level)
+ (define-obsolete-function-alias 'org-get-legal-level
+ 'org-get-valid-level "23.1")))
+
+(defun org-promote ()
+ "Promote the current heading higher up the tree.
+If the region is active in `transient-mark-mode', promote all headings
+in the region."
+ (org-back-to-heading t)
+ (let* ((level (save-match-data (funcall outline-level)))
+ (up-head (concat (make-string (org-get-valid-level level -1) ?*) " "))
+ (diff (abs (- level (length up-head) -1))))
+ (if (= level 1) (error "Cannot promote to level 0. UNDO to recover if necessary"))
+ (replace-match up-head nil t)
+ ;; Fixup tag positioning
+ (and org-auto-align-tags (org-set-tags nil t))
+ (if org-adapt-indentation (org-fixup-indentation (- diff)))))
+
+(defun org-demote ()
+ "Demote the current heading lower down the tree.
+If the region is active in `transient-mark-mode', demote all headings
+in the region."
+ (org-back-to-heading t)
+ (let* ((level (save-match-data (funcall outline-level)))
+ (down-head (concat (make-string (org-get-valid-level level 1) ?*) " "))
+ (diff (abs (- level (length down-head) -1))))
+ (replace-match down-head nil t)
+ ;; Fixup tag positioning
+ (and org-auto-align-tags (org-set-tags nil t))
+ (if org-adapt-indentation (org-fixup-indentation diff))))
+
+(defun org-map-tree (fun)
+ "Call FUN for every heading underneath the current one."
+ (org-back-to-heading)
+ (let ((level (funcall outline-level)))
+ (save-excursion
+ (funcall fun)
+ (while (and (progn
+ (outline-next-heading)
+ (> (funcall outline-level) level))
+ (not (eobp)))
+ (funcall fun)))))
+
+(defun org-map-region (fun beg end)
+ "Call FUN for every heading between BEG and END."
+ (let ((org-ignore-region t))
+ (save-excursion
+ (setq end (copy-marker end))
+ (goto-char beg)
+ (if (and (re-search-forward (concat "^" outline-regexp) nil t)
+ (< (point) end))
+ (funcall fun))
+ (while (and (progn
+ (outline-next-heading)
+ (< (point) end))
+ (not (eobp)))
+ (funcall fun)))))
+
+(defun org-fixup-indentation (diff)
+ "Change the indentation in the current entry by DIFF
+However, if any line in the current entry has no indentation, or if it
+would end up with no indentation after the change, nothing at all is done."
+ (save-excursion
+ (let ((end (save-excursion (outline-next-heading)
+ (point-marker)))
+ (prohibit (if (> diff 0)
+ "^\\S-"
+ (concat "^ \\{0," (int-to-string (- diff)) "\\}\\S-")))
+ col)
+ (unless (save-excursion (end-of-line 1)
+ (re-search-forward prohibit end t))
+ (while (and (< (point) end)
+ (re-search-forward "^[ \t]+" end t))
+ (goto-char (match-end 0))
+ (setq col (current-column))
+ (if (< diff 0) (replace-match ""))
+ (indent-to (+ diff col))))
+ (move-marker end nil))))
+
+(defun org-convert-to-odd-levels ()
+ "Convert an org-mode file with all levels allowed to one with odd levels.
+This will leave level 1 alone, convert level 2 to level 3, level 3 to
+level 5 etc."
+ (interactive)
+ (when (yes-or-no-p "Are you sure you want to globally change levels to odd? ")
+ (let ((org-odd-levels-only nil) n)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward "^\\*\\*+ " nil t)
+ (setq n (- (length (match-string 0)) 2))
+ (while (>= (setq n (1- n)) 0)
+ (org-demote))
+ (end-of-line 1))))))
+
+
+(defun org-convert-to-oddeven-levels ()
+ "Convert an org-mode file with only odd levels to one with odd and even levels.
+This promotes level 3 to level 2, level 5 to level 3 etc. If the file contains a
+section with an even level, conversion would destroy the structure of the file. An error
+is signaled in this case."
+ (interactive)
+ (goto-char (point-min))
+ ;; First check if there are no even levels
+ (when (re-search-forward "^\\(\\*\\*\\)+ " nil t)
+ (org-show-context t)
+ (error "Not all levels are odd in this file. Conversion not possible."))
+ (when (yes-or-no-p "Are you sure you want to globally change levels to odd-even? ")
+ (let ((org-odd-levels-only nil) n)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward "^\\*\\*+ " nil t)
+ (setq n (/ (1- (length (match-string 0))) 2))
+ (while (>= (setq n (1- n)) 0)
+ (org-promote))
+ (end-of-line 1))))))
+
+(defun org-tr-level (n)
+ "Make N odd if required."
+ (if org-odd-levels-only (1+ (/ n 2)) n))
+
+;;; Vertical tree motion, cutting and pasting of subtrees
+
+(defun org-move-subtree-up (&optional arg)
+ "Move the current subtree up past ARG headlines of the same level."
+ (interactive "p")
+ (org-move-subtree-down (- (prefix-numeric-value arg))))
+
+(defun org-move-subtree-down (&optional arg)
+ "Move the current subtree down past ARG headlines of the same level."
+ (interactive "p")
+ (setq arg (prefix-numeric-value arg))
+ (let ((movfunc (if (> arg 0) 'outline-get-next-sibling
+ 'outline-get-last-sibling))
+ (ins-point (make-marker))
+ (cnt (abs arg))
+ beg beg0 end txt folded ne-beg ne-end ne-ins ins-end)
+ ;; Select the tree
+ (org-back-to-heading)
+ (setq beg0 (point))
+ (save-excursion
+ (setq ne-beg (org-back-over-empty-lines))
+ (setq beg (point)))
+ (save-match-data
+ (save-excursion (outline-end-of-heading)
+ (setq folded (org-invisible-p)))
+ (outline-end-of-subtree))
+ (outline-next-heading)
+ (setq ne-end (org-back-over-empty-lines))
+ (setq end (point))
+ (goto-char beg0)
+ (when (and (> arg 0) (org-first-sibling-p) (< ne-end ne-beg))
+ ;; include less whitespace
+ (save-excursion
+ (goto-char beg)
+ (forward-line (- ne-beg ne-end))
+ (setq beg (point))))
+ ;; Find insertion point, with error handling
+ (while (> cnt 0)
+ (or (and (funcall movfunc) (looking-at outline-regexp))
+ (progn (goto-char beg0)
+ (error "Cannot move past superior level or buffer limit")))
+ (setq cnt (1- cnt)))
+ (if (> arg 0)
+ ;; Moving forward - still need to move over subtree
+ (progn (org-end-of-subtree t t)
+ (save-excursion
+ (org-back-over-empty-lines)
+ (or (bolp) (newline)))))
+ (setq ne-ins (org-back-over-empty-lines))
+ (move-marker ins-point (point))
+ (setq txt (buffer-substring beg end))
+ (delete-region beg end)
+ (outline-flag-region (1- beg) beg nil)
+ (outline-flag-region (1- (point)) (point) nil)
+ (insert txt)
+ (or (bolp) (insert "\n"))
+ (setq ins-end (point))
+ (goto-char ins-point)
+ (org-skip-whitespace)
+ (when (and (< arg 0)
+ (org-first-sibling-p)
+ (> ne-ins ne-beg))
+ ;; Move whitespace back to beginning
+ (save-excursion
+ (goto-char ins-end)
+ (let ((kill-whole-line t))
+ (kill-line (- ne-ins ne-beg)) (point)))
+ (insert (make-string (- ne-ins ne-beg) ?\n)))
+ (move-marker ins-point nil)
+ (org-compact-display-after-subtree-move)
+ (unless folded
+ (org-show-entry)
+ (show-children)
+ (org-cycle-hide-drawers 'children))))
+
+(defvar org-subtree-clip ""
+ "Clipboard for cut and paste of subtrees.
+This is actually only a copy of the kill, because we use the normal kill
+ring. We need it to check if the kill was created by `org-copy-subtree'.")
+
+(defvar org-subtree-clip-folded nil
+ "Was the last copied subtree folded?
+This is used to fold the tree back after pasting.")
+
+(defun org-cut-subtree (&optional n)
+ "Cut the current subtree into the clipboard.
+With prefix arg N, cut this many sequential subtrees.
+This is a short-hand for marking the subtree and then cutting it."
+ (interactive "p")
+ (org-copy-subtree n 'cut))
+
+(defun org-copy-subtree (&optional n cut)
+ "Cut the current subtree into the clipboard.
+With prefix arg N, cut this many sequential subtrees.
+This is a short-hand for marking the subtree and then copying it.
+If CUT is non-nil, actually cut the subtree."
+ (interactive "p")
+ (let (beg end folded (beg0 (point)))
+ (if (interactive-p)
+ (org-back-to-heading nil) ; take what looks like a subtree
+ (org-back-to-heading t)) ; take what is really there
+ (org-back-over-empty-lines)
+ (setq beg (point))
+ (skip-chars-forward " \t\r\n")
+ (save-match-data
+ (save-excursion (outline-end-of-heading)
+ (setq folded (org-invisible-p)))
+ (condition-case nil
+ (outline-forward-same-level (1- n))
+ (error nil))
+ (org-end-of-subtree t t))
+ (org-back-over-empty-lines)
+ (setq end (point))
+ (goto-char beg0)
+ (when (> end beg)
+ (setq org-subtree-clip-folded folded)
+ (if cut (kill-region beg end) (copy-region-as-kill beg end))
+ (setq org-subtree-clip (current-kill 0))
+ (message "%s: Subtree(s) with %d characters"
+ (if cut "Cut" "Copied")
+ (length org-subtree-clip)))))
+
+(defun org-paste-subtree (&optional level tree)
+ "Paste the clipboard as a subtree, with modification of headline level.
+The entire subtree is promoted or demoted in order to match a new headline
+level. By default, the new level is derived from the visible headings
+before and after the insertion point, and taken to be the inferior headline
+level of the two. So if the previous visible heading is level 3 and the
+next is level 4 (or vice versa), level 4 will be used for insertion.
+This makes sure that the subtree remains an independent subtree and does
+not swallow low level entries.
+
+You can also force a different level, either by using a numeric prefix
+argument, or by inserting the heading marker by hand. For example, if the
+cursor is after \"*****\", then the tree will be shifted to level 5.
+
+If you want to insert the tree as is, just use \\[yank].
+
+If optional TREE is given, use this text instead of the kill ring."
+ (interactive "P")
+ (unless (org-kill-is-subtree-p tree)
+ (error "%s"
+ (substitute-command-keys
+ "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway")))
+ (let* ((txt (or tree (and kill-ring (current-kill 0))))
+ (^re (concat "^\\(" outline-regexp "\\)"))
+ (re (concat "\\(" outline-regexp "\\)"))
+ (^re_ (concat "\\(\\*+\\)[ \t]*"))
+
+ (old-level (if (string-match ^re txt)
+ (- (match-end 0) (match-beginning 0) 1)
+ -1))
+ (force-level (cond (level (prefix-numeric-value level))
+ ((string-match
+ ^re_ (buffer-substring (point-at-bol) (point)))
+ (- (match-end 1) (match-beginning 1)))
+ (t nil)))
+ (previous-level (save-excursion
+ (condition-case nil
+ (progn
+ (outline-previous-visible-heading 1)
+ (if (looking-at re)
+ (- (match-end 0) (match-beginning 0) 1)
+ 1))
+ (error 1))))
+ (next-level (save-excursion
+ (condition-case nil
+ (progn
+ (or (looking-at outline-regexp)
+ (outline-next-visible-heading 1))
+ (if (looking-at re)
+ (- (match-end 0) (match-beginning 0) 1)
+ 1))
+ (error 1))))
+ (new-level (or force-level (max previous-level next-level)))
+ (shift (if (or (= old-level -1)
+ (= new-level -1)
+ (= old-level new-level))
+ 0
+ (- new-level old-level)))
+ (delta (if (> shift 0) -1 1))
+ (func (if (> shift 0) 'org-demote 'org-promote))
+ (org-odd-levels-only nil)
+ beg end)
+ ;; Remove the forced level indicator
+ (if force-level
+ (delete-region (point-at-bol) (point)))
+ ;; Paste
+ (beginning-of-line 1)
+ (org-back-over-empty-lines)
+ (setq beg (point))
+ (insert-before-markers txt)
+ (unless (string-match "\n\\'" txt) (insert "\n"))
+ (setq end (point))
+ (goto-char beg)
+ (skip-chars-forward " \t\n\r")
+ (setq beg (point))
+ ;; Shift if necessary
+ (unless (= shift 0)
+ (save-restriction
+ (narrow-to-region beg end)
+ (while (not (= shift 0))
+ (org-map-region func (point-min) (point-max))
+ (setq shift (+ delta shift)))
+ (goto-char (point-min))))
+ (when (interactive-p)
+ (message "Clipboard pasted as level %d subtree" new-level))
+ (if (and kill-ring
+ (eq org-subtree-clip (current-kill 0))
+ org-subtree-clip-folded)
+ ;; The tree was folded before it was killed/copied
+ (hide-subtree))))
+
+(defun org-kill-is-subtree-p (&optional txt)
+ "Check if the current kill is an outline subtree, or a set of trees.
+Returns nil if kill does not start with a headline, or if the first
+headline level is not the largest headline level in the tree.
+So this will actually accept several entries of equal levels as well,
+which is OK for `org-paste-subtree'.
+If optional TXT is given, check this string instead of the current kill."
+ (let* ((kill (or txt (and kill-ring (current-kill 0)) ""))
+ (start-level (and kill
+ (string-match (concat "\\`\\([ \t\n\r]*?\n\\)?\\("
+ org-outline-regexp "\\)")
+ kill)
+ (- (match-end 2) (match-beginning 2) 1)))
+ (re (concat "^" org-outline-regexp))
+ (start (1+ (match-beginning 2))))
+ (if (not start-level)
+ (progn
+ nil) ;; does not even start with a heading
+ (catch 'exit
+ (while (setq start (string-match re kill (1+ start)))
+ (when (< (- (match-end 0) (match-beginning 0) 1) start-level)
+ (throw 'exit nil)))
+ t))))
+
+(defun org-narrow-to-subtree ()
+ "Narrow buffer to the current subtree."
+ (interactive)
+ (save-excursion
+ (save-match-data
+ (narrow-to-region
+ (progn (org-back-to-heading) (point))
+ (progn (org-end-of-subtree t t) (point))))))
+
+
+;;; Outline Sorting
+
+(defun org-sort (with-case)
+ "Call `org-sort-entries-or-items' or `org-table-sort-lines'.
+Optional argument WITH-CASE means sort case-sensitively."
+ (interactive "P")
+ (if (org-at-table-p)
+ (org-call-with-arg 'org-table-sort-lines with-case)
+ (org-call-with-arg 'org-sort-entries-or-items with-case)))
+
+(defun org-sort-remove-invisible (s)
+ (remove-text-properties 0 (length s) org-rm-props s)
+ (while (string-match org-bracket-link-regexp s)
+ (setq s (replace-match (if (match-end 2)
+ (match-string 3 s)
+ (match-string 1 s)) t t s)))
+ s)
+
+(defvar org-priority-regexp) ; defined later in the file
+
+(defun org-sort-entries-or-items (&optional with-case sorting-type getkey-func property)
+ "Sort entries on a certain level of an outline tree.
+If there is an active region, the entries in the region are sorted.
+Else, if the cursor is before the first entry, sort the top-level items.
+Else, the children of the entry at point are sorted.
+
+Sorting can be alphabetically, numerically, and by date/time as given by
+the first time stamp in the entry. The command prompts for the sorting
+type unless it has been given to the function through the SORTING-TYPE
+argument, which needs to a character, any of (?n ?N ?a ?A ?t ?T ?p ?P ?f ?F).
+If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies a function to be
+called with point at the beginning of the record. It must return either
+a string or a number that should serve as the sorting key for that record.
+
+Comparing entries ignores case by default. However, with an optional argument
+WITH-CASE, the sorting considers case as well."
+ (interactive "P")
+ (let ((case-func (if with-case 'identity 'downcase))
+ start beg end stars re re2
+ txt what tmp plain-list-p)
+ ;; Find beginning and end of region to sort
+ (cond
+ ((org-region-active-p)
+ ;; we will sort the region
+ (setq end (region-end)
+ what "region")
+ (goto-char (region-beginning))
+ (if (not (org-on-heading-p)) (outline-next-heading))
+ (setq start (point)))
+ ((org-at-item-p)
+ ;; we will sort this plain list
+ (org-beginning-of-item-list) (setq start (point))
+ (org-end-of-item-list) (setq end (point))
+ (goto-char start)
+ (setq plain-list-p t
+ what "plain list"))
+ ((or (org-on-heading-p)
+ (condition-case nil (progn (org-back-to-heading) t) (error nil)))
+ ;; we will sort the children of the current headline
+ (org-back-to-heading)
+ (setq start (point)
+ end (progn (org-end-of-subtree t t)
+ (org-back-over-empty-lines)
+ (point))
+ what "children")
+ (goto-char start)
+ (show-subtree)
+ (outline-next-heading))
+ (t
+ ;; we will sort the top-level entries in this file
+ (goto-char (point-min))
+ (or (org-on-heading-p) (outline-next-heading))
+ (setq start (point) end (point-max) what "top-level")
+ (goto-char start)
+ (show-all)))
+
+ (setq beg (point))
+ (if (>= beg end) (error "Nothing to sort"))
+
+ (unless plain-list-p
+ (looking-at "\\(\\*+\\)")
+ (setq stars (match-string 1)
+ re (concat "^" (regexp-quote stars) " +")
+ re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[^*]")
+ txt (buffer-substring beg end))
+ (if (not (equal (substring txt -1) "\n")) (setq txt (concat txt "\n")))
+ (if (and (not (equal stars "*")) (string-match re2 txt))
+ (error "Region to sort contains a level above the first entry")))
+
+ (unless sorting-type
+ (message
+ (if plain-list-p
+ "Sort %s: [a]lpha [n]umeric [t]ime [f]unc A/N/T/F means reversed:"
+ "Sort %s: [a]lpha [n]umeric [t]ime [p]riority p[r]operty todo[o]rder [f]unc A/N/T/P/O/F means reversed:")
+ what)
+ (setq sorting-type (read-char-exclusive))
+
+ (and (= (downcase sorting-type) ?f)
+ (setq getkey-func
+ (completing-read "Sort using function: "
+ obarray 'fboundp t nil nil))
+ (setq getkey-func (intern getkey-func)))
+
+ (and (= (downcase sorting-type) ?r)
+ (setq property
+ (completing-read "Property: "
+ (mapcar 'list (org-buffer-property-keys t))
+ nil t))))
+
+ (message "Sorting entries...")
+
+ (save-restriction
+ (narrow-to-region start end)
+
+ (let ((dcst (downcase sorting-type))
+ (now (current-time)))
+ (sort-subr
+ (/= dcst sorting-type)
+ ;; This function moves to the beginning character of the "record" to
+ ;; be sorted.
+ (if plain-list-p
+ (lambda nil
+ (if (org-at-item-p) t (goto-char (point-max))))
+ (lambda nil
+ (if (re-search-forward re nil t)
+ (goto-char (match-beginning 0))
+ (goto-char (point-max)))))
+ ;; This function moves to the last character of the "record" being
+ ;; sorted.
+ (if plain-list-p
+ 'org-end-of-item
+ (lambda nil
+ (save-match-data
+ (condition-case nil
+ (outline-forward-same-level 1)
+ (error
+ (goto-char (point-max)))))))
+
+ ;; This function returns the value that gets sorted against.
+ (if plain-list-p
+ (lambda nil
+ (when (looking-at "[ \t]*[-+*0-9.)]+[ \t]+")
+ (cond
+ ((= dcst ?n)
+ (string-to-number (buffer-substring (match-end 0)
+ (point-at-eol))))
+ ((= dcst ?a)
+ (buffer-substring (match-end 0) (point-at-eol)))
+ ((= dcst ?t)
+ (if (re-search-forward org-ts-regexp
+ (point-at-eol) t)
+ (org-time-string-to-time (match-string 0))
+ now))
+ ((= dcst ?f)
+ (if getkey-func
+ (progn
+ (setq tmp (funcall getkey-func))
+ (if (stringp tmp) (setq tmp (funcall case-func tmp)))
+ tmp)
+ (error "Invalid key function `%s'" getkey-func)))
+ (t (error "Invalid sorting type `%c'" sorting-type)))))
+ (lambda nil
+ (cond
+ ((= dcst ?n)
+ (if (looking-at outline-regexp)
+ (string-to-number (buffer-substring (match-end 0)
+ (point-at-eol)))
+ nil))
+ ((= dcst ?a)
+ (funcall case-func (buffer-substring (point-at-bol)
+ (point-at-eol))))
+ ((= dcst ?t)
+ (if (re-search-forward org-ts-regexp
+ (save-excursion
+ (forward-line 2)
+ (point)) t)
+ (org-time-string-to-time (match-string 0))
+ now))
+ ((= dcst ?p)
+ (if (re-search-forward org-priority-regexp (point-at-eol) t)
+ (string-to-char (match-string 2))
+ org-default-priority))
+ ((= dcst ?r)
+ (or (org-entry-get nil property) ""))
+ ((= dcst ?o)
+ (if (looking-at org-complex-heading-regexp)
+ (- 9999 (length (member (match-string 2)
+ org-todo-keywords-1)))))
+ ((= dcst ?f)
+ (if getkey-func
+ (progn
+ (setq tmp (funcall getkey-func))
+ (if (stringp tmp) (setq tmp (funcall case-func tmp)))
+ tmp)
+ (error "Invalid key function `%s'" getkey-func)))
+ (t (error "Invalid sorting type `%c'" sorting-type)))))
+ nil
+ (cond
+ ((= dcst ?a) 'string<)
+ ((= dcst ?t) 'time-less-p)
+ (t nil)))))
+ (message "Sorting entries...done")))
+
+(defun org-do-sort (table what &optional with-case sorting-type)
+ "Sort TABLE of WHAT according to SORTING-TYPE.
+The user will be prompted for the SORTING-TYPE if the call to this
+function does not specify it. WHAT is only for the prompt, to indicate
+what is being sorted. The sorting key will be extracted from
+the car of the elements of the table.
+If WITH-CASE is non-nil, the sorting will be case-sensitive."
+ (unless sorting-type
+ (message
+ "Sort %s: [a]lphabetic. [n]umeric. [t]ime. A/N/T means reversed:"
+ what)
+ (setq sorting-type (read-char-exclusive)))
+ (let ((dcst (downcase sorting-type))
+ extractfun comparefun)
+ ;; Define the appropriate functions
+ (cond
+ ((= dcst ?n)
+ (setq extractfun 'string-to-number
+ comparefun (if (= dcst sorting-type) '< '>)))
+ ((= dcst ?a)
+ (setq extractfun (if with-case (lambda(x) (org-sort-remove-invisible x))
+ (lambda(x) (downcase (org-sort-remove-invisible x))))
+ comparefun (if (= dcst sorting-type)
+ 'string<
+ (lambda (a b) (and (not (string< a b))
+ (not (string= a b)))))))
+ ((= dcst ?t)
+ (setq extractfun
+ (lambda (x)
+ (if (string-match org-ts-regexp x)
+ (time-to-seconds
+ (org-time-string-to-time (match-string 0 x)))
+ 0))
+ comparefun (if (= dcst sorting-type) '< '>)))
+ (t (error "Invalid sorting type `%c'" sorting-type)))
+
+ (sort (mapcar (lambda (x) (cons (funcall extractfun (car x)) (cdr x)))
+ table)
+ (lambda (a b) (funcall comparefun (car a) (car b))))))
+
+;;;; Plain list items, including checkboxes
+
+;;; Plain list items
+
+(defun org-at-item-p ()
+ "Is point in a line starting a hand-formatted item?"
+ (let ((llt org-plain-list-ordered-item-terminator))
+ (save-excursion
+ (goto-char (point-at-bol))
+ (looking-at
+ (cond
+ ((eq llt t) "\\([ \t]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[ \t]+\\*\\)\\( \\|$\\)")
+ ((= llt ?.) "\\([ \t]*\\([-+]\\|\\([0-9]+\\.\\)\\)\\|[ \t]+\\*\\)\\( \\|$\\)")
+ ((= llt ?\)) "\\([ \t]*\\([-+]\\|\\([0-9]+))\\)\\|[ \t]+\\*\\)\\( \\|$\\)")
+ (t (error "Invalid value of `org-plain-list-ordered-item-terminator'")))))))
+
+(defun org-in-item-p ()
+ "It the cursor inside a plain list item.
+Does not have to be the first line."
+ (save-excursion
+ (condition-case nil
+ (progn
+ (org-beginning-of-item)
+ (org-at-item-p)
+ t)
+ (error nil))))
+
+(defun org-insert-item (&optional checkbox)
+ "Insert a new item at the current level.
+Return t when things worked, nil when we are not in an item."
+ (when (save-excursion
+ (condition-case nil
+ (progn
+ (org-beginning-of-item)
+ (org-at-item-p)
+ (if (org-invisible-p) (error "Invisible item"))
+ t)
+ (error nil)))
+ (let* ((bul (match-string 0))
+ (eow (save-excursion (beginning-of-line 1) (looking-at "[ \t]*")
+ (match-end 0)))
+ (blank (cdr (assq 'plain-list-item org-blank-before-new-entry)))
+ pos)
+ (cond
+ ((and (org-at-item-p) (<= (point) eow))
+ ;; before the bullet
+ (beginning-of-line 1)
+ (open-line (if blank 2 1)))
+ ((<= (point) eow)
+ (beginning-of-line 1))
+ (t
+ (unless (org-get-alist-option org-M-RET-may-split-line 'item)
+ (end-of-line 1)
+ (delete-horizontal-space))
+ (newline (if blank 2 1))))
+ (insert bul (if checkbox "[ ]" ""))
+ (just-one-space)
+ (setq pos (point))
+ (end-of-line 1)
+ (unless (= (point) pos) (just-one-space) (backward-delete-char 1)))
+ (org-maybe-renumber-ordered-list)
+ (and checkbox (org-update-checkbox-count-maybe))
+ t))
+
+;;; Checkboxes
+
+(defun org-at-item-checkbox-p ()
+ "Is point at a line starting a plain-list item with a checklet?"
+ (and (org-at-item-p)
+ (save-excursion
+ (goto-char (match-end 0))
+ (skip-chars-forward " \t")
+ (looking-at "\\[[- X]\\]"))))
+
+(defun org-toggle-checkbox (&optional arg)
+ "Toggle the checkbox in the current line."
+ (interactive "P")
+ (catch 'exit
+ (let (beg end status (firstnew 'unknown))
+ (cond
+ ((org-region-active-p)
+ (setq beg (region-beginning) end (region-end)))
+ ((org-on-heading-p)
+ (setq beg (point) end (save-excursion (outline-next-heading) (point))))
+ ((org-at-item-checkbox-p)
+ (let ((pos (point)))
+ (replace-match
+ (cond (arg "[-]")
+ ((member (match-string 0) '("[ ]" "[-]")) "[X]")
+ (t "[ ]"))
+ t t)
+ (goto-char pos))
+ (throw 'exit t))
+ (t (error "Not at a checkbox or heading, and no active region")))
+ (save-excursion
+ (goto-char beg)
+ (while (< (point) end)
+ (when (org-at-item-checkbox-p)
+ (setq status (equal (match-string 0) "[X]"))
+ (when (eq firstnew 'unknown)
+ (setq firstnew (not status)))
+ (replace-match
+ (if (if arg (not status) firstnew) "[X]" "[ ]") t t))
+ (beginning-of-line 2)))))
+ (org-update-checkbox-count-maybe))
+
+(defun org-update-checkbox-count-maybe ()
+ "Update checkbox statistics unless turned off by user."
+ (when org-provide-checkbox-statistics
+ (org-update-checkbox-count)))
+
+(defun org-update-checkbox-count (&optional all)
+ "Update the checkbox statistics in the current section.
+This will find all statistic cookies like [57%] and [6/12] and update them
+with the current numbers. With optional prefix argument ALL, do this for
+the whole buffer."
+ (interactive "P")
+ (save-excursion
+ (let* ((buffer-invisibility-spec (org-inhibit-invisibility)) ; Emacs 21
+ (beg (condition-case nil
+ (progn (outline-back-to-heading) (point))
+ (error (point-min))))
+ (end (move-marker (make-marker)
+ (progn (outline-next-heading) (point))))
+ (re "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)")
+ (re-box "^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[- X]\\]\\)")
+ (re-find (concat re "\\|" re-box))
+ beg-cookie end-cookie is-percent c-on c-off lim
+ eline curr-ind next-ind continue-from startsearch
+ (cstat 0)
+ )
+ (when all
+ (goto-char (point-min))
+ (outline-next-heading)
+ (setq beg (point) end (point-max)))
+ (goto-char end)
+ ;; find each statistic cookie
+ (while (re-search-backward re-find beg t)
+ (setq beg-cookie (match-beginning 1)
+ end-cookie (match-end 1)
+ cstat (+ cstat (if end-cookie 1 0))
+ startsearch (point-at-eol)
+ continue-from (point-at-bol)
+ is-percent (match-beginning 2)
+ lim (cond
+ ((org-on-heading-p) (outline-next-heading) (point))
+ ((org-at-item-p) (org-end-of-item) (point))
+ (t nil))
+ c-on 0
+ c-off 0)
+ (when lim
+ ;; find first checkbox for this cookie and gather
+ ;; statistics from all that are at this indentation level
+ (goto-char startsearch)
+ (if (re-search-forward re-box lim t)
+ (progn
+ (org-beginning-of-item)
+ (setq curr-ind (org-get-indentation))
+ (setq next-ind curr-ind)
+ (while (and (bolp) (org-at-item-p) (= curr-ind next-ind))
+ (save-excursion (end-of-line) (setq eline (point)))
+ (if (re-search-forward re-box eline t)
+ (if (member (match-string 2) '("[ ]" "[-]"))
+ (setq c-off (1+ c-off))
+ (setq c-on (1+ c-on))
+ )
+ )
+ (org-end-of-item)
+ (setq next-ind (org-get-indentation))
+ )))
+ (goto-char continue-from)
+ ;; update cookie
+ (when end-cookie
+ (delete-region beg-cookie end-cookie)
+ (goto-char beg-cookie)
+ (insert
+ (if is-percent
+ (format "[%d%%]" (/ (* 100 c-on) (max 1 (+ c-on c-off))))
+ (format "[%d/%d]" c-on (+ c-on c-off)))))
+ ;; update items checkbox if it has one
+ (when (org-at-item-p)
+ (org-beginning-of-item)
+ (when (and (> (+ c-on c-off) 0)
+ (re-search-forward re-box (point-at-eol) t))
+ (setq beg-cookie (match-beginning 2)
+ end-cookie (match-end 2))
+ (delete-region beg-cookie end-cookie)
+ (goto-char beg-cookie)
+ (cond ((= c-off 0) (insert "[X]"))
+ ((= c-on 0) (insert "[ ]"))
+ (t (insert "[-]")))
+ )))
+ (goto-char continue-from))
+ (when (interactive-p)
+ (message "Checkbox satistics updated %s (%d places)"
+ (if all "in entire file" "in current outline entry") cstat)))))
+
+(defun org-get-checkbox-statistics-face ()
+ "Select the face for checkbox statistics.
+The face will be `org-done' when all relevant boxes are checked. Otherwise
+it will be `org-todo'."
+ (if (match-end 1)
+ (if (equal (match-string 1) "100%") 'org-done 'org-todo)
+ (if (and (> (match-end 2) (match-beginning 2))
+ (equal (match-string 2) (match-string 3)))
+ 'org-done
+ 'org-todo)))
+
+(defun org-get-indentation (&optional line)
+ "Get the indentation of the current line, interpreting tabs.
+When LINE is given, assume it represents a line and compute its indentation."
+ (if line
+ (if (string-match "^ *" (org-remove-tabs line))
+ (match-end 0))
+ (save-excursion
+ (beginning-of-line 1)
+ (skip-chars-forward " \t")
+ (current-column))))
+
+(defun org-remove-tabs (s &optional width)
+ "Replace tabulators in S with spaces.
+Assumes that s is a single line, starting in column 0."
+ (setq width (or width tab-width))
+ (while (string-match "\t" s)
+ (setq s (replace-match
+ (make-string
+ (- (* width (/ (+ (match-beginning 0) width) width))
+ (match-beginning 0)) ?\ )
+ t t s)))
+ s)
+
+(defun org-fix-indentation (line ind)
+ "Fix indentation in LINE.
+IND is a cons cell with target and minimum indentation.
+If the current indenation in LINE is smaller than the minimum,
+leave it alone. If it is larger than ind, set it to the target."
+ (let* ((l (org-remove-tabs line))
+ (i (org-get-indentation l))
+ (i1 (car ind)) (i2 (cdr ind)))
+ (if (>= i i2) (setq l (substring line i2)))
+ (if (> i1 0)
+ (concat (make-string i1 ?\ ) l)
+ l)))
+
+(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
+ (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)
+ (beginning-of-line 1)
+ (skip-chars-forward " \t")
+ (setq ind (current-column))
+ (if (catch 'exit
+ (while t
+ (beginning-of-line 0)
+ (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)
+ (progn (beginning-of-line 1) (throw 'exit (org-at-item-p))))))
+ nil
+ (goto-char pos)
+ (error "Not in an item")))))
+
+(defun org-end-of-item ()
+ "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))
+ 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"))))
+
+(defun org-next-item ()
+ "Move to the beginning of the next item in the current plain list.
+Error if not at a plain list, or if this is the last item in the list."
+ (interactive)
+ (let (ind ind1 (pos (point)))
+ (org-beginning-of-item)
+ (setq ind (org-get-indentation))
+ (org-end-of-item)
+ (setq ind1 (org-get-indentation))
+ (unless (and (org-at-item-p) (= ind ind1))
+ (goto-char pos)
+ (error "On last item"))))
+
+(defun org-previous-item ()
+ "Move to the beginning of the previous item in the current plain list.
+Error if not at a plain list, or if this is the first item in the list."
+ (interactive)
+ (let (beg ind ind1 (pos (point)))
+ (org-beginning-of-item)
+ (setq beg (point))
+ (setq ind (org-get-indentation))
+ (goto-char beg)
+ (catch 'exit
+ (while t
+ (beginning-of-line 0)
+ (if (looking-at "[ \t]*$")
+ nil
+ (if (<= (setq ind1 (org-get-indentation)) ind)
+ (throw 'exit t)))))
+ (condition-case nil
+ (if (or (not (org-at-item-p))
+ (< ind1 (1- ind)))
+ (error "")
+ (org-beginning-of-item))
+ (error (goto-char pos)
+ (error "On first item")))))
+
+(defun org-first-list-item-p ()
+ "Is this heading the item in a plain list?"
+ (unless (org-at-item-p)
+ (error "Not at a plain list item"))
+ (org-beginning-of-item)
+ (= (point) (save-excursion (org-beginning-of-item-list))))
+
+(defun org-move-item-down ()
+ "Move the plain list item at point down, i.e. swap with following item.
+Subitems (items with larger indentation) are considered part of the item,
+so this really moves item trees."
+ (interactive)
+ (let (beg beg0 end end0 ind ind1 (pos (point)) txt ne-end ne-beg)
+ (org-beginning-of-item)
+ (setq beg0 (point))
+ (save-excursion
+ (setq ne-beg (org-back-over-empty-lines))
+ (setq beg (point)))
+ (goto-char beg0)
+ (setq ind (org-get-indentation))
+ (org-end-of-item)
+ (setq end0 (point))
+ (setq ind1 (org-get-indentation))
+ (setq ne-end (org-back-over-empty-lines))
+ (setq end (point))
+ (goto-char beg0)
+ (when (and (org-first-list-item-p) (< ne-end ne-beg))
+ ;; include less whitespace
+ (save-excursion
+ (goto-char beg)
+ (forward-line (- ne-beg ne-end))
+ (setq beg (point))))
+ (goto-char end0)
+ (if (and (org-at-item-p) (= ind ind1))
+ (progn
+ (org-end-of-item)
+ (org-back-over-empty-lines)
+ (setq txt (buffer-substring beg end))
+ (save-excursion
+ (delete-region beg end))
+ (setq pos (point))
+ (insert txt)
+ (goto-char pos) (org-skip-whitespace)
+ (org-maybe-renumber-ordered-list))
+ (goto-char pos)
+ (error "Cannot move this item further down"))))
+
+(defun org-move-item-up (arg)
+ "Move the plain list item at point up, i.e. swap with previous item.
+Subitems (items with larger indentation) are considered part of the item,
+so this really moves item trees."
+ (interactive "p")
+ (let (beg beg0 end ind ind1 (pos (point)) txt
+ ne-beg ne-ins ins-end)
+ (org-beginning-of-item)
+ (setq beg0 (point))
+ (setq ind (org-get-indentation))
+ (save-excursion
+ (setq ne-beg (org-back-over-empty-lines))
+ (setq beg (point)))
+ (goto-char beg0)
+ (org-end-of-item)
+ (setq end (point))
+ (goto-char beg0)
+ (catch 'exit
+ (while t
+ (beginning-of-line 0)
+ (if (looking-at "[ \t]*$")
+ (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
+ (org-beginning-of-item)
+ (error (goto-char beg)
+ (error "Cannot move this item further up")))
+ (setq ind1 (org-get-indentation))
+ (if (and (org-at-item-p) (= ind ind1))
+ (progn
+ (setq ne-ins (org-back-over-empty-lines))
+ (setq txt (buffer-substring beg end))
+ (save-excursion
+ (delete-region beg end))
+ (setq pos (point))
+ (insert txt)
+ (setq ins-end (point))
+ (goto-char pos) (org-skip-whitespace)
+
+ (when (and (org-first-list-item-p) (> ne-ins ne-beg))
+ ;; Move whitespace back to beginning
+ (save-excursion
+ (goto-char ins-end)
+ (let ((kill-whole-line t))
+ (kill-line (- ne-ins ne-beg)) (point)))
+ (insert (make-string (- ne-ins ne-beg) ?\n)))
+
+ (org-maybe-renumber-ordered-list))
+ (goto-char pos)
+ (error "Cannot move this item further up"))))
+
+(defun org-maybe-renumber-ordered-list ()
+ "Renumber the ordered list at point if setup allows it.
+This tests the user option `org-auto-renumber-ordered-lists' before
+doing the renumbering."
+ (interactive)
+ (when (and org-auto-renumber-ordered-lists
+ (org-at-item-p))
+ (if (match-beginning 3)
+ (org-renumber-ordered-list 1)
+ (org-fix-bullet-type))))
+
+(defun org-maybe-renumber-ordered-list-safe ()
+ (condition-case nil
+ (save-excursion
+ (org-maybe-renumber-ordered-list))
+ (error nil)))
+
+(defun org-cycle-list-bullet (&optional which)
+ "Cycle through the different itemize/enumerate bullets.
+This cycle the entire list level through the sequence:
+
+ `-' -> `+' -> `*' -> `1.' -> `1)'
+
+If WHICH is a string, use that as the new bullet. If WHICH is an integer,
+0 meand `-', 1 means `+' etc."
+ (interactive "P")
+ (org-preserve-lc
+ (org-beginning-of-item-list)
+ (org-at-item-p)
+ (beginning-of-line 1)
+ (let ((current (match-string 0))
+ (prevp (eq which 'previous))
+ new)
+ (setq new (cond
+ ((and (numberp which)
+ (nth (1- which) '("-" "+" "*" "1." "1)"))))
+ ((string-match "-" current) (if prevp "1)" "+"))
+ ((string-match "\\+" current)
+ (if prevp "-" (if (looking-at "\\S-") "1." "*")))
+ ((string-match "\\*" current) (if prevp "+" "1."))
+ ((string-match "\\." current) (if prevp "*" "1)"))
+ ((string-match ")" current) (if prevp "1." "-"))
+ (t (error "This should not happen"))))
+ (and (looking-at "\\([ \t]*\\)\\S-+") (replace-match (concat "\\1" new)))
+ (org-fix-bullet-type)
+ (org-maybe-renumber-ordered-list))))
+
+(defun org-get-string-indentation (s)
+ "What indentation has S due to SPACE and TAB at the beginning of the string?"
+ (let ((n -1) (i 0) (w tab-width) c)
+ (catch 'exit
+ (while (< (setq n (1+ n)) (length s))
+ (setq c (aref s n))
+ (cond ((= c ?\ ) (setq i (1+ i)))
+ ((= c ?\t) (setq i (* (/ (+ w i) w) w)))
+ (t (throw 'exit t)))))
+ i))
+
+(defun org-renumber-ordered-list (arg)
+ "Renumber an ordered plain list.
+Cursor needs to be in the first line of an item, the line that starts
+with something like \"1.\" or \"2)\"."
+ (interactive "p")
+ (unless (and (org-at-item-p)
+ (match-beginning 3))
+ (error "This is not an ordered list"))
+ (let ((line (org-current-line))
+ (col (current-column))
+ (ind (org-get-string-indentation
+ (buffer-substring (point-at-bol) (match-beginning 3))))
+ ;; (term (substring (match-string 3) -1))
+ ind1 (n (1- arg))
+ fmt)
+ ;; find where this list begins
+ (org-beginning-of-item-list)
+ (looking-at "[ \t]*[0-9]+\\([.)]\\)")
+ (setq fmt (concat "%d" (match-string 1)))
+ (beginning-of-line 0)
+ ;; walk forward and replace these numbers
+ (catch 'exit
+ (while t
+ (catch 'next
+ (beginning-of-line 2)
+ (if (eobp) (throw 'exit nil))
+ (if (looking-at "[ \t]*$") (throw 'next nil))
+ (skip-chars-forward " \t") (setq ind1 (current-column))
+ (if (> ind1 ind) (throw 'next t))
+ (if (< ind1 ind) (throw 'exit t))
+ (if (not (org-at-item-p)) (throw 'exit nil))
+ (delete-region (match-beginning 2) (match-end 2))
+ (goto-char (match-beginning 2))
+ (insert (format fmt (setq n (1+ n)))))))
+ (goto-line line)
+ (org-move-to-column col)))
+
+(defun org-fix-bullet-type ()
+ "Make sure all items in this list have the same bullet as the firsst item."
+ (interactive)
+ (unless (org-at-item-p) (error "This is not a list"))
+ (let ((line (org-current-line))
+ (col (current-column))
+ (ind (current-indentation))
+ ind1 bullet)
+ ;; find where this list begins
+ (org-beginning-of-item-list)
+ (beginning-of-line 1)
+ ;; find out what the bullet type is
+ (looking-at "[ \t]*\\(\\S-+\\)")
+ (setq bullet (match-string 1))
+ ;; walk forward and replace these numbers
+ (beginning-of-line 0)
+ (catch 'exit
+ (while t
+ (catch 'next
+ (beginning-of-line 2)
+ (if (eobp) (throw 'exit nil))
+ (if (looking-at "[ \t]*$") (throw 'next nil))
+ (skip-chars-forward " \t") (setq ind1 (current-column))
+ (if (> ind1 ind) (throw 'next t))
+ (if (< ind1 ind) (throw 'exit t))
+ (if (not (org-at-item-p)) (throw 'exit nil))
+ (skip-chars-forward " \t")
+ (looking-at "\\S-+")
+ (replace-match bullet))))
+ (goto-line line)
+ (org-move-to-column col)
+ (if (string-match "[0-9]" bullet)
+ (org-renumber-ordered-list 1))))
+
+(defun org-beginning-of-item-list ()
+ "Go to the beginning of the current item list.
+I.e. to the first item in this list."
+ (interactive)
+ (org-beginning-of-item)
+ (let ((pos (point-at-bol))
+ (ind (org-get-indentation))
+ ind1)
+ ;; find where this list begins
+ (catch 'exit
+ (while t
+ (catch 'next
+ (beginning-of-line 0)
+ (if (looking-at "[ \t]*$")
+ (throw (if (bobp) 'exit 'next) t))
+ (skip-chars-forward " \t") (setq ind1 (current-column))
+ (if (or (< ind1 ind)
+ (and (= ind1 ind)
+ (not (org-at-item-p)))
+ (bobp))
+ (throw 'exit t)
+ (when (org-at-item-p) (setq pos (point-at-bol)))))))
+ (goto-char pos)))
+
+
+(defun org-end-of-item-list ()
+ "Go to the end of the current item list.
+I.e. to the text after the last item."
+ (interactive)
+ (org-beginning-of-item)
+ (let ((pos (point-at-bol))
+ (ind (org-get-indentation))
+ ind1)
+ ;; find where this list begins
+ (catch 'exit
+ (while t
+ (catch 'next
+ (beginning-of-line 2)
+ (if (looking-at "[ \t]*$")
+ (throw (if (eobp) 'exit 'next) t))
+ (skip-chars-forward " \t") (setq ind1 (current-column))
+ (if (or (< ind1 ind)
+ (and (= ind1 ind)
+ (not (org-at-item-p)))
+ (eobp))
+ (progn
+ (setq pos (point-at-bol))
+ (throw 'exit t))))))
+ (goto-char pos)))
+
+
+(defvar org-last-indent-begin-marker (make-marker))
+(defvar org-last-indent-end-marker (make-marker))
+
+(defun org-outdent-item (arg)
+ "Outdent a local list item."
+ (interactive "p")
+ (org-indent-item (- arg)))
+
+(defun org-indent-item (arg)
+ "Indent a local list item."
+ (interactive "p")
+ (unless (org-at-item-p)
+ (error "Not on an item"))
+ (save-excursion
+ (let (beg end ind ind1 tmp delta ind-down ind-up)
+ (if (memq last-command '(org-shiftmetaright org-shiftmetaleft))
+ (setq beg org-last-indent-begin-marker
+ end org-last-indent-end-marker)
+ (org-beginning-of-item)
+ (setq beg (move-marker org-last-indent-begin-marker (point)))
+ (org-end-of-item)
+ (setq end (move-marker org-last-indent-end-marker (point))))
+ (goto-char beg)
+ (setq tmp (org-item-indent-positions)
+ ind (car tmp)
+ ind-down (nth 2 tmp)
+ ind-up (nth 1 tmp)
+ delta (if (> arg 0)
+ (if ind-down (- ind-down ind) 2)
+ (if ind-up (- ind-up ind) -2)))
+ (if (< (+ delta ind) 0) (error "Cannot outdent beyond margin"))
+ (while (< (point) end)
+ (beginning-of-line 1)
+ (skip-chars-forward " \t") (setq ind1 (current-column))
+ (delete-region (point-at-bol) (point))
+ (or (eolp) (org-indent-to-column (+ ind1 delta)))
+ (beginning-of-line 2))))
+ (org-fix-bullet-type)
+ (org-maybe-renumber-ordered-list-safe)
+ (save-excursion
+ (beginning-of-line 0)
+ (condition-case nil (org-beginning-of-item) (error nil))
+ (org-maybe-renumber-ordered-list-safe)))
+
+(defun org-item-indent-positions ()
+ "Return indentation for plain list items.
+This returns a list with three values: The current indentation, the
+parent indentation and the indentation a child should habe.
+Assumes cursor in item line."
+ (let* ((bolpos (point-at-bol))
+ (ind (org-get-indentation))
+ ind-down ind-up pos)
+ (save-excursion
+ (org-beginning-of-item-list)
+ (skip-chars-backward "\n\r \t")
+ (when (org-in-item-p)
+ (org-beginning-of-item)
+ (setq ind-up (org-get-indentation))))
+ (setq pos (point))
+ (save-excursion
+ (cond
+ ((and (condition-case nil (progn (org-previous-item) t)
+ (error nil))
+ (or (forward-char 1) t)
+ (re-search-forward "^\\([ \t]*\\([-+]\\|\\([0-9]+[.)]\\)\\)\\|[ \t]+\\*\\)\\( \\|$\\)" bolpos t))
+ (setq ind-down (org-get-indentation)))
+ ((and (goto-char pos)
+ (org-at-item-p))
+ (goto-char (match-end 0))
+ (skip-chars-forward " \t")
+ (setq ind-down (current-column)))))
+ (list ind ind-up ind-down)))
+
+;;; The orgstruct minor mode
+
+;; Define a minor mode which can be used in other modes in order to
+;; integrate the org-mode structure editing commands.
+
+;; This is really a hack, because the org-mode structure commands use
+;; keys which normally belong to the major mode. Here is how it
+;; works: The minor mode defines all the keys necessary to operate the
+;; structure commands, but wraps the commands into a function which
+;; tests if the cursor is currently at a headline or a plain list
+;; item. If that is the case, the structure command is used,
+;; temporarily setting many Org-mode variables like regular
+;; expressions for filling etc. However, when any of those keys is
+;; used at a different location, function uses `key-binding' to look
+;; up if the key has an associated command in another currently active
+;; keymap (minor modes, major mode, global), and executes that
+;; command. There might be problems if any of the keys is otherwise
+;; used as a prefix key.
+
+;; Another challenge is that the key binding for TAB can be tab or \C-i,
+;; likewise the binding for RET can be return or \C-m. Orgtbl-mode
+;; addresses this by checking explicitly for both bindings.
+
+(defvar orgstruct-mode-map (make-sparse-keymap)
+ "Keymap for the minor `orgstruct-mode'.")
+
+(defvar org-local-vars nil
+ "List of local variables, for use by `orgstruct-mode'")
+
+;;;###autoload
+(define-minor-mode orgstruct-mode
+ "Toggle the minor more `orgstruct-mode'.
+This mode is for using Org-mode structure commands in other modes.
+The following key behave as if Org-mode was active, if the cursor
+is on a headline, or on a plain list item (both in the definition
+of Org-mode).
+
+M-up Move entry/item up
+M-down Move entry/item down
+M-left Promote
+M-right Demote
+M-S-up Move entry/item up
+M-S-down Move entry/item down
+M-S-left Promote subtree
+M-S-right Demote subtree
+M-q Fill paragraph and items like in Org-mode
+C-c ^ Sort entries
+C-c - Cycle list bullet
+TAB Cycle item visibility
+M-RET Insert new heading/item
+S-M-RET Insert new TODO heading / Chekbox item
+C-c C-c Set tags / toggle checkbox"
+ nil " OrgStruct" nil
+ (org-load-modules-maybe)
+ (and (orgstruct-setup) (defun orgstruct-setup () nil)))
+
+;;;###autoload
+(defun turn-on-orgstruct ()
+ "Unconditionally turn on `orgstruct-mode'."
+ (orgstruct-mode 1))
+
+;;;###autoload
+(defun turn-on-orgstruct++ ()
+ "Unconditionally turn on `orgstruct-mode', and force org-mode indentations.
+In addition to setting orgstruct-mode, this also exports all indentation and
+autofilling variables from org-mode into the buffer. Note that turning
+off orgstruct-mode will *not* remove these additional settings."
+ (orgstruct-mode 1)
+ (let (var val)
+ (mapc
+ (lambda (x)
+ (when (string-match
+ "^\\(paragraph-\\|auto-fill\\|fill-paragraph\\|adaptive-fill\\|indent-\\)"
+ (symbol-name (car x)))
+ (setq var (car x) val (nth 1 x))
+ (org-set-local var (if (eq (car-safe val) 'quote) (nth 1 val) val))))
+ org-local-vars)))
+
+(defun orgstruct-error ()
+ "Error when there is no default binding for a structure key."
+ (interactive)
+ (error "This key has no function outside structure elements"))
+
+(defun orgstruct-setup ()
+ "Setup orgstruct keymaps."
+ (let ((nfunc 0)
+ (bindings
+ (list
+ '([(meta up)] org-metaup)
+ '([(meta down)] org-metadown)
+ '([(meta left)] org-metaleft)
+ '([(meta right)] org-metaright)
+ '([(meta shift up)] org-shiftmetaup)
+ '([(meta shift down)] org-shiftmetadown)
+ '([(meta shift left)] org-shiftmetaleft)
+ '([(meta shift right)] org-shiftmetaright)
+ '([(shift up)] org-shiftup)
+ '([(shift down)] org-shiftdown)
+ '("\C-c\C-c" org-ctrl-c-ctrl-c)
+ '("\M-q" fill-paragraph)
+ '("\C-c^" org-sort)
+ '("\C-c-" org-cycle-list-bullet)))
+ elt key fun cmd)
+ (while (setq elt (pop bindings))
+ (setq nfunc (1+ nfunc))
+ (setq key (org-key (car elt))
+ fun (nth 1 elt)
+ cmd (orgstruct-make-binding fun nfunc key))
+ (org-defkey orgstruct-mode-map key cmd))
+
+ ;; Special treatment needed for TAB and RET
+ (org-defkey orgstruct-mode-map [(tab)]
+ (orgstruct-make-binding 'org-cycle 102 [(tab)] "\C-i"))
+ (org-defkey orgstruct-mode-map "\C-i"
+ (orgstruct-make-binding 'org-cycle 103 "\C-i" [(tab)]))
+
+ (org-defkey orgstruct-mode-map "\M-\C-m"
+ (orgstruct-make-binding 'org-insert-heading 105
+ "\M-\C-m" [(meta return)]))
+ (org-defkey orgstruct-mode-map [(meta return)]
+ (orgstruct-make-binding 'org-insert-heading 106
+ [(meta return)] "\M-\C-m"))
+
+ (org-defkey orgstruct-mode-map [(shift meta return)]
+ (orgstruct-make-binding 'org-insert-todo-heading 107
+ [(meta return)] "\M-\C-m"))
+
+ (unless org-local-vars
+ (setq org-local-vars (org-get-local-variables)))
+
+ t))
+
+(defun orgstruct-make-binding (fun n &rest keys)
+ "Create a function for binding in the structure minor mode.
+FUN is the command to call inside a table. N is used to create a unique
+command name. KEYS are keys that should be checked in for a command
+to execute outside of tables."
+ (eval
+ (list 'defun
+ (intern (concat "orgstruct-hijacker-command-" (int-to-string n)))
+ '(arg)
+ (concat "In Structure, run `" (symbol-name fun) "'.\n"
+ "Outside of structure, run the binding of `"
+ (mapconcat (lambda (x) (format "%s" x)) keys "' or `")
+ "'.")
+ '(interactive "p")
+ (list 'if
+ '(org-context-p 'headline 'item)
+ (list 'org-run-like-in-org-mode (list 'quote fun))
+ (list 'let '(orgstruct-mode)
+ (list 'call-interactively
+ (append '(or)
+ (mapcar (lambda (k)
+ (list 'key-binding k))
+ keys)
+ '('orgstruct-error))))))))
+
+(defun org-context-p (&rest contexts)
+ "Check if local context is and of CONTEXTS.
+Possible values in the list of contexts are `table', `headline', and `item'."
+ (let ((pos (point)))
+ (goto-char (point-at-bol))
+ (prog1 (or (and (memq 'table contexts)
+ (looking-at "[ \t]*|"))
+ (and (memq 'headline contexts)
+ (looking-at "\\*+"))
+ (and (memq 'item contexts)
+ (looking-at "[ \t]*\\([-+*] \\|[0-9]+[.)] \\)")))
+ (goto-char pos))))
+
+(defun org-get-local-variables ()
+ "Return a list of all local variables in an org-mode buffer."
+ (let (varlist)
+ (with-current-buffer (get-buffer-create "*Org tmp*")
+ (erase-buffer)
+ (org-mode)
+ (setq varlist (buffer-local-variables)))
+ (kill-buffer "*Org tmp*")
+ (delq nil
+ (mapcar
+ (lambda (x)
+ (setq x
+ (if (symbolp x)
+ (list x)
+ (list (car x) (list 'quote (cdr x)))))
+ (if (string-match
+ "^\\(org-\\|orgtbl-\\|outline-\\|comment-\\|paragraph-\\|auto-fill\\|fill-paragraph\\|adaptive-fill\\|indent-\\)"
+ (symbol-name (car x)))
+ x nil))
+ varlist))))
+
+;;;###autoload
+(defun org-run-like-in-org-mode (cmd)
+ (org-load-modules-maybe)
+ (unless org-local-vars
+ (setq org-local-vars (org-get-local-variables)))
+ (eval (list 'let org-local-vars
+ (list 'call-interactively (list 'quote cmd)))))
+
+;;;; Archiving
+
+(defun org-get-category (&optional pos)
+ "Get the category applying to position POS."
+ (get-text-property (or pos (point)) 'org-category))
+
+(defun org-refresh-category-properties ()
+ "Refresh category text properties in the buffer."
+ (let ((def-cat (cond
+ ((null org-category)
+ (if buffer-file-name
+ (file-name-sans-extension
+ (file-name-nondirectory buffer-file-name))
+ "???"))
+ ((symbolp org-category) (symbol-name org-category))
+ (t org-category)))
+ beg end cat pos optionp)
+ (org-unmodified
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (put-text-property (point) (point-max) 'org-category def-cat)
+ (while (re-search-forward
+ "^\\(#\\+CATEGORY:\\|[ \t]*:CATEGORY:\\)\\(.*\\)" nil t)
+ (setq pos (match-end 0)
+ optionp (equal (char-after (match-beginning 0)) ?#)
+ cat (org-trim (match-string 2)))
+ (if optionp
+ (setq beg (point-at-bol) end (point-max))
+ (org-back-to-heading t)
+ (setq beg (point) end (org-end-of-subtree t t)))
+ (put-text-property beg end 'org-category cat)
+ (goto-char pos)))))))
+
+
+;;;; Link Stuff
+
+;;; Link abbreviations
+
+(defun org-link-expand-abbrev (link)
+ "Apply replacements as defined in `org-link-abbrev-alist."
+ (if (string-match "^\\([a-zA-Z][-_a-zA-Z0-9]*\\)\\(::?\\(.*\\)\\)?$" link)
+ (let* ((key (match-string 1 link))
+ (as (or (assoc key org-link-abbrev-alist-local)
+ (assoc key org-link-abbrev-alist)))
+ (tag (and (match-end 2) (match-string 3 link)))
+ rpl)
+ (if (not as)
+ link
+ (setq rpl (cdr as))
+ (cond
+ ((symbolp rpl) (funcall rpl tag))
+ ((string-match "%s" rpl) (replace-match (or tag "") t t rpl))
+ (t (concat rpl tag)))))
+ link))
+
+;;; Storing and inserting links
+
+(defvar org-insert-link-history nil
+ "Minibuffer history for links inserted with `org-insert-link'.")
+
+(defvar org-stored-links nil
+ "Contains the links stored with `org-store-link'.")
+
+(defvar org-store-link-plist nil
+ "Plist with info about the most recently link created with `org-store-link'.")
+
+(defvar org-link-protocols nil
+ "Link protocols added to Org-mode using `org-add-link-type'.")
+
+(defvar org-store-link-functions nil
+ "List of functions that are called to create and store a link.
+Each function will be called in turn until one returns a non-nil
+value. Each function should check if it is responsible for creating
+this link (for example by looking at the major mode).
+If not, it must exit and return nil.
+If yes, it should return a non-nil value after a calling
+`org-store-link-props' with a list of properties and values.
+Special properties are:
+
+:type The link prefix. like \"http\". This must be given.
+:link The link, like \"http://www.astro.uva.nl/~dominik\".
+ This is obligatory as well.
+:description Optional default description for the second pair
+ of brackets in an Org-mode link. The user can still change
+ this when inserting this link into an Org-mode buffer.
+
+In addition to these, any additional properties can be specified
+and then used in remember templates.")
+
+(defun org-add-link-type (type &optional follow export)
+ "Add TYPE to the list of `org-link-types'.
+Re-compute all regular expressions depending on `org-link-types'
+
+FOLLOW and EXPORT are two functions.
+
+FOLLOW should take the link path as the single argument and do whatever
+is necessary to follow the link, for example find a file or display
+a mail message.
+
+EXPORT should format the link path for export to one of the export formats.
+It should be a function accepting three arguments:
+
+ path the path of the link, the text after the prefix (like \"http:\")
+ desc the description of the link, if any, nil if there was no descripton
+ format the export format, a symbol like `html' or `latex'.
+
+The function may use the FORMAT information to return different values
+depending on the format. The return value will be put literally into
+the exported file.
+Org-mode has a built-in default for exporting links. If you are happy with
+this default, there is no need to define an export function for the link
+type. For a simple example of an export function, see `org-bbdb.el'."
+ (add-to-list 'org-link-types type t)
+ (org-make-link-regexps)
+ (if (assoc type org-link-protocols)
+ (setcdr (assoc type org-link-protocols) (list follow export))
+ (push (list type follow export) org-link-protocols)))
+
+
+;;;###autoload
+(defun org-store-link (arg)
+ "\\<org-mode-map>Store an org-link to the current location.
+This link is added to `org-stored-links' and can later be inserted
+into an org-buffer with \\[org-insert-link].
+
+For some link types, a prefix arg is interpreted:
+For links to usenet articles, arg negates `org-usenet-links-prefer-google'.
+For file links, arg negates `org-context-in-file-links'."
+ (interactive "P")
+ (org-load-modules-maybe)
+ (setq org-store-link-plist nil) ; reset
+ (let (link cpltxt desc description search txt)
+ (cond
+
+ ((run-hook-with-args-until-success 'org-store-link-functions)
+ (setq link (plist-get org-store-link-plist :link)
+ desc (or (plist-get org-store-link-plist :description) link)))
+
+ ((eq major-mode 'calendar-mode)
+ (let ((cd (calendar-cursor-to-date)))
+ (setq link
+ (format-time-string
+ (car org-time-stamp-formats)
+ (apply 'encode-time
+ (list 0 0 0 (nth 1 cd) (nth 0 cd) (nth 2 cd)
+ nil nil nil))))
+ (org-store-link-props :type "calendar" :date cd)))
+
+ ((eq major-mode 'w3-mode)
+ (setq cpltxt (url-view-url t)
+ link (org-make-link cpltxt))
+ (org-store-link-props :type "w3" :url (url-view-url t)))
+
+ ((eq major-mode 'w3m-mode)
+ (setq cpltxt (or w3m-current-title w3m-current-url)
+ link (org-make-link w3m-current-url))
+ (org-store-link-props :type "w3m" :url (url-view-url t)))
+
+ ((setq search (run-hook-with-args-until-success
+ 'org-create-file-search-functions))
+ (setq link (concat "file:" (abbreviate-file-name buffer-file-name)
+ "::" search))
+ (setq cpltxt (or description link)))
+
+ ((eq major-mode 'image-mode)
+ (setq cpltxt (concat "file:"
+ (abbreviate-file-name buffer-file-name))
+ link (org-make-link cpltxt))
+ (org-store-link-props :type "image" :file buffer-file-name))
+
+ ((eq major-mode 'dired-mode)
+ ;; link to the file in the current line
+ (setq cpltxt (concat "file:"
+ (abbreviate-file-name
+ (expand-file-name
+ (dired-get-filename nil t))))
+ link (org-make-link cpltxt)))
+
+ ((and buffer-file-name (org-mode-p))
+ ;; Just link to current headline
+ (setq cpltxt (concat "file:"
+ (abbreviate-file-name buffer-file-name)))
+ ;; Add a context search string
+ (when (org-xor org-context-in-file-links arg)
+ ;; Check if we are on a target
+ (if (org-in-regexp "<<\\(.*?\\)>>")
+ (setq cpltxt (concat cpltxt "::" (match-string 1)))
+ (setq txt (cond
+ ((org-on-heading-p) nil)
+ ((org-region-active-p)
+ (buffer-substring (region-beginning) (region-end)))
+ (t nil)))
+ (when (or (null txt) (string-match "\\S-" txt))
+ (setq cpltxt
+ (concat cpltxt "::" (org-make-org-heading-search-string txt))
+ desc "NONE"))))
+ (if (string-match "::\\'" cpltxt)
+ (setq cpltxt (substring cpltxt 0 -2)))
+ (setq link (org-make-link cpltxt)))
+
+ ((buffer-file-name (buffer-base-buffer))
+ ;; Just link to this file here.
+ (setq cpltxt (concat "file:"
+ (abbreviate-file-name
+ (buffer-file-name (buffer-base-buffer)))))
+ ;; Add a context string
+ (when (org-xor org-context-in-file-links arg)
+ (setq txt (if (org-region-active-p)
+ (buffer-substring (region-beginning) (region-end))
+ (buffer-substring (point-at-bol) (point-at-eol))))
+ ;; Only use search option if there is some text.
+ (when (string-match "\\S-" txt)
+ (setq cpltxt
+ (concat cpltxt "::" (org-make-org-heading-search-string txt))
+ desc "NONE")))
+ (setq link (org-make-link cpltxt)))
+
+ ((interactive-p)
+ (error "Cannot link to a buffer which is not visiting a file"))
+
+ (t (setq link nil)))
+
+ (if (consp link) (setq cpltxt (car link) link (cdr link)))
+ (setq link (or link cpltxt)
+ desc (or desc cpltxt))
+ (if (equal desc "NONE") (setq desc nil))
+
+ (if (and (interactive-p) link)
+ (progn
+ (setq org-stored-links
+ (cons (list link desc) org-stored-links))
+ (message "Stored: %s" (or desc link)))
+ (and link (org-make-link-string link desc)))))
+
+(defun org-store-link-props (&rest plist)
+ "Store link properties, extract names and addresses."
+ (let (x adr)
+ (when (setq x (plist-get plist :from))
+ (setq adr (mail-extract-address-components x))
+ (plist-put plist :fromname (car adr))
+ (plist-put plist :fromaddress (nth 1 adr)))
+ (when (setq x (plist-get plist :to))
+ (setq adr (mail-extract-address-components x))
+ (plist-put plist :toname (car adr))
+ (plist-put plist :toaddress (nth 1 adr))))
+ (let ((from (plist-get plist :from))
+ (to (plist-get plist :to)))
+ (when (and from to org-from-is-user-regexp)
+ (plist-put plist :fromto
+ (if (string-match org-from-is-user-regexp from)
+ (concat "to %t")
+ (concat "from %f")))))
+ (setq org-store-link-plist plist))
+
+(defun org-add-link-props (&rest plist)
+ "Add these properties to the link property list."
+ (let (key value)
+ (while plist
+ (setq key (pop plist) value (pop plist))
+ (setq org-store-link-plist
+ (plist-put org-store-link-plist key value)))))
+
+(defun org-email-link-description (&optional fmt)
+ "Return the description part of an email link.
+This takes information from `org-store-link-plist' and formats it
+according to FMT (default from `org-email-link-description-format')."
+ (setq fmt (or fmt org-email-link-description-format))
+ (let* ((p org-store-link-plist)
+ (to (plist-get p :toaddress))
+ (from (plist-get p :fromaddress))
+ (table
+ (list
+ (cons "%c" (plist-get p :fromto))
+ (cons "%F" (plist-get p :from))
+ (cons "%f" (or (plist-get p :fromname) (plist-get p :fromaddress) "?"))
+ (cons "%T" (plist-get p :to))
+ (cons "%t" (or (plist-get p :toname) (plist-get p :toaddress) "?"))
+ (cons "%s" (plist-get p :subject))
+ (cons "%m" (plist-get p :message-id)))))
+ (when (string-match "%c" fmt)
+ ;; Check if the user wrote this message
+ (if (and org-from-is-user-regexp from to
+ (save-match-data (string-match org-from-is-user-regexp from)))
+ (setq fmt (replace-match "to %t" t t fmt))
+ (setq fmt (replace-match "from %f" t t fmt))))
+ (org-replace-escapes fmt table)))
+
+(defun org-make-org-heading-search-string (&optional string heading)
+ "Make search string for STRING or current headline."
+ (interactive)
+ (let ((s (or string (org-get-heading))))
+ (unless (and string (not heading))
+ ;; We are using a headline, clean up garbage in there.
+ (if (string-match org-todo-regexp s)
+ (setq s (replace-match "" t t s)))
+ (if (string-match (org-re ":[[:alnum:]_@:]+:[ \t]*$") s)
+ (setq s (replace-match "" t t s)))
+ (setq s (org-trim s))
+ (if (string-match (concat "^\\(" org-quote-string "\\|"
+ org-comment-string "\\)") s)
+ (setq s (replace-match "" t t s)))
+ (while (string-match org-ts-regexp s)
+ (setq s (replace-match "" t t s))))
+ (while (string-match "[^a-zA-Z_0-9 \t]+" s)
+ (setq s (replace-match " " t t s)))
+ (or string (setq s (concat "*" s))) ; Add * for headlines
+ (mapconcat 'identity (org-split-string s "[ \t]+") " ")))
+
+(defun org-make-link (&rest strings)
+ "Concatenate STRINGS."
+ (apply 'concat strings))
+
+(defun org-make-link-string (link &optional description)
+ "Make a link with brackets, consisting of LINK and DESCRIPTION."
+ (unless (string-match "\\S-" link)
+ (error "Empty link"))
+ (when (stringp description)
+ ;; Remove brackets from the description, they are fatal.
+ (while (string-match "\\[" description)
+ (setq description (replace-match "{" t t description)))
+ (while (string-match "\\]" description)
+ (setq description (replace-match "}" t t description))))
+ (when (equal (org-link-escape link) description)
+ ;; No description needed, it is identical
+ (setq description nil))
+ (when (and (not description)
+ (not (equal link (org-link-escape link))))
+ (setq description link))
+ (concat "[[" (org-link-escape link) "]"
+ (if description (concat "[" description "]") "")
+ "]"))
+
+(defconst org-link-escape-chars
+ '((?\ . "%20")
+ (?\[ . "%5B")
+ (?\] . "%5D")
+ (?\340 . "%E0") ; `a
+ (?\342 . "%E2") ; ^a
+ (?\347 . "%E7") ; ,c
+ (?\350 . "%E8") ; `e
+ (?\351 . "%E9") ; 'e
+ (?\352 . "%EA") ; ^e
+ (?\356 . "%EE") ; ^i
+ (?\364 . "%F4") ; ^o
+ (?\371 . "%F9") ; `u
+ (?\373 . "%FB") ; ^u
+ (?\; . "%3B")
+ (?? . "%3F")
+ (?= . "%3D")
+ (?+ . "%2B")
+ )
+ "Association list of escapes for some characters problematic in links.
+This is the list that is used for internal purposes.")
+
+(defconst org-link-escape-chars-browser
+ '((?\ . "%20")) ; 32 for the SPC char
+ "Association list of escapes for some characters problematic in links.
+This is the list that is used before handing over to the browser.")
+
+(defun org-link-escape (text &optional table)
+ "Escape charaters in TEXT that are problematic for links."
+ (setq table (or table org-link-escape-chars))
+ (when text
+ (let ((re (mapconcat (lambda (x) (regexp-quote
+ (char-to-string (car x))))
+ table "\\|")))
+ (while (string-match re text)
+ (setq text
+ (replace-match
+ (cdr (assoc (string-to-char (match-string 0 text))
+ table))
+ t t text)))
+ text)))
+
+(defun org-link-unescape (text &optional table)
+ "Reverse the action of `org-link-escape'."
+ (setq table (or table org-link-escape-chars))
+ (when text
+ (let ((re (mapconcat (lambda (x) (regexp-quote (cdr x)))
+ table "\\|")))
+ (while (string-match re text)
+ (setq text
+ (replace-match
+ (char-to-string (car (rassoc (match-string 0 text) table)))
+ t t text)))
+ text)))
+
+(defun org-xor (a b)
+ "Exclusive or."
+ (if a (not b) b))
+
+(defun org-get-header (header)
+ "Find a header field in the current buffer."
+ (save-excursion
+ (goto-char (point-min))
+ (let ((case-fold-search t) s)
+ (cond
+ ((eq header 'from)
+ (if (re-search-forward "^From:\\s-+\\(.*\\)" nil t)
+ (setq s (match-string 1)))
+ (while (string-match "\"" s)
+ (setq s (replace-match "" t t s)))
+ (if (string-match "[<(].*" s)
+ (setq s (replace-match "" t t s))))
+ ((eq header 'message-id)
+ (if (re-search-forward "^message-id:\\s-+\\(.*\\)" nil t)
+ (setq s (match-string 1))))
+ ((eq header 'subject)
+ (if (re-search-forward "^subject:\\s-+\\(.*\\)" nil t)
+ (setq s (match-string 1)))))
+ (if (string-match "\\`[ \t\]+" s) (setq s (replace-match "" t t s)))
+ (if (string-match "[ \t\]+\\'" s) (setq s (replace-match "" t t s)))
+ s)))
+
+
+(defun org-fixup-message-id-for-http (s)
+ "Replace special characters in a message id, so it can be used in an http query."
+ (while (string-match "<" s)
+ (setq s (replace-match "%3C" t t s)))
+ (while (string-match ">" s)
+ (setq s (replace-match "%3E" t t s)))
+ (while (string-match "@" s)
+ (setq s (replace-match "%40" t t s)))
+ s)
+
+;;;###autoload
+(defun org-insert-link-global ()
+ "Insert a link like Org-mode does.
+This command can be called in any mode to insert a link in Org-mode syntax."
+ (interactive)
+ (org-load-modules-maybe)
+ (org-run-like-in-org-mode 'org-insert-link))
+
+(defun org-insert-link (&optional complete-file link-location)
+ "Insert a link. At the prompt, enter the link.
+
+Completion can be used to select a link previously stored with
+`org-store-link'. When the empty string is entered (i.e. if you just
+press RET at the prompt), the link defaults to the most recently
+stored link. As SPC triggers completion in the minibuffer, you need to
+use M-SPC or C-q SPC to force the insertion of a space character.
+
+You will also be prompted for a description, and if one is given, it will
+be displayed in the buffer instead of the link.
+
+If there is already a link at point, this command will allow you to edit link
+and description parts.
+
+With a \\[universal-argument] prefix, prompts for a file to link to. The file name can
+be selected using completion. The path to the file will be relative to the
+current directory if the file is in the current directory or a subdirectory.
+Otherwise, the link will be the absolute path as completed in the minibuffer
+\(i.e. normally ~/path/to/file).
+
+With two \\[universal-argument] prefixes, enforce an absolute path even if the file is in
+the current directory or below. With three \\[universal-argument] prefixes, negate the meaning
+of `org-keep-stored-link-after-insertion'.
+
+If `org-make-link-description-function' is non-nil, this function will be
+called with the link target, and the result will be the default
+link description.
+
+If the LINK-LOCATION parameter is non-nil, this value will be
+used as the link location instead of reading one interactively."
+ (interactive "P")
+ (let* ((wcf (current-window-configuration))
+ (region (if (org-region-active-p)
+ (buffer-substring (region-beginning) (region-end))))
+ (remove (and region (list (region-beginning) (region-end))))
+ (desc region)
+ tmphist ; byte-compile incorrectly complains about this
+ (link link-location)
+ entry file)
+ (cond
+ (link-location) ; specified by arg, just use it.
+ ((org-in-regexp org-bracket-link-regexp 1)
+ ;; We do have a link at point, and we are going to edit it.
+ (setq remove (list (match-beginning 0) (match-end 0)))
+ (setq desc (if (match-end 3) (org-match-string-no-properties 3)))
+ (setq link (read-string "Link: "
+ (org-link-unescape
+ (org-match-string-no-properties 1)))))
+ ((or (org-in-regexp org-angle-link-re)
+ (org-in-regexp org-plain-link-re))
+ ;; Convert to bracket link
+ (setq remove (list (match-beginning 0) (match-end 0))
+ link (read-string "Link: "
+ (org-remove-angle-brackets (match-string 0)))))
+ ((equal complete-file '(4))
+ ;; Completing read for file names.
+ (setq file (read-file-name "File: "))
+ (let ((pwd (file-name-as-directory (expand-file-name ".")))
+ (pwd1 (file-name-as-directory (abbreviate-file-name
+ (expand-file-name ".")))))
+ (cond
+ ((equal complete-file '(16))
+ (setq link (org-make-link
+ "file:"
+ (abbreviate-file-name (expand-file-name file)))))
+ ((string-match (concat "^" (regexp-quote pwd1) "\\(.+\\)") file)
+ (setq link (org-make-link "file:" (match-string 1 file))))
+ ((string-match (concat "^" (regexp-quote pwd) "\\(.+\\)")
+ (expand-file-name file))
+ (setq link (org-make-link
+ "file:" (match-string 1 (expand-file-name file)))))
+ (t (setq link (org-make-link "file:" file))))))
+ (t
+ ;; Read link, with completion for stored links.
+ (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 are available with <up>/<down> or M-p/n (most recent with RET):\n\n")
+ (princ (mapconcat
+ (lambda (x)
+ (if (nth 1 x) (concat (car x) " (" (nth 1 x) ")") (car x)))
+ (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))
+ (unwind-protect
+ (setq link (org-completing-read
+ "Link: "
+ (append
+ (mapcar (lambda (x) (list (concat (car x) ":")))
+ (append org-link-abbrev-alist-local org-link-abbrev-alist))
+ (mapcar (lambda (x) (list (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)
+ (not org-keep-stored-link-after-insertion))
+ (setq org-stored-links (delq (assoc link org-stored-links)
+ org-stored-links)))
+ (setq desc (or desc (nth 1 entry)))))
+
+ (if (string-match org-plain-link-re link)
+ ;; URL-like link, normalize the use of angular brackets.
+ (setq link (org-make-link (org-remove-angle-brackets link))))
+
+ ;; Check if we are linking to the current file with a search option
+ ;; If yes, simplify the link by using only the search option.
+ (when (and buffer-file-name
+ (string-match "\\<file:\\(.+?\\)::\\([^>]+\\)" link))
+ (let* ((path (match-string 1 link))
+ (case-fold-search nil)
+ (search (match-string 2 link)))
+ (save-match-data
+ (if (equal (file-truename buffer-file-name) (file-truename path))
+ ;; We are linking to this same file, with a search option
+ (setq link search)))))
+
+ ;; Check if we can/should use a relative path. If yes, simplify the link
+ (when (string-match "\\<file:\\(.*\\)" link)
+ (let* ((path (match-string 1 link))
+ (origpath path)
+ (case-fold-search nil))
+ (cond
+ ((eq org-link-file-path-type 'absolute)
+ (setq path (abbreviate-file-name (expand-file-name path))))
+ ((eq org-link-file-path-type 'noabbrev)
+ (setq path (expand-file-name path)))
+ ((eq org-link-file-path-type 'relative)
+ (setq path (file-relative-name path)))
+ (t
+ (save-match-data
+ (if (string-match (concat "^" (regexp-quote
+ (file-name-as-directory
+ (expand-file-name "."))))
+ (expand-file-name path))
+ ;; We are linking a file with relative path name.
+ (setq path (substring (expand-file-name path)
+ (match-end 0)))))))
+ (setq link (concat "file:" path))
+ (if (equal desc origpath)
+ (setq desc path))))
+
+ (if org-make-link-description-function
+ (setq desc (funcall org-make-link-description-function link desc)))
+
+ (setq desc (read-string "Description: " desc))
+ (unless (string-match "\\S-" desc) (setq desc nil))
+ (if remove (apply 'delete-region remove))
+ (insert (org-make-link-string link desc))))
+
+(defun org-completing-read (&rest args)
+ (let ((minibuffer-local-completion-map
+ (copy-keymap minibuffer-local-completion-map)))
+ (org-defkey minibuffer-local-completion-map " " 'self-insert-command)
+ (apply 'completing-read args)))
+
+;;; Opening/following a link
+
+(defvar org-link-search-failed nil)
+
+(defun org-next-link ()
+ "Move forward to the next link.
+If the link is in hidden text, expose it."
+ (interactive)
+ (when (and org-link-search-failed (eq this-command last-command))
+ (goto-char (point-min))
+ (message "Link search wrapped back to beginning of buffer"))
+ (setq org-link-search-failed nil)
+ (let* ((pos (point))
+ (ct (org-context))
+ (a (assoc :link ct)))
+ (if a (goto-char (nth 2 a)))
+ (if (re-search-forward org-any-link-re nil t)
+ (progn
+ (goto-char (match-beginning 0))
+ (if (org-invisible-p) (org-show-context)))
+ (goto-char pos)
+ (setq org-link-search-failed t)
+ (error "No further link found"))))
+
+(defun org-previous-link ()
+ "Move backward to the previous link.
+If the link is in hidden text, expose it."
+ (interactive)
+ (when (and org-link-search-failed (eq this-command last-command))
+ (goto-char (point-max))
+ (message "Link search wrapped back to end of buffer"))
+ (setq org-link-search-failed nil)
+ (let* ((pos (point))
+ (ct (org-context))
+ (a (assoc :link ct)))
+ (if a (goto-char (nth 1 a)))
+ (if (re-search-backward org-any-link-re nil t)
+ (progn
+ (goto-char (match-beginning 0))
+ (if (org-invisible-p) (org-show-context)))
+ (goto-char pos)
+ (setq org-link-search-failed t)
+ (error "No further link found"))))
+
+(defun org-find-file-at-mouse (ev)
+ "Open file link or URL at mouse."
+ (interactive "e")
+ (mouse-set-point ev)
+ (org-open-at-point 'in-emacs))
+
+(defun org-open-at-mouse (ev)
+ "Open file link or URL at mouse."
+ (interactive "e")
+ (mouse-set-point ev)
+ (org-open-at-point))
+
+(defvar org-window-config-before-follow-link nil
+ "The window configuration before following a link.
+This is saved in case the need arises to restore it.")
+
+(defvar org-open-link-marker (make-marker)
+ "Marker pointing to the location where `org-open-at-point; was called.")
+
+;;;###autoload
+(defun org-open-at-point-global ()
+ "Follow a link like Org-mode does.
+This command can be called in any mode to follow a link that has
+Org-mode syntax."
+ (interactive)
+ (org-run-like-in-org-mode 'org-open-at-point))
+
+;;;###autoload
+(defun org-open-link-from-string (s &optional arg)
+ "Open a link in the string S, as if it was in Org-mode."
+ (interactive "sLink: \nP")
+ (with-temp-buffer
+ (let ((org-inhibit-startup t))
+ (org-mode)
+ (insert s)
+ (goto-char (point-min))
+ (org-open-at-point arg))))
+
+(defun org-open-at-point (&optional in-emacs)
+ "Open link at or after point.
+If there is no link at point, this function will search forward up to
+the end of the current subtree.
+Normally, files will be opened by an appropriate application. If the
+optional argument IN-EMACS is non-nil, Emacs will visit the file."
+ (interactive "P")
+ (org-load-modules-maybe)
+ (move-marker org-open-link-marker (point))
+ (setq org-window-config-before-follow-link (current-window-configuration))
+ (org-remove-occur-highlights nil nil t)
+ (if (org-at-timestamp-p t)
+ (org-follow-timestamp-link)
+ (let (type path link line search (pos (point)))
+ (catch 'match
+ (save-excursion
+ (skip-chars-forward "^]\n\r")
+ (when (org-in-regexp org-bracket-link-regexp)
+ (setq link (org-link-unescape (org-match-string-no-properties 1)))
+ (while (string-match " *\n *" link)
+ (setq link (replace-match " " t t link)))
+ (setq link (org-link-expand-abbrev link))
+ (if (string-match org-link-re-with-space2 link)
+ (setq type (match-string 1 link) path (match-string 2 link))
+ (setq type "thisfile" path link))
+ (throw 'match t)))
+
+ (when (get-text-property (point) 'org-linked-text)
+ (setq type "thisfile"
+ pos (if (get-text-property (1+ (point)) 'org-linked-text)
+ (1+ (point)) (point))
+ path (buffer-substring
+ (previous-single-property-change pos 'org-linked-text)
+ (next-single-property-change pos 'org-linked-text)))
+ (throw 'match t))
+
+ (save-excursion
+ (when (or (org-in-regexp org-angle-link-re)
+ (org-in-regexp org-plain-link-re))
+ (setq type (match-string 1) path (match-string 2))
+ (throw 'match t)))
+ (when (org-in-regexp "\\<\\([^><\n]+\\)\\>")
+ (setq type "tree-match"
+ path (match-string 1))
+ (throw 'match t))
+ (save-excursion
+ (when (org-in-regexp (org-re "\\(:[[:alnum:]_@:]+\\):[ \t]*$"))
+ (setq type "tags"
+ path (match-string 1))
+ (while (string-match ":" path)
+ (setq path (replace-match "+" t t path)))
+ (throw 'match t))))
+ (unless path
+ (error "No link found"))
+ ;; Remove any trailing spaces in path
+ (if (string-match " +\\'" path)
+ (setq path (replace-match "" t t path)))
+
+ (cond
+
+ ((assoc type org-link-protocols)
+ (funcall (nth 1 (assoc type org-link-protocols)) path))
+
+ ((equal type "mailto")
+ (let ((cmd (car org-link-mailto-program))
+ (args (cdr org-link-mailto-program)) args1
+ (address path) (subject "") a)
+ (if (string-match "\\(.*\\)::\\(.*\\)" path)
+ (setq address (match-string 1 path)
+ subject (org-link-escape (match-string 2 path))))
+ (while args
+ (cond
+ ((not (stringp (car args))) (push (pop args) args1))
+ (t (setq a (pop args))
+ (if (string-match "%a" a)
+ (setq a (replace-match address t t a)))
+ (if (string-match "%s" a)
+ (setq a (replace-match subject t t a)))
+ (push a args1))))
+ (apply cmd (nreverse args1))))
+
+ ((member type '("http" "https" "ftp" "news"))
+ (browse-url (concat type ":" (org-link-escape
+ path org-link-escape-chars-browser))))
+
+ ((member type '("message"))
+ (browse-url (concat type ":" path)))
+
+ ((string= type "tags")
+ (org-tags-view in-emacs path))
+ ((string= type "thisfile")
+ (if in-emacs
+ (switch-to-buffer-other-window
+ (org-get-buffer-for-internal-link (current-buffer)))
+ (org-mark-ring-push))
+ (let ((cmd `(org-link-search
+ ,path
+ ,(cond ((equal in-emacs '(4)) 'occur)
+ ((equal in-emacs '(16)) 'org-occur)
+ (t nil))
+ ,pos)))
+ (condition-case nil (eval cmd)
+ (error (progn (widen) (eval cmd))))))
+
+ ((string= type "tree-match")
+ (org-occur (concat "\\[" (regexp-quote path) "\\]")))
+
+ ((string= type "file")
+ (if (string-match "::\\([0-9]+\\)\\'" path)
+ (setq line (string-to-number (match-string 1 path))
+ path (substring path 0 (match-beginning 0)))
+ (if (string-match "::\\(.+\\)\\'" path)
+ (setq search (match-string 1 path)
+ path (substring path 0 (match-beginning 0)))))
+ (if (string-match "[*?{]" (file-name-nondirectory path))
+ (dired path)
+ (org-open-file path in-emacs line search)))
+
+ ((string= type "news")
+ (require 'org-gnus)
+ (org-gnus-follow-link path))
+
+ ((string= type "shell")
+ (let ((cmd path))
+ (if (or (not org-confirm-shell-link-function)
+ (funcall org-confirm-shell-link-function
+ (format "Execute \"%s\" in shell? "
+ (org-add-props cmd nil
+ 'face 'org-warning))))
+ (progn
+ (message "Executing %s" cmd)
+ (shell-command cmd))
+ (error "Abort"))))
+
+ ((string= type "elisp")
+ (let ((cmd path))
+ (if (or (not org-confirm-elisp-link-function)
+ (funcall org-confirm-elisp-link-function
+ (format "Execute \"%s\" as elisp? "
+ (org-add-props cmd nil
+ 'face 'org-warning))))
+ (message "%s => %s" cmd (eval (read cmd)))
+ (error "Abort"))))
+
+ (t
+ (browse-url-at-point)))))
+ (move-marker org-open-link-marker nil)
+ (run-hook-with-args 'org-follow-link-hook))
+
+;;;; Time estimates
+
+(defun org-get-effort (&optional pom)
+ "Get the effort estimate for the current entry."
+ (org-entry-get pom org-effort-property))
+
+;;; File search
+
+(defvar org-create-file-search-functions nil
+ "List of functions to construct the right search string for a file link.
+These functions are called in turn with point at the location to
+which the link should point.
+
+A function in the hook should first test if it would like to
+handle this file type, for example by checking the major-mode or
+the file extension. If it decides not to handle this file, it
+should just return nil to give other functions a chance. If it
+does handle the file, it must return the search string to be used
+when following the link. The search string will be part of the
+file link, given after a double colon, and `org-open-at-point'
+will automatically search for it. If special measures must be
+taken to make the search successful, another function should be
+added to the companion hook `org-execute-file-search-functions',
+which see.
+
+A function in this hook may also use `setq' to set the variable
+`description' to provide a suggestion for the descriptive text to
+be used for this link when it gets inserted into an Org-mode
+buffer with \\[org-insert-link].")
+
+(defvar org-execute-file-search-functions nil
+ "List of functions to execute a file search triggered by a link.
+
+Functions added to this hook must accept a single argument, the
+search string that was part of the file link, the part after the
+double colon. The function must first check if it would like to
+handle this search, for example by checking the major-mode or the
+file extension. If it decides not to handle this search, it
+should just return nil to give other functions a chance. If it
+does handle the search, it must return a non-nil value to keep
+other functions from trying.
+
+Each function can access the current prefix argument through the
+variable `current-prefix-argument'. Note that a single prefix is
+used to force opening a link in Emacs, so it may be good to only
+use a numeric or double prefix to guide the search function.
+
+In case this is needed, a function in this hook can also restore
+the window configuration before `org-open-at-point' was called using:
+
+ (set-window-configuration org-window-config-before-follow-link)")
+
+(defun org-link-search (s &optional type avoid-pos)
+ "Search for a link search option.
+If S is surrounded by forward slashes, it is interpreted as a
+regular expression. In org-mode files, this will create an `org-occur'
+sparse tree. In ordinary files, `occur' will be used to list matches.
+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 nil) (post nil)
+ words re0 re1 re2 re3 re4_ re4 re5 re2a re2a_ reall)
+ (cond
+ ;; First check if there are any special
+ ((run-hook-with-args-until-success 'org-execute-file-search-functions s))
+ ;; Now try the builtin stuff
+ ((save-excursion
+ (goto-char (point-min))
+ (and
+ (re-search-forward
+ (concat "<<" (regexp-quote s0) ">>") nil t)
+ (setq type 'dedicated
+ pos (match-beginning 0))))
+ ;; There is an exact target for this
+ (goto-char pos))
+ ((string-match "^/\\(.*\\)/$" s)
+ ;; A regular expression
+ (cond
+ ((org-mode-p)
+ (org-occur (match-string 1 s)))
+ ;;((eq major-mode 'dired-mode)
+ ;; (grep (concat "grep -n -e '" (match-string 1 s) "' *")))
+ (t (org-do-occur (match-string 1 s)))))
+ (t
+ ;; A normal search strings
+ (when (equal (string-to-char s) ?*)
+ ;; Anchor on headlines, post may include tags.
+ (setq pre "^\\*+[ \t]+\\(?:\\sw+\\)?[ \t]*"
+ post (org-re "[ \t]*\\(?:[ \t]+:[[:alnum:]_@:+]:[ \t]*\\)?$")
+ s (substring s 1)))
+ (remove-text-properties
+ 0 (length s)
+ '(face nil mouse-face nil keymap nil fontified nil) s)
+ ;; 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 markers "\\(" (mapconcat 'downcase words "[ \t]+")
+ "\\)" markers)
+ re2a_ (concat "\\(" (mapconcat 'downcase words "[ \t\r\n]+") "\\)[ \t\r\n]")
+ re2a (concat "[ \t\r\n]" re2a_)
+ re4_ (concat "\\(" (mapconcat 'downcase words "[^a-zA-Z_\r\n]+") "\\)[^a-zA-Z_]")
+ re4 (concat "[^a-zA-Z_]" re4_)
+
+ re1 (concat pre re2 post)
+ re3 (concat pre (if pre re4_ re4) post)
+ re5 (concat pre ".*" re4)
+ re2 (concat pre re2)
+ re2a (concat pre (if pre re2a_ re2a))
+ re4 (concat pre (if pre re4_ re4))
+ reall (concat "\\(" re0 "\\)\\|\\(" re1 "\\)\\|\\(" re2
+ "\\)\\|\\(" re3 "\\)\\|\\(" re4 "\\)\\|\\("
+ re5 "\\)"
+ ))
+ (cond
+ ((eq type 'org-occur) (org-occur reall))
+ ((eq type 'occur) (org-do-occur (downcase reall) 'cleanup))
+ (t (goto-char (point-min))
+ (setq type 'fuzzy)
+ (if (or (and (org-search-not-self 1 re0 nil t) (setq type 'dedicated))
+ (org-search-not-self 1 re1 nil t)
+ (org-search-not-self 1 re2 nil t)
+ (org-search-not-self 1 re2a nil t)
+ (org-search-not-self 1 re3 nil t)
+ (org-search-not-self 1 re4 nil t)
+ (org-search-not-self 1 re5 nil t)
+ )
+ (goto-char (match-beginning 1))
+ (goto-char pos)
+ (error "No match")))))
+ (t
+ ;; Normal string-search
+ (goto-char (point-min))
+ (if (search-forward s nil t)
+ (goto-char (match-beginning 0))
+ (error "No match"))))
+ (and (org-mode-p) (org-show-context 'link-search))
+ type))
+
+(defun org-search-not-self (group &rest args)
+ "Execute `re-search-forward', but only accept matches that do not
+enclose the position of `org-open-link-marker'."
+ (let ((m org-open-link-marker))
+ (catch 'exit
+ (while (apply 're-search-forward args)
+ (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."
+ (cond
+ ((not org-display-internal-link-with-indirect-buffer)
+ buffer)
+ ((string-match "(Clone)$" (buffer-name buffer))
+ (message "Buffer is already a clone, not making another one")
+ ;; we also do not modify visibility in this case
+ buffer)
+ (t ; make a new indirect buffer for displaying the link
+ (let* ((bn (buffer-name buffer))
+ (ibn (concat bn "(Clone)"))
+ (ib (or (get-buffer ibn) (make-indirect-buffer buffer ibn 'clone))))
+ (with-current-buffer ib (org-overview))
+ ib))))
+
+(defun org-do-occur (regexp &optional cleanup)
+ "Call the Emacs command `occur'.
+If CLEANUP is non-nil, remove the printout of the regular expression
+in the *Occur* buffer. This is useful if the regex is long and not useful
+to read."
+ (occur regexp)
+ (when cleanup
+ (let ((cwin (selected-window)) win beg end)
+ (when (setq win (get-buffer-window "*Occur*"))
+ (select-window win))
+ (goto-char (point-min))
+ (when (re-search-forward "match[a-z]+" nil t)
+ (setq beg (match-end 0))
+ (if (re-search-forward "^[ \t]*[0-9]+" nil t)
+ (setq end (1- (match-beginning 0)))))
+ (and beg end (let ((inhibit-read-only t)) (delete-region beg end)))
+ (goto-char (point-min))
+ (select-window cwin))))
+
+;;; The mark ring for links jumps
+
+(defvar org-mark-ring nil
+ "Mark ring for positions before jumps in Org-mode.")
+(defvar org-mark-ring-last-goto nil
+ "Last position in the mark ring used to go back.")
+;; Fill and close the ring
+(setq org-mark-ring nil org-mark-ring-last-goto nil) ;; in case file is reloaded
+(loop for i from 1 to org-mark-ring-length do
+ (push (make-marker) org-mark-ring))
+(setcdr (nthcdr (1- org-mark-ring-length) org-mark-ring)
+ org-mark-ring)
+
+(defun org-mark-ring-push (&optional pos buffer)
+ "Put the current position or POS into the mark ring and rotate it."
+ (interactive)
+ (setq pos (or pos (point)))
+ (setq org-mark-ring (nthcdr (1- org-mark-ring-length) org-mark-ring))
+ (move-marker (car org-mark-ring)
+ (or pos (point))
+ (or buffer (current-buffer)))
+ (message "%s"
+ (substitute-command-keys
+ "Position saved to mark ring, go back with \\[org-mark-ring-goto].")))
+
+(defun org-mark-ring-goto (&optional n)
+ "Jump to the previous position in the mark ring.
+With prefix arg N, jump back that many stored positions. When
+called several times in succession, walk through the entire ring.
+Org-mode commands jumping to a different position in the current file,
+or to another Org-mode file, automatically push the old position
+onto the ring."
+ (interactive "p")
+ (let (p m)
+ (if (eq last-command this-command)
+ (setq p (nthcdr n (or org-mark-ring-last-goto org-mark-ring)))
+ (setq p org-mark-ring))
+ (setq org-mark-ring-last-goto p)
+ (setq m (car p))
+ (switch-to-buffer (marker-buffer m))
+ (goto-char m)
+ (if (or (org-invisible-p) (org-invisible-p2)) (org-show-context 'mark-goto))))
+
+(defun org-remove-angle-brackets (s)
+ (if (equal (substring s 0 1) "<") (setq s (substring s 1)))
+ (if (equal (substring s -1) ">") (setq s (substring s 0 -1)))
+ s)
+(defun org-add-angle-brackets (s)
+ (if (equal (substring s 0 1) "<") nil (setq s (concat "<" s)))
+ (if (equal (substring s -1) ">") nil (setq s (concat s ">")))
+ s)
+
+;;; Following specific links
+
+(defun org-follow-timestamp-link ()
+ (cond
+ ((org-at-date-range-p t)
+ (let ((org-agenda-start-on-weekday)
+ (t1 (match-string 1))
+ (t2 (match-string 2)))
+ (setq t1 (time-to-days (org-time-string-to-time t1))
+ t2 (time-to-days (org-time-string-to-time t2)))
+ (org-agenda-list nil t1 (1+ (- t2 t1)))))
+ ((org-at-timestamp-p t)
+ (org-agenda-list nil (time-to-days (org-time-string-to-time
+ (substring (match-string 1) 0 10)))
+ 1))
+ (t (error "This should not happen"))))
+
+
+;;; Following file links
+(defvar org-wait nil)
+(defun org-open-file (path &optional in-emacs line search)
+ "Open the file at PATH.
+First, this expands any special file name abbreviations. Then the
+configuration variable `org-file-apps' is checked if it contains an
+entry for this file type, and if yes, the corresponding command is launched.
+If no application is found, Emacs simply visits the file.
+With optional argument IN-EMACS, Emacs will visit the file.
+Optional LINE specifies a line to go to, optional SEARCH a string to
+search for. If LINE or SEARCH is given, the file will always be
+opened in Emacs.
+If the file does not exist, an error is thrown."
+ (setq in-emacs (or in-emacs line search))
+ (let* ((file (if (equal path "")
+ buffer-file-name
+ (substitute-in-file-name (expand-file-name path))))
+ (apps (append org-file-apps (org-default-apps)))
+ (remp (and (assq 'remote apps) (org-file-remote-p file)))
+ (dirp (if remp nil (file-directory-p file)))
+ (dfile (downcase file))
+ (old-buffer (current-buffer))
+ (old-pos (point))
+ (old-mode major-mode)
+ ext cmd)
+ (if (string-match "^.*\\.\\([a-zA-Z0-9]+\\.gz\\)$" dfile)
+ (setq ext (match-string 1 dfile))
+ (if (string-match "^.*\\.\\([a-zA-Z0-9]+\\)$" dfile)
+ (setq ext (match-string 1 dfile))))
+ (if in-emacs
+ (setq cmd 'emacs)
+ (setq cmd (or (and remp (cdr (assoc 'remote apps)))
+ (and dirp (cdr (assoc 'directory apps)))
+ (cdr (assoc ext apps))
+ (cdr (assoc t apps)))))
+ (when (eq cmd 'mailcap)
+ (require 'mailcap)
+ (mailcap-parse-mailcaps)
+ (let* ((mime-type (mailcap-extension-to-mime (or ext "")))
+ (command (mailcap-mime-info mime-type)))
+ (if (stringp command)
+ (setq cmd command)
+ (setq cmd 'emacs))))
+ (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))
+ (cond
+ ((and (stringp cmd) (not (string-match "^\\s-*$" cmd)))
+ ;; Remove quotes around the file name - we'll use shell-quote-argument.
+ (while (string-match "['\"]%s['\"]" cmd)
+ (setq cmd (replace-match "%s" t t cmd)))
+ (while (string-match "%s" cmd)
+ (setq cmd (replace-match
+ (save-match-data (shell-quote-argument file))
+ t t cmd)))
+ (save-window-excursion
+ (start-process-shell-command cmd nil cmd)
+ (and (boundp 'org-wait) (numberp org-wait) (sit-for org-wait))
+ ))
+ ((or (stringp cmd)
+ (eq cmd 'emacs))
+ (funcall (cdr (assq 'file org-link-frame-setup)) file)
+ (widen)
+ (if line (goto-line line)
+ (if search (org-link-search search))))
+ ((consp cmd)
+ (eval cmd))
+ (t (funcall (cdr (assq 'file org-link-frame-setup)) file)))
+ (and (org-mode-p) (eq old-mode 'org-mode)
+ (or (not (equal old-buffer (current-buffer)))
+ (not (equal old-pos (point))))
+ (org-mark-ring-push old-pos old-buffer))))
+
+(defun org-default-apps ()
+ "Return the default applications for this operating system."
+ (cond
+ ((eq system-type 'darwin)
+ org-file-apps-defaults-macosx)
+ ((eq system-type 'windows-nt)
+ org-file-apps-defaults-windowsnt)
+ (t org-file-apps-defaults-gnu)))
+
+(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.
+Return non-nil if the location is indeed remote.
+
+For example, the filename \"/user@host:/foo\" specifies a location
+on the system \"/user@host:\"."
+ (cond ((fboundp 'file-remote-p)
+ (file-remote-p file))
+ ((fboundp 'tramp-handle-file-remote-p)
+ (tramp-handle-file-remote-p file))
+ ((and (boundp 'ange-ftp-name-format)
+ (string-match (car ange-ftp-name-format) file))
+ t)
+ (t nil)))
+
+
+;;;; Refiling
+
+(defun org-get-org-file ()
+ "Read a filename, with default directory `org-directory'."
+ (let ((default (or org-default-notes-file remember-data-file)))
+ (read-file-name (format "File name [%s]: " default)
+ (file-name-as-directory org-directory)
+ default)))
+
+(defun org-notes-order-reversed-p ()
+ "Check if the current file should receive notes in reversed order."
+ (cond
+ ((not org-reverse-note-order) nil)
+ ((eq t org-reverse-note-order) t)
+ ((not (listp org-reverse-note-order)) nil)
+ (t (catch 'exit
+ (let ((all org-reverse-note-order)
+ entry)
+ (while (setq entry (pop all))
+ (if (string-match (car entry) buffer-file-name)
+ (throw 'exit (cdr entry))))
+ nil)))))
+
+(defvar org-refile-target-table nil
+ "The list of refile targets, created by `org-refile'.")
+
+(defvar org-agenda-new-buffers nil
+ "Buffers created to visit agenda files.")
+
+(defun org-get-refile-targets (&optional default-buffer)
+ "Produce a table with refile targets."
+ (let ((entries (or org-refile-targets '((nil . (:level . 1)))))
+ targets txt re files f desc descre)
+ (with-current-buffer (or default-buffer (current-buffer))
+ (while (setq entry (pop entries))
+ (setq files (car entry) desc (cdr entry))
+ (cond
+ ((null files) (setq files (list (current-buffer))))
+ ((eq files 'org-agenda-files)
+ (setq files (org-agenda-files 'unrestricted)))
+ ((and (symbolp files) (fboundp files))
+ (setq files (funcall files)))
+ ((and (symbolp files) (boundp files))
+ (setq files (symbol-value files))))
+ (if (stringp files) (setq files (list files)))
+ (cond
+ ((eq (car desc) :tag)
+ (setq descre (concat "^\\*+[ \t]+.*?:" (regexp-quote (cdr desc)) ":")))
+ ((eq (car desc) :todo)
+ (setq descre (concat "^\\*+[ \t]+" (regexp-quote (cdr desc)) "[ \t]")))
+ ((eq (car desc) :regexp)
+ (setq descre (cdr desc)))
+ ((eq (car desc) :level)
+ (setq descre (concat "^\\*\\{" (number-to-string
+ (if org-odd-levels-only
+ (1- (* 2 (cdr desc)))
+ (cdr desc)))
+ "\\}[ \t]")))
+ ((eq (car desc) :maxlevel)
+ (setq descre (concat "^\\*\\{1," (number-to-string
+ (if org-odd-levels-only
+ (1- (* 2 (cdr desc)))
+ (cdr desc)))
+ "\\}[ \t]")))
+ (t (error "Bad refiling target description %s" desc)))
+ (while (setq f (pop files))
+ (save-excursion
+ (set-buffer (if (bufferp f) f (org-get-agenda-file-buffer f)))
+ (if (bufferp f) (setq f (buffer-file-name (buffer-base-buffer f))))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (while (re-search-forward descre nil t)
+ (goto-char (point-at-bol))
+ (when (looking-at org-complex-heading-regexp)
+ (setq txt (match-string 4)
+ re (concat "^" (regexp-quote
+ (buffer-substring (match-beginning 1)
+ (match-end 4)))))
+ (if (match-end 5) (setq re (concat re "[ \t]+"
+ (regexp-quote
+ (match-string 5)))))
+ (setq re (concat re "[ \t]*$"))
+ (when org-refile-use-outline-path
+ (setq txt (mapconcat 'identity
+ (append
+ (if (eq org-refile-use-outline-path 'file)
+ (list (file-name-nondirectory
+ (buffer-file-name (buffer-base-buffer))))
+ (if (eq org-refile-use-outline-path 'full-file-path)
+ (list (buffer-file-name (buffer-base-buffer)))))
+ (org-get-outline-path)
+ (list txt))
+ "/")))
+ (push (list txt f re (point)) targets))
+ (goto-char (point-at-eol))))))))
+ (nreverse targets))))
+
+(defun org-get-outline-path ()
+ "Return the outline path to the current entry, as a list."
+ (let (rtn)
+ (save-excursion
+ (while (org-up-heading-safe)
+ (when (looking-at org-complex-heading-regexp)
+ (push (org-match-string-no-properties 4) rtn)))
+ rtn)))
+
+(defvar org-refile-history nil
+ "History for refiling operations.")
+
+(defun org-refile (&optional goto default-buffer)
+ "Move the entry at point to another heading.
+The list of target headings is compiled using the information in
+`org-refile-targets', which see. This list is created before each use
+and will therefore always be up-to-date.
+
+At the target location, the entry is filed as a subitem of the target heading.
+Depending on `org-reverse-note-order', the new subitem will either be the
+first of the last subitem.
+
+With prefix arg GOTO, the command will only visit the target location,
+not actually move anything.
+With a double prefix `C-c C-c', go to the location where the last refiling
+operation has put the subtree."
+ (interactive "P")
+ (let* ((cbuf (current-buffer))
+ (filename (buffer-file-name (buffer-base-buffer cbuf)))
+ pos it nbuf file re level reversed)
+ (if (equal goto '(16))
+ (org-refile-goto-last-stored)
+ (when (setq it (org-refile-get-location
+ (if goto "Goto: " "Refile to: ") default-buffer))
+ (setq file (nth 1 it)
+ re (nth 2 it)
+ pos (nth 3 it))
+ (setq nbuf (or (find-buffer-visiting file)
+ (find-file-noselect file)))
+ (if goto
+ (progn
+ (switch-to-buffer nbuf)
+ (goto-char pos)
+ (org-show-context 'org-goto))
+ (org-copy-special)
+ (save-excursion
+ (set-buffer (setq nbuf (or (find-buffer-visiting file)
+ (find-file-noselect file))))
+ (setq reversed (org-notes-order-reversed-p))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char pos)
+ (looking-at outline-regexp)
+ (setq level (org-get-valid-level (funcall outline-level) 1))
+ (goto-char
+ (if reversed
+ (outline-next-heading)
+ (or (save-excursion (outline-get-next-sibling))
+ (org-end-of-subtree t t)
+ (point-max))))
+ (bookmark-set "org-refile-last-stored")
+ (org-paste-subtree level))))
+ (org-cut-special)
+ (message "Entry refiled to \"%s\"" (car it)))))))
+
+(defun org-refile-goto-last-stored ()
+ "Go to the location where the last refile was stored."
+ (interactive)
+ (bookmark-jump "org-refile-last-stored")
+ (message "This is the location of the last refile"))
+
+(defun org-refile-get-location (&optional prompt default-buffer)
+ "Prompt the user for a refile location, using PROMPT."
+ (let ((org-refile-targets org-refile-targets)
+ (org-refile-use-outline-path org-refile-use-outline-path))
+ (setq org-refile-target-table (org-get-refile-targets default-buffer)))
+ (unless org-refile-target-table
+ (error "No refile targets"))
+ (let* ((cbuf (current-buffer))
+ (filename (buffer-file-name (buffer-base-buffer cbuf)))
+ (fname (and filename (file-truename filename)))
+ (tbl (mapcar
+ (lambda (x)
+ (if (not (equal fname (file-truename (nth 1 x))))
+ (cons (concat (car x) " (" (file-name-nondirectory
+ (nth 1 x)) ")")
+ (cdr x))
+ x))
+ org-refile-target-table))
+ (completion-ignore-case t))
+ (assoc (completing-read prompt tbl nil t nil 'org-refile-history)
+ tbl)))
+
+;;;; Dynamic blocks
+
+(defun org-find-dblock (name)
+ "Find the first dynamic block with name NAME in the buffer.
+If not found, stay at current position and return nil."
+ (let (pos)
+ (save-excursion
+ (goto-char (point-min))
+ (setq pos (and (re-search-forward (concat "^#\\+BEGIN:[ \t]+" name "\\>")
+ nil t)
+ (match-beginning 0))))
+ (if pos (goto-char pos))
+ pos))
+
+(defconst org-dblock-start-re
+ "^#\\+BEGIN:[ \t]+\\(\\S-+\\)\\([ \t]+\\(.*\\)\\)?"
+ "Matches the startline of a dynamic block, with parameters.")
+
+(defconst org-dblock-end-re "^#\\+END\\([: \t\r\n]\\|$\\)"
+ "Matches the end of a dyhamic block.")
+
+(defun org-create-dblock (plist)
+ "Create a dynamic block section, with parameters taken from PLIST.
+PLIST must containe a :name entry which is used as name of the block."
+ (unless (bolp) (newline))
+ (let ((name (plist-get plist :name)))
+ (insert "#+BEGIN: " name)
+ (while plist
+ (if (eq (car plist) :name)
+ (setq plist (cddr plist))
+ (insert " " (prin1-to-string (pop plist)))))
+ (insert "\n\n#+END:\n")
+ (beginning-of-line -2)))
+
+(defun org-prepare-dblock ()
+ "Prepare dynamic block for refresh.
+This empties the block, puts the cursor at the insert position and returns
+the property list including an extra property :name with the block name."
+ (unless (looking-at org-dblock-start-re)
+ (error "Not at a dynamic block"))
+ (let* ((begdel (1+ (match-end 0)))
+ (name (org-no-properties (match-string 1)))
+ (params (append (list :name name)
+ (read (concat "(" (match-string 3) ")")))))
+ (unless (re-search-forward org-dblock-end-re nil t)
+ (error "Dynamic block not terminated"))
+ (setq params
+ (append params
+ (list :content (buffer-substring
+ begdel (match-beginning 0)))))
+ (delete-region begdel (match-beginning 0))
+ (goto-char begdel)
+ (open-line 1)
+ params))
+
+(defun org-map-dblocks (&optional command)
+ "Apply COMMAND to all dynamic blocks in the current buffer.
+If COMMAND is not given, use `org-update-dblock'."
+ (let ((cmd (or command 'org-update-dblock))
+ pos)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward org-dblock-start-re nil t)
+ (goto-char (setq pos (match-beginning 0)))
+ (condition-case nil
+ (funcall cmd)
+ (error (message "Error during update of dynamic block")))
+ (goto-char pos)
+ (unless (re-search-forward org-dblock-end-re nil t)
+ (error "Dynamic block not terminated"))))))
+
+(defun org-dblock-update (&optional arg)
+ "User command for updating dynamic blocks.
+Update the dynamic block at point. With prefix ARG, update all dynamic
+blocks in the buffer."
+ (interactive "P")
+ (if arg
+ (org-update-all-dblocks)
+ (or (looking-at org-dblock-start-re)
+ (org-beginning-of-dblock))
+ (org-update-dblock)))
+
+(defun org-update-dblock ()
+ "Update the dynamic block at point
+This means to empty the block, parse for parameters and then call
+the correct writing function."
+ (save-window-excursion
+ (let* ((pos (point))
+ (line (org-current-line))
+ (params (org-prepare-dblock))
+ (name (plist-get params :name))
+ (cmd (intern (concat "org-dblock-write:" name))))
+ (message "Updating dynamic block `%s' at line %d..." name line)
+ (funcall cmd params)
+ (message "Updating dynamic block `%s' at line %d...done" name line)
+ (goto-char pos))))
+
+(defun org-beginning-of-dblock ()
+ "Find the beginning of the dynamic block at point.
+Error if there is no scuh block at point."
+ (let ((pos (point))
+ beg)
+ (end-of-line 1)
+ (if (and (re-search-backward org-dblock-start-re nil t)
+ (setq beg (match-beginning 0))
+ (re-search-forward org-dblock-end-re nil t)
+ (> (match-end 0) pos))
+ (goto-char beg)
+ (goto-char pos)
+ (error "Not in a dynamic block"))))
+
+(defun org-update-all-dblocks ()
+ "Update all dynamic blocks in the buffer.
+This function can be used in a hook."
+ (when (org-mode-p)
+ (org-map-dblocks 'org-update-dblock)))
+
+
+;;;; Completion
+
+(defconst org-additional-option-like-keywords
+ '("BEGIN_HTML" "BEGIN_LaTeX" "END_HTML" "END_LaTeX"
+ "ORGTBL" "HTML:" "LaTeX:" "BEGIN:" "END:" "TBLFM"
+ "BEGIN_EXAMPLE" "END_EXAMPLE"))
+
+(defun org-complete (&optional arg)
+ "Perform completion on word at point.
+At the beginning of a headline, this completes TODO keywords as given in
+`org-todo-keywords'.
+If the current word is preceded by a backslash, completes the TeX symbols
+that are supported for HTML support.
+If the current word is preceded by \"#+\", completes special words for
+setting file options.
+In the line after \"#+STARTUP:, complete valid keywords.\"
+At all other locations, this simply calls the value of
+`org-completion-fallback-command'."
+ (interactive "P")
+ (org-without-partial-completion
+ (catch 'exit
+ (let* ((end (point))
+ (beg1 (save-excursion
+ (skip-chars-backward (org-re "[:alnum:]_@"))
+ (point)))
+ (beg (save-excursion
+ (skip-chars-backward "a-zA-Z0-9_:$")
+ (point)))
+ (confirm (lambda (x) (stringp (car x))))
+ (searchhead (equal (char-before beg) ?*))
+ (tag (and (equal (char-before beg1) ?:)
+ (equal (char-after (point-at-bol)) ?*)))
+ (prop (and (equal (char-before beg1) ?:)
+ (not (equal (char-after (point-at-bol)) ?*))))
+ (texp (equal (char-before beg) ?\\))
+ (link (equal (char-before beg) ?\[))
+ (opt (equal (buffer-substring (max (point-at-bol) (- beg 2))
+ beg)
+ "#+"))
+ (startup (string-match "^#\\+STARTUP:.*"
+ (buffer-substring (point-at-bol) (point))))
+ (completion-ignore-case opt)
+ (type nil)
+ (tbl nil)
+ (table (cond
+ (opt
+ (setq type :opt)
+ (require 'org-exp)
+ (append
+ (mapcar
+ (lambda (x)
+ (string-match "^#\\+\\(\\([A-Z_]+:?\\).*\\)" x)
+ (cons (match-string 2 x) (match-string 1 x)))
+ (org-split-string (org-get-current-options) "\n"))
+ (mapcar 'list org-additional-option-like-keywords)))
+ (startup
+ (setq type :startup)
+ org-startup-options)
+ (link (append org-link-abbrev-alist-local
+ org-link-abbrev-alist))
+ (texp
+ (setq type :tex)
+ org-html-entities)
+ ((string-match "\\`\\*+[ \t]+\\'"
+ (buffer-substring (point-at-bol) beg))
+ (setq type :todo)
+ (mapcar 'list org-todo-keywords-1))
+ (searchhead
+ (setq type :searchhead)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward org-todo-line-regexp nil t)
+ (push (list
+ (org-make-org-heading-search-string
+ (match-string 3) t))
+ tbl)))
+ tbl)
+ (tag (setq type :tag beg beg1)
+ (or org-tag-alist (org-get-buffer-tags)))
+ (prop (setq type :prop beg beg1)
+ (mapcar 'list (org-buffer-property-keys nil t t)))
+ (t (progn
+ (call-interactively org-completion-fallback-command)
+ (throw 'exit nil)))))
+ (pattern (buffer-substring-no-properties beg end))
+ (completion (try-completion pattern table confirm)))
+ (cond ((eq completion t)
+ (if (not (assoc (upcase pattern) table))
+ (message "Already complete")
+ (if (and (equal type :opt)
+ (not (member (car (assoc (upcase pattern) table))
+ org-additional-option-like-keywords)))
+ (insert (substring (cdr (assoc (upcase pattern) table))
+ (length pattern)))
+ (if (memq type '(:tag :prop)) (insert ":")))))
+ ((null completion)
+ (message "Can't find completion for \"%s\"" pattern)
+ (ding))
+ ((not (string= pattern completion))
+ (delete-region beg end)
+ (if (string-match " +$" completion)
+ (setq completion (replace-match "" t t completion)))
+ (insert completion)
+ (if (get-buffer-window "*Completions*")
+ (delete-window (get-buffer-window "*Completions*")))
+ (if (assoc completion table)
+ (if (eq type :todo) (insert " ")
+ (if (memq type '(:tag :prop)) (insert ":"))))
+ (if (and (equal type :opt) (assoc completion table))
+ (message "%s" (substitute-command-keys
+ "Press \\[org-complete] again to insert example settings"))))
+ (t
+ (message "Making completion list...")
+ (let ((list (sort (all-completions pattern table confirm)
+ 'string<)))
+ (with-output-to-temp-buffer "*Completions*"
+ (condition-case nil
+ ;; Protection needed for XEmacs and emacs 21
+ (display-completion-list list pattern)
+ (error (display-completion-list list)))))
+ (message "Making completion list...%s" "done")))))))
+
+;;;; TODO, DEADLINE, Comments
+
+(defun org-toggle-comment ()
+ "Change the COMMENT state of an entry."
+ (interactive)
+ (save-excursion
+ (org-back-to-heading)
+ (let (case-fold-search)
+ (if (looking-at (concat outline-regexp
+ "\\( *\\<" org-comment-string "\\>[ \t]*\\)"))
+ (replace-match "" t t nil 1)
+ (if (looking-at outline-regexp)
+ (progn
+ (goto-char (match-end 0))
+ (insert org-comment-string " ")))))))
+
+(defvar org-last-todo-state-is-todo nil
+ "This is non-nil when the last TODO state change led to a TODO state.
+If the last change removed the TODO tag or switched to DONE, then
+this is nil.")
+
+(defvar org-setting-tags nil) ; dynamically skiped
+
+(defun org-parse-local-options (string var)
+ "Parse STRING for startup setting relevant for variable VAR."
+ (let ((rtn (symbol-value var))
+ e opts)
+ (save-match-data
+ (if (or (not string) (not (string-match "\\S-" string)))
+ rtn
+ (setq opts (delq nil (mapcar (lambda (x)
+ (setq e (assoc x org-startup-options))
+ (if (eq (nth 1 e) var) e nil))
+ (org-split-string string "[ \t]+"))))
+ (if (not opts)
+ rtn
+ (setq rtn nil)
+ (while (setq e (pop opts))
+ (if (not (nth 3 e))
+ (setq rtn (nth 2 e))
+ (if (not (listp rtn)) (setq rtn nil))
+ (push (nth 2 e) rtn)))
+ rtn)))))
+
+(defvar org-blocker-hook nil
+ "Hook for functions that are allowed to block a state change.
+
+Each function gets as its single argument a property list, see
+`org-trigger-hook' for more information about this list.
+
+If any of the functions in this hook returns nil, the state change
+is blocked.")
+
+(defvar org-trigger-hook nil
+ "Hook for functions that are triggered by a state change.
+
+Each function gets as its single argument a property list with at least
+the following elements:
+
+ (:type type-of-change :position pos-at-entry-start
+ :from old-state :to new-state)
+
+Depending on the type, more properties may be present.
+
+This mechanism is currently implemented for:
+
+TODO state changes
+------------------
+:type todo-state-change
+:from previous state (keyword as a string), or nil
+:to new state (keyword as a string), or nil")
+
+
+(defun org-todo (&optional arg)
+ "Change the TODO state of an item.
+The state of an item is given by a keyword at the start of the heading,
+like
+ *** TODO Write paper
+ *** DONE Call mom
+
+The different keywords are specified in the variable `org-todo-keywords'.
+By default the available states are \"TODO\" and \"DONE\".
+So for this example: when the item starts with TODO, it is changed to DONE.
+When it starts with DONE, the DONE is removed. And when neither TODO nor
+DONE are present, add TODO at the beginning of the heading.
+
+With C-u prefix arg, use completion to determine the new state.
+With numeric prefix arg, switch to that state.
+
+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")
+ (save-excursion
+ (catch 'exit
+ (org-back-to-heading)
+ (if (looking-at outline-regexp) (goto-char (1- (match-end 0))))
+ (or (looking-at (concat " +" org-todo-regexp " *"))
+ (looking-at " *"))
+ (let* ((match-data (match-data))
+ (startpos (point-at-bol))
+ (logging (save-match-data (org-entry-get nil "LOGGING" t)))
+ (org-log-done org-log-done)
+ (org-log-repeat org-log-repeat)
+ (org-todo-log-states org-todo-log-states)
+ (this (match-string 1))
+ (hl-pos (match-beginning 0))
+ (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-1))
+ (tail (cdr member))
+ (state (cond
+ ((and org-todo-key-trigger
+ (or (and (equal arg '(4)) (eq org-use-fast-todo-selection 'prefix))
+ (and (not arg) org-use-fast-todo-selection
+ (not (eq org-use-fast-todo-selection 'prefix)))))
+ ;; Use fast selection
+ (org-fast-todo-selection))
+ ((and (equal arg '(4))
+ (or (not org-use-fast-todo-selection)
+ (not org-todo-key-trigger)))
+ ;; Read a state with completion
+ (completing-read "State: " (mapcar (lambda(x) (list x))
+ org-todo-keywords-1)
+ nil t))
+ ((eq arg 'right)
+ (if this
+ (if tail (car tail) nil)
+ (car org-todo-keywords-1)))
+ ((eq arg 'left)
+ (if (equal member org-todo-keywords-1)
+ nil
+ (if this
+ (nth (- (length org-todo-keywords-1) (length tail) 2)
+ org-todo-keywords-1)
+ (org-last org-todo-keywords-1))))
+ ((and (eq org-use-fast-todo-selection t) (equal arg '(4))
+ (setq arg nil))) ; hack to fall back to cycling
+ (arg
+ ;; user or caller requests a specific state
+ (cond
+ ((equal arg "") nil)
+ ((eq arg 'none) nil)
+ ((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-1))))
+ ((null member) (or head (car org-todo-keywords-1)))
+ ((equal this final-done-word) nil) ;; -> make empty
+ ((null tail) nil) ;; -> first entry
+ ((eq interpret 'sequence)
+ (car tail))
+ ((memq interpret '(type priority))
+ (if (eq this-command last-command)
+ (car tail)
+ (if (> (length tail) 0)
+ (or done-word (car org-done-keywords))
+ nil)))
+ (t nil)))
+ (next (if state (concat " " state " ") " "))
+ (change-plist (list :type 'todo-state-change :from this :to state
+ :position startpos))
+ dolog now-done-p)
+ (when org-blocker-hook
+ (unless (save-excursion
+ (save-match-data
+ (run-hook-with-args-until-failure
+ 'org-blocker-hook change-plist)))
+ (if (interactive-p)
+ (error "TODO state change from %s to %s blocked" this state)
+ ;; fail silently
+ (message "TODO state change from %s to %s blocked" this state)
+ (throw 'exit nil))))
+ (store-match-data match-data)
+ (replace-match next t t)
+ (unless (pos-visible-in-window-p hl-pos)
+ (message "TODO state changed to %s" (org-trim next)))
+ (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 %d/%d: %s"
+ (- (length org-todo-sets) -1
+ (length (memq (assoc state org-todo-sets) org-todo-sets)))
+ (length org-todo-sets)
+ (mapconcat 'identity (assoc state org-todo-sets) " ")))
+ (setq org-last-todo-state-is-todo
+ (not (member state org-done-keywords)))
+ (setq now-done-p (and (member state org-done-keywords)
+ (not (member this org-done-keywords))))
+ (and logging (org-local-logging logging))
+ (when (and (or org-todo-log-states org-log-done)
+ (not (memq arg '(nextset previousset))))
+ ;; we need to look at recording a time and note
+ (setq dolog (or (nth 1 (assoc state org-todo-log-states))
+ (nth 2 (assoc this org-todo-log-states))))
+ (when (and state
+ (member state org-not-done-keywords)
+ (not (member this org-not-done-keywords)))
+ ;; This is now a todo state and was not one before
+ ;; If there was a CLOSED time stamp, get rid of it.
+ (org-add-planning-info nil nil 'closed))
+ (when (and now-done-p org-log-done)
+ ;; It is now done, and it was not done before
+ (org-add-planning-info 'closed (org-current-time))
+ (if (and (not dolog) (eq 'note org-log-done))
+ (org-add-log-setup 'done state 'findpos 'note)))
+ (when (and state dolog)
+ ;; This is a non-nil state, and we need to log it
+ (org-add-log-setup 'state state 'findpos dolog)))
+ ;; Fixup tag positioning
+ (and org-auto-align-tags (not org-setting-tags) (org-set-tags nil t))
+ (run-hooks 'org-after-todo-state-change-hook)
+ (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)
+ ;; Do we need to trigger a repeat?
+ (when now-done-p (org-auto-repeat-maybe state))
+ ;; Fixup cursor location if close to the keyword
+ (if (and (outline-on-heading-p)
+ (not (bolp))
+ (save-excursion (beginning-of-line 1)
+ (looking-at org-todo-line-regexp))
+ (< (point) (+ 2 (or (match-end 2) (match-end 1)))))
+ (progn
+ (goto-char (or (match-end 2) (match-end 1)))
+ (just-one-space)))
+ (when org-trigger-hook
+ (save-excursion
+ (run-hook-with-args 'org-trigger-hook change-plist)))))))
+
+(defun org-local-logging (value)
+ "Get logging settings from a property VALUE."
+ (let* (words w a)
+ ;; directly set the variables, they are already local.
+ (setq org-log-done nil
+ org-log-repeat nil
+ org-todo-log-states nil)
+ (setq words (org-split-string value))
+ (while (setq w (pop words))
+ (cond
+ ((setq a (assoc w org-startup-options))
+ (and (member (nth 1 a) '(org-log-done org-log-repeat))
+ (set (nth 1 a) (nth 2 a))))
+ ((setq a (org-extract-log-state-settings w))
+ (and (member (car a) org-todo-keywords-1)
+ (push a org-todo-log-states)))))))
+
+(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-fast-todo-selection ()
+ "Fast TODO keyword selection with single keys.
+Returns the new TODO keyword, or nil if no state change should occur."
+ (let* ((fulltable org-todo-key-alist)
+ (done-keywords org-done-keywords) ;; needed for the faces.
+ (maxlen (apply 'max (mapcar
+ (lambda (x)
+ (if (stringp (car x)) (string-width (car x)) 0))
+ fulltable)))
+ (expert nil)
+ (fwidth (+ maxlen 3 1 3))
+ (ncol (/ (- (window-width) 4) fwidth))
+ tg cnt e c tbl
+ groups ingroup)
+ (save-window-excursion
+ (if expert
+ (set-buffer (get-buffer-create " *Org todo*"))
+ (org-switch-to-buffer-other-window (get-buffer-create " *Org todo*")))
+ (erase-buffer)
+ (org-set-local 'org-done-keywords done-keywords)
+ (setq tbl fulltable cnt 0)
+ (while (setq e (pop tbl))
+ (cond
+ ((equal e '(:startgroup))
+ (push '() groups) (setq ingroup t)
+ (when (not (= cnt 0))
+ (setq cnt 0)
+ (insert "\n"))
+ (insert "{ "))
+ ((equal e '(:endgroup))
+ (setq ingroup nil cnt 0)
+ (insert "}\n"))
+ (t
+ (setq tg (car e) c (cdr e))
+ (if ingroup (push tg (car groups)))
+ (setq tg (org-add-props tg nil 'face
+ (org-get-todo-face tg)))
+ (if (and (= cnt 0) (not ingroup)) (insert " "))
+ (insert "[" c "] " tg (make-string
+ (- fwidth 4 (length tg)) ?\ ))
+ (when (= (setq cnt (1+ cnt)) ncol)
+ (insert "\n")
+ (if ingroup (insert " "))
+ (setq cnt 0)))))
+ (insert "\n")
+ (goto-char (point-min))
+ (if (and (not expert) (fboundp 'fit-window-to-buffer))
+ (fit-window-to-buffer))
+ (message "[a-z..]:Set [SPC]:clear")
+ (setq c (let ((inhibit-quit t)) (read-char-exclusive)))
+ (cond
+ ((or (= c ?\C-g)
+ (and (= c ?q) (not (rassoc c fulltable))))
+ (setq quit-flag t))
+ ((= c ?\ ) nil)
+ ((setq e (rassoc c fulltable) tg (car e))
+ tg)
+ (t (setq quit-flag t))))))
+
+(defun org-entry-is-todo-p ()
+ (member (org-get-todo-state) org-not-done-keywords))
+
+(defun org-entry-is-done-p ()
+ (member (org-get-todo-state) org-done-keywords))
+
+(defun org-get-todo-state ()
+ (save-excursion
+ (org-back-to-heading t)
+ (and (looking-at org-todo-line-regexp)
+ (match-end 2)
+ (match-string 2))))
+
+(defun org-at-date-range-p (&optional inactive-ok)
+ "Is the cursor inside a date range?"
+ (interactive)
+ (save-excursion
+ (catch 'exit
+ (let ((pos (point)))
+ (skip-chars-backward "^[<\r\n")
+ (skip-chars-backward "<[")
+ (and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
+ (>= (match-end 0) pos)
+ (throw 'exit t))
+ (skip-chars-backward "^<[\r\n")
+ (skip-chars-backward "<[")
+ (and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
+ (>= (match-end 0) pos)
+ (throw 'exit t)))
+ nil)))
+
+(defun org-get-repeat ()
+ "Check if tere is a deadline/schedule with repeater in this entry."
+ (save-match-data
+ (save-excursion
+ (org-back-to-heading t)
+ (if (re-search-forward
+ org-repeat-re (save-excursion (outline-next-heading) (point)) t)
+ (match-string 1)))))
+
+(defvar org-last-changed-timestamp)
+(defvar org-log-post-message)
+(defvar org-log-note-purpose)
+(defvar org-log-note-how)
+(defun org-auto-repeat-maybe (done-word)
+ "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 is run automatically after each state change to a DONE state."
+ ;; last-state is dynamically scoped into this function
+ (let* ((repeat (org-get-repeat))
+ (aa (assoc last-state org-todo-kwd-alist))
+ (interpret (nth 1 aa))
+ (head (nth 2 aa))
+ (whata '(("d" . day) ("m" . month) ("y" . year)))
+ (msg "Entry repeats: ")
+ (org-log-done nil)
+ (org-todo-log-states nil)
+ (nshiftmax 10) (nshift 0)
+ re type n what ts mb0 time)
+ (when repeat
+ (if (eq org-log-repeat t) (setq org-log-repeat 'state))
+ (org-todo (if (eq interpret 'type) last-state head))
+ (when org-log-repeat
+ (if (or (memq 'org-add-log-note (default-value 'post-command-hook))
+ (memq 'org-add-log-note post-command-hook))
+ ;; OK, we are already setup for some record
+ (if (eq org-log-repeat 'note)
+ ;; make sure we take a note, not only a time stamp
+ (setq org-log-note-how 'note))
+ ;; Set up for taking a record
+ (org-add-log-setup 'state (or done-word (car org-done-keywords))
+ 'findpos org-log-repeat)))
+ (org-back-to-heading t)
+ (org-add-planning-info nil nil 'closed)
+ (setq re (concat "\\(" org-scheduled-time-regexp "\\)\\|\\("
+ org-deadline-time-regexp "\\)\\|\\("
+ org-ts-regexp "\\)"))
+ (while (re-search-forward
+ re (save-excursion (outline-next-heading) (point)) t)
+ (setq type (if (match-end 1) org-scheduled-string
+ (if (match-end 3) org-deadline-string "Plain:"))
+ ts (match-string (if (match-end 2) 2 (if (match-end 4) 4 0)))
+ mb0 (match-beginning 0))
+ (when (string-match "\\([.+]\\)?\\(\\+[0-9]+\\)\\([dwmy]\\)" ts)
+ (setq n (string-to-number (match-string 2 ts))
+ what (match-string 3 ts))
+ (if (equal what "w") (setq n (* n 7) what "d"))
+ ;; Preparation, see if we need to modify the start date for the change
+ (when (match-end 1)
+ (setq time (save-match-data (org-time-string-to-time ts)))
+ (cond
+ ((equal (match-string 1 ts) ".")
+ ;; Shift starting date to today
+ (org-timestamp-change
+ (- (time-to-days (current-time)) (time-to-days time))
+ 'day))
+ ((equal (match-string 1 ts) "+")
+ (while (or (= nshift 0)
+ (<= (time-to-days time) (time-to-days (current-time))))
+ (when (= (incf nshift) nshiftmax)
+ (or (y-or-n-p (message "%d repeater intervals were not enough to shift date past today. Continue? " nshift))
+ (error "Abort")))
+ (org-timestamp-change n (cdr (assoc what whata)))
+ (org-at-timestamp-p t)
+ (setq ts (match-string 1))
+ (setq time (save-match-data (org-time-string-to-time ts))))
+ (org-timestamp-change (- n) (cdr (assoc what whata)))
+ ;; rematch, so that we have everything in place for the real shift
+ (org-at-timestamp-p t)
+ (setq ts (match-string 1))
+ (string-match "\\([.+]\\)?\\(\\+[0-9]+\\)\\([dwmy]\\)" ts))))
+ (org-timestamp-change n (cdr (assoc what whata)))
+ (setq msg (concat msg type org-last-changed-timestamp " "))))
+ (setq org-log-post-message msg)
+ (message "%s" msg))))
+
+(defun org-show-todo-tree (arg)
+ "Make a compact tree which shows all headlines marked with TODO.
+The tree will show the lines where the regexp matches, and all higher
+headlines above the match.
+With a \\[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-1'."
+ (interactive "P")
+ (let ((case-fold-search nil)
+ (kwd-re
+ (cond ((null arg) org-not-done-regexp)
+ ((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-1)))
+ (t (error "Invalid prefix argument: %s" arg)))))
+ (message "%d TODO entries found"
+ (org-occur (concat "^" outline-regexp " *" kwd-re )))))
+
+(defun org-deadline (&optional remove)
+ "Insert the \"DEADLINE:\" string with a timestamp to make a deadline.
+With argument REMOVE, remove any deadline from the item."
+ (interactive "P")
+ (if remove
+ (progn
+ (org-remove-timestamp-with-keyword org-deadline-string)
+ (message "Item no longer has a deadline."))
+ (org-add-planning-info 'deadline nil 'closed)))
+
+(defun org-schedule (&optional remove)
+ "Insert the SCHEDULED: string with a timestamp to schedule a TODO item.
+With argument REMOVE, remove any scheduling date from the item."
+ (interactive "P")
+ (if remove
+ (progn
+ (org-remove-timestamp-with-keyword org-scheduled-string)
+ (message "Item is no longer scheduled."))
+ (org-add-planning-info 'scheduled nil 'closed)))
+
+(defun org-remove-timestamp-with-keyword (keyword)
+ "Remove all time stamps with KEYWORD in the current entry."
+ (let ((re (concat "\\<" (regexp-quote keyword) " +<[^>\n]+>[ \t]*"))
+ beg)
+ (save-excursion
+ (org-back-to-heading t)
+ (setq beg (point))
+ (org-end-of-subtree t t)
+ (while (re-search-backward re beg t)
+ (replace-match "")
+ (unless (string-match "\\S-" (buffer-substring (point-at-bol) (point)))
+ (delete-region (point-at-bol) (min (1+ (point)) (point-max))))))))
+
+(defun org-add-planning-info (what &optional time &rest remove)
+ "Insert new timestamp with keyword in the line directly after the headline.
+WHAT indicates what kind of time stamp to add. TIME indicated the time to use.
+If non is given, the user is prompted for a date.
+REMOVE indicates what kind of entries to remove. An old WHAT entry will also
+be removed."
+ (interactive)
+ (let (org-time-was-given org-end-time-was-given ts
+ end default-time default-input)
+
+ (when (and (not time) (memq what '(scheduled deadline)))
+ ;; Try to get a default date/time from existing timestamp
+ (save-excursion
+ (org-back-to-heading t)
+ (setq end (save-excursion (outline-next-heading) (point)))
+ (when (re-search-forward (if (eq what 'scheduled)
+ org-scheduled-time-regexp
+ org-deadline-time-regexp)
+ end t)
+ (setq ts (match-string 1)
+ default-time
+ (apply 'encode-time (org-parse-time-string ts))
+ default-input (and ts (org-get-compact-tod ts))))))
+ (when what
+ ;; If necessary, get the time from the user
+ (setq time (or time (org-read-date nil 'to-time nil nil
+ default-time default-input))))
+
+ (when (and org-insert-labeled-timestamps-at-point
+ (member what '(scheduled deadline)))
+ (insert
+ (if (eq what 'scheduled) org-scheduled-string org-deadline-string) " ")
+ (org-insert-time-stamp time org-time-was-given
+ nil nil nil (list org-end-time-was-given))
+ (setq what nil))
+ (save-excursion
+ (save-restriction
+ (let (col list elt ts buffer-invisibility-spec)
+ (org-back-to-heading t)
+ (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"))
+ (goto-char (match-end 1))
+ (setq col (current-column))
+ (goto-char (match-end 0))
+ (if (eobp) (insert "\n") (forward-char 1))
+ (if (and (not (looking-at outline-regexp))
+ (looking-at (concat "[^\r\n]*?" org-keyword-time-regexp
+ "[^\r\n]*"))
+ (not (equal (match-string 1) org-clock-string)))
+ (narrow-to-region (match-beginning 0) (match-end 0))
+ (insert-before-markers "\n")
+ (backward-char 1)
+ (narrow-to-region (point) (point))
+ (org-indent-to-column col))
+ ;; Check if we have to remove something.
+ (setq list (cons what remove))
+ (while list
+ (setq elt (pop list))
+ (goto-char (point-min))
+ (when (or (and (eq elt 'scheduled)
+ (re-search-forward org-scheduled-time-regexp nil t))
+ (and (eq elt 'deadline)
+ (re-search-forward org-deadline-time-regexp nil t))
+ (and (eq elt 'closed)
+ (re-search-forward org-closed-time-regexp nil t)))
+ (replace-match "")
+ (if (looking-at "--+<[^>]+>") (replace-match ""))
+ (if (looking-at " +") (replace-match ""))))
+ (goto-char (point-max))
+ (when what
+ (insert
+ (if (not (equal (char-before) ?\ )) " " "")
+ (cond ((eq what 'scheduled) org-scheduled-string)
+ ((eq what 'deadline) org-deadline-string)
+ ((eq what 'closed) org-closed-string))
+ " ")
+ (setq ts (org-insert-time-stamp
+ time
+ (or org-time-was-given
+ (and (eq what 'closed) org-log-done-with-time))
+ (eq what 'closed)
+ nil nil (list org-end-time-was-given)))
+ (end-of-line 1))
+ (goto-char (point-min))
+ (widen)
+ (if (and (looking-at "[ \t]+\n")
+ (equal (char-before) ?\n))
+ (backward-delete-char 1))
+ ts)))))
+
+(defvar org-log-note-marker (make-marker))
+(defvar org-log-note-purpose nil)
+(defvar org-log-note-state nil)
+(defvar org-log-note-how nil)
+(defvar org-log-note-window-configuration nil)
+(defvar org-log-note-return-to (make-marker))
+(defvar org-log-post-message nil
+ "Message to be displayed after a log note has been stored.
+The auto-repeater uses this.")
+
+(defun org-add-note ()
+ "Add a note to the current entry.
+This is done in the same way as adding a state change note."
+ (interactive)
+ (org-add-log-setup 'note nil t nil))
+
+(defun org-add-log-setup (&optional purpose state findpos how)
+ "Set up the post command hook to take a note.
+If this is about to TODO state change, the new state is expected in STATE.
+When FINDPOS is non-nil, find the correct position for the note in
+the current entry. If not, assume that it can be inserted at point."
+ (save-excursion
+ (when findpos
+ (org-back-to-heading t)
+ (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
+ "\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
+ "[^\r\n]*\\)?"))
+ (goto-char (match-end 0))
+ (unless org-log-states-order-reversed
+ (and (= (char-after) ?\n) (forward-char 1))
+ (org-skip-over-state-notes)
+ (skip-chars-backward " \t\n\r")))
+ (move-marker org-log-note-marker (point))
+ (setq org-log-note-purpose purpose
+ org-log-note-state state
+ org-log-note-how how)
+ (add-hook 'post-command-hook 'org-add-log-note 'append)))
+
+(defun org-skip-over-state-notes ()
+ "Skip past the list of State notes in an entry."
+ (if (looking-at "\n[ \t]*- State") (forward-char 1))
+ (while (looking-at "[ \t]*- State")
+ (condition-case nil
+ (org-next-item)
+ (error (org-end-of-item)))))
+
+(defun org-add-log-note (&optional purpose)
+ "Pop up a window for taking a note, and add this note later at point."
+ (remove-hook 'post-command-hook 'org-add-log-note)
+ (setq org-log-note-window-configuration (current-window-configuration))
+ (delete-other-windows)
+ (move-marker org-log-note-return-to (point))
+ (switch-to-buffer (marker-buffer org-log-note-marker))
+ (goto-char org-log-note-marker)
+ (org-switch-to-buffer-other-window "*Org Note*")
+ (erase-buffer)
+ (if (memq org-log-note-how '(time state))
+ (org-store-log-note)
+ (let ((org-inhibit-startup t)) (org-mode))
+ (insert (format "# Insert note for %s.
+# Finish with C-c C-c, or cancel with C-c C-k.\n\n"
+ (cond
+ ((eq org-log-note-purpose 'clock-out) "stopped clock")
+ ((eq org-log-note-purpose 'done) "closed todo item")
+ ((eq org-log-note-purpose 'state)
+ (format "state change to \"%s\"" org-log-note-state))
+ ((eq org-log-note-purpose 'note)
+ "this entry")
+ (t (error "This should not happen")))))
+ (org-set-local 'org-finish-function 'org-store-log-note)))
+
+(defvar org-note-abort nil) ; dynamically scoped
+(defun org-store-log-note ()
+ "Finish taking a log note, and insert it to where it belongs."
+ (let ((txt (buffer-string))
+ (note (cdr (assq org-log-note-purpose org-log-note-headings)))
+ lines ind)
+ (kill-buffer (current-buffer))
+ (while (string-match "\\`#.*\n[ \t\n]*" txt)
+ (setq txt (replace-match "" t t txt)))
+ (if (string-match "\\s-+\\'" txt)
+ (setq txt (replace-match "" t t txt)))
+ (setq lines (org-split-string txt "\n"))
+ (when (and note (string-match "\\S-" note))
+ (setq note
+ (org-replace-escapes
+ note
+ (list (cons "%u" (user-login-name))
+ (cons "%U" user-full-name)
+ (cons "%t" (format-time-string
+ (org-time-stamp-format 'long 'inactive)
+ (current-time)))
+ (cons "%s" (if org-log-note-state
+ (concat "\"" org-log-note-state "\"")
+ "")))))
+ (if lines (setq note (concat note " \\\\")))
+ (push note lines))
+ (when (or current-prefix-arg org-note-abort) (setq lines nil))
+ (when lines
+ (save-excursion
+ (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)) (let ((inhibit-read-only t)) (insert "\n")))
+ (indent-relative nil)
+ (insert "- " (pop lines))
+ (org-indent-line-function)
+ (beginning-of-line 1)
+ (looking-at "[ \t]*")
+ (setq ind (concat (match-string 0) " "))
+ (end-of-line 1)
+ (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))
+ (move-marker org-log-note-return-to nil)
+ (and org-log-post-message (message "%s" org-log-post-message)))
+
+(defun org-sparse-tree (&optional arg)
+ "Create a sparse tree, prompt for the details.
+This command can create sparse trees. You first need to select the type
+of match used to create the tree:
+
+t Show entries with a specific TODO keyword.
+T Show entries selected by a tags match.
+p Enter a property name and its value (both with completion on existing
+ names/values) and show entries with that property.
+r Show entries matching a regular expression
+d Show deadlines due within `org-deadline-warning-days'."
+ (interactive "P")
+ (let (ans kwd value)
+ (message "Sparse tree: [/]regexp [t]odo-kwd [T]ag [p]roperty [d]eadlines [b]efore-date")
+ (setq ans (read-char-exclusive))
+ (cond
+ ((equal ans ?d)
+ (call-interactively 'org-check-deadlines))
+ ((equal ans ?b)
+ (call-interactively 'org-check-before-date))
+ ((equal ans ?t)
+ (org-show-todo-tree '(4)))
+ ((equal ans ?T)
+ (call-interactively 'org-tags-sparse-tree))
+ ((member ans '(?p ?P))
+ (setq kwd (completing-read "Property: "
+ (mapcar 'list (org-buffer-property-keys))))
+ (setq value (completing-read "Value: "
+ (mapcar 'list (org-property-values kwd))))
+ (unless (string-match "\\`{.*}\\'" value)
+ (setq value (concat "\"" value "\"")))
+ (org-tags-sparse-tree arg (concat kwd "=" value)))
+ ((member ans '(?r ?R ?/))
+ (call-interactively 'org-occur))
+ (t (error "No such sparse tree command \"%c\"" ans)))))
+
+(defvar org-occur-highlights nil
+ "List of overlays used for occur matches.")
+(make-variable-buffer-local 'org-occur-highlights)
+(defvar org-occur-parameters nil
+ "Parameters of the active org-occur calls.
+This is a list, each call to org-occur pushes as cons cell,
+containing the regular expression and the callback, onto the list.
+The list can contain several entries if `org-occur' has been called
+several time with the KEEP-PREVIOUS argument. Otherwise, this list
+will only contain one set of parameters. When the highlights are
+removed (for example with `C-c C-c', or with the next edit (depending
+on `org-remove-highlights-with-change'), this variable is emptied
+as well.")
+(make-variable-buffer-local 'org-occur-parameters)
+
+(defun org-occur (regexp &optional keep-previous callback)
+ "Make a compact tree which shows all matches of REGEXP.
+The tree will show the lines where the regexp matches, and all higher
+headlines above the match. It will also show the heading after the match,
+to make sure editing the matching entry is easy.
+If KEEP-PREVIOUS is non-nil, highlighting and exposing done by a previous
+call to `org-occur' will be kept, to allow stacking of calls to this
+command.
+If CALLBACK is non-nil, it is a function which is called to confirm
+that the match should indeed be shown."
+ (interactive "sRegexp: \nP")
+ (unless keep-previous
+ (org-remove-occur-highlights nil nil t))
+ (push (cons regexp callback) org-occur-parameters)
+ (let ((cnt 0))
+ (save-excursion
+ (goto-char (point-min))
+ (if (or (not keep-previous) ; do not want to keep
+ (not org-occur-highlights)) ; no previous matches
+ ;; hide everything
+ (org-overview))
+ (while (re-search-forward regexp nil t)
+ (when (or (not callback)
+ (save-match-data (funcall callback)))
+ (setq cnt (1+ cnt))
+ (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
+ nil 'local))
+ (unless org-sparse-tree-open-archived-trees
+ (org-hide-archived-subtrees (point-min) (point-max)))
+ (run-hooks 'org-occur-hook)
+ (if (interactive-p)
+ (message "%d match(es) for regexp %s" cnt regexp))
+ cnt))
+
+(defun org-show-context (&optional key)
+ "Make sure point and context and visible.
+How much context is shown depends upon the variables
+`org-show-hierarchy-above', `org-show-following-heading'. and
+`org-show-siblings'."
+ (let ((heading-p (org-on-heading-p t))
+ (hierarchy-p (org-get-alist-option org-show-hierarchy-above key))
+ (following-p (org-get-alist-option org-show-following-heading key))
+ (entry-p (org-get-alist-option org-show-entry-below key))
+ (siblings-p (org-get-alist-option org-show-siblings key)))
+ (catch 'exit
+ ;; Show heading or entry text
+ (if (and heading-p (not entry-p))
+ (org-flag-heading nil) ; only show the heading
+ (and (or entry-p (org-invisible-p) (org-invisible-p2))
+ (org-show-hidden-entry))) ; show entire entry
+ (when following-p
+ ;; Show next sibling, or heading below text
+ (save-excursion
+ (and (if heading-p (org-goto-sibling) (outline-next-heading))
+ (org-flag-heading nil))))
+ (when siblings-p (org-show-siblings))
+ (when hierarchy-p
+ ;; show all higher headings, possibly with siblings
+ (save-excursion
+ (while (and (condition-case nil
+ (progn (org-up-heading-all 1) t)
+ (error nil))
+ (not (bobp)))
+ (org-flag-heading nil)
+ (when siblings-p (org-show-siblings))))))))
+
+(defun org-reveal (&optional siblings)
+ "Show current entry, hierarchy above it, and the following headline.
+This can be used to show a consistent set of context around locations
+exposed with `org-show-hierarchy-above' or `org-show-following-heading'
+not t for the search context.
+
+With optional argument SIBLINGS, on each level of the hierarchy all
+siblings are shown. This repairs the tree structure to what it would
+look like when opened with hierarchical calls to `org-cycle'."
+ (interactive "P")
+ (let ((org-show-hierarchy-above t)
+ (org-show-following-heading t)
+ (org-show-siblings (if siblings t org-show-siblings)))
+ (org-show-context nil)))
+
+(defun org-highlight-new-match (beg end)
+ "Highlight from BEG to END and mark the highlight is an occur headline."
+ (let ((ov (org-make-overlay beg end)))
+ (org-overlay-put ov 'face 'secondary-selection)
+ (push ov org-occur-highlights)))
+
+(defun org-remove-occur-highlights (&optional beg end noremove)
+ "Remove the occur highlights from the buffer.
+BEG and END are ignored. If NOREMOVE is nil, remove this function
+from the `before-change-functions' in the current buffer."
+ (interactive)
+ (unless org-inhibit-highlight-removal
+ (mapc 'org-delete-overlay org-occur-highlights)
+ (setq org-occur-highlights nil)
+ (setq org-occur-parameters nil)
+ (unless noremove
+ (remove-hook 'before-change-functions
+ 'org-remove-occur-highlights 'local))))
+
+;;;; Priorities
+
+(defvar org-priority-regexp ".*?\\(\\[#\\([A-Z0-9]\\)\\] ?\\)"
+ "Regular expression matching the priority indicator.")
+
+(defvar org-remove-priority-next-time nil)
+
+(defun org-priority-up ()
+ "Increase the priority of the current item."
+ (interactive)
+ (org-priority 'up))
+
+(defun org-priority-down ()
+ "Decrease the priority of the current item."
+ (interactive)
+ (org-priority 'down))
+
+(defun org-priority (&optional action)
+ "Change the priority of an item by ARG.
+ACTION can be `set', `up', `down', or a character."
+ (interactive)
+ (setq action (or action 'set))
+ (let (current new news have remove)
+ (save-excursion
+ (org-back-to-heading)
+ (if (looking-at org-priority-regexp)
+ (setq current (string-to-char (match-string 2))
+ have t)
+ (setq current org-default-priority))
+ (cond
+ ((or (eq action 'set)
+ (if (featurep 'xemacs) (characterp action) (integerp action)))
+ (if (not (eq action 'set))
+ (setq new action)
+ (message "Priority %c-%c, SPC to remove: "
+ org-highest-priority org-lowest-priority)
+ (setq new (read-char-exclusive)))
+ (if (and (= (upcase org-highest-priority) org-highest-priority)
+ (= (upcase org-lowest-priority) org-lowest-priority))
+ (setq new (upcase new)))
+ (cond ((equal new ?\ ) (setq remove t))
+ ((or (< (upcase new) org-highest-priority) (> (upcase new) org-lowest-priority))
+ (error "Priority must be between `%c' and `%c'"
+ org-highest-priority org-lowest-priority))))
+ ((eq action 'up)
+ (if (and (not have) (eq last-command this-command))
+ (setq new org-lowest-priority)
+ (setq new (if (and org-priority-start-cycle-with-default (not have))
+ org-default-priority (1- current)))))
+ ((eq action 'down)
+ (if (and (not have) (eq last-command this-command))
+ (setq new org-highest-priority)
+ (setq new (if (and org-priority-start-cycle-with-default (not have))
+ org-default-priority (1+ current)))))
+ (t (error "Invalid action")))
+ (if (or (< (upcase new) org-highest-priority)
+ (> (upcase new) org-lowest-priority))
+ (setq remove t))
+ (setq news (format "%c" new))
+ (if have
+ (if remove
+ (replace-match "" t t nil 1)
+ (replace-match news t t nil 2))
+ (if remove
+ (error "No priority cookie found in line")
+ (looking-at org-todo-line-regexp)
+ (if (match-end 2)
+ (progn
+ (goto-char (match-end 2))
+ (insert " [#" news "]"))
+ (goto-char (match-beginning 3))
+ (insert "[#" news "] ")))))
+ (org-preserve-lc (org-set-tags nil 'align))
+ (if remove
+ (message "Priority removed")
+ (message "Priority of current item set to %s" news))))
+
+
+(defun org-get-priority (s)
+ "Find priority cookie and return priority."
+ (save-match-data
+ (if (not (string-match org-priority-regexp s))
+ (* 1000 (- org-lowest-priority org-default-priority))
+ (* 1000 (- org-lowest-priority
+ (string-to-char (match-string 2 s)))))))
+
+;;;; Tags
+
+(defun org-scan-tags (action matcher &optional todo-only)
+ "Scan headline tags with inheritance and produce output ACTION.
+ACTION can be `sparse-tree' or `agenda'. MATCHER is a Lisp form to be
+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 org-todo-keywords-1 "\\|")
+ (org-re
+ "\\>\\)\\)? *\\(.*?\\)\\(:[[:alnum:]_@:]+:\\)?[ \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"
+ (abbreviate-file-name
+ (or (buffer-file-name (buffer-base-buffer))
+ (buffer-name (buffer-base-buffer)))))))
+ (case-fold-search nil)
+ lspos
+ tags tags-list tags-alist (llast 0) rtn level category i txt
+ todo marker entry priority)
+ (save-excursion
+ (goto-char (point-min))
+ (when (eq action 'sparse-tree)
+ (org-overview)
+ (org-remove-occur-highlights))
+ (while (re-search-forward re nil t)
+ (catch :skip
+ (setq todo (if (match-end 1) (match-string 2))
+ tags (if (match-end 4) (match-string 4)))
+ (goto-char (setq lspos (1+ (match-beginning 0))))
+ (setq level (org-reduced-level (funcall outline-level))
+ category (org-get-category))
+ (setq i llast llast level)
+ ;; remove tag lists from same and sublevels
+ (while (>= i level)
+ (when (setq entry (assoc i tags-alist))
+ (setq tags-alist (delete entry tags-alist)))
+ (setq i (1- i)))
+ ;; add the next tags
+ (when tags
+ (setq tags (mapcar 'downcase (org-split-string tags ":"))
+ tags-alist
+ (cons (cons level tags) tags-alist)))
+ ;; compile tags for current headline
+ (setq tags-list
+ (if org-use-tag-inheritance
+ (apply 'append (mapcar 'cdr tags-alist))
+ tags))
+ (when (and tags org-use-tag-inheritance
+ (not (eq t org-use-tag-inheritance)))
+ ;; selective inheritance, remove uninherited ones
+ (setcdr (car tags-alist)
+ (org-remove-uniherited-tags (cdar tags-alist))))
+ (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))))
+ (and (eq action 'agenda) (org-agenda-skip))
+ ;; list this headline
+
+ (if (eq action 'sparse-tree)
+ (progn
+ (and org-highlight-sparse-tree-matches
+ (org-get-heading) (match-end 0)
+ (org-highlight-new-match
+ (match-beginning 0) (match-beginning 1)))
+ (org-show-context 'tags-tree))
+ (setq txt (org-format-agenda-item
+ ""
+ (concat
+ (if org-tags-match-list-sublevels
+ (make-string (1- level) ?.) "")
+ (org-get-heading))
+ 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
+ '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))))))
+ (when (and (eq action 'sparse-tree)
+ (not org-sparse-tree-open-archived-trees))
+ (org-hide-archived-subtrees (point-min) (point-max)))
+ (nreverse rtn)))
+
+(defun org-remove-uniherited-tags (tags)
+ "Remove all tags that are not inherited from the list TAGS."
+ (cond
+ ((eq org-use-tag-inheritance t) tags)
+ ((not org-use-tag-inheritance) nil)
+ ((stringp org-use-tag-inheritance)
+ (delq nil (mapcar
+ (lambda (x) (if (string-match org-use-tag-inheritance x) x nil))
+ tags)))
+ ((listp org-use-tag-inheritance)
+ (org-delete-all org-use-tag-inheritance tags))))
+
+(defvar todo-only) ;; dynamically scoped
+
+(defun org-tags-sparse-tree (&optional todo-only match)
+ "Create a sparse tree according to tags string MATCH.
+MATCH can contain positive and negative selection of tags, like
+\"+WORK+URGENT-WITHBOSS\".
+If optional argument TODO_ONLY is non-nil, only select lines that are
+also TODO lines."
+ (interactive "P")
+ (org-prepare-agenda-buffers (list (current-buffer)))
+ (org-scan-tags 'sparse-tree (cdr (org-make-tags-matcher match)) todo-only))
+
+(defvar org-cached-props nil)
+(defun org-cached-entry-get (pom property)
+ (if (or (eq t org-use-property-inheritance)
+ (and (stringp org-use-property-inheritance)
+ (string-match org-use-property-inheritance property))
+ (and (listp org-use-property-inheritance)
+ (member property org-use-property-inheritance)))
+ ;; Caching is not possible, check it directly
+ (org-entry-get pom property 'inherit)
+ ;; Get all properties, so that we can do complicated checks easily
+ (cdr (assoc property (or org-cached-props
+ (setq org-cached-props
+ (org-entry-properties pom)))))))
+
+(defun org-global-tags-completion-table (&optional files)
+ "Return the list of all tags in all agenda buffer/files."
+ (save-excursion
+ (org-uniquify
+ (delq nil
+ (apply 'append
+ (mapcar
+ (lambda (file)
+ (set-buffer (find-file-noselect file))
+ (append (org-get-buffer-tags)
+ (mapcar (lambda (x) (if (stringp (car-safe x))
+ (list (car-safe x)) nil))
+ org-tag-alist)))
+ (if (and files (car files))
+ files
+ (org-agenda-files))))))))
+
+(defun org-make-tags-matcher (match)
+ "Create the TAGS//TODO matcher form for the selection string MATCH."
+ ;; todo-only is scoped dynamically into this function, and the function
+ ;; may change it it the matcher asksk for it.
+ (unless match
+ ;; Get a new match request, with completion
+ (let ((org-last-tags-completion-table
+ (org-global-tags-completion-table)))
+ (setq match (completing-read
+ "Match: " 'org-tags-completion-function nil nil nil
+ 'org-tags-history))))
+
+ ;; Parse the string and create a lisp form
+ (let ((match0 match)
+ (re (org-re "^&?\\([-+:]\\)?\\({[^}]+}\\|LEVEL\\([<=>]\\{1,2\\}\\)\\([0-9]+\\)\\|\\([[:alnum:]_]+\\)\\([<>=]\\{1,2\\}\\)\\({[^}]+}\\|\"[^\"]*\"\\|-?[.0-9]+\\(?:[eE][-+]?[0-9]+\\)?\\)\\|[[:alnum:]_@]+\\)"))
+ minus tag mm
+ tagsmatch todomatch tagsmatcher todomatcher kwd matcher
+ orterms term orlist re-p str-p level-p level-op
+ prop-p pn pv po cat-p gv)
+ (if (string-match "/+" match)
+ ;; match contains also a todo-matching request
+ (progn
+ (setq tagsmatch (substring match 0 (match-beginning 0))
+ todomatch (substring match (match-end 0)))
+ (if (string-match "^!" todomatch)
+ (setq todo-only t todomatch (substring todomatch 1)))
+ (if (string-match "^\\s-*$" todomatch)
+ (setq todomatch nil)))
+ ;; only matching tags
+ (setq tagsmatch match todomatch nil))
+
+ ;; Make the tags matcher
+ (if (or (not tagsmatch) (not (string-match "\\S-" tagsmatch)))
+ (setq tagsmatcher t)
+ (setq orterms (org-split-string tagsmatch "|") orlist nil)
+ (while (setq term (pop orterms))
+ (while (and (equal (substring term -1) "\\") orterms)
+ (setq term (concat term "|" (pop orterms)))) ; repair bad split
+ (while (string-match re term)
+ (setq minus (and (match-end 1)
+ (equal (match-string 1 term) "-"))
+ tag (match-string 2 term)
+ re-p (equal (string-to-char tag) ?{)
+ level-p (match-end 4)
+ prop-p (match-end 5)
+ mm (cond
+ (re-p `(org-match-any-p ,(substring tag 1 -1) tags-list))
+ (level-p
+ (setq level-op (org-op-to-function (match-string 3 term)))
+ `(,level-op level ,(string-to-number
+ (match-string 4 term))))
+ (prop-p
+ (setq pn (match-string 5 term)
+ po (match-string 6 term)
+ pv (match-string 7 term)
+ cat-p (equal pn "CATEGORY")
+ re-p (equal (string-to-char pv) ?{)
+ str-p (equal (string-to-char pv) ?\")
+ pv (if (or re-p str-p) (substring pv 1 -1) pv))
+ (setq po (org-op-to-function po str-p))
+ (if (equal pn "CATEGORY")
+ (setq gv '(get-text-property (point) 'org-category))
+ (setq gv `(org-cached-entry-get nil ,pn)))
+ (if re-p
+ (if (eq po 'org<>)
+ `(not (string-match ,pv (or ,gv "")))
+ `(string-match ,pv (or ,gv "")))
+ (if str-p
+ `(,po (or ,gv "") ,pv)
+ `(,po (string-to-number (or ,gv ""))
+ ,(string-to-number pv) ))))
+ (t `(member ,(downcase tag) tags-list)))
+ mm (if minus (list 'not mm) mm)
+ term (substring term (match-end 0)))
+ (push mm tagsmatcher))
+ (push (if (> (length tagsmatcher) 1)
+ (cons 'and tagsmatcher)
+ (car tagsmatcher))
+ orlist)
+ (setq tagsmatcher nil))
+ (setq tagsmatcher (if (> (length orlist) 1) (cons 'or orlist) (car orlist)))
+ (setq tagsmatcher
+ (list 'progn '(setq org-cached-props nil) tagsmatcher)))
+ ;; Make the todo matcher
+ (if (or (not todomatch) (not (string-match "\\S-" todomatch)))
+ (setq todomatcher t)
+ (setq orterms (org-split-string todomatch "|") orlist nil)
+ (while (setq term (pop orterms))
+ (while (string-match re term)
+ (setq minus (and (match-end 1)
+ (equal (match-string 1 term) "-"))
+ kwd (match-string 2 term)
+ re-p (equal (string-to-char kwd) ?{)
+ term (substring term (match-end 0))
+ mm (if re-p
+ `(string-match ,(substring kwd 1 -1) todo)
+ (list 'equal 'todo kwd))
+ mm (if minus (list 'not mm) mm))
+ (push mm todomatcher))
+ (push (if (> (length todomatcher) 1)
+ (cons 'and todomatcher)
+ (car todomatcher))
+ orlist)
+ (setq todomatcher nil))
+ (setq todomatcher (if (> (length orlist) 1)
+ (cons 'or orlist) (car orlist))))
+
+ ;; Return the string and lisp forms of the matcher
+ (setq matcher (if todomatcher
+ (list 'and tagsmatcher todomatcher)
+ tagsmatcher))
+ (cons match0 matcher)))
+
+(defun org-op-to-function (op &optional stringp)
+ (setq op
+ (cond
+ ((equal op "<" ) '(< string< ))
+ ((equal op ">" ) '(> org-string> ))
+ ((member op '("<=" "=<")) '(<= org-string<= ))
+ ((member op '(">=" "=>")) '(>= org-string>= ))
+ ((member op '("=" "==")) '(= string= ))
+ ((member op '("<>" "!=")) '(org<> org-string<> ))))
+ (nth (if stringp 1 0) op))
+
+(defun org<> (a b) (not (= a b)))
+(defun org-string<= (a b) (or (string= a b) (string< a b)))
+(defun org-string>= (a b) (not (string< a b)))
+(defun org-string> (a b) (and (not (string= a b)) (not (string< a b))))
+(defun org-string<> (a b) (not (string= a b)))
+
+(defun org-match-any-p (re list)
+ "Does re match any element of list?"
+ (setq list (mapcar (lambda (x) (string-match re x)) list))
+ (delq nil list))
+
+(defvar org-add-colon-after-tag-completion nil) ;; dynamically skoped param
+(defvar org-tags-overlay (org-make-overlay 1 1))
+(org-detach-overlay org-tags-overlay)
+
+(defun org-get-tags-at (&optional pos)
+ "Get a list of all headline tags applicable at POS.
+POS defaults to point. If tags are inherited, the list contains
+the targets in the same sequence as the headlines appear, i.e.
+sthe tags of the current headline come last."
+ (interactive)
+ (let (tags ltags lastpos parent)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (or pos (point)))
+ (save-match-data
+ (condition-case nil
+ (progn
+ (org-back-to-heading t)
+ (while (not (equal lastpos (point)))
+ (setq lastpos (point))
+ (when (looking-at (org-re "[^\r\n]+?:\\([[:alnum:]_@:]+\\):[ \t]*$"))
+ (setq ltags (org-split-string
+ (org-match-string-no-properties 1) ":"))
+ (setq tags (append (org-remove-uniherited-tags ltags)
+ tags)))
+ (or org-use-tag-inheritance (error ""))
+ (org-up-heading-all 1)
+ (setq parent t)))
+ (error nil))))
+ tags)))
+
+(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 t) (error "Not on headling"))
+ (let (res current)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward (org-re "[ \t]:\\([[:alnum:]_@:]+\\):[ \t]*$")
+ (point-at-eol) t)
+ (progn
+ (setq current (match-string 1))
+ (replace-match ""))
+ (setq current ""))
+ (setq current (nreverse (org-split-string current ":")))
+ (cond
+ ((eq onoff 'on)
+ (setq res t)
+ (or (member tag current) (push tag current)))
+ ((eq onoff 'off)
+ (or (not (member tag current)) (setq current (delete tag current))))
+ (t (if (member tag current)
+ (setq current (delete tag current))
+ (setq res t)
+ (push tag current))))
+ (end-of-line 1)
+ (if current
+ (progn
+ (insert " :" (mapconcat 'identity (nreverse current) ":") ":")
+ (org-set-tags nil t))
+ (delete-horizontal-space))
+ (run-hooks 'org-after-tags-change-hook))
+ res))
+
+(defun org-align-tags-here (to-col)
+ ;; Assumes that this is a headline
+ (let ((pos (point)) (col (current-column)) ncol tags-l p)
+ (beginning-of-line 1)
+ (if (and (looking-at (org-re ".*?\\([ \t]+\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$"))
+ (< pos (match-beginning 2)))
+ (progn
+ (setq tags-l (- (match-end 2) (match-beginning 2)))
+ (goto-char (match-beginning 1))
+ (insert " ")
+ (delete-region (point) (1+ (match-beginning 2)))
+ (setq ncol (max (1+ (current-column))
+ (1+ col)
+ (if (> to-col 0)
+ to-col
+ (- (abs to-col) tags-l))))
+ (setq p (point))
+ (insert (make-string (- ncol (current-column)) ?\ ))
+ (setq ncol (current-column))
+ (tabify p (point-at-eol))
+ (org-move-to-column (min ncol col) t))
+ (goto-char pos))))
+
+(defun org-set-tags (&optional arg just-align)
+ "Set the tags for the current headline.
+With prefix ARG, realign all tags in headings in the current buffer."
+ (interactive "P")
+ (let* ((re (concat "^" outline-regexp))
+ (current (org-get-tags-string))
+ (col (current-column))
+ (org-setting-tags t)
+ table current-tags inherited-tags ; computed below when needed
+ tags p0 c0 c1 rpl)
+ (if arg
+ (save-excursion
+ (goto-char (point-min))
+ (let ((buffer-invisibility-spec (org-inhibit-invisibility)))
+ (while (re-search-forward re nil t)
+ (org-set-tags nil t)
+ (end-of-line 1)))
+ (message "All tags realigned to column %d" org-tags-column))
+ (if just-align
+ (setq tags current)
+ ;; Get a new set of tags from the user
+ (save-excursion
+ (setq table (or org-tag-alist (org-get-buffer-tags))
+ org-last-tags-completion-table table
+ current-tags (org-split-string current ":")
+ inherited-tags (nreverse
+ (nthcdr (length current-tags)
+ (nreverse (org-get-tags-at))))
+ tags
+ (if (or (eq t org-use-fast-tag-selection)
+ (and org-use-fast-tag-selection
+ (delq nil (mapcar 'cdr table))))
+ (org-fast-tag-selection
+ current-tags inherited-tags table
+ (if org-fast-tag-selection-include-todo org-todo-key-alist))
+ (let ((org-add-colon-after-tag-completion t))
+ (org-trim
+ (org-without-partial-completion
+ (completing-read "Tags: " 'org-tags-completion-function
+ nil nil current 'org-tags-history)))))))
+ (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)
+ (cond
+ ((and (equal current "") (equal tags "")))
+ ((re-search-forward
+ (concat "\\([ \t]*" (regexp-quote current) "\\)[ \t]*$")
+ (point-at-eol) t)
+ (if (equal tags "")
+ (setq rpl "")
+ (goto-char (match-beginning 0))
+ (setq c0 (current-column) p0 (point)
+ c1 (max (1+ c0) (if (> org-tags-column 0)
+ org-tags-column
+ (- (- org-tags-column) (length tags))))
+ rpl (concat (make-string (max 0 (- c1 c0)) ?\ ) tags)))
+ (replace-match rpl t t)
+ (and (not (featurep 'xemacs)) c0 indent-tabs-mode (tabify p0 (point)))
+ tags)
+ (t (error "Tags alignment failed")))
+ (org-move-to-column col)
+ (unless just-align
+ (run-hooks 'org-after-tags-change-hook)))))
+
+(defun org-change-tag-in-region (beg end tag off)
+ "Add or remove TAG for each entry in the region.
+This works in the agenda, and also in an org-mode buffer."
+ (interactive
+ (list (region-beginning) (region-end)
+ (let ((org-last-tags-completion-table
+ (if (org-mode-p)
+ (org-get-buffer-tags)
+ (org-global-tags-completion-table))))
+ (completing-read
+ "Tag: " 'org-tags-completion-function nil nil nil
+ 'org-tags-history))
+ (progn
+ (message "[s]et or [r]emove? ")
+ (equal (read-char-exclusive) ?r))))
+ (if (fboundp 'deactivate-mark) (deactivate-mark))
+ (let ((agendap (equal major-mode 'org-agenda-mode))
+ l1 l2 m buf pos newhead (cnt 0))
+ (goto-char end)
+ (setq l2 (1- (org-current-line)))
+ (goto-char beg)
+ (setq l1 (org-current-line))
+ (loop for l from l1 to l2 do
+ (goto-line l)
+ (setq m (get-text-property (point) 'org-hd-marker))
+ (when (or (and (org-mode-p) (org-on-heading-p))
+ (and agendap m))
+ (setq buf (if agendap (marker-buffer m) (current-buffer))
+ pos (if agendap m (point)))
+ (with-current-buffer buf
+ (save-excursion
+ (save-restriction
+ (goto-char pos)
+ (setq cnt (1+ cnt))
+ (org-toggle-tag tag (if off 'off 'on))
+ (setq newhead (org-get-heading)))))
+ (and agendap (org-agenda-change-all-lines newhead m))))
+ (message "Tag :%s: %s in %d headings" tag (if off "removed" "set") cnt)))
+
+(defun org-tags-completion-function (string predicate &optional flag)
+ (let (s1 s2 rtn (ctable org-last-tags-completion-table)
+ (confirm (lambda (x) (stringp (car x)))))
+ (if (string-match "^\\(.*[-+:&|]\\)\\([^-+:&|]*\\)$" string)
+ (setq s1 (match-string 1 string)
+ s2 (match-string 2 string))
+ (setq s1 "" s2 string))
+ (cond
+ ((eq flag nil)
+ ;; try completion
+ (setq rtn (try-completion s2 ctable confirm))
+ (if (stringp rtn)
+ (setq rtn
+ (concat s1 s2 (substring rtn (length s2))
+ (if (and org-add-colon-after-tag-completion
+ (assoc rtn ctable))
+ ":" ""))))
+ rtn)
+ ((eq flag t)
+ ;; all-completions
+ (all-completions s2 ctable confirm)
+ )
+ ((eq flag 'lambda)
+ ;; exact match?
+ (assoc s2 ctable)))
+ ))
+
+(defun org-fast-tag-insert (kwd tags face &optional end)
+ "Insert KDW, and the TAGS, the latter with face FACE. Also inser END."
+ (insert (format "%-12s" (concat kwd ":"))
+ (org-add-props (mapconcat 'identity tags " ") nil 'face face)
+ (or end "")))
+
+(defun org-fast-tag-show-exit (flag)
+ (save-excursion
+ (goto-line 3)
+ (if (re-search-forward "[ \t]+Next change exits" (point-at-eol) t)
+ (replace-match ""))
+ (when flag
+ (end-of-line 1)
+ (org-move-to-column (- (window-width) 19) t)
+ (insert (org-add-props " Next change exits" nil 'face 'org-warning)))))
+
+(defun org-set-current-tags-overlay (current prefix)
+ (let ((s (concat ":" (mapconcat 'identity current ":") ":")))
+ (if (featurep 'xemacs)
+ (org-overlay-display org-tags-overlay (concat prefix s)
+ 'secondary-selection)
+ (put-text-property 0 (length s) 'face '(secondary-selection org-tag) s)
+ (org-overlay-display org-tags-overlay (concat prefix s)))))
+
+(defun org-fast-tag-selection (current inherited table &optional todo-table)
+ "Fast tag selection with single keys.
+CURRENT is the current list of tags in the headline, INHERITED is the
+list of inherited tags, and TABLE is an alist of tags and corresponding keys,
+possibly with grouping information. TODO-TABLE is a similar table with
+TODO keywords, should these have keys assigned to them.
+If the keys are nil, a-z are automatically assigned.
+Returns the new tags string, or nil to not change the current settings."
+ (let* ((fulltable (append table todo-table))
+ (maxlen (apply 'max (mapcar
+ (lambda (x)
+ (if (stringp (car x)) (string-width (car x)) 0))
+ fulltable)))
+ (buf (current-buffer))
+ (expert (eq org-fast-tag-selection-single-key 'expert))
+ (buffer-tags nil)
+ (fwidth (+ maxlen 3 1 3))
+ (ncol (/ (- (window-width) 4) fwidth))
+ (i-face 'org-done)
+ (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)
+ (done-keywords org-done-keywords)
+ groups ingroup)
+ (save-excursion
+ (beginning-of-line 1)
+ (if (looking-at
+ (org-re ".*[ \t]\\(:[[:alnum:]_@:]+:\\)[ \t]*$"))
+ (setq ov-start (match-beginning 1)
+ ov-end (match-end 1)
+ ov-prefix "")
+ (setq ov-start (1- (point-at-eol))
+ ov-end (1+ ov-start))
+ (skip-chars-forward "^\n\r")
+ (setq ov-prefix
+ (concat
+ (buffer-substring (1- (point)) (point))
+ (if (> (current-column) org-tags-column)
+ " "
+ (make-string (- org-tags-column (current-column)) ?\ ))))))
+ (org-move-overlay org-tags-overlay ov-start ov-end)
+ (save-window-excursion
+ (if expert
+ (set-buffer (get-buffer-create " *Org tags*"))
+ (delete-other-windows)
+ (split-window-vertically)
+ (org-switch-to-buffer-other-window (get-buffer-create " *Org tags*")))
+ (erase-buffer)
+ (org-set-local 'org-done-keywords done-keywords)
+ (org-fast-tag-insert "Inherited" inherited i-face "\n")
+ (org-fast-tag-insert "Current" current c-face "\n\n")
+ (org-fast-tag-show-exit exit-after-next)
+ (org-set-current-tags-overlay current ov-prefix)
+ (setq tbl fulltable char ?a cnt 0)
+ (while (setq e (pop tbl))
+ (cond
+ ((equal e '(:startgroup))
+ (push '() groups) (setq ingroup t)
+ (when (not (= cnt 0))
+ (setq cnt 0)
+ (insert "\n"))
+ (insert "{ "))
+ ((equal e '(:endgroup))
+ (setq ingroup nil cnt 0)
+ (insert "}\n"))
+ (t
+ (setq tg (car e) c2 nil)
+ (if (cdr e)
+ (setq c (cdr e))
+ ;; automatically assign a character.
+ (setq c1 (string-to-char
+ (downcase (substring
+ tg (if (= (string-to-char tg) ?@) 1 0)))))
+ (if (or (rassoc c1 ntable) (rassoc c1 table))
+ (while (or (rassoc char ntable) (rassoc char table))
+ (setq char (1+ char)))
+ (setq c2 c1))
+ (setq c (or c2 char)))
+ (if ingroup (push tg (car groups)))
+ (setq tg (org-add-props tg nil 'face
+ (cond
+ ((not (assoc tg table))
+ (org-get-todo-face tg))
+ ((member tg current) c-face)
+ ((member tg inherited) i-face)
+ (t nil))))
+ (if (and (= cnt 0) (not ingroup)) (insert " "))
+ (insert "[" c "] " tg (make-string
+ (- fwidth 4 (length tg)) ?\ ))
+ (push (cons tg c) ntable)
+ (when (= (setq cnt (1+ cnt)) ncol)
+ (insert "\n")
+ (if ingroup (insert " "))
+ (setq cnt 0)))))
+ (setq ntable (nreverse ntable))
+ (insert "\n")
+ (goto-char (point-min))
+ (if (and (not expert) (fboundp 'fit-window-to-buffer))
+ (fit-window-to-buffer))
+ (setq rtn
+ (catch 'exit
+ (while t
+ (message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free%s%s"
+ (if groups " [!] no groups" " [!]groups")
+ (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " [C-c]:multi")))
+ (setq c (let ((inhibit-quit t)) (read-char-exclusive)))
+ (cond
+ ((= c ?\r) (throw 'exit t))
+ ((= c ?!)
+ (setq groups (not groups))
+ (goto-char (point-min))
+ (while (re-search-forward "[{}]" nil t) (replace-match " ")))
+ ((= c ?\C-c)
+ (if (not expert)
+ (org-fast-tag-show-exit
+ (setq exit-after-next (not exit-after-next)))
+ (setq expert nil)
+ (delete-other-windows)
+ (split-window-vertically)
+ (org-switch-to-buffer-other-window " *Org tags*")
+ (and (fboundp 'fit-window-to-buffer)
+ (fit-window-to-buffer))))
+ ((or (= c ?\C-g)
+ (and (= c ?q) (not (rassoc c ntable))))
+ (org-detach-overlay org-tags-overlay)
+ (setq quit-flag t))
+ ((= c ?\ )
+ (setq current nil)
+ (if exit-after-next (setq exit-after-next 'now)))
+ ((= c ?\t)
+ (condition-case nil
+ (setq tg (completing-read
+ "Tag: "
+ (or buffer-tags
+ (with-current-buffer buf
+ (org-get-buffer-tags)))))
+ (quit (setq tg "")))
+ (when (string-match "\\S-" tg)
+ (add-to-list 'buffer-tags (list tg))
+ (if (member tg current)
+ (setq current (delete tg current))
+ (push tg current)))
+ (if exit-after-next (setq exit-after-next 'now)))
+ ((setq e (rassoc c todo-table) tg (car e))
+ (with-current-buffer buf
+ (save-excursion (org-todo tg)))
+ (if exit-after-next (setq exit-after-next 'now)))
+ ((setq e (rassoc c ntable) tg (car e))
+ (if (member tg current)
+ (setq current (delete tg current))
+ (loop for g in groups do
+ (if (member tg g)
+ (mapc (lambda (x)
+ (setq current (delete x current)))
+ g)))
+ (push tg current))
+ (if exit-after-next (setq exit-after-next 'now))))
+
+ ;; Create a sorted list
+ (setq current
+ (sort current
+ (lambda (a b)
+ (assoc b (cdr (memq (assoc a ntable) ntable))))))
+ (if (eq exit-after-next 'now) (throw 'exit t))
+ (goto-char (point-min))
+ (beginning-of-line 2)
+ (delete-region (point) (point-at-eol))
+ (org-fast-tag-insert "Current" current c-face)
+ (org-set-current-tags-overlay current ov-prefix)
+ (while (re-search-forward
+ (org-re "\\[.\\] \\([[:alnum:]_@]+\\)") nil t)
+ (setq tg (match-string 1))
+ (add-text-properties
+ (match-beginning 1) (match-end 1)
+ (list 'face
+ (cond
+ ((member tg current) c-face)
+ ((member tg inherited) i-face)
+ (t (get-text-property (match-beginning 1) 'face))))))
+ (goto-char (point-min)))))
+ (org-detach-overlay org-tags-overlay)
+ (if rtn
+ (mapconcat 'identity current ":")
+ nil))))
+
+(defun org-get-tags-string ()
+ "Get the TAGS string in the current headline."
+ (unless (org-on-heading-p t)
+ (error "Not on a heading"))
+ (save-excursion
+ (beginning-of-line 1)
+ (if (looking-at (org-re ".*[ \t]\\(:[[:alnum:]_@:]+:\\)[ \t]*$"))
+ (org-match-string-no-properties 1)
+ "")))
+
+(defun org-get-tags ()
+ "Get the list of tags specified in the current headline."
+ (org-split-string (org-get-tags-string) ":"))
+
+(defun org-get-buffer-tags ()
+ "Get a table of all tags used in the buffer, for completion."
+ (let (tags)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward
+ (org-re "[ \t]:\\([[:alnum:]_@:]+\\):[ \t\r\n]") nil t)
+ (when (equal (char-after (point-at-bol 0)) ?*)
+ (mapc (lambda (x) (add-to-list 'tags x))
+ (org-split-string (org-match-string-no-properties 1) ":")))))
+ (mapcar 'list tags)))
+
+
+;;;; Properties
+
+;;; Setting and retrieving properties
+
+(defconst org-special-properties
+ '("TODO" "TAGS" "ALLTAGS" "DEADLINE" "SCHEDULED" "CLOCK" "PRIORITY"
+ "TIMESTAMP" "TIMESTAMP_IA")
+ "The special properties valid in Org-mode.
+
+These are properties that are not defined in the property drawer,
+but in some other way.")
+
+(defconst org-default-properties
+ '("ARCHIVE" "CATEGORY" "SUMMARY" "DESCRIPTION"
+ "LOCATION" "LOGGING" "COLUMNS")
+ "Some properties that are used by Org-mode for various purposes.
+Being in this list makes sure that they are offered for completion.")
+
+(defconst org-property-start-re "^[ \t]*:PROPERTIES:[ \t]*$"
+ "Regular expression matching the first line of a property drawer.")
+
+(defconst org-property-end-re "^[ \t]*:END:[ \t]*$"
+ "Regular expression matching the first line of a property drawer.")
+
+(defun org-property-action ()
+ "Do an action on properties."
+ (interactive)
+ (let (c)
+ (org-at-property-p)
+ (message "Property Action: [s]et [d]elete [D]elete globally [c]ompute")
+ (setq c (read-char-exclusive))
+ (cond
+ ((equal c ?s)
+ (call-interactively 'org-set-property))
+ ((equal c ?d)
+ (call-interactively 'org-delete-property))
+ ((equal c ?D)
+ (call-interactively 'org-delete-property-globally))
+ ((equal c ?c)
+ (call-interactively 'org-compute-property-at-point))
+ (t (error "No such property action %c" c)))))
+
+(defun org-at-property-p ()
+ "Is the cursor in a property line?"
+ ;; FIXME: Does not check if we are actually in the drawer.
+ ;; FIXME: also returns true on any drawers.....
+ ;; This is used by C-c C-c for property action.
+ (save-excursion
+ (beginning-of-line 1)
+ (looking-at (org-re "^[ \t]*\\(:\\([[:alpha:]][[:alnum:]_-]*\\):\\)[ \t]*\\(.*\\)"))))
+
+(defun org-get-property-block (&optional beg end force)
+ "Return the (beg . end) range of the body of the property drawer.
+BEG and END can be beginning and end of subtree, if not given
+they will be found.
+If the drawer does not exist and FORCE is non-nil, create the drawer."
+ (catch 'exit
+ (save-excursion
+ (let* ((beg (or beg (progn (org-back-to-heading t) (point))))
+ (end (or end (progn (outline-next-heading) (point)))))
+ (goto-char beg)
+ (if (re-search-forward org-property-start-re end t)
+ (setq beg (1+ (match-end 0)))
+ (if force
+ (save-excursion
+ (org-insert-property-drawer)
+ (setq end (progn (outline-next-heading) (point))))
+ (throw 'exit nil))
+ (goto-char beg)
+ (if (re-search-forward org-property-start-re end t)
+ (setq beg (1+ (match-end 0)))))
+ (if (re-search-forward org-property-end-re end t)
+ (setq end (match-beginning 0))
+ (or force (throw 'exit nil))
+ (goto-char beg)
+ (setq end beg)
+ (org-indent-line-function)
+ (insert ":END:\n"))
+ (cons beg end)))))
+
+(defun org-entry-properties (&optional pom which)
+ "Get all properties of the entry at point-or-marker POM.
+This includes the TODO keyword, the tags, time strings for deadline,
+scheduled, and clocking, and any additional properties defined in the
+entry. The return value is an alist, keys may occur multiple times
+if the property key was used several times.
+POM may also be nil, in which case the current entry is used.
+If WHICH is nil or `all', get all properties. If WHICH is
+`special' or `standard', only get that subclass."
+ (setq which (or which 'all))
+ (org-with-point-at pom
+ (let ((clockstr (substring org-clock-string 0 -1))
+ (excluded '("TODO" "TAGS" "ALLTAGS" "PRIORITY"))
+ beg end range props sum-props key value string clocksum)
+ (save-excursion
+ (when (condition-case nil (org-back-to-heading t) (error nil))
+ (setq beg (point))
+ (setq sum-props (get-text-property (point) 'org-summaries))
+ (setq clocksum (get-text-property (point) :org-clock-minutes))
+ (outline-next-heading)
+ (setq end (point))
+ (when (memq which '(all special))
+ ;; Get the special properties, like TODO and tags
+ (goto-char beg)
+ (when (and (looking-at org-todo-line-regexp) (match-end 2))
+ (push (cons "TODO" (org-match-string-no-properties 2)) props))
+ (when (looking-at org-priority-regexp)
+ (push (cons "PRIORITY" (org-match-string-no-properties 2)) props))
+ (when (and (setq value (org-get-tags-string))
+ (string-match "\\S-" value))
+ (push (cons "TAGS" value) props))
+ (when (setq value (org-get-tags-at))
+ (push (cons "ALLTAGS" (concat ":" (mapconcat 'identity value ":") ":"))
+ props))
+ (while (re-search-forward org-maybe-keyword-time-regexp end t)
+ (setq key (if (match-end 1) (substring (org-match-string-no-properties 1) 0 -1))
+ string (if (equal key clockstr)
+ (org-no-properties
+ (org-trim
+ (buffer-substring
+ (match-beginning 3) (goto-char (point-at-eol)))))
+ (substring (org-match-string-no-properties 3) 1 -1)))
+ (unless key
+ (if (= (char-after (match-beginning 3)) ?\[)
+ (setq key "TIMESTAMP_IA")
+ (setq key "TIMESTAMP")))
+ (when (or (equal key clockstr) (not (assoc key props)))
+ (push (cons key string) props)))
+
+ )
+
+ (when (memq which '(all standard))
+ ;; Get the standard properties, like :PORP: ...
+ (setq range (org-get-property-block beg end))
+ (when range
+ (goto-char (car range))
+ (while (re-search-forward
+ (org-re "^[ \t]*:\\([[:alpha:]][[:alnum:]_-]*\\):[ \t]*\\(\\S-.*\\)?")
+ (cdr range) t)
+ (setq key (org-match-string-no-properties 1)
+ value (org-trim (or (org-match-string-no-properties 2) "")))
+ (unless (member key excluded)
+ (push (cons key (or value "")) props)))))
+ (if clocksum
+ (push (cons "CLOCKSUM"
+ (org-columns-number-to-string (/ (float clocksum) 60.)
+ 'add_times))
+ props))
+ (append sum-props (nreverse props)))))))
+
+(defun org-entry-get (pom property &optional inherit)
+ "Get value of PROPERTY for entry at point-or-marker POM.
+If INHERIT is non-nil and the entry does not have the property,
+then also check higher levels of the hierarchy.
+If INHERIT is the symbol `selective', use inheritance only if the setting
+in `org-use-property-inheritance' selects PROPERTY for inheritance.
+If the property is present but empty, the return value is the empty string.
+If the property is not present at all, nil is returned."
+ (org-with-point-at pom
+ (if (and inherit (if (eq inherit 'selective)
+ (org-property-inherit-p property)
+ t))
+ (org-entry-get-with-inheritance property)
+ (if (member property org-special-properties)
+ ;; We need a special property. Use brute force, get all properties.
+ (cdr (assoc property (org-entry-properties nil 'special)))
+ (let ((range (org-get-property-block)))
+ (if (and range
+ (goto-char (car range))
+ (re-search-forward
+ (concat "^[ \t]*:" property ":[ \t]*\\(.*\\S-\\)?")
+ (cdr range) t))
+ ;; Found the property, return it.
+ (if (match-end 1)
+ (org-match-string-no-properties 1)
+ "")))))))
+
+(defun org-property-or-variable-value (var &optional inherit)
+ "Check if there is a property fixing the value of VAR.
+If yes, return this value. If not, return the current value of the variable."
+ (let ((prop (org-entry-get nil (symbol-name var) inherit)))
+ (if (and prop (stringp prop) (string-match "\\S-" prop))
+ (read prop)
+ (symbol-value var))))
+
+(defun org-entry-delete (pom property)
+ "Delete the property PROPERTY from entry at point-or-marker POM."
+ (org-with-point-at pom
+ (if (member property org-special-properties)
+ nil ; cannot delete these properties.
+ (let ((range (org-get-property-block)))
+ (if (and range
+ (goto-char (car range))
+ (re-search-forward
+ (concat "^[ \t]*:" property ":[ \t]*\\(.*\\S-\\)")
+ (cdr range) t))
+ (progn
+ (delete-region (match-beginning 0) (1+ (point-at-eol)))
+ t)
+ nil)))))
+
+;; Multi-values properties are properties that contain multiple values
+;; These values are assumed to be single words, separated by whitespace.
+(defun org-entry-add-to-multivalued-property (pom property value)
+ "Add VALUE to the words in the PROPERTY in entry at point-or-marker POM."
+ (let* ((old (org-entry-get pom property))
+ (values (and old (org-split-string old "[ \t]"))))
+ (unless (member value values)
+ (setq values (cons value values))
+ (org-entry-put pom property
+ (mapconcat 'identity values " ")))))
+
+(defun org-entry-remove-from-multivalued-property (pom property value)
+ "Remove VALUE from words in the PROPERTY in entry at point-or-marker POM."
+ (let* ((old (org-entry-get pom property))
+ (values (and old (org-split-string old "[ \t]"))))
+ (when (member value values)
+ (setq values (delete value values))
+ (org-entry-put pom property
+ (mapconcat 'identity values " ")))))
+
+(defun org-entry-member-in-multivalued-property (pom property value)
+ "Is VALUE one of the words in the PROPERTY in entry at point-or-marker POM?"
+ (let* ((old (org-entry-get pom property))
+ (values (and old (org-split-string old "[ \t]"))))
+ (member value values)))
+
+(defvar org-entry-property-inherited-from (make-marker))
+
+(defun org-entry-get-with-inheritance (property)
+ "Get entry property, and search higher levels if not present."
+ (let (tmp)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (catch 'ex
+ (while t
+ (when (setq tmp (org-entry-get nil property))
+ (org-back-to-heading t)
+ (move-marker org-entry-property-inherited-from (point))
+ (throw 'ex tmp))
+ (or (org-up-heading-safe) (throw 'ex nil)))))
+ (or tmp (cdr (assoc property org-local-properties))
+ (cdr (assoc property org-global-properties))))))
+
+(defun org-entry-put (pom property value)
+ "Set PROPERTY to VALUE for entry at point-or-marker POM."
+ (org-with-point-at pom
+ (org-back-to-heading t)
+ (let ((beg (point)) (end (save-excursion (outline-next-heading) (point)))
+ range)
+ (cond
+ ((equal property "TODO")
+ (when (and (stringp value) (string-match "\\S-" value)
+ (not (member value org-todo-keywords-1)))
+ (error "\"%s\" is not a valid TODO state" value))
+ (if (or (not value)
+ (not (string-match "\\S-" value)))
+ (setq value 'none))
+ (org-todo value)
+ (org-set-tags nil 'align))
+ ((equal property "PRIORITY")
+ (org-priority (if (and value (stringp value) (string-match "\\S-" value))
+ (string-to-char value) ?\ ))
+ (org-set-tags nil 'align))
+ ((equal property "SCHEDULED")
+ (if (re-search-forward org-scheduled-time-regexp end t)
+ (cond
+ ((eq value 'earlier) (org-timestamp-change -1 'day))
+ ((eq value 'later) (org-timestamp-change 1 'day))
+ (t (call-interactively 'org-schedule)))
+ (call-interactively 'org-schedule)))
+ ((equal property "DEADLINE")
+ (if (re-search-forward org-deadline-time-regexp end t)
+ (cond
+ ((eq value 'earlier) (org-timestamp-change -1 'day))
+ ((eq value 'later) (org-timestamp-change 1 'day))
+ (t (call-interactively 'org-deadline)))
+ (call-interactively 'org-deadline)))
+ ((member property org-special-properties)
+ (error "The %s property can not yet be set with `org-entry-put'"
+ property))
+ (t ; a non-special property
+ (let ((buffer-invisibility-spec (org-inhibit-invisibility))) ; Emacs 21
+ (setq range (org-get-property-block beg end 'force))
+ (goto-char (car range))
+ (if (re-search-forward
+ (concat "^[ \t]*:" property ":\\(.*\\)") (cdr range) t)
+ (progn
+ (delete-region (match-beginning 1) (match-end 1))
+ (goto-char (match-beginning 1)))
+ (goto-char (cdr range))
+ (insert "\n")
+ (backward-char 1)
+ (org-indent-line-function)
+ (insert ":" property ":"))
+ (and value (insert " " value))
+ (org-indent-line-function)))))))
+
+(defun org-buffer-property-keys (&optional include-specials include-defaults include-columns)
+ "Get all property keys in the current buffer.
+With INCLUDE-SPECIALS, also list the special properties that relect things
+like tags and TODO state.
+With INCLUDE-DEFAULTS, also include properties that has special meaning
+internally: ARCHIVE, CATEGORY, SUMMARY, DESCRIPTION, LOCATION, and LOGGING.
+With INCLUDE-COLUMNS, also include property names given in COLUMN
+formats in the current buffer."
+ (let (rtn range cfmt cols s p)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (while (re-search-forward org-property-start-re nil t)
+ (setq range (org-get-property-block))
+ (goto-char (car range))
+ (while (re-search-forward
+ (org-re "^[ \t]*:\\([-[:alnum:]_]+\\):")
+ (cdr range) t)
+ (add-to-list 'rtn (org-match-string-no-properties 1)))
+ (outline-next-heading))))
+
+ (when include-specials
+ (setq rtn (append org-special-properties rtn)))
+
+ (when include-defaults
+ (mapc (lambda (x) (add-to-list 'rtn x)) org-default-properties))
+
+ (when include-columns
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (while (re-search-forward
+ "^\\(#\\+COLUMNS:\\|[ \t]*:COLUMNS:\\)[ \t]*\\(.*\\)"
+ nil t)
+ (setq cfmt (match-string 2) s 0)
+ (while (string-match (org-re "%[0-9]*\\([-[:alnum:]_]+\\)")
+ cfmt s)
+ (setq s (match-end 0)
+ p (match-string 1 cfmt))
+ (unless (or (equal p "ITEM")
+ (member p org-special-properties))
+ (add-to-list 'rtn (match-string 1 cfmt))))))))
+
+ (sort rtn (lambda (a b) (string< (upcase a) (upcase b))))))
+
+(defun org-property-values (key)
+ "Return a list of all values of property KEY."
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (let ((re (concat "^[ \t]*:" key ":[ \t]*\\(\\S-.*\\)"))
+ values)
+ (while (re-search-forward re nil t)
+ (add-to-list 'values (org-trim (match-string 1))))
+ (delete "" values)))))
+
+(defun org-insert-property-drawer ()
+ "Insert a property drawer into the current entry."
+ (interactive)
+ (org-back-to-heading t)
+ (looking-at outline-regexp)
+ (let ((indent (- (match-end 0)(match-beginning 0)))
+ (beg (point))
+ (re (concat "^[ \t]*" org-keyword-time-regexp))
+ end hiddenp)
+ (outline-next-heading)
+ (setq end (point))
+ (goto-char beg)
+ (while (re-search-forward re end t))
+ (setq hiddenp (org-invisible-p))
+ (end-of-line 1)
+ (and (equal (char-after) ?\n) (forward-char 1))
+ (while (looking-at "^[ \t]*\\(:CLOCK:\\|CLOCK\\|:END:\\)")
+ (beginning-of-line 2))
+ (org-skip-over-state-notes)
+ (skip-chars-backward " \t\n\r")
+ (if (eq (char-before) ?*) (forward-char 1))
+ (let ((inhibit-read-only t)) (insert "\n:PROPERTIES:\n:END:"))
+ (beginning-of-line 0)
+ (org-indent-to-column indent)
+ (beginning-of-line 2)
+ (org-indent-to-column indent)
+ (beginning-of-line 0)
+ (if hiddenp
+ (save-excursion
+ (org-back-to-heading t)
+ (hide-entry))
+ (org-flag-drawer t))))
+
+(defun org-set-property (property value)
+ "In the current entry, set PROPERTY to VALUE.
+When called interactively, this will prompt for a property name, offering
+completion on existing and default properties. And then it will prompt
+for a value, offering competion either on allowed values (via an inherited
+xxx_ALL property) or on existing values in other instances of this property
+in the current file."
+ (interactive
+ (let* ((prop (completing-read
+ "Property: " (mapcar 'list (org-buffer-property-keys nil t t))))
+ (cur (org-entry-get nil prop))
+ (allowed (org-property-get-allowed-values nil prop 'table))
+ (existing (mapcar 'list (org-property-values prop)))
+ (val (if allowed
+ (completing-read "Value: " allowed nil 'req-match)
+ (completing-read
+ (concat "Value" (if (and cur (string-match "\\S-" cur))
+ (concat "[" cur "]") "")
+ ": ")
+ existing nil nil "" nil cur))))
+ (list prop (if (equal val "") cur val))))
+ (unless (equal (org-entry-get nil property) value)
+ (org-entry-put nil property value)))
+
+(defun org-delete-property (property)
+ "In the current entry, delete PROPERTY."
+ (interactive
+ (let* ((prop (completing-read
+ "Property: " (org-entry-properties nil 'standard))))
+ (list prop)))
+ (message "Property %s %s" property
+ (if (org-entry-delete nil property)
+ "deleted"
+ "was not present in the entry")))
+
+(defun org-delete-property-globally (property)
+ "Remove PROPERTY globally, from all entries."
+ (interactive
+ (let* ((prop (completing-read
+ "Globally remove property: "
+ (mapcar 'list (org-buffer-property-keys)))))
+ (list prop)))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (let ((cnt 0))
+ (while (re-search-forward
+ (concat "^[ \t]*:" (regexp-quote property) ":.*\n?")
+ nil t)
+ (setq cnt (1+ cnt))
+ (replace-match ""))
+ (message "Property \"%s\" removed from %d entries" property cnt)))))
+
+(defvar org-columns-current-fmt-compiled) ; defined in org-colview.el
+
+(defun org-compute-property-at-point ()
+ "Compute the property at point.
+This looks for an enclosing column format, extracts the operator and
+then applies it to the proerty in the column format's scope."
+ (interactive)
+ (unless (org-at-property-p)
+ (error "Not at a property"))
+ (let ((prop (org-match-string-no-properties 2)))
+ (org-columns-get-format-and-top-level)
+ (unless (nth 3 (assoc prop org-columns-current-fmt-compiled))
+ (error "No operator defined for property %s" prop))
+ (org-columns-compute prop)))
+
+(defun org-property-get-allowed-values (pom property &optional table)
+ "Get allowed values for the property PROPERTY.
+When TABLE is non-nil, return an alist that can directly be used for
+completion."
+ (let (vals)
+ (cond
+ ((equal property "TODO")
+ (setq vals (org-with-point-at pom
+ (append org-todo-keywords-1 '("")))))
+ ((equal property "PRIORITY")
+ (let ((n org-lowest-priority))
+ (while (>= n org-highest-priority)
+ (push (char-to-string n) vals)
+ (setq n (1- n)))))
+ ((member property org-special-properties))
+ (t
+ (setq vals (org-entry-get pom (concat property "_ALL") 'inherit))
+
+ (when (and vals (string-match "\\S-" vals))
+ (setq vals (car (read-from-string (concat "(" vals ")"))))
+ (setq vals (mapcar (lambda (x)
+ (cond ((stringp x) x)
+ ((numberp x) (number-to-string x))
+ ((symbolp x) (symbol-name x))
+ (t "???")))
+ vals)))))
+ (if table (mapcar 'list vals) vals)))
+
+(defun org-property-previous-allowed-value (&optional previous)
+ "Switch to the next allowed value for this property."
+ (interactive)
+ (org-property-next-allowed-value t))
+
+(defun org-property-next-allowed-value (&optional previous)
+ "Switch to the next allowed value for this property."
+ (interactive)
+ (unless (org-at-property-p)
+ (error "Not at a property"))
+ (let* ((key (match-string 2))
+ (value (match-string 3))
+ (allowed (or (org-property-get-allowed-values (point) key)
+ (and (member value '("[ ]" "[-]" "[X]"))
+ '("[ ]" "[X]"))))
+ nval)
+ (unless allowed
+ (error "Allowed values for this property have not been defined"))
+ (if previous (setq allowed (reverse allowed)))
+ (if (member value allowed)
+ (setq nval (car (cdr (member value allowed)))))
+ (setq nval (or nval (car allowed)))
+ (if (equal nval value)
+ (error "Only one allowed value for this property"))
+ (org-at-property-p)
+ (replace-match (concat " :" key ": " nval) t t)
+ (org-indent-line-function)
+ (beginning-of-line 1)
+ (skip-chars-forward " \t")))
+
+(defun org-find-entry-with-id (ident)
+ "Locate the entry that contains the ID property with exact value IDENT.
+IDENT can be a string, a symbol or a number, this function will search for
+the string representation of it.
+Return the position where this entry starts, or nil if there is no such entry."
+ (let ((id (cond
+ ((stringp ident) ident)
+ ((symbol-name ident) (symbol-name ident))
+ ((numberp ident) (number-to-string ident))
+ (t (error "IDENT %s must be a string, symbol or number" ident))))
+ (case-fold-search nil))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (when (re-search-forward
+ (concat "^[ \t]*:ID:[ \t]+" (regexp-quote id) "[ \t]*$")
+ nil t)
+ (org-back-to-heading)
+ (point))))))
+
+;;;; Timestamps
+
+(defvar org-last-changed-timestamp nil)
+(defvar org-time-was-given) ; dynamically scoped parameter
+(defvar org-end-time-was-given) ; dynamically scoped parameter
+(defvar org-ts-what) ; dynamically scoped parameter
+
+(defun org-time-stamp (arg)
+ "Prompt for a date/time and insert a time stamp.
+If the user specifies a time like HH:MM, or if this command is called
+with a prefix argument, the time stamp will contain date and time.
+Otherwise, only the date will be included. All parts of a date not
+specified by the user will be filled in from the current date/time.
+So if you press just return without typing anything, the time stamp
+will represent the current date/time. If there is already a timestamp
+at the cursor, it will be modified."
+ (interactive "P")
+ (let* ((ts nil)
+ (default-time
+ ;; Default time is either today, or, when entering a range,
+ ;; the range start.
+ (if (or (and (org-at-timestamp-p t) (setq ts (match-string 0)))
+ (save-excursion
+ (re-search-backward
+ (concat org-ts-regexp "--?-?\\=") ; 1-3 minuses
+ (- (point) 20) t)))
+ (apply 'encode-time (org-parse-time-string (match-string 1)))
+ (current-time)))
+ (default-input (and ts (org-get-compact-tod ts)))
+ org-time-was-given org-end-time-was-given time)
+ (cond
+ ((and (org-at-timestamp-p)
+ (eq last-command 'org-time-stamp)
+ (eq this-command 'org-time-stamp))
+ (insert "--")
+ (setq time (let ((this-command this-command))
+ (org-read-date arg 'totime nil nil default-time default-input)))
+ (org-insert-time-stamp time (or org-time-was-given arg)))
+ ((org-at-timestamp-p)
+ (setq time (let ((this-command this-command))
+ (org-read-date arg 'totime nil nil default-time default-input)))
+ (when (org-at-timestamp-p) ; just to get the match data
+ (replace-match "")
+ (setq org-last-changed-timestamp
+ (org-insert-time-stamp
+ time (or org-time-was-given arg)
+ nil nil nil (list org-end-time-was-given))))
+ (message "Timestamp updated"))
+ (t
+ (setq time (let ((this-command this-command))
+ (org-read-date arg 'totime nil nil default-time default-input)))
+ (org-insert-time-stamp time (or org-time-was-given arg)
+ nil nil nil (list org-end-time-was-given))))))
+
+;; FIXME: can we use this for something else, like computing time differences?
+(defun org-get-compact-tod (s)
+ (when (string-match "\\(\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)\\(-\\(\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)\\)?" s)
+ (let* ((t1 (match-string 1 s))
+ (h1 (string-to-number (match-string 2 s)))
+ (m1 (string-to-number (match-string 3 s)))
+ (t2 (and (match-end 4) (match-string 5 s)))
+ (h2 (and t2 (string-to-number (match-string 6 s))))
+ (m2 (and t2 (string-to-number (match-string 7 s))))
+ dh dm)
+ (if (not t2)
+ t1
+ (setq dh (- h2 h1) dm (- m2 m1))
+ (if (< dm 0) (setq dm (+ dm 60) dh (1- dh)))
+ (concat t1 "+" (number-to-string dh)
+ (if (/= 0 dm) (concat ":" (number-to-string dm))))))))
+
+(defun org-time-stamp-inactive (&optional arg)
+ "Insert an inactive time stamp.
+An inactive time stamp is enclosed in square brackets instead of angle
+brackets. It is inactive in the sense that it does not trigger agenda entries,
+does not link to the calendar and cannot be changed with the S-cursor keys.
+So these are more for recording a certain time/date."
+ (interactive "P")
+ (let (org-time-was-given org-end-time-was-given time)
+ (setq time (org-read-date arg 'totime))
+ (org-insert-time-stamp time (or org-time-was-given arg) 'inactive
+ nil nil (list org-end-time-was-given))))
+
+(defvar org-date-ovl (org-make-overlay 1 1))
+(org-overlay-put org-date-ovl 'face 'org-warning)
+(org-detach-overlay org-date-ovl)
+
+(defvar org-ans1) ; dynamically scoped parameter
+(defvar org-ans2) ; dynamically scoped parameter
+
+(defvar org-plain-time-of-day-regexp) ; defined below
+
+(defvar org-read-date-overlay nil)
+(defvar org-dcst nil) ; dynamically scoped
+
+(defun org-read-date (&optional with-time to-time from-string prompt
+ default-time default-input)
+ "Read a date, possibly a time, and make things smooth for the user.
+The prompt will suggest to enter an ISO date, but you can also enter anything
+which will at least partially be understood by `parse-time-string'.
+Unrecognized parts of the date will default to the current day, month, year,
+hour and minute. If this command is called to replace a timestamp at point,
+of to enter the second timestamp of a range, the default time is taken from the
+existing stamp. For example,
+ 3-2-5 --> 2003-02-05
+ feb 15 --> currentyear-02-15
+ sep 12 9 --> 2009-09-12
+ 12:45 --> today 12:45
+ 22 sept 0:34 --> currentyear-09-22 0:34
+ 12 --> currentyear-currentmonth-12
+ Fri --> nearest Friday (today or later)
+ etc.
+
+Furthermore you can specify a relative date by giving, as the *first* thing
+in the input: a plus/minus sign, a number and a letter [dwmy] to indicate
+change in days weeks, months, years.
+With a single plus or minus, the date is relative to today. With a double
+plus or minus, it is relative to the date in DEFAULT-TIME. E.g.
+ +4d --> four days from today
+ +4 --> same as above
+ +2w --> two weeks from today
+ ++5 --> five days from default date
+
+The function understands only English month and weekday abbreviations,
+but this can be configured with the variables `parse-time-months' and
+`parse-time-weekdays'.
+
+While prompting, a calendar is popped up - you can also select the
+date with the mouse (button 1). The calendar shows a period of three
+months. To scroll it to other months, use the keys `>' and `<'.
+If you don't like the calendar, turn it off with
+ \(setq org-read-date-popup-calendar nil)
+
+With optional argument TO-TIME, the date will immediately be converted
+to an internal time.
+With an optional argument WITH-TIME, the prompt will suggest to also
+insert a time. Note that when WITH-TIME is not set, you can still
+enter a time, and this function will inform the calling routine about
+this change. The calling routine may then choose to change the format
+used to insert the time stamp into the buffer to include the time.
+With optional argument FROM-STRING, read from this string instead from
+the user. PROMPT can overwrite the default prompt. DEFAULT-TIME is
+the time/date that is used for everything that is not specified by the
+user."
+ (require 'parse-time)
+ (let* ((org-time-stamp-rounding-minutes
+ (if (equal with-time '(16)) '(0 0) org-time-stamp-rounding-minutes))
+ (org-dcst org-display-custom-times)
+ (ct (org-current-time))
+ (def (or default-time ct))
+ (defdecode (decode-time def))
+ (dummy (progn
+ (when (< (nth 2 defdecode) org-extend-today-until)
+ (setcar (nthcdr 2 defdecode) -1)
+ (setcar (nthcdr 1 defdecode) 59)
+ (setq def (apply 'encode-time defdecode)
+ defdecode (decode-time def)))))
+ (calendar-move-hook nil)
+ (calendar-view-diary-initially-flag nil)
+ (view-diary-entries-initially nil)
+ (calendar-view-holidays-initially-flag nil)
+ (view-calendar-holidays-initially nil)
+ (timestr (format-time-string
+ (if with-time "%Y-%m-%d %H:%M" "%Y-%m-%d") def))
+ (prompt (concat (if prompt (concat prompt " ") "")
+ (format "Date+time [%s]: " timestr)))
+ ans (org-ans0 "") org-ans1 org-ans2 final)
+
+ (cond
+ (from-string (setq ans from-string))
+ (org-read-date-popup-calendar
+ (save-excursion
+ (save-window-excursion
+ (calendar)
+ (calendar-forward-day (- (time-to-days def)
+ (calendar-absolute-from-gregorian
+ (calendar-current-date))))
+ (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)))
+ (org-defkey map (kbd "RET") 'org-calendar-select)
+ (org-defkey map (if (featurep 'xemacs) [button1] [mouse-1])
+ 'org-calendar-select-mouse)
+ (org-defkey map (if (featurep 'xemacs) [button2] [mouse-2])
+ 'org-calendar-select-mouse)
+ (org-defkey minibuffer-local-map [(meta shift left)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-backward-month 1))))
+ (org-defkey minibuffer-local-map [(meta shift right)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-forward-month 1))))
+ (org-defkey minibuffer-local-map [(meta shift up)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-backward-year 1))))
+ (org-defkey minibuffer-local-map [(meta shift down)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-forward-year 1))))
+ (org-defkey minibuffer-local-map [(shift up)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-backward-week 1))))
+ (org-defkey minibuffer-local-map [(shift down)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-forward-week 1))))
+ (org-defkey minibuffer-local-map [(shift left)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-backward-day 1))))
+ (org-defkey minibuffer-local-map [(shift right)]
+ (lambda () (interactive)
+ (org-eval-in-calendar '(calendar-forward-day 1))))
+ (org-defkey minibuffer-local-map ">"
+ (lambda () (interactive)
+ (org-eval-in-calendar '(scroll-calendar-left 1))))
+ (org-defkey minibuffer-local-map "<"
+ (lambda () (interactive)
+ (org-eval-in-calendar '(scroll-calendar-right 1))))
+ (unwind-protect
+ (progn
+ (use-local-map map)
+ (add-hook 'post-command-hook 'org-read-date-display)
+ (setq org-ans0 (read-string prompt default-input nil nil))
+ ;; org-ans0: from prompt
+ ;; org-ans1: from mouse click
+ ;; org-ans2: from calendar motion
+ (setq ans (concat org-ans0 " " (or org-ans1 org-ans2))))
+ (remove-hook 'post-command-hook 'org-read-date-display)
+ (use-local-map old-map)
+ (when org-read-date-overlay
+ (org-delete-overlay org-read-date-overlay)
+ (setq org-read-date-overlay nil)))))))
+
+ (t ; Naked prompt only
+ (unwind-protect
+ (setq ans (read-string prompt default-input nil timestr))
+ (when org-read-date-overlay
+ (org-delete-overlay org-read-date-overlay)
+ (setq org-read-date-overlay nil)))))
+
+ (setq final (org-read-date-analyze ans def defdecode))
+
+ (if to-time
+ (apply 'encode-time final)
+ (if (and (boundp 'org-time-was-given) org-time-was-given)
+ (format "%04d-%02d-%02d %02d:%02d"
+ (nth 5 final) (nth 4 final) (nth 3 final)
+ (nth 2 final) (nth 1 final))
+ (format "%04d-%02d-%02d" (nth 5 final) (nth 4 final) (nth 3 final))))))
+(defvar def)
+(defvar defdecode)
+(defvar with-time)
+(defun org-read-date-display ()
+ "Display the currrent date prompt interpretation in the minibuffer."
+ (when org-read-date-display-live
+ (when org-read-date-overlay
+ (org-delete-overlay org-read-date-overlay))
+ (let ((p (point)))
+ (end-of-line 1)
+ (while (not (equal (buffer-substring
+ (max (point-min) (- (point) 4)) (point))
+ " "))
+ (insert " "))
+ (goto-char p))
+ (let* ((ans (concat (buffer-substring (point-at-bol) (point-max))
+ " " (or org-ans1 org-ans2)))
+ (org-end-time-was-given nil)
+ (f (org-read-date-analyze ans def defdecode))
+ (fmts (if org-dcst
+ org-time-stamp-custom-formats
+ org-time-stamp-formats))
+ (fmt (if (or with-time
+ (and (boundp 'org-time-was-given) org-time-was-given))
+ (cdr fmts)
+ (car fmts)))
+ (txt (concat "=> " (format-time-string fmt (apply 'encode-time f)))))
+ (when (and org-end-time-was-given
+ (string-match org-plain-time-of-day-regexp txt))
+ (setq txt (concat (substring txt 0 (match-end 0)) "-"
+ org-end-time-was-given
+ (substring txt (match-end 0)))))
+ (setq org-read-date-overlay
+ (make-overlay (1- (point-at-eol)) (point-at-eol)))
+ (org-overlay-display org-read-date-overlay txt 'secondary-selection))))
+
+(defun org-read-date-analyze (ans def defdecode)
+ "Analyze the combined answer of the date prompt."
+ ;; FIXME: cleanup and comment
+ (let (delta deltan deltaw deltadef year month day
+ hour minute second wday pm h2 m2 tl wday1
+ iso-year iso-weekday iso-week iso-year iso-date)
+
+ (when (setq delta (org-read-date-get-relative ans (current-time) def))
+ (setq ans (replace-match "" t t ans)
+ deltan (car delta)
+ deltaw (nth 1 delta)
+ deltadef (nth 2 delta)))
+
+ ;; Check if there is an iso week date in there
+ ;; If yes, sore the info and ostpone interpreting it until the rest
+ ;; of the parsing is done
+ (when (string-match "\\<\\(?:\\([0-9]+\\)-\\)?[wW]\\([0-9]\\{1,2\\}\\)\\(?:-\\([0-6]\\)\\)?\\([ \t]\\|$\\)" ans)
+ (setq iso-year (if (match-end 1) (org-small-year-to-year (string-to-number (match-string 1 ans))))
+ iso-weekday (if (match-end 3) (string-to-number (match-string 3 ans)))
+ iso-week (string-to-number (match-string 2 ans)))
+ (setq ans (replace-match "" t t 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
+ ;; so that matching will be successful.
+ (loop for i from 1 to 2 do ; twice, for end time as well
+ (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))))
+
+ ;; Check if a time range is given as a duration
+ (when (string-match "\\([012]?[0-9]\\):\\([0-6][0-9]\\)\\+\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?" ans)
+ (setq hour (string-to-number (match-string 1 ans))
+ h2 (+ hour (string-to-number (match-string 3 ans)))
+ minute (string-to-number (match-string 2 ans))
+ m2 (+ minute (if (match-end 5) (string-to-number
+ (match-string 5 ans))0)))
+ (if (>= m2 60) (setq h2 (1+ h2) m2 (- m2 60)))
+ (setq ans (replace-match (format "%02d:%02d-%02d:%02d" hour minute h2 m2)
+ t t ans)))
+
+ ;; Check if there is a time range
+ (when (boundp 'org-end-time-was-given)
+ (setq org-time-was-given nil)
+ (when (and (string-match org-plain-time-of-day-regexp ans)
+ (match-end 8))
+ (setq org-end-time-was-given (match-string 8 ans))
+ (setq ans (concat (substring ans 0 (match-beginning 7))
+ (substring ans (match-end 7))))))
+
+ (setq tl (parse-time-string ans)
+ day (or (nth 3 tl) (nth 3 defdecode))
+ month (or (nth 4 tl)
+ (if (and org-read-date-prefer-future
+ (nth 3 tl) (< (nth 3 tl) (nth 3 defdecode)))
+ (1+ (nth 4 defdecode))
+ (nth 4 defdecode)))
+ year (or (nth 5 tl)
+ (if (and org-read-date-prefer-future
+ (nth 4 tl) (< (nth 4 tl) (nth 4 defdecode)))
+ (1+ (nth 5 defdecode))
+ (nth 5 defdecode)))
+ hour (or (nth 2 tl) (nth 2 defdecode))
+ minute (or (nth 1 tl) (nth 1 defdecode))
+ second (or (nth 0 tl) 0)
+ wday (nth 6 tl))
+
+ ;; Special date definitions below
+ (cond
+ (iso-week
+ ;; There was an iso week
+ (setq year (or iso-year year)
+ day (or iso-weekday wday 1)
+ wday nil ; to make sure that the trigger below does not match
+ iso-date (calendar-gregorian-from-absolute
+ (calendar-absolute-from-iso
+ (list iso-week day year))))
+; FIXME: Should we also push ISO weeks into the future?
+; (when (and org-read-date-prefer-future
+; (not iso-year)
+; (< (calendar-absolute-from-gregorian iso-date)
+; (time-to-days (current-time))))
+; (setq year (1+ year)
+; iso-date (calendar-gregorian-from-absolute
+; (calendar-absolute-from-iso
+; (list iso-week day year)))))
+ (setq month (car iso-date)
+ year (nth 2 iso-date)
+ day (nth 1 iso-date)))
+ (deltan
+ (unless deltadef
+ (let ((now (decode-time (current-time))))
+ (setq day (nth 3 now) month (nth 4 now) year (nth 5 now))))
+ (cond ((member deltaw '("d" "")) (setq day (+ day deltan)))
+ ((equal deltaw "w") (setq day (+ day (* 7 deltan))))
+ ((equal deltaw "m") (setq month (+ month deltan)))
+ ((equal deltaw "y") (setq year (+ year deltan)))))
+ ((and wday (not (nth 3 tl)))
+ ;; Weekday was given, but no day, so pick that day in the week
+ ;; on or after the derived date.
+ (setq wday1 (nth 6 (decode-time (encode-time 0 0 0 day month year))))
+ (unless (equal wday wday1)
+ (setq day (+ day (% (- wday wday1 -7) 7))))))
+ (if (and (boundp 'org-time-was-given)
+ (nth 2 tl))
+ (setq org-time-was-given t))
+ (if (< year 100) (setq year (+ 2000 year)))
+ (if (< year 1970) (setq year (nth 5 defdecode))) ; not representable
+ (list second minute hour day month year)))
+
+(defvar parse-time-weekdays)
+
+(defun org-read-date-get-relative (s today default)
+ "Check string S for special relative date string.
+TODAY and DEFAULT are internal times, for today and for a default.
+Return shift list (N what def-flag)
+WHAT is \"d\", \"w\", \"m\", or \"y\" for day, week, month, year.
+N is the number of WHATs to shift.
+DEF-FLAG is t when a double ++ or -- indicates shift relative to
+ the DEFAULT date rather than TODAY."
++ (when (and
++ (string-match
++ (concat
++ "\\`[ \t]*\\([-+]\\{0,2\\}\\)"
++ "\\([0-9]+\\)?"
++ "\\([dwmy]\\|\\(" (mapconcat 'car parse-time-weekdays "\\|") "\\)\\)?"
++ "\\([ \t]\\|$\\)") s)
++ (or (> (match-end 1) (match-beginning 1)) (match-end 4)))
++ (let* ((dir (if (> (match-end 1) (match-beginning 1))
+ (string-to-char (substring (match-string 1 s) -1))
+ ?+))
+ (rel (and (match-end 1) (= 2 (- (match-end 1) (match-beginning 1)))))
+ (n (if (match-end 2) (string-to-number (match-string 2 s)) 1))
+ (what (if (match-end 3) (match-string 3 s) "d"))
+ (wday1 (cdr (assoc (downcase what) parse-time-weekdays)))
+ (date (if rel default today))
+ (wday (nth 6 (decode-time date)))
+ delta)
+ (if wday1
+ (progn
+ (setq delta (mod (+ 7 (- wday1 wday)) 7))
+ (if (= dir ?-) (setq delta (- delta 7)))
+ (if (> n 1) (setq delta (+ delta (* (1- n) (if (= dir ?-) -7 7)))))
+ (list delta "d" rel))
+ (list (* n (if (= dir ?-) -1 1)) what rel)))))
+
+(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 (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)))
+
+; ;; 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.
+This is used by `org-read-date' in a temporary keymap for the calendar buffer."
+ (interactive)
+ (when (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-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 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
+stamp will not contribute to the agenda.
+PRE and POST are optional strings to be inserted before and after the
+stamp.
+The command returns the inserted time stamp."
+ (let ((fmt (funcall (if with-hm 'cdr 'car) org-time-stamp-formats))
+ stamp)
+ (if inactive (setq fmt (concat "[" (substring fmt 1 -1) "]")))
+ (insert-before-markers (or pre ""))
+ (insert-before-markers (setq stamp (format-time-string fmt time)))
+ (when (listp extra)
+ (setq extra (car extra))
+ (if (and (stringp extra)
+ (string-match "\\([0-9]+\\):\\([0-9]+\\)" extra))
+ (setq extra (format "-%02d:%02d"
+ (string-to-number (match-string 1 extra))
+ (string-to-number (match-string 2 extra))))
+ (setq extra nil)))
+ (when extra
+ (backward-char 1)
+ (insert-before-markers extra)
+ (forward-char 1))
+ (insert-before-markers (or post ""))
+ stamp))
+
+(defun org-toggle-time-stamp-overlays ()
+ "Toggle the use of custom time stamp formats."
+ (interactive)
+ (setq org-display-custom-times (not org-display-custom-times))
+ (unless org-display-custom-times
+ (let ((p (point-min)) (bmp (buffer-modified-p)))
+ (while (setq p (next-single-property-change p 'display))
+ (if (and (get-text-property p 'display)
+ (eq (get-text-property p 'face) 'org-date))
+ (remove-text-properties
+ p (setq p (next-single-property-change p 'display))
+ '(display t))))
+ (set-buffer-modified-p bmp)))
+ (if (featurep 'xemacs)
+ (remove-text-properties (point-min) (point-max) '(end-glyph t)))
+ (org-restart-font-lock)
+ (setq org-table-may-need-update t)
+ (if org-display-custom-times
+ (message "Time stamps are overlayed with custom format")
+ (message "Time stamp overlays removed")))
+
+(defun org-display-custom-time (beg end)
+ "Overlay modified time stamp format over timestamp between BED and END."
+ (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]+:[0-9]+\\)?\\( [.+]?\\+[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))
+ (if (not (= w2 w1))
+ (add-text-properties (1+ beg) (+ 2 beg)
+ (list 'org-dwidth t 'org-dwidth-n (- w1 w2))))
+ (if (featurep 'xemacs)
+ (progn
+ (put-text-property beg end 'invisible t)
+ (put-text-property beg end 'end-glyph (make-glyph str)))
+ (put-text-property beg end 'display str))))
+
+(defun org-translate-time (string)
+ "Translate all timestamps in STRING to custom format.
+But do this only if the variable `org-display-custom-times' is set."
+ (when org-display-custom-times
+ (save-match-data
+ (let* ((start 0)
+ (re org-ts-regexp-both)
+ t1 with-hm inactive tf time str beg end)
+ (while (setq start (string-match re string start))
+ (setq beg (match-beginning 0)
+ end (match-end 0)
+ t1 (save-match-data
+ (org-parse-time-string (substring string beg end) t))
+ with-hm (and (nth 1 t1) (nth 2 t1))
+ inactive (equal (substring string beg (1+ beg)) "[")
+ tf (funcall (if with-hm 'cdr 'car)
+ org-time-stamp-custom-formats)
+ time (org-fix-decoded-time t1)
+ str (format-time-string
+ (concat
+ (if inactive "[" "<") (substring tf 1 -1)
+ (if inactive "]" ">"))
+ (apply 'encode-time time))
+ string (replace-match str t t string)
+ start (+ start (length str)))))))
+ string)
+
+(defun org-fix-decoded-time (time)
+ "Set 0 instead of nil for the first 6 elements of time.
+Don't touch the rest."
+ (let ((n 0))
+ (mapcar (lambda (x) (if (< (setq n (1+ n)) 7) (or x 0) x)) time)))
+
+(defun org-days-to-time (timestamp-string)
+ "Difference between TIMESTAMP-STRING and now in days."
+ (- (time-to-days (org-time-string-to-time timestamp-string))
+ (time-to-days (current-time))))
+
+(defun org-deadline-close (timestamp-string &optional ndays)
+ "Is the time in TIMESTAMP-STRING close to the current date?"
+ (setq ndays (or ndays (org-get-wdays timestamp-string)))
+ (and (< (org-days-to-time timestamp-string) ndays)
+ (not (org-entry-is-done-p))))
+
+(defun org-get-wdays (ts)
+ "Get the deadline lead time appropriate for timestring TS."
+ (cond
+ ((<= org-deadline-warning-days 0)
+ ;; 0 or negative, enforce this value no matter what
+ (- org-deadline-warning-days))
+ ((string-match "-\\([0-9]+\\)\\([dwmy]\\)\\(\\'\\|>\\)" ts)
+ ;; lead time is specified.
+ (floor (* (string-to-number (match-string 1 ts))
+ (cdr (assoc (match-string 2 ts)
+ '(("d" . 1) ("w" . 7)
+ ("m" . 30.4) ("y" . 365.25)))))))
+ ;; go for the default.
+ (t org-deadline-warning-days)))
+
+(defun org-calendar-select-mouse (ev)
+ "Return to `org-read-date' with the date currently selected.
+This is used by `org-read-date' in a temporary keymap for the calendar buffer."
+ (interactive "e")
+ (mouse-set-point ev)
+ (when (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-ans1 (format-time-string "%Y-%m-%d" time)))
+ (if (active-minibuffer-window) (exit-minibuffer))))
+
+(defun org-check-deadlines (ndays)
+ "Check if there are any deadlines due or past due.
+A deadline is considered due if it happens within `org-deadline-warning-days'
+days from today's date. If the deadline appears in an entry marked DONE,
+it is not shown. The prefix arg NDAYS can be used to test that many
+days. If the prefix is a raw \\[universal-argument] prefix, all deadlines are shown."
+ (interactive "P")
+ (let* ((org-warn-days
+ (cond
+ ((equal ndays '(4)) 100000)
+ (ndays (prefix-numeric-value ndays))
+ (t (abs org-deadline-warning-days))))
+ (case-fold-search nil)
+ (regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>"))
+ (callback
+ (lambda () (org-deadline-close (match-string 1) org-warn-days))))
+
+ (message "%d deadlines past-due or due within %d days"
+ (org-occur regexp nil callback)
+ org-warn-days)))
+
+(defun org-check-before-date (date)
+ "Check if there are deadlines or scheduled entries before DATE."
+ (interactive (list (org-read-date)))
+ (let ((case-fold-search nil)
+ (regexp (concat "\\<\\(" org-deadline-string
+ "\\|" org-scheduled-string
+ "\\) *<\\([^>]+\\)>"))
+ (callback
+ (lambda () (time-less-p
+ (org-time-string-to-time (match-string 2))
+ (org-time-string-to-time date)))))
+ (message "%d entries before %s"
+ (org-occur regexp nil callback) date)))
+
+(defun org-evaluate-time-range (&optional to-buffer)
+ "Evaluate a time range by computing the difference between start and end.
+Normally the result is just printed in the echo area, but with prefix arg
+TO-BUFFER, the result is inserted just after the date stamp into the buffer.
+If the time range is actually in a table, the result is inserted into the
+next column.
+For time difference computation, a year is assumed to be exactly 365
+days in order to avoid rounding problems."
+ (interactive "P")
+ (or
+ (org-clock-update-time-maybe)
+ (save-excursion
+ (unless (org-at-date-range-p t)
+ (goto-char (point-at-bol))
+ (re-search-forward org-tr-regexp-both (point-at-eol) t))
+ (if (not (org-at-date-range-p t))
+ (error "Not at a time-stamp range, and none found in current line")))
+ (let* ((ts1 (match-string 1))
+ (ts2 (match-string 2))
+ (havetime (or (> (length ts1) 15) (> (length ts2) 15)))
+ (match-end (match-end 0))
+ (time1 (org-time-string-to-time ts1))
+ (time2 (org-time-string-to-time ts2))
+ (t1 (time-to-seconds time1))
+ (t2 (time-to-seconds time2))
+ (diff (abs (- t2 t1)))
+ (negative (< (- t2 t1) 0))
+ ;; (ys (floor (* 365 24 60 60)))
+ (ds (* 24 60 60))
+ (hs (* 60 60))
+ (fy "%dy %dd %02d:%02d")
+ (fy1 "%dy %dd")
+ (fd "%dd %02d:%02d")
+ (fd1 "%dd")
+ (fh "%02d:%02d")
+ y d h m align)
+ (if havetime
+ (setq ; y (floor (/ diff ys)) diff (mod diff ys)
+ y 0
+ d (floor (/ diff ds)) diff (mod diff ds)
+ h (floor (/ diff hs)) diff (mod diff hs)
+ m (floor (/ diff 60)))
+ (setq ; y (floor (/ diff ys)) diff (mod diff ys)
+ y 0
+ d (floor (+ (/ diff ds) 0.5))
+ h 0 m 0))
+ (if (not to-buffer)
+ (message "%s" (org-make-tdiff-string y d h m))
+ (if (org-at-table-p)
+ (progn
+ (goto-char match-end)
+ (setq align t)
+ (and (looking-at " *|") (goto-char (match-end 0))))
+ (goto-char match-end))
+ (if (looking-at
+ "\\( *-? *[0-9]+y\\)?\\( *[0-9]+d\\)? *[0-9][0-9]:[0-9][0-9]")
+ (replace-match ""))
+ (if negative (insert " -"))
+ (if (> y 0) (insert " " (format (if havetime fy fy1) y d h m))
+ (if (> d 0) (insert " " (format (if havetime fd fd1) d h m))
+ (insert " " (format fh h m))))
+ (if align (org-table-align))
+ (message "Time difference inserted")))))
+
+(defun org-make-tdiff-string (y d h m)
+ (let ((fmt "")
+ (l nil))
+ (if (> y 0) (setq fmt (concat fmt "%d year" (if (> y 1) "s" "") " ")
+ l (push y l)))
+ (if (> d 0) (setq fmt (concat fmt "%d day" (if (> d 1) "s" "") " ")
+ l (push d l)))
+ (if (> h 0) (setq fmt (concat fmt "%d hour" (if (> h 1) "s" "") " ")
+ l (push h l)))
+ (if (> m 0) (setq fmt (concat fmt "%d minute" (if (> m 1) "s" "") " ")
+ l (push m l)))
+ (apply 'format fmt (nreverse l))))
+
+(defun org-time-string-to-time (s)
+ (apply 'encode-time (org-parse-time-string s)))
+
+(defun org-time-string-to-absolute (s &optional daynr prefer show-all)
+ "Convert a time stamp to an absolute day number.
+If there is a specifyer for a cyclic time stamp, get the closest date to
+DAYNR.
+PREFER and SHOW_ALL are passed through to `org-closest-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)
+ prefer show-all))
+ (t (time-to-days (apply 'encode-time (org-parse-time-string s))))))
+
+(defun org-days-to-iso-week (days)
+ "Return the iso week number."
+ (require 'cal-iso)
+ (car (calendar-iso-from-absolute days)))
+
+(defun org-small-year-to-year (year)
+ "Convert 2-digit years into 4-digit years.
+38-99 are mapped into 1938-1999. 1-37 are mapped into 2001-2007.
+The year 2000 cannot be abbreviated. Any year lager than 99
+is retrned unchanged."
+ (if (< year 38)
+ (setq year (+ 2000 year))
+ (if (< year 100)
+ (setq year (+ 1900 year))))
+ year)
+
+(defun org-time-from-absolute (d)
+ "Return the time corresponding to date D.
+D may be an absolute day number, or a calendar-type list (month day year)."
+ (if (numberp d) (setq d (calendar-gregorian-from-absolute d)))
+ (encode-time 0 0 0 (nth 1 d) (car d) (nth 2 d)))
+
+(defun org-calendar-holiday ()
+ "List of holidays, for Diary display in Org-mode."
+ (require 'holidays)
+ (let ((hl (funcall
+ (if (fboundp 'calendar-check-holidays)
+ 'calendar-check-holidays 'check-calendar-holidays) date)))
+ (if hl (mapconcat 'identity hl "; "))))
+
+(defun org-diary-sexp-entry (sexp entry date)
+ "Process a SEXP diary ENTRY for DATE."
+ (require 'diary-lib)
+ (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)
+ "Get iCalendar entries from diary entries in buffer FROMBUF.
+This uses the icalendar.el library."
+ (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 prefer show-all)
+ "Find the date closest to CURRENT that is consistent with START and CHANGE.
+When PREFER is `past' return a date that is either CURRENT or past.
+When PREFER is `future', return a date that is either CURRENT or future.
+When SHOW-ALL is nil, only return the current occurence of a time stamp."
+ ;; 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
+ (if show-all
+ current
+ (time-to-days (current-time))))
+ 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 show-all
+ (cond
+ ((eq prefer 'past) n1)
+ ((eq prefer 'future) (if (= cday n1) n1 n2))
+ (t (if (> (abs (- cday n1)) (abs (- cday n2))) n2 n1)))
+ (cond
+ ((eq prefer 'past) n1)
+ ((eq prefer 'future) (if (= cday n1) n1 n2))
+ (t (if (= cday n1) n1 n2)))))))
+
+(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'.
+If time is not given, defaults to 0:00. However, with optional NODEFAULT,
+hour and minute fields will be nil if not given."
+ (if (string-match org-ts-regexp0 s)
+ (list 0
+ (if (or (match-beginning 8) (not nodefault))
+ (string-to-number (or (match-string 8 s) "0")))
+ (if (or (match-beginning 7) (not nodefault))
+ (string-to-number (or (match-string 7 s) "0")))
+ (string-to-number (match-string 4 s))
+ (string-to-number (match-string 3 s))
+ (string-to-number (match-string 2 s))
+ nil nil nil)
+ (make-list 9 0)))
+
+(defun org-timestamp-up (&optional arg)
+ "Increase the date item at the cursor by one.
+If the cursor is on the year, change the year. If it is on the month or
+the day, change that.
+With prefix ARG, change by that many units."
+ (interactive "p")
+ (org-timestamp-change (prefix-numeric-value arg)))
+
+(defun org-timestamp-down (&optional arg)
+ "Decrease the date item at the cursor by one.
+If the cursor is on the year, change the year. If it is on the month or
+the day, change that.
+With prefix ARG, change by that many units."
+ (interactive "p")
+ (org-timestamp-change (- (prefix-numeric-value arg))))
+
+(defun org-timestamp-up-day (&optional arg)
+ "Increase the date in the time stamp by one day.
+With prefix ARG, change that many days."
+ (interactive "p")
+ (if (and (not (org-at-timestamp-p t))
+ (org-on-heading-p))
+ (org-todo 'up)
+ (org-timestamp-change (prefix-numeric-value arg) 'day)))
+
+(defun org-timestamp-down-day (&optional arg)
+ "Decrease the date in the time stamp by one day.
+With prefix ARG, change that many days."
+ (interactive "p")
+ (if (and (not (org-at-timestamp-p t))
+ (org-on-heading-p))
+ (org-todo 'down)
+ (org-timestamp-change (- (prefix-numeric-value arg)) 'day)))
+
+(defun org-at-timestamp-p (&optional inactive-ok)
+ "Determine if the cursor is in or at a timestamp."
+ (interactive)
+ (let* ((tsr (if inactive-ok org-ts-regexp3 org-ts-regexp2))
+ (pos (point))
+ (ans (or (looking-at tsr)
+ (save-excursion
+ (skip-chars-backward "^[<\n\r\t")
+ (if (> (point) (point-min)) (backward-char 1))
+ (and (looking-at tsr)
+ (> (- (match-end 0) pos) -1))))))
+ (and ans
+ (boundp 'org-ts-what)
+ (setq org-ts-what
+ (cond
+ ((= pos (match-beginning 0)) 'bracket)
+ ((= pos (1- (match-end 0))) 'bracket)
+ ((org-pos-in-match-range pos 2) 'year)
+ ((org-pos-in-match-range pos 3) 'month)
+ ((org-pos-in-match-range pos 7) 'hour)
+ ((org-pos-in-match-range pos 8) 'minute)
+ ((or (org-pos-in-match-range pos 4)
+ (org-pos-in-match-range pos 5)) 'day)
+ ((and (> pos (or (match-end 8) (match-end 5)))
+ (< pos (match-end 0)))
+ (- pos (or (match-end 8) (match-end 5))))
+ (t 'day))))
+ ans))
+
+(defun org-toggle-timestamp-type ()
+ "Toggle the type (<active> or [inactive]) of a time stamp."
+ (interactive)
+ (when (org-at-timestamp-p t)
+ (save-excursion
+ (goto-char (match-beginning 0))
+ (insert (if (equal (char-after) ?<) "[" "<")) (delete-char 1)
+ (goto-char (1- (match-end 0)))
+ (insert (if (equal (char-after) ?>) "]" ">")) (delete-char 1))
+ (message "Timestamp is now %sactive"
+ (if (equal (char-before) ?>) "in" ""))))
+
+(defun org-timestamp-change (n &optional what)
+ "Change the date in the time stamp at point.
+The date will be changed by N times WHAT. WHAT can be `day', `month',
+`year', `minute', `second'. If WHAT is not given, the cursor position
+in the timestamp determines what will be changed."
+ (let ((pos (point))
+ with-hm inactive
+ (dm (max (nth 1 org-time-stamp-rounding-minutes) 1))
+ org-ts-what
+ extra rem
+ ts time time0)
+ (if (not (org-at-timestamp-p t))
+ (error "Not at a timestamp"))
+ (if (and (not what) (eq org-ts-what 'bracket))
+ (org-toggle-timestamp-type)
+ (if (and (not what) (not (eq org-ts-what 'day))
+ org-display-custom-times
+ (get-text-property (point) 'display)
+ (not (get-text-property (1- (point)) 'display)))
+ (setq org-ts-what 'day))
+ (setq org-ts-what (or what org-ts-what)
+ inactive (= (char-after (match-beginning 0)) ?\[)
+ ts (match-string 0))
+ (replace-match "")
+ (if (string-match
+ "\\(\\(-[012][0-9]:[0-5][0-9]\\)?\\( +[.+]?[-+][0-9]+[dwmy]\\)*\\)[]>]"
+ ts)
+ (setq extra (match-string 1 ts)))
+ (if (string-match "^.\\{10\\}.*?[0-9]+:[0-9][0-9]" ts)
+ (setq with-hm t))
+ (setq time0 (org-parse-time-string ts))
+ (when (and (eq org-ts-what 'minute)
+ (eq current-prefix-arg nil))
+ (setq n (* dm (cond ((> n 0) 1) ((< n 0) -1) (t 0))))
+ (when (not (= 0 (setq rem (% (nth 1 time0) dm))))
+ (setcar (cdr time0) (+ (nth 1 time0)
+ (if (> n 0) (- rem) (- dm rem))))))
+ (setq time
+ (encode-time (or (car time0) 0)
+ (+ (if (eq org-ts-what 'minute) n 0) (nth 1 time0))
+ (+ (if (eq org-ts-what 'hour) n 0) (nth 2 time0))
+ (+ (if (eq org-ts-what 'day) n 0) (nth 3 time0))
+ (+ (if (eq org-ts-what 'month) n 0) (nth 4 time0))
+ (+ (if (eq org-ts-what 'year) n 0) (nth 5 time0))
+ (nthcdr 6 time0)))
+ (when (integerp org-ts-what)
+ (setq extra (org-modify-ts-extra extra org-ts-what n dm)))
+ (if (eq what 'calendar)
+ (let ((cal-date (org-get-date-from-calendar)))
+ (setcar (nthcdr 4 time0) (nth 0 cal-date)) ; month
+ (setcar (nthcdr 3 time0) (nth 1 cal-date)) ; day
+ (setcar (nthcdr 5 time0) (nth 2 cal-date)) ; year
+ (setcar time0 (or (car time0) 0))
+ (setcar (nthcdr 1 time0) (or (nth 1 time0) 0))
+ (setcar (nthcdr 2 time0) (or (nth 2 time0) 0))
+ (setq time (apply 'encode-time time0))))
+ (setq org-last-changed-timestamp
+ (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
+ (if (and org-calendar-follow-timestamp-change
+ (get-buffer-window "*Calendar*" t)
+ (memq org-ts-what '(day month year)))
+ (org-recenter-calendar (time-to-days time))))))
+
+(defun org-modify-ts-extra (s pos n dm)
+ "Change the different parts of the lead-time and repeat fields in timestamp."
+ (let ((idx '(("d" . 0) ("w" . 1) ("m" . 2) ("y" . 3) ("d" . -1) ("y" . 4)))
+ ng h m new rem)
+ (when (string-match "\\(-\\([012][0-9]\\):\\([0-5][0-9]\\)\\)?\\( +\\+\\([0-9]+\\)\\([dmwy]\\)\\)?\\( +-\\([0-9]+\\)\\([dmwy]\\)\\)?" s)
+ (cond
+ ((or (org-pos-in-match-range pos 2)
+ (org-pos-in-match-range pos 3))
+ (setq m (string-to-number (match-string 3 s))
+ h (string-to-number (match-string 2 s)))
+ (if (org-pos-in-match-range pos 2)
+ (setq h (+ h n))
+ (setq n (* dm (org-no-warnings (signum n))))
+ (when (not (= 0 (setq rem (% m dm))))
+ (setq m (+ m (if (> n 0) (- rem) (- dm rem)))))
+ (setq m (+ m n)))
+ (if (< m 0) (setq m (+ m 60) h (1- h)))
+ (if (> m 59) (setq m (- m 60) h (1+ h)))
+ (setq h (min 24 (max 0 h)))
+ (setq ng 1 new (format "-%02d:%02d" h m)))
+ ((org-pos-in-match-range pos 6)
+ (setq ng 6 new (car (rassoc (+ n (cdr (assoc (match-string 6 s) idx))) idx))))
+ ((org-pos-in-match-range pos 5)
+ (setq ng 5 new (format "%d" (max 1 (+ n (string-to-number (match-string 5 s)))))))
+
+ ((org-pos-in-match-range pos 9)
+ (setq ng 9 new (car (rassoc (+ n (cdr (assoc (match-string 9 s) idx))) idx))))
+ ((org-pos-in-match-range pos 8)
+ (setq ng 8 new (format "%d" (max 0 (+ n (string-to-number (match-string 8 s))))))))
+
+ (when ng
+ (setq s (concat
+ (substring s 0 (match-beginning ng))
+ new
+ (substring s (match-end ng))))))
+ s))
+
+(defun org-recenter-calendar (date)
+ "If the calendar is visible, recenter it to DATE."
+ (let* ((win (selected-window))
+ (cwin (get-buffer-window "*Calendar*" t))
+ (calendar-move-hook nil))
+ (when cwin
+ (select-window cwin)
+ (calendar-goto-date (if (listp date) date
+ (calendar-gregorian-from-absolute date)))
+ (select-window win))))
+
+(defun org-goto-calendar (&optional arg)
+ "Go to the Emacs calendar at the current date.
+If there is a time stamp in the current line, go to that date.
+A prefix ARG can be used to force the current date."
+ (interactive "P")
+ (let ((tsr org-ts-regexp) diff
+ (calendar-move-hook nil)
+ (calendar-view-holidays-initially-flag nil)
+ (view-calendar-holidays-initially nil)
+ (calendar-view-diary-initially-flag nil)
+ (view-diary-entries-initially nil))
+ (if (or (org-at-timestamp-p)
+ (save-excursion
+ (beginning-of-line 1)
+ (looking-at (concat ".*" tsr))))
+ (let ((d1 (time-to-days (current-time)))
+ (d2 (time-to-days
+ (org-time-string-to-time (match-string 1)))))
+ (setq diff (- d2 d1))))
+ (calendar)
+ (calendar-goto-today)
+ (if (and diff (not arg)) (calendar-forward-day diff))))
+
+(defun org-get-date-from-calendar ()
+ "Return a list (month day year) of date at point in calendar."
+ (with-current-buffer "*Calendar*"
+ (save-match-data
+ (calendar-cursor-to-date))))
+
+(defun org-date-from-calendar ()
+ "Insert time stamp corresponding to cursor date in *Calendar* buffer.
+If there is already a time stamp at the cursor position, update it."
+ (interactive)
+ (if (org-at-timestamp-p t)
+ (org-timestamp-change 0 'calendar)
+ (let ((cal-date (org-get-date-from-calendar)))
+ (org-insert-time-stamp
+ (encode-time 0 0 0 (nth 1 cal-date) (car cal-date) (nth 2 cal-date))))))
+
+(defun org-minutes-to-hh:mm-string (m)
+ "Compute H:MM from a number of minutes."
+ (let ((h (/ m 60)))
+ (setq m (- m (* 60 h)))
+ (format "%d:%02d" h m)))
+
+(defun org-hh:mm-string-to-minutes (s)
+ "Convert a string H:MM to a number of minutes."
+ (if (string-match "\\([0-9]+\\):\\([0-9]+\\)" s)
+ (+ (* (string-to-number (match-string 1 s)) 60)
+ (string-to-number (match-string 2 s)))
+ 0))
+
+;;;; Agenda files
+
+;;;###autoload
+(defun org-iswitchb (&optional arg)
+ "Use `iswitchb-read-buffer' to prompt for an Org buffer to switch to.
+With a prefix argument, restrict available to files.
+With two prefix arguments, restrict available buffers to agenda files.
+
+Due to some yet unresolved reason, global function
+`iswitchb-mode' needs to be active for this function to work."
+ (interactive "P")
+ (require 'iswitchb)
+ (let ((enabled iswitchb-mode) blist)
+ (or enabled (iswitchb-mode 1))
+ (setq blist (cond ((equal arg '(4)) (org-buffer-list 'files))
+ ((equal arg '(16)) (org-buffer-list 'agenda))
+ (t (org-buffer-list))))
+ (unwind-protect
+ (let ((iswitchb-make-buflist-hook
+ (lambda ()
+ (setq iswitchb-temp-buflist
+ (mapcar 'buffer-name blist)))))
+ (switch-to-buffer
+ (iswitchb-read-buffer
+ "Switch-to: " nil t))
+ (or enabled (iswitchb-mode -1))))))
+
+(defun org-buffer-list (&optional predicate tmp)
+ "Return a list of Org buffers.
+PREDICATE can be either 'export, 'files or 'agenda.
+
+'export restrict the list to Export buffers.
+'files restrict the list to buffers visiting Org files.
+'agenda restrict the list to buffers visiting agenda files.
+
+If TMP is non-nil, don't include temporary buffers."
+ (let (filter blist)
+ (setq filter
+ (cond ((eq predicate 'files) "\.org$")
+ ((eq predicate 'export) "\*Org .*Export")
+ (t "\*Org \\|\.org$")))
+ (setq blist
+ (mapcar
+ (lambda(b)
+ (let ((bname (buffer-name b))
+ (bfile (buffer-file-name b)))
+ (if (and (string-match filter bname)
+ (if (eq predicate 'agenda)
+ (member bfile
+ (mapcar (lambda(f) (file-truename f))
+ org-agenda-files)) t)
+ (if tmp (not (string-match "tmp" bname)) t)) b)))
+ (buffer-list)))
+ (delete nil blist)))
+
+(defun org-agenda-files (&optional unrestricted ext)
+ "Get the list of agenda files.
+Optional UNRESTRICTED means return the full list even if a restriction
+is currently in place.
+When EXT is non-nil, try to add all files that are created by adding EXT
+to the file nemes. Basically, this is a way to add the archive files
+to the list, by setting EXT to \"_archive\" If EXT is non-nil, but not
+a string, \"_archive\" will be used."
+ (let ((files
+ (cond
+ ((and (not unrestricted) (get 'org-agenda-files 'org-restrict)))
+ ((stringp org-agenda-files) (org-read-agenda-file-list))
+ ((listp org-agenda-files) org-agenda-files)
+ (t (error "Invalid value of `org-agenda-files'")))))
+ (setq files (apply 'append
+ (mapcar (lambda (f)
+ (if (file-directory-p f)
+ (directory-files
+ f t org-agenda-file-regexp)
+ (list f)))
+ files)))
+ (when org-agenda-skip-unavailable-files
+ (setq files (delq nil
+ (mapcar (function
+ (lambda (file)
+ (and (file-readable-p file) file)))
+ files))))
+ (when ext
+ (setq ext (if (and (stringp ext) (string-match "\\S-" ext))
+ ext "_archive"))
+ (setq files (apply 'append
+ (mapcar
+ (lambda (f)
+ (if (file-exists-p (concat f ext))
+ (list f (concat f ext))
+ (list f)))
+ files))))
+ files))
+
+(defun org-edit-agenda-file-list ()
+ "Edit the list of agenda files.
+Depending on setup, this either uses customize to edit the variable
+`org-agenda-files', or it visits the file that is holding the list. In the
+latter case, the buffer is set up in a way that saving it automatically kills
+the buffer and restores the previous window configuration."
+ (interactive)
+ (if (stringp org-agenda-files)
+ (let ((cw (current-window-configuration)))
+ (find-file org-agenda-files)
+ (org-set-local 'org-window-configuration cw)
+ (org-add-hook 'after-save-hook
+ (lambda ()
+ (set-window-configuration
+ (prog1 org-window-configuration
+ (kill-buffer (current-buffer))))
+ (org-install-agenda-files-menu)
+ (message "New agenda file list installed"))
+ nil 'local)
+ (message "%s" (substitute-command-keys
+ "Edit list and finish with \\[save-buffer]")))
+ (customize-variable 'org-agenda-files)))
+
+(defun org-store-new-agenda-file-list (list)
+ "Set new value for the agenda file list and save it correcly."
+ (if (stringp org-agenda-files)
+ (let ((f org-agenda-files) b)
+ (while (setq b (find-buffer-visiting f)) (kill-buffer b))
+ (with-temp-file f
+ (insert (mapconcat 'identity list "\n") "\n")))
+ (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
+ (setq org-agenda-files list)
+ (customize-save-variable 'org-agenda-files org-agenda-files))))
+
+(defun org-read-agenda-file-list ()
+ "Read the list of agenda files from a file."
+ (when (file-directory-p org-agenda-files)
+ (error "`org-agenda-files' cannot be a single directory"))
+ (when (stringp org-agenda-files)
+ (with-temp-buffer
+ (insert-file-contents org-agenda-files)
+ (org-split-string (buffer-string) "[ \t\r\n]*?[\r\n][ \t\r\n]*"))))
+
+
+;;;###autoload
+(defun org-cycle-agenda-files ()
+ "Cycle through the files in `org-agenda-files'.
+If the current buffer visits an agenda file, find the next one in the list.
+If the current buffer does not, find the first agenda file."
+ (interactive)
+ (let* ((fs (org-agenda-files t))
+ (files (append fs (list (car fs))))
+ (tcf (if buffer-file-name (file-truename buffer-file-name)))
+ file)
+ (unless files (error "No agenda files"))
+ (catch 'exit
+ (while (setq file (pop files))
+ (if (equal (file-truename file) tcf)
+ (when (car files)
+ (find-file (car files))
+ (throw 'exit t))))
+ (find-file (car fs)))
+ (if (buffer-base-buffer) (switch-to-buffer (buffer-base-buffer)))))
+
+(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
+present, it is moved there. With optional argument TO-END, add/move to the
+end of the list."
+ (interactive "P")
+ (let ((org-agenda-skip-unavailable-files nil)
+ (file-alist (mapcar (lambda (x)
+ (cons (file-truename x) x))
+ (org-agenda-files t)))
+ (ctf (file-truename buffer-file-name))
+ x had)
+ (setq x (assoc ctf file-alist) had x)
+
+ (if (not x) (setq x (cons ctf (abbreviate-file-name buffer-file-name))))
+ (if to-end
+ (setq file-alist (append (delq x file-alist) (list x)))
+ (setq file-alist (cons x (delq x file-alist))))
+ (org-store-new-agenda-file-list (mapcar 'cdr file-alist))
+ (org-install-agenda-files-menu)
+ (message "File %s to %s of agenda file list"
+ (if had "moved" "added") (if to-end "end" "front"))))
+
+(defun org-remove-file (&optional file)
+ "Remove current file from the list of files in variable `org-agenda-files'.
+These are the files which are being checked for agenda entries.
+Optional argument FILE means, use this file instead of the current."
+ (interactive)
+ (let* ((org-agenda-skip-unavailable-files nil)
+ (file (or file buffer-file-name))
+ (true-file (file-truename file))
+ (afile (abbreviate-file-name file))
+ (files (delq nil (mapcar
+ (lambda (x)
+ (if (equal true-file
+ (file-truename x))
+ nil x))
+ (org-agenda-files t)))))
+ (if (not (= (length files) (length (org-agenda-files t))))
+ (progn
+ (org-store-new-agenda-file-list files)
+ (org-install-agenda-files-menu)
+ (message "Removed file: %s" afile))
+ (message "File was not in list: %s (not removed)" afile))))
+
+(defun org-file-menu-entry (file)
+ (vector file (list 'find-file file) t))
+
+(defun org-check-agenda-file (file)
+ "Make sure FILE exists. If not, ask user what to do."
+ (when (not (file-exists-p file))
+ (message "non-existent file %s. [R]emove from list or [A]bort?"
+ (abbreviate-file-name file))
+ (let ((r (downcase (read-char-exclusive))))
+ (cond
+ ((equal r ?r)
+ (org-remove-file file)
+ (throw 'nextfile t))
+ (t (error "Abort"))))))
+
+(defun org-get-agenda-file-buffer (file)
+ "Get a buffer visiting FILE. If the buffer needs to be created, add
+it to the list of buffers which might be released later."
+ (let ((buf (org-find-base-buffer-visiting file)))
+ (if buf
+ buf ; just return it
+ ;; Make a new buffer and remember it
+ (setq buf (find-file-noselect file))
+ (if buf (push buf org-agenda-new-buffers))
+ buf)))
+
+(defun org-release-buffers (blist)
+ "Release all buffers in list, asking the user for confirmation when needed.
+When a buffer is unmodified, it is just killed. When modified, it is saved
+\(if the user agrees) and then killed."
+ (let (buf file)
+ (while (setq buf (pop blist))
+ (setq file (buffer-file-name buf))
+ (when (and (buffer-modified-p buf)
+ file
+ (y-or-n-p (format "Save file %s? " file)))
+ (with-current-buffer buf (save-buffer)))
+ (kill-buffer buf))))
+
+(defun org-prepare-agenda-buffers (files)
+ "Create buffers for all agenda files, protect archived trees and comments."
+ (interactive)
+ (let ((pa '(:org-archived t))
+ (pc '(:org-comment t))
+ (pall '(:org-archived t :org-comment t))
+ (inhibit-read-only t)
+ (rea (concat ":" org-archive-tag ":"))
+ bmp file re)
+ (save-excursion
+ (save-restriction
+ (while (setq file (pop files))
+ (if (bufferp file)
+ (set-buffer file)
+ (org-check-agenda-file file)
+ (set-buffer (org-get-agenda-file-buffer file)))
+ (widen)
+ (setq bmp (buffer-modified-p))
+ (org-refresh-category-properties)
+ (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
+ (goto-char (point-min))
+ (while (re-search-forward rea nil t)
+ (if (org-on-heading-p t)
+ (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
+ (goto-char (point-min))
+ (setq re (concat "^\\*+ +" org-comment-string "\\>"))
+ (while (re-search-forward re nil t)
+ (add-text-properties
+ (match-beginning 0) (org-end-of-subtree t) pc)))
+ (set-buffer-modified-p bmp))))))
+
+;;;; Embedded LaTeX
+
+(defvar org-cdlatex-mode-map (make-sparse-keymap)
+ "Keymap for the minor `org-cdlatex-mode'.")
+
+(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.")
+
+(define-minor-mode org-cdlatex-mode
+ "Toggle the minor `org-cdlatex-mode'.
+This mode supports entering LaTeX environment and math in LaTeX fragments
+in Org-mode.
+\\{org-cdlatex-mode-map}"
+ nil " OCDL" nil
+ (when org-cdlatex-mode (require 'cdlatex))
+ (unless org-cdlatex-texmathp-advice-is-done
+ (setq org-cdlatex-texmathp-advice-is-done t)
+ (defadvice texmathp (around org-math-always-on activate)
+ "Always return t in org-mode buffers.
+This is because we want to insert math symbols without dollars even outside
+the LaTeX math segments. If Orgmode thinks that point is actually inside
+en embedded LaTeX fragement, let texmathp do its job.
+\\[org-cdlatex-mode-map]"
+ (interactive)
+ (let (p)
+ (cond
+ ((not (org-mode-p)) ad-do-it)
+ ((eq this-command 'cdlatex-math-symbol)
+ (setq ad-return-value t
+ texmathp-why '("cdlatex-math-symbol in org-mode" . 0)))
+ (t
+ (let ((p (org-inside-LaTeX-fragment-p)))
+ (if (and p (member (car p) (plist-get org-format-latex-options :matchers)))
+ (setq ad-return-value t
+ texmathp-why '("Org-mode embedded math" . 0))
+ (if p ad-do-it)))))))))
+
+(defun turn-on-org-cdlatex ()
+ "Unconditionally turn on `org-cdlatex-mode'."
+ (org-cdlatex-mode 1))
+
+(defun org-inside-LaTeX-fragment-p ()
+ "Test if point is inside a LaTeX fragment.
+I.e. after a \\begin, \\(, \\[, $, or $$, without the corresponding closing
+sequence appearing also before point.
+Even though the matchers for math are configurable, this function assumes
+that \\begin, \\(, \\[, and $$ are always used. Only the single dollar
+delimiters are skipped when they have been removed by customization.
+The return value is nil, or a cons cell with the delimiter and
+and the position of this delimiter.
+
+This function does a reasonably good job, but can locally be fooled by
+for example currency specifications. For example it will assume being in
+inline math after \"$22.34\". The LaTeX fragment formatter will only format
+fragments that are properly closed, but during editing, we have to live
+with the uncertainty caused by missing closing delimiters. This function
+looks only before point, not after."
+ (catch 'exit
+ (let ((pos (point))
+ (dodollar (member "$" (plist-get org-format-latex-options :matchers)))
+ (lim (progn
+ (re-search-backward (concat "^\\(" paragraph-start "\\)") nil t)
+ (point)))
+ dd-on str (start 0) m re)
+ (goto-char pos)
+ (when dodollar
+ (setq str (concat (buffer-substring lim (point)) "\000 X$.")
+ re (nth 1 (assoc "$" org-latex-regexps)))
+ (while (string-match re str start)
+ (cond
+ ((= (match-end 0) (length str))
+ (throw 'exit (cons "$" (+ lim (match-beginning 0) 1))))
+ ((= (match-end 0) (- (length str) 5))
+ (throw 'exit nil))
+ (t (setq start (match-end 0))))))
+ (when (setq m (re-search-backward "\\(\\\\begin{[^}]*}\\|\\\\(\\|\\\\\\[\\)\\|\\(\\\\end{[^}]*}\\|\\\\)\\|\\\\\\]\\)\\|\\(\\$\\$\\)" lim t))
+ (goto-char pos)
+ (and (match-beginning 1) (throw 'exit (cons (match-string 1) m)))
+ (and (match-beginning 2) (throw 'exit nil))
+ ;; count $$
+ (while (re-search-backward "\\$\\$" lim t)
+ (setq dd-on (not dd-on)))
+ (goto-char pos)
+ (if dd-on (cons "$$" m))))))
+
+
+(defun org-try-cdlatex-tab ()
+ "Check if it makes sense to execute `cdlatex-tab', and do it if yes.
+It makes sense to do so if `org-cdlatex-mode' is active and if the cursor is
+ - inside a LaTeX fragment, or
+ - after the first word in a line, where an abbreviation expansion could
+ insert a LaTeX environment."
+ (when org-cdlatex-mode
+ (cond
+ ((save-excursion
+ (skip-chars-backward "a-zA-Z0-9*")
+ (skip-chars-backward " \t")
+ (bolp))
+ (cdlatex-tab) t)
+ ((org-inside-LaTeX-fragment-p)
+ (cdlatex-tab) t)
+ (t nil))))
+
+(defun org-cdlatex-underscore-caret (&optional arg)
+ "Execute `cdlatex-sub-superscript' in LaTeX fragments.
+Revert to the normal definition outside of these fragments."
+ (interactive "P")
+ (if (org-inside-LaTeX-fragment-p)
+ (call-interactively 'cdlatex-sub-superscript)
+ (let (org-cdlatex-mode)
+ (call-interactively (key-binding (vector last-input-event))))))
+
+(defun org-cdlatex-math-modify (&optional arg)
+ "Execute `cdlatex-math-modify' in LaTeX fragments.
+Revert to the normal definition outside of these fragments."
+ (interactive "P")
+ (if (org-inside-LaTeX-fragment-p)
+ (call-interactively 'cdlatex-math-modify)
+ (let (org-cdlatex-mode)
+ (call-interactively (key-binding (vector last-input-event))))))
+
+(defvar org-latex-fragment-image-overlays nil
+ "List of overlays carrying the images of latex fragments.")
+(make-variable-buffer-local 'org-latex-fragment-image-overlays)
+
+(defun org-remove-latex-fragment-image-overlays ()
+ "Remove all overlays with LaTeX fragment images in current buffer."
+ (mapc 'org-delete-overlay org-latex-fragment-image-overlays)
+ (setq org-latex-fragment-image-overlays nil))
+
+(defun org-preview-latex-fragment (&optional subtree)
+ "Preview the LaTeX fragment at point, or all locally or globally.
+If the cursor is in a LaTeX fragment, create the image and overlay
+it over the source code. If there is no fragment at point, display
+all fragments in the current text, from one headline to the next. With
+prefix SUBTREE, display all fragments in the current subtree. With a
+double prefix `C-u C-u', or when the cursor is before the first headline,
+display all fragments in the buffer.
+The images can be removed again with \\[org-ctrl-c-ctrl-c]."
+ (interactive "P")
+ (org-remove-latex-fragment-image-overlays)
+ (save-excursion
+ (save-restriction
+ (let (beg end at msg)
+ (cond
+ ((or (equal subtree '(16))
+ (not (save-excursion
+ (re-search-backward (concat "^" outline-regexp) nil t))))
+ (setq beg (point-min) end (point-max)
+ msg "Creating images for buffer...%s"))
+ ((equal subtree '(4))
+ (org-back-to-heading)
+ (setq beg (point) end (org-end-of-subtree t)
+ msg "Creating images for subtree...%s"))
+ (t
+ (if (setq at (org-inside-LaTeX-fragment-p))
+ (goto-char (max (point-min) (- (cdr at) 2)))
+ (org-back-to-heading))
+ (setq beg (point) end (progn (outline-next-heading) (point))
+ msg (if at "Creating image...%s"
+ "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 'forbuffer)
+ (message msg "done. Use `C-c C-c' to remove images.")))))
+
+(defvar org-latex-regexps
+ '(("begin" "^[ \t]*\\(\\\\begin{\\([a-zA-Z0-9\\*]+\\)[^\000]+?\\\\end{\\2}\\)" 1 t)
+ ;; ("$" "\\([ (]\\|^\\)\\(\\(\\([$]\\)\\([^ \r\n,.$].*?\\(\n.*?\\)\\{0,5\\}[^ \r\n,.$]\\)\\4\\)\\)\\([ .,?;:'\")]\\|$\\)" 2 nil)
+ ;; \000 in the following regex is needed for org-inside-LaTeX-fragment-p
+ ("$" "\\([^$]\\)\\(\\(\\$\\([^ \r\n,;.$][^$\n\r]*?\\(\n[^$\n\r]*?\\)\\{0,2\\}[^ \r\n,.$]\\)\\$\\)\\)\\([ .,?;:'\")\000]\\|$\\)" 2 nil)
+ ("\\(" "\\\\([^\000]*?\\\\)" 0 nil)
+ ("\\[" "\\\\\\[[^\000]*?\\\\\\]" 0 t)
+ ("$$" "\\$\\$[^\000]*?\\$\\$" 0 t))
+ "Regular expressions for matching embedded LaTeX.")
+
+(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))
+ (absprefix (expand-file-name prefix dir))
+ (todir (file-name-directory absprefix))
+ (opt org-format-latex-options)
+ (matchers (plist-get opt :matchers))
+ (re-list org-latex-regexps)
+ (cnt 0) txt link beg end re e checkdir
+ m n block linkfile movefile ov)
+ ;; Check if there are old images files with this prefix, and remove them
+ (when (file-directory-p todir)
+ (mapc 'delete-file
+ (directory-files
+ todir 'full
+ (concat (regexp-quote prefixnodir) "_[0-9]+\\.png$"))))
+ ;; Check the different regular expressions
+ (while (setq e (pop re-list))
+ (setq m (car e) re (nth 1 e) n (nth 2 e)
+ block (if (nth 3 e) "\n\n" ""))
+ (when (member m matchers)
+ (goto-char (point-min))
+ (while (re-search-forward re nil t)
+ (when (or (not at) (equal (cdr at) (match-beginning n)))
+ (setq txt (match-string n)
+ beg (match-beginning n) end (match-end n)
+ cnt (1+ cnt)
+ linkfile (format "%s_%04d.png" prefix cnt)
+ movefile (format "%s_%04d.png" absprefix cnt)
+ link (concat block "[[file:" linkfile "]]" block))
+ (if msg (message msg cnt))
+ (goto-char beg)
+ (unless checkdir ; make sure the directory exists
+ (setq checkdir t)
+ (or (file-directory-p todir) (make-directory todir)))
+ (org-create-formula-image
+ txt movefile opt forbuffer)
+ (if overlays
+ (progn
+ (setq ov (org-make-overlay beg end))
+ (if (featurep 'xemacs)
+ (progn
+ (org-overlay-put ov 'invisible t)
+ (org-overlay-put
+ ov 'end-glyph
+ (make-glyph (vector 'png :file movefile))))
+ (org-overlay-put
+ ov 'display
+ (list 'image :type 'png :file movefile :ascent 'center)))
+ (push ov org-latex-fragment-image-overlays)
+ (goto-char end))
+ (delete-region beg end)
+ (insert link))))))))
+
+;; This function borrows from Ganesh Swami's latex2png.el
+(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)))
+ (texfile (concat texfilebase ".tex"))
+ (dvifile (concat texfilebase ".dvi"))
+ (pngfile (concat texfilebase ".png"))
+ (fnh (if (featurep 'xemacs)
+ (font-height (get-face-font 'default))
+ (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 org-format-latex-header
+ "\n\\begin{document}\n" string "\n\\end{document}\n"))
+ (let ((dir default-directory))
+ (condition-case nil
+ (progn
+ (cd tmpdir)
+ (call-process "latex" nil nil nil texfile))
+ (error nil))
+ (cd dir))
+ (if (not (file-exists-p dvifile))
+ (progn (message "Failed to create dvi file from %s" texfile) nil)
+ (call-process "dvipng" nil nil nil
+ "-E" "-fg" fg "-bg" bg
+ "-D" dpi
+ ;;"-x" scale "-y" scale
+ "-T" "tight"
+ "-o" pngfile
+ dvifile)
+ (if (not (file-exists-p pngfile))
+ (progn (message "Failed to create png file from %s" texfile) nil)
+ ;; Use the requested file name and clean up
+ (copy-file pngfile tofile 'replace)
+ (loop for e in '(".dvi" ".tex" ".aux" ".log" ".png") do
+ (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)))
+
+
+;;;; Key bindings
+
+;; Make `C-c C-x' a prefix key
+(org-defkey org-mode-map "\C-c\C-x" (make-sparse-keymap))
+
+;; TAB key with modifiers
+(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)
+ (org-defkey org-mode-map [S-iso-lefttab] 'org-shifttab))
+(org-defkey org-mode-map [(shift tab)] 'org-shifttab)
+(define-key org-mode-map [backtab] 'org-shifttab)
+
+(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
+(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)
+
+(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)
+
+(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
+;; menus don't show the simple keys
+
+(when (or (featurep 'xemacs) ;; because XEmacs supports multi-device stuff
+ (not window-system))
+ (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
+
+(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-xa" 'org-toggle-archive-tag)
+(org-defkey org-mode-map "\C-c\C-xA" 'org-archive-to-archive-sibling)
+(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-refile)
+(org-defkey org-mode-map "\C-c/" 'org-sparse-tree) ; 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 [(control return)] 'org-insert-heading-after-current)
+(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-add-note) ; 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\C-x<" 'org-agenda-set-restriction-lock)
+(org-defkey org-mode-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
+(org-defkey org-mode-map "\C-c-" 'org-ctrl-c-minus)
+(org-defkey org-mode-map "\C-c*" 'org-ctrl-c-star)
+(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\C-k" 'org-kill-note-or-show-branches)
+(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-j" 'org-return-indent)
+(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 [(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)
+
+(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)
+
+(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-j" 'org-clock-goto)
+(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)
+(org-defkey org-mode-map "\C-c\C-xp" 'org-set-property)
+(org-defkey org-mode-map "\C-c\C-xr" 'org-insert-columns-dblock)
+
+(define-key org-mode-map "\C-c\C-x\C-c" 'org-columns)
+
+(when (featurep 'xemacs)
+ (org-defkey org-mode-map 'button3 'popup-mode-menu))
+
+(defvar org-table-auto-blank-field) ; defined in org-table.el
+(defun org-self-insert-command (N)
+ "Like `self-insert-command', use overwrite-mode for whitespace in tables.
+If the cursor is in a table looking at whitespace, the whitespace is
+overwritten, and the table is not marked as requiring realignment."
+ (interactive "p")
+ (if (and (org-table-p)
+ (progn
+ ;; check if we blank the field, and if that triggers align
+ (and (featurep 'org-table) org-table-auto-blank-field
+ (member last-command
+ '(org-cycle org-return org-shifttab org-ctrl-c-ctrl-c))
+ (if (or (equal (char-after) ?\ ) (looking-at "[^|\n]* |"))
+ ;; got extra space, this field does not determine column width
+ (let (org-table-may-need-update) (org-table-blank-field))
+ ;; no extra space, this field may determine column width
+ (org-table-blank-field)))
+ t)
+ (eq N 1)
+ (looking-at "[^|\n]* |"))
+ (let (org-table-may-need-update)
+ (goto-char (1- (match-end 0)))
+ (delete-backward-char 1)
+ (goto-char (match-beginning 0))
+ (self-insert-command N))
+ (setq org-table-may-need-update t)
+ (self-insert-command N)
+ (org-fix-tags-on-the-fly)))
+
+(defun org-fix-tags-on-the-fly ()
+ (when (and (equal (char-after (point-at-bol)) ?*)
+ (org-on-heading-p))
+ (org-align-tags-here org-tags-column)))
+
+(defun org-delete-backward-char (N)
+ "Like `delete-backward-char', insert whitespace at field end in tables.
+When deleting backwards, in tables this function will insert whitespace in
+front of the next \"|\" separator, to keep the table aligned. The table will
+still be marked for re-alignment if the field did fill the entire column,
+because, in this case the deletion might narrow the column."
+ (interactive "p")
+ (if (and (org-table-p)
+ (eq N 1)
+ (string-match "|" (buffer-substring (point-at-bol) (point)))
+ (looking-at ".*?|"))
+ (let ((pos (point))
+ (noalign (looking-at "[^|\n\r]* |"))
+ (c org-table-may-need-update))
+ (backward-delete-char N)
+ (skip-chars-forward "^|")
+ (insert " ")
+ (goto-char (1- pos))
+ ;; noalign: if there were two spaces at the end, this field
+ ;; does not determine the width of the column.
+ (if noalign (setq org-table-may-need-update c)))
+ (backward-delete-char N)
+ (org-fix-tags-on-the-fly)))
+
+(defun org-delete-char (N)
+ "Like `delete-char', but insert whitespace at field end in tables.
+When deleting characters, in tables this function will insert whitespace in
+front of the next \"|\" separator, to keep the table aligned. The table will
+still be marked for re-alignment if the field did fill the entire column,
+because, in this case the deletion might narrow the column."
+ (interactive "p")
+ (if (and (org-table-p)
+ (not (bolp))
+ (not (= (char-after) ?|))
+ (eq N 1))
+ (if (looking-at ".*?|")
+ (let ((pos (point))
+ (noalign (looking-at "[^|\n\r]* |"))
+ (c org-table-may-need-update))
+ (replace-match (concat
+ (substring (match-string 0) 1 -1)
+ " |"))
+ (goto-char pos)
+ ;; noalign: if there were two spaces at the end, this field
+ ;; does not determine the width of the column.
+ (if noalign (setq org-table-may-need-update c)))
+ (delete-char N))
+ (delete-char N)
+ (org-fix-tags-on-the-fly)))
+
+;; Make `delete-selection-mode' work with org-mode and orgtbl-mode
+(put 'org-self-insert-command 'delete-selection t)
+(put 'orgtbl-self-insert-command 'delete-selection t)
+(put 'org-delete-char 'delete-selection 'supersede)
+(put 'org-delete-backward-char 'delete-selection 'supersede)
+
+;; Make `flyspell-mode' delay after some commands
+(put 'org-self-insert-command 'flyspell-delayed t)
+(put 'orgtbl-self-insert-command 'flyspell-delayed t)
+(put 'org-delete-char 'flyspell-delayed t)
+(put 'org-delete-backward-char 'flyspell-delayed t)
+
+;; Make pabbrev-mode expand after org-mode commands
+(put 'org-self-insert-command 'pabbrev-expand-after-command t)
+(put 'orgybl-self-insert-command 'pabbrev-expand-after-command t)
+
+;; How to do this: Measure non-white length of current string
+;; If equal to column width, we should realign.
+
+(defun org-remap (map &rest commands)
+ "In MAP, remap the functions given in COMMANDS.
+COMMANDS is a list of alternating OLDDEF NEWDEF command names."
+ (let (new old)
+ (while commands
+ (setq old (pop commands) new (pop commands))
+ (if (fboundp 'command-remapping)
+ (org-defkey map (vector 'remap old) new)
+ (substitute-key-definition old new map global-map)))))
+
+(when (eq org-enable-table-editor 'optimized)
+ ;; If the user wants maximum table support, we need to hijack
+ ;; some standard editing functions
+ (org-remap org-mode-map
+ 'self-insert-command 'org-self-insert-command
+ 'delete-char 'org-delete-char
+ 'delete-backward-char 'org-delete-backward-char)
+ (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."
+ (error "This command is active in special context like tables, headlines or timestamps"))
+
+(defun org-shifttab (&optional arg)
+ "Global visibility cycling or move to previous table field.
+Calls `org-cycle' with argument t, or `org-table-previous-field', depending
+on context.
+See the individual commands for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-previous-field))
+ (arg (message "Content view to level: ")
+ (org-content (prefix-numeric-value arg))
+ (setq org-cycle-global-status 'overview))
+ (t (call-interactively 'org-global-cycle))))
+
+(defun org-shiftmetaleft ()
+ "Promote subtree or delete table column.
+Calls `org-promote-subtree', `org-outdent-item',
+or `org-table-delete-column', depending on context.
+See the individual commands for more information."
+ (interactive)
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-delete-column))
+ ((org-on-heading-p) (call-interactively 'org-promote-subtree))
+ ((org-at-item-p) (call-interactively 'org-outdent-item))
+ (t (org-shiftcursor-error))))
+
+(defun org-shiftmetaright ()
+ "Demote subtree or insert table column.
+Calls `org-demote-subtree', `org-indent-item',
+or `org-table-insert-column', depending on context.
+See the individual commands for more information."
+ (interactive)
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-insert-column))
+ ((org-on-heading-p) (call-interactively 'org-demote-subtree))
+ ((org-at-item-p) (call-interactively 'org-indent-item))
+ (t (org-shiftcursor-error))))
+
+(defun org-shiftmetaup (&optional arg)
+ "Move subtree up or kill table row.
+Calls `org-move-subtree-up' or `org-table-kill-row' or
+`org-move-item-up' depending on context. See the individual commands
+for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-kill-row))
+ ((org-on-heading-p) (call-interactively 'org-move-subtree-up))
+ ((org-at-item-p) (call-interactively 'org-move-item-up))
+ (t (org-shiftcursor-error))))
+(defun org-shiftmetadown (&optional arg)
+ "Move subtree down or insert table row.
+Calls `org-move-subtree-down' or `org-table-insert-row' or
+`org-move-item-down', depending on context. See the individual
+commands for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-insert-row))
+ ((org-on-heading-p) (call-interactively 'org-move-subtree-down))
+ ((org-at-item-p) (call-interactively 'org-move-item-down))
+ (t (org-shiftcursor-error))))
+
+(defun org-metaleft (&optional arg)
+ "Promote heading or move table column to left.
+Calls `org-do-promote' or `org-table-move-column', depending on context.
+With no specific context, calls the Emacs default `backward-word'.
+See the individual commands for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (org-call-with-arg 'org-table-move-column 'left))
+ ((or (org-on-heading-p) (org-region-active-p))
+ (call-interactively 'org-do-promote))
+ ((org-at-item-p) (call-interactively 'org-outdent-item))
+ (t (call-interactively 'backward-word))))
+
+(defun org-metaright (&optional arg)
+ "Demote subtree or move table column to right.
+Calls `org-do-demote' or `org-table-move-column', depending on context.
+With no specific context, calls the Emacs default `forward-word'.
+See the individual commands for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-move-column))
+ ((or (org-on-heading-p) (org-region-active-p))
+ (call-interactively 'org-do-demote))
+ ((org-at-item-p) (call-interactively 'org-indent-item))
+ (t (call-interactively 'forward-word))))
+
+(defun org-metaup (&optional arg)
+ "Move subtree up or move table row up.
+Calls `org-move-subtree-up' or `org-table-move-row' or
+`org-move-item-up', depending on context. See the individual commands
+for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (org-call-with-arg 'org-table-move-row 'up))
+ ((org-on-heading-p) (call-interactively 'org-move-subtree-up))
+ ((org-at-item-p) (call-interactively 'org-move-item-up))
+ (t (transpose-lines 1) (beginning-of-line -1))))
+
+(defun org-metadown (&optional arg)
+ "Move subtree down or move table row down.
+Calls `org-move-subtree-down' or `org-table-move-row' or
+`org-move-item-down', depending on context. See the individual
+commands for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p) (call-interactively 'org-table-move-row))
+ ((org-on-heading-p) (call-interactively 'org-move-subtree-down))
+ ((org-at-item-p) (call-interactively 'org-move-item-down))
+ (t (beginning-of-line 2) (transpose-lines 1) (beginning-of-line 0))))
+
+(defun org-shiftup (&optional arg)
+ "Increase item in timestamp or increase priority of current headline.
+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 (if org-edit-timestamp-down-means-later
+ 'org-timestamp-down 'org-timestamp-up)))
+ ((org-on-heading-p) (call-interactively 'org-priority-up))
+ ((org-at-item-p) (call-interactively 'org-previous-item))
+ ((org-clocktable-try-shift 'up arg))
+ (t (call-interactively 'org-beginning-of-item) (beginning-of-line 1))))
+
+(defun org-shiftdown (&optional arg)
+ "Decrease item in timestamp or decrease priority of current headline.
+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 (if org-edit-timestamp-down-means-later
+ 'org-timestamp-up 'org-timestamp-down)))
+ ((org-on-heading-p) (call-interactively 'org-priority-down))
+ ((org-clocktable-try-shift 'down arg))
+ (t (call-interactively 'org-next-item))))
+
+(defun org-shiftright (&optional arg)
+ "Next TODO keyword or timestamp one day later, depending on context."
+ (interactive "P")
+ (cond
+ ((org-at-timestamp-p t) (call-interactively 'org-timestamp-up-day))
+ ((org-on-heading-p) (org-call-with-arg 'org-todo 'right))
+ ((org-at-item-p) (org-call-with-arg 'org-cycle-list-bullet nil))
+ ((org-at-property-p) (call-interactively 'org-property-next-allowed-value))
+ ((org-clocktable-try-shift 'right arg))
+ (t (org-shiftcursor-error))))
+
+(defun org-shiftleft (&optional arg)
+ "Previous TODO keyword or timestamp one day earlier, depending on context."
+ (interactive "P")
+ (cond
+ ((org-at-timestamp-p t) (call-interactively 'org-timestamp-down-day))
+ ((org-on-heading-p) (org-call-with-arg 'org-todo 'left))
+ ((org-at-item-p) (org-call-with-arg 'org-cycle-list-bullet 'previous))
+ ((org-at-property-p)
+ (call-interactively 'org-property-previous-allowed-value))
+ ((org-clocktable-try-shift 'left arg))
+ (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.
+See the individual commands for more information."
+ (interactive)
+ (call-interactively
+ (if (org-at-table-p) 'org-table-copy-region 'org-copy-subtree)))
+
+(defun org-cut-special ()
+ "Cut region in table or cut current subtree.
+Calls `org-table-copy' or `org-cut-subtree', depending on context.
+See the individual commands for more information."
+ (interactive)
+ (call-interactively
+ (if (org-at-table-p) 'org-table-cut-region 'org-cut-subtree)))
+
+(defun org-paste-special (arg)
+ "Paste rectangular region into table, or past subtree relative to level.
+Calls `org-table-paste-rectangle' or `org-paste-subtree', depending on context.
+See the individual commands for more information."
+ (interactive "P")
+ (if (org-at-table-p)
+ (org-table-paste-rectangle)
+ (org-paste-subtree arg)))
+
+(defun org-ctrl-c-ctrl-c (&optional arg)
+ "Set tags in headline, or update according to changed information at point.
+
+This command does many different things, depending on context:
+
+- If the cursor is in a headline, prompt for tags and insert them
+ into the current line, aligned to `org-tags-column'. When called
+ with prefix arg, realign all tags in the current buffer.
+
+- If the cursor is in one of the special #+KEYWORD lines, this
+ triggers scanning the buffer for these lines and updating the
+ information.
+
+- If the cursor is inside a table, realign the table. This command
+ works even if the automatic table editor has been turned off.
+
+- If the cursor is on a #+TBLFM line, re-apply the formulas to
+ the entire table.
+
+- If the cursor is a the beginning of a dynamic block, update it.
+
+- If the cursor is inside a table created by the table.el package,
+ activate that table.
+
+- If the current buffer is a remember buffer, close note and file it.
+ with a prefix argument, file it without further interaction to the default
+ location.
+
+- If the cursor is on a <<<target>>>, update radio targets and corresponding
+ links in this buffer.
+
+- If the cursor is on a numbered item in a plain list, renumber the
+ ordered list.
+
+- If the cursor is on a checkbox, toggle it."
+ (interactive "P")
+ (let ((org-enable-table-editor t))
+ (cond
+ ((or (and (boundp 'org-clock-overlays) org-clock-overlays)
+ org-occur-highlights
+ org-latex-fragment-image-overlays)
+ (and (boundp 'org-clock-overlays) (org-remove-clock-overlays))
+ (org-remove-occur-highlights)
+ (org-remove-latex-fragment-image-overlays)
+ (message "Temporary highlights/overlays removed from current buffer"))
+ ((and (local-variable-p 'org-finish-function (current-buffer))
+ (fboundp org-finish-function))
+ (funcall org-finish-function))
+ ((org-at-property-p)
+ (call-interactively 'org-property-action))
+ ((org-on-target-p) (call-interactively 'org-update-radio-target-regexp))
+ ((org-on-heading-p) (call-interactively 'org-set-tags))
+ ((org-at-table.el-p)
+ (require 'table)
+ (beginning-of-line 1)
+ (re-search-forward "|" (save-excursion (end-of-line 2) (point)))
+ (call-interactively 'table-recognize-table))
+ ((org-at-table-p)
+ (org-table-maybe-eval-formula)
+ (if arg
+ (call-interactively 'org-table-recalculate)
+ (org-table-maybe-recalculate-line))
+ (call-interactively 'org-table-align))
+ ((org-at-item-checkbox-p)
+ (call-interactively 'org-toggle-checkbox))
+ ((org-at-item-p)
+ (call-interactively 'org-maybe-renumber-ordered-list))
+ ((save-excursion (beginning-of-line 1) (looking-at "#\\+BEGIN:"))
+ ;; Dynamic block
+ (beginning-of-line 1)
+ (org-update-dblock))
+ ((save-excursion (beginning-of-line 1) (looking-at "#\\+\\([A-Z]+\\)"))
+ (cond
+ ((equal (match-string 1) "TBLFM")
+ ;; Recalculate the table before this line
+ (save-excursion
+ (beginning-of-line 1)
+ (skip-chars-backward " \r\n\t")
+ (if (org-at-table-p)
+ (org-call-with-arg 'org-table-recalculate t))))
+ (t
+ (call-interactively 'org-mode-restart))))
+ (t (error "C-c C-c can do nothing useful at this location.")))))
+
+(defun org-mode-restart ()
+ "Restart Org-mode, to scan again for special lines.
+Also updates the keyword regular expressions."
+ (interactive)
+ (let ((org-inhibit-startup t)) (org-mode))
+ (message "Org-mode restarted to refresh keyword and special line setup"))
+
+(defun org-kill-note-or-show-branches ()
+ "If this is a Note buffer, abort storing the note. Else call `show-branches'."
+ (interactive)
+ (if (not org-finish-function)
+ (call-interactively 'show-branches)
+ (let ((org-note-abort t))
+ (funcall org-finish-function))))
+
+(defun org-return (&optional indent)
+ "Goto next table row or insert a newline.
+Calls `org-table-next-row' or `newline', depending on context.
+See the individual commands for more information."
+ (interactive)
+ (cond
+ ((bobp) (if indent (newline-and-indent) (newline)))
+ ((and (org-at-heading-p)
+ (looking-at
+ (org-re "\\([ \t]+\\(:[[:alnum:]_@:]+:\\)\\)[ \t]*$")))
+ (org-show-entry)
+ (end-of-line 1)
+ (newline))
+ ((org-at-table-p)
+ (org-table-justify-field-maybe)
+ (call-interactively 'org-table-next-row))
+ (t (if indent (newline-and-indent) (newline)))))
+
+(defun org-return-indent ()
+ "Goto next table row or insert a newline and indent.
+Calls `org-table-next-row' or `newline-and-indent', depending on
+context. See the individual commands for more information."
+ (interactive)
+ (org-return t))
+
+(defun org-ctrl-c-star ()
+ "Compute table, or change heading status of lines.
+Calls `org-table-recalculate' or `org-toggle-region-headlines',
+depending on context. This will also turn a plain list item or a normal
+line into a subheading."
+ (interactive)
+ (cond
+ ((org-at-table-p)
+ (call-interactively 'org-table-recalculate))
+ ((org-region-active-p)
+ ;; Convert all lines in region to list items
+ (call-interactively 'org-toggle-region-headings))
+ ((org-on-heading-p)
+ (org-toggle-region-headings (point-at-bol)
+ (min (1+ (point-at-eol)) (point-max))))
+ ((org-at-item-p)
+ ;; Convert to heading
+ (let ((level (save-match-data
+ (save-excursion
+ (condition-case nil
+ (progn
+ (org-back-to-heading t)
+ (funcall outline-level))
+ (error 0))))))
+ (replace-match
+ (concat (make-string (org-get-valid-level level 1) ?*) " ") t t)))
+ (t (org-toggle-region-headings (point-at-bol)
+ (min (1+ (point-at-eol)) (point-max))))))
+
+(defun org-ctrl-c-minus ()
+ "Insert separator line in table or modify bullet status of line.
+Also turns a plain line or a region of lines into list items.
+Calls `org-table-insert-hline', `org-toggle-region-items', or
+`org-cycle-list-bullet', depending on context."
+ (interactive)
+ (cond
+ ((org-at-table-p)
+ (call-interactively 'org-table-insert-hline))
+ ((org-on-heading-p)
+ ;; Convert to item
+ (save-excursion
+ (beginning-of-line 1)
+ (if (looking-at "\\*+ ")
+ (replace-match (concat (make-string (- (match-end 0) (point) 1) ?\ ) "- ")))))
+ ((org-region-active-p)
+ ;; Convert all lines in region to list items
+ (call-interactively 'org-toggle-region-items))
+ ((org-in-item-p)
+ (call-interactively 'org-cycle-list-bullet))
+ (t (org-toggle-region-items (point-at-bol)
+ (min (1+ (point-at-eol)) (point-max))))))
+
+(defun org-toggle-region-items (beg end)
+ "Convert all lines in region to list items.
+If the first line is already an item, convert all list items in the region
+to normal lines."
+ (interactive "r")
+ (let (l2 l)
+ (save-excursion
+ (goto-char end)
+ (setq l2 (org-current-line))
+ (goto-char beg)
+ (beginning-of-line 1)
+ (setq l (1- (org-current-line)))
+ (if (org-at-item-p)
+ ;; We already have items, de-itemize
+ (while (< (setq l (1+ l)) l2)
+ (when (org-at-item-p)
+ (goto-char (match-beginning 2))
+ (delete-region (match-beginning 2) (match-end 2))
+ (and (looking-at "[ \t]+") (replace-match "")))
+ (beginning-of-line 2))
+ (while (< (setq l (1+ l)) l2)
+ (unless (org-at-item-p)
+ (if (looking-at "\\([ \t]*\\)\\(\\S-\\)")
+ (replace-match "\\1- \\2")))
+ (beginning-of-line 2))))))
+
+(defun org-toggle-region-headings (beg end)
+ "Convert all lines in region to list items.
+If the first line is already an item, convert all list items in the region
+to normal lines."
+ (interactive "r")
+ (let (l2 l)
+ (save-excursion
+ (goto-char end)
+ (setq l2 (org-current-line))
+ (goto-char beg)
+ (beginning-of-line 1)
+ (setq l (1- (org-current-line)))
+ (if (org-on-heading-p)
+ ;; We already have headlines, de-star them
+ (while (< (setq l (1+ l)) l2)
+ (when (org-on-heading-p t)
+ (and (looking-at outline-regexp) (replace-match "")))
+ (beginning-of-line 2))
+ (let* ((stars (save-excursion
+ (re-search-backward org-complex-heading-regexp nil t)
+ (or (match-string 1) "*")))
+ (add-stars (if org-odd-levels-only "**" "*"))
+ (rpl (concat stars add-stars " \\2")))
+ (while (< (setq l (1+ l)) l2)
+ (unless (org-on-heading-p)
+ (if (looking-at "\\([ \t]*\\)\\(\\S-\\)")
+ (replace-match rpl)))
+ (beginning-of-line 2)))))))
+
+(defun org-meta-return (&optional arg)
+ "Insert a new heading or wrap a region in a table.
+Calls `org-insert-heading' or `org-table-wrap-region', depending on context.
+See the individual commands for more information."
+ (interactive "P")
+ (cond
+ ((org-at-table-p)
+ (call-interactively 'org-table-wrap-region))
+ (t (call-interactively 'org-insert-heading))))
+
+;;; Menu entries
+
+;; Define the Org-mode menus
+(easy-menu-define org-tbl-menu org-mode-map "Tbl menu"
+ '("Tbl"
+ ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p)]
+ ["Next Field" org-cycle (org-at-table-p)]
+ ["Previous Field" org-shifttab (org-at-table-p)]
+ ["Next Row" org-return (org-at-table-p)]
+ "--"
+ ["Blank Field" org-table-blank-field (org-at-table-p)]
+ ["Edit Field" org-table-edit-field (org-at-table-p)]
+ ["Copy Field from Above" org-table-copy-down (org-at-table-p)]
+ "--"
+ ("Column"
+ ["Move Column Left" org-metaleft (org-at-table-p)]
+ ["Move Column Right" org-metaright (org-at-table-p)]
+ ["Delete Column" org-shiftmetaleft (org-at-table-p)]
+ ["Insert Column" org-shiftmetaright (org-at-table-p)])
+ ("Row"
+ ["Move Row Up" org-metaup (org-at-table-p)]
+ ["Move Row Down" org-metadown (org-at-table-p)]
+ ["Delete Row" org-shiftmetaup (org-at-table-p)]
+ ["Insert Row" org-shiftmetadown (org-at-table-p)]
+ ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
+ "--"
+ ["Insert Hline" org-ctrl-c-minus (org-at-table-p)])
+ ("Rectangle"
+ ["Copy Rectangle" org-copy-special (org-at-table-p)]
+ ["Cut Rectangle" org-cut-special (org-at-table-p)]
+ ["Paste Rectangle" org-paste-special (org-at-table-p)]
+ ["Fill Rectangle" org-table-wrap-region (org-at-table-p)])
+ "--"
+ ("Calculate"
+ ["Set Column Formula" org-table-eval-formula (org-at-table-p)]
+ ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
+ ["Edit Formulas" org-table-edit-formulas (org-at-table-p)]
+ "--"
+ ["Recalculate line" org-table-recalculate (org-at-table-p)]
+ ["Recalculate all" (lambda () (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"]
+ ["Iterate all" (lambda () (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"]
+ "--"
+ ["Toggle Recalculate Mark" org-table-rotate-recalc-marks (org-at-table-p)]
+ "--"
+ ["Sum Column/Rectangle" org-table-sum
+ (or (org-at-table-p) (org-region-active-p))]
+ ["Which Column?" org-table-current-column (org-at-table-p)])
+ ["Debug Formulas"
+ org-table-toggle-formula-debugger
+ :style toggle :selected (org-bound-and-true-p org-table-formula-debug)]
+ ["Show Col/Row Numbers"
+ org-table-toggle-coordinate-overlays
+ :style toggle
+ :selected (org-bound-and-true-p org-table-overlay-coordinates)]
+ "--"
+ ["Create" org-table-create (and (not (org-at-table-p))
+ org-enable-table-editor)]
+ ["Convert Region" org-table-convert-region (not (org-at-table-p 'any))]
+ ["Import from File" org-table-import (not (org-at-table-p))]
+ ["Export to File" org-table-export (org-at-table-p)]
+ "--"
+ ["Create/Convert from/to table.el" org-table-create-with-table.el t]))
+
+(easy-menu-define org-org-menu org-mode-map "Org menu"
+ '("Org"
+ ("Show/Hide"
+ ["Cycle Visibility" org-cycle :active (or (bobp) (outline-on-heading-p))]
+ ["Cycle Global Visibility" org-shifttab :active (not (org-at-table-p))]
+ ["Sparse Tree..." org-sparse-tree t]
+ ["Reveal Context" org-reveal t]
+ ["Show All" show-all t]
+ "--"
+ ["Subtree to indirect buffer" org-tree-to-indirect-buffer t])
+ "--"
+ ["New Heading" org-insert-heading t]
+ ("Navigate Headings"
+ ["Up" outline-up-heading t]
+ ["Next" outline-next-visible-heading t]
+ ["Previous" outline-previous-visible-heading t]
+ ["Next Same Level" outline-forward-same-level t]
+ ["Previous Same Level" outline-backward-same-level t]
+ "--"
+ ["Jump" org-goto t])
+ ("Edit Structure"
+ ["Move Subtree Up" org-shiftmetaup (not (org-at-table-p))]
+ ["Move Subtree Down" org-shiftmetadown (not (org-at-table-p))]
+ "--"
+ ["Copy Subtree" org-copy-special (not (org-at-table-p))]
+ ["Cut Subtree" org-cut-special (not (org-at-table-p))]
+ ["Paste Subtree" org-paste-special (not (org-at-table-p))]
+ "--"
+ ["Promote Heading" org-metaleft (not (org-at-table-p))]
+ ["Promote Subtree" org-shiftmetaleft (not (org-at-table-p))]
+ ["Demote Heading" org-metaright (not (org-at-table-p))]
+ ["Demote Subtree" org-shiftmetaright (not (org-at-table-p))]
+ "--"
+ ["Sort Region/Children" org-sort (not (org-at-table-p))]
+ "--"
+ ["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))
+; :active t :keys "C-u C-c C-x C-a"]
+ ["Sparse trees open ARCHIVE trees"
+ (setq org-sparse-tree-open-archived-trees
+ (not org-sparse-tree-open-archived-trees))
+ :style toggle :selected org-sparse-tree-open-archived-trees]
+ ["Cycling opens ARCHIVE trees"
+ (setq org-cycle-open-archived-trees (not org-cycle-open-archived-trees))
+ :style toggle :selected org-cycle-open-archived-trees]
+ ["Agenda includes ARCHIVE trees"
+ (setq org-agenda-skip-archived-trees (not org-agenda-skip-archived-trees))
+ :style toggle :selected (not org-agenda-skip-archived-trees)]
+ "--"
+ ["Move Subtree to Archive" org-advertized-archive-subtree t]
+ ; ["Check and Move Children" (org-archive-subtree '(4))
+ ; :active t :keys "C-u C-c C-x C-s"]
+ )
+ "--"
+ ("TODO Lists"
+ ["TODO/DONE/-" org-todo t]
+ ("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))]
+ ["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]
+ "--"
+ ["Set Priority" org-priority t]
+ ["Priority Up" org-shiftup t]
+ ["Priority Down" org-shiftdown t])
+ ("TAGS and Properties"
+ ["Set Tags" 'org-ctrl-c-ctrl-c (org-at-heading-p)]
+ ["Change tag in region" 'org-change-tag-in-region (org-region-active-p)]
+ "--"
+ ["Set property" 'org-set-property t]
+ ["Column view of properties" org-columns t]
+ ["Insert Column View DBlock" org-insert-columns-dblock t])
+ ("Dates and Scheduling"
+ ["Timestamp" org-time-stamp t]
+ ["Timestamp (inactive)" org-time-stamp-inactive t]
+ ("Change Date"
+ ["1 Day Later" org-shiftright t]
+ ["1 Day Earlier" org-shiftleft t]
+ ["1 ... Later" org-shiftup t]
+ ["1 ... Earlier" org-shiftdown t])
+ ["Compute Time Range" org-evaluate-time-range t]
+ ["Schedule Item" org-schedule t]
+ ["Deadline" org-deadline t]
+ "--"
+ ["Custom time format" org-toggle-time-stamp-overlays
+ :style radio :selected org-display-custom-times]
+ "--"
+ ["Goto Calendar" org-goto-calendar t]
+ ["Date from Calendar" org-date-from-calendar t])
+ ("Logging work"
+ ["Clock in" org-clock-in t]
+ ["Clock out" org-clock-out t]
+ ["Clock cancel" org-clock-cancel t]
+ ["Goto running clock" org-clock-goto t]
+ ["Display times" org-clock-display t]
+ ["Create clock table" org-clock-report t]
+ "--"
+ ["Record DONE time"
+ (progn (setq org-log-done (not org-log-done))
+ (message "Switching to %s will %s record a timestamp"
+ (car org-done-keywords)
+ (if org-log-done "automatically" "not")))
+ :style toggle :selected org-log-done])
+ "--"
+ ["Agenda Command..." org-agenda t]
+ ["Set Restriction Lock" org-agenda-set-restriction-lock t]
+ ("File List for Agenda")
+ ("Special views current file"
+ ["TODO Tree" org-show-todo-tree t]
+ ["Check Deadlines" org-check-deadlines t]
+ ["Timeline" org-timeline t]
+ ["Tags Tree" org-tags-sparse-tree t])
+ "--"
+ ("Hyperlinks"
+ ["Store Link (Global)" org-store-link t]
+ ["Insert Link" org-insert-link t]
+ ["Follow Link" org-open-at-point t]
+ "--"
+ ["Next link" org-next-link t]
+ ["Previous link" org-previous-link t]
+ "--"
+ ["Descriptive Links"
+ (progn (org-add-to-invisibility-spec '(org-link)) (org-restart-font-lock))
+ :style radio
+ :selected (member '(org-link) buffer-invisibility-spec)]
+ ["Literal Links"
+ (progn
+ (org-remove-from-invisibility-spec '(org-link)) (org-restart-font-lock))
+ :style radio
+ :selected (not (member '(org-link) buffer-invisibility-spec))])
+ "--"
+ ["Export/Publish..." org-export t]
+ ("LaTeX"
+ ["Org CDLaTeX mode" org-cdlatex-mode :style toggle
+ :selected org-cdlatex-mode]
+ ["Insert Environment" cdlatex-environment (fboundp 'cdlatex-environment)]
+ ["Insert math symbol" cdlatex-math-symbol (fboundp 'cdlatex-math-symbol)]
+ ["Modify math symbol" org-cdlatex-math-modify
+ (org-inside-LaTeX-fragment-p)]
+ ["Export LaTeX fragments as images"
+ (if (featurep 'org-exp)
+ (setq org-export-with-LaTeX-fragments
+ (not org-export-with-LaTeX-fragments))
+ (require 'org-exp))
+ :style toggle :selected (and (boundp 'org-export-with-LaTeX-fragments)
+ org-export-with-LaTeX-fragments)])
+ "--"
+ ("Documentation"
+ ["Show Version" org-version t]
+ ["Info Documentation" org-info t])
+ ("Customize"
+ ["Browse Org Group" org-customize t]
+ "--"
+ ["Expand This Menu" org-create-customize-menu
+ (fboundp 'customize-menu-create)])
+ "--"
+ ["Refresh setup" org-mode-restart t]
+ ))
+
+(defun org-info (&optional node)
+ "Read documentation for Org-mode in the info system.
+With optional NODE, go directly to that node."
+ (interactive)
+ (info (format "(org)%s" (or node ""))))
+
+(defun org-install-agenda-files-menu ()
+ (let ((bl (buffer-list)))
+ (save-excursion
+ (while bl
+ (set-buffer (pop bl))
+ (if (org-mode-p) (setq bl nil)))
+ (when (org-mode-p)
+ (easy-menu-change
+ '("Org") "File List for Agenda"
+ (append
+ (list
+ ["Edit File List" (org-edit-agenda-file-list) t]
+ ["Add/Move Current File to Front of List" org-agenda-file-to-front t]
+ ["Remove Current File from List" org-remove-file t]
+ ["Cycle through agenda files" org-cycle-agenda-files t]
+ ["Occur in all agenda files" org-occur-in-agenda-files t]
+ "--")
+ (mapcar 'org-file-menu-entry (org-agenda-files t))))))))
+
+;;;; Documentation
+
+(defun org-require-autoloaded-modules ()
+ (interactive)
+ (mapc 'require
+ '(org-agenda org-archive org-clock org-colview
+ org-exp org-export-latex org-publish
+ org-remember org-table)))
+
+(defun org-customize ()
+ "Call the customize function with org as argument."
+ (interactive)
+ (org-load-modules-maybe)
+ (org-require-autoloaded-modules)
+ (customize-browse 'org))
+
+(defun org-create-customize-menu ()
+ "Create a full customization menu for Org-mode, insert it into the menu."
+ (interactive)
+ (org-load-modules-maybe)
+ (org-require-autoloaded-modules)
+ (if (fboundp 'customize-menu-create)
+ (progn
+ (easy-menu-change
+ '("Org") "Customize"
+ `(["Browse Org group" org-customize t]
+ "--"
+ ,(customize-menu-create 'org)
+ ["Set" Custom-set t]
+ ["Save" Custom-save t]
+ ["Reset to Current" Custom-reset-current t]
+ ["Reset to Saved" Custom-reset-saved t]
+ ["Reset to Standard Settings" Custom-reset-standard t]))
+ (message "\"Org\"-menu now contains full customization menu"))
+ (error "Cannot expand menu (outdated version of cus-edit.el)")))
+
+;;;; Miscellaneous stuff
+
+;;; Generally useful functions
+
+(defun org-plist-delete (plist property)
+ "Delete PROPERTY from PLIST.
+This is in contrast to merely setting it to 0."
+ (let (p)
+ (while plist
+ (if (not (eq property (car plist)))
+ (setq p (plist-put p (car plist) (nth 1 plist))))
+ (setq plist (cddr plist)))
+ p))
+
+(defun org-force-self-insert (N)
+ "Needed to enforce self-insert under remapping."
+ (interactive "p")
+ (self-insert-command N))
+
+(defun org-string-width (s)
+ "Compute width of string, ignoring invisible characters.
+This ignores character with invisibility property `org-link', and also
+characters with property `org-cwidth', because these will become invisible
+upon the next fontification round."
+ (let (b l)
+ (when (or (eq t buffer-invisibility-spec)
+ (assq 'org-link buffer-invisibility-spec))
+ (while (setq b (text-property-any 0 (length s)
+ 'invisible 'org-link s))
+ (setq s (concat (substring s 0 b)
+ (substring s (or (next-single-property-change
+ b 'invisible s) (length s)))))))
+ (while (setq b (text-property-any 0 (length s) 'org-cwidth t s))
+ (setq s (concat (substring s 0 b)
+ (substring s (or (next-single-property-change
+ b 'org-cwidth s) (length s))))))
+ (setq l (string-width s) b -1)
+ (while (setq b (text-property-any (1+ b) (length s) 'org-dwidth t s))
+ (setq l (- l (get-text-property b 'org-dwidth-n s))))
+ l))
+
+
+(defun org-trim (s)
+ "Remove whitespace at beginning and end of string."
+ (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)
+ "Wrap string to either a number of lines, or a width in characters.
+If WIDTH is non-nil, the string is wrapped to that width, however many lines
+that costs. If there is a word longer than WIDTH, the text is actually
+wrapped to the length of that word.
+IF WIDTH is nil and LINES is non-nil, the string is forced into at most that
+many lines, whatever width that takes.
+The return value is a list of lines, without newlines at the end."
+ (let* ((words (org-split-string string "[ \t\n]+"))
+ (maxword (apply 'max (mapcar 'org-string-width words)))
+ w ll)
+ (cond (width
+ (org-do-wrap words (max maxword width)))
+ (lines
+ (setq w maxword)
+ (setq ll (org-do-wrap words maxword))
+ (if (<= (length ll) lines)
+ ll
+ (setq ll words)
+ (while (> (length ll) lines)
+ (setq w (1+ w))
+ (setq ll (org-do-wrap words w)))
+ ll))
+ (t (error "Cannot wrap this")))))
+
+(defun org-do-wrap (words width)
+ "Create lines of maximum width WIDTH (in characters) from word list WORDS."
+ (let (lines line)
+ (while words
+ (setq line (pop words))
+ (while (and words (< (+ (length line) (length (car words))) width))
+ (setq line (concat line " " (pop words))))
+ (setq lines (push line lines)))
+ (nreverse lines)))
+
+(defun org-split-string (string &optional separators)
+ "Splits STRING into substrings at SEPARATORS.
+No empty strings are returned if there are matches at the beginning
+and end of string."
+ (let ((rexp (or separators "[ \f\t\n\r\v]+"))
+ (start 0)
+ notfirst
+ (list nil))
+ (while (and (string-match rexp string
+ (if (and notfirst
+ (= start (match-beginning 0))
+ (< start (length string)))
+ (1+ start) start))
+ (< (match-beginning 0) (length string)))
+ (setq notfirst t)
+ (or (eq (match-beginning 0) 0)
+ (and (eq (match-beginning 0) (match-end 0))
+ (eq (match-beginning 0) start))
+ (setq list
+ (cons (substring string start (match-beginning 0))
+ list)))
+ (setq start (match-end 0)))
+ (or (eq start (length string))
+ (setq list
+ (cons (substring string start)
+ list)))
+ (nreverse list)))
+
+(defun org-context ()
+ "Return a list of contexts of the current cursor position.
+If several contexts apply, all are returned.
+Each context entry is a list with a symbol naming the context, and
+two positions indicating start and end of the context. Possible
+contexts are:
+
+:headline anywhere in a headline
+:headline-stars on the leading stars in a headline
+:todo-keyword on a TODO keyword (including DONE) in a headline
+:tags on the TAGS in a headline
+:priority on the priority cookie in a headline
+:item on the first line of a plain list item
+:item-bullet on the bullet/number of a plain list item
+:checkbox on the checkbox in a plain list item
+:table in an org-mode table
+:table-special on a special filed in a table
+:table-table in a table.el table
+:link on a hyperlink
+:keyword on a keyword: SCHEDULED, DEADLINE, CLOSE,COMMENT, QUOTE.
+:target on a <<target>>
+:radio-target on a <<<radio-target>>>
+:latex-fragment on a LaTeX fragment
+:latex-preview on a LaTeX fragment with overlayed preview image
+
+This function expects the position to be visible because it uses font-lock
+faces as a help to recognize the following contexts: :table-special, :link,
+and :keyword."
+ (let* ((f (get-text-property (point) 'face))
+ (faces (if (listp f) f (list f)))
+ (p (point)) clist o)
+ ;; First the large context
+ (cond
+ ((org-on-heading-p t)
+ (push (list :headline (point-at-bol) (point-at-eol)) clist)
+ (when (progn
+ (beginning-of-line 1)
+ (looking-at org-todo-line-tags-regexp))
+ (push (org-point-in-group p 1 :headline-stars) clist)
+ (push (org-point-in-group p 2 :todo-keyword) clist)
+ (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-Z0-9]\\]")
+ (push (org-point-in-group p 0 :priority) clist)))
+
+ ((org-at-item-p)
+ (push (org-point-in-group p 2 :item-bullet) clist)
+ (push (list :item (point-at-bol)
+ (save-excursion (org-end-of-item) (point)))
+ clist)
+ (and (org-at-item-checkbox-p)
+ (push (org-point-in-group p 0 :checkbox) clist)))
+
+ ((org-at-table-p)
+ (push (list :table (org-table-begin) (org-table-end)) clist)
+ (if (memq 'org-formula faces)
+ (push (list :table-special
+ (previous-single-property-change p 'face)
+ (next-single-property-change p 'face)) clist)))
+ ((org-at-table-p 'any)
+ (push (list :table-table) clist)))
+ (goto-char p)
+
+ ;; Now the small context
+ (cond
+ ((org-at-timestamp-p)
+ (push (org-point-in-group p 0 :timestamp) clist))
+ ((memq 'org-link faces)
+ (push (list :link
+ (previous-single-property-change p 'face)
+ (next-single-property-change p 'face)) clist))
+ ((memq 'org-special-keyword faces)
+ (push (list :keyword
+ (previous-single-property-change p 'face)
+ (next-single-property-change p 'face)) clist))
+ ((org-on-target-p)
+ (push (org-point-in-group p 0 :target) clist)
+ (goto-char (1- (match-beginning 0)))
+ (if (looking-at org-radio-target-regexp)
+ (push (org-point-in-group p 0 :radio-target) clist))
+ (goto-char p))
+ ((setq o (car (delq nil
+ (mapcar
+ (lambda (x)
+ (if (memq x org-latex-fragment-image-overlays) x))
+ (org-overlays-at (point))))))
+ (push (list :latex-fragment
+ (org-overlay-start o) (org-overlay-end o)) clist)
+ (push (list :latex-preview
+ (org-overlay-start o) (org-overlay-end o)) clist))
+ ((org-inside-LaTeX-fragment-p)
+ ;; FIXME: positions wrong.
+ (push (list :latex-fragment (point) (point)) clist)))
+
+ (setq clist (nreverse (delq nil clist)))
+ clist))
+
+;; FIXME: Compare with at-regexp-p Do we need both?
+(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
+lines both before and after point into the search.
+If VISUALLY is set, require that the cursor is not after the match but
+really on, so that the block visually is on the match."
+ (catch 'exit
+ (let ((pos (point))
+ (eol (point-at-eol (+ 1 (or nlines 0))))
+ (inc (if visually 1 0)))
+ (save-excursion
+ (beginning-of-line (- 1 (or nlines 0)))
+ (while (re-search-forward re eol t)
+ (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-occur-in-agenda-files (regexp &optional nlines)
+ "Call `multi-occur' with buffers for all agenda files."
+ (interactive "sOrg-files matching: \np")
+ (let* ((files (org-agenda-files))
+ (tnames (mapcar 'file-truename files))
+ (extra org-agenda-text-search-extra-files)
+ f)
+ (when (eq (car extra) 'agenda-archives)
+ (setq extra (cdr extra))
+ (setq files (org-add-archive-files files)))
+ (while (setq f (pop extra))
+ (unless (member (file-truename f) tnames)
+ (add-to-list 'files f 'append)
+ (add-to-list 'tnames (file-truename f) 'append)))
+ (multi-occur
+ (mapcar (lambda (x) (or (get-file-buffer x) (find-file-noselect x))) files)
+ regexp)))
+
+(if (boundp 'occur-mode-find-occurrence-hook)
+ ;; Emacs 23
+ (add-hook 'occur-mode-find-occurrence-hook
+ (lambda ()
+ (when (org-mode-p)
+ (org-reveal))))
+ ;; Emacs 22
+ (defadvice occur-mode-goto-occurrence
+ (after org-occur-reveal activate)
+ (and (org-mode-p) (org-reveal)))
+ (defadvice occur-mode-goto-occurrence-other-window
+ (after org-occur-reveal activate)
+ (and (org-mode-p) (org-reveal)))
+ (defadvice occur-mode-display-occurrence
+ (after org-occur-reveal activate)
+ (when (org-mode-p)
+ (let ((pos (occur-mode-find-occurrence)))
+ (with-current-buffer (marker-buffer pos)
+ (save-excursion
+ (goto-char pos)
+ (org-reveal)))))))
+
+(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-back-over-empty-lines ()
+ "Move backwards over witespace, to the beginning of the first empty line.
+Returns the number of empty lines passed."
+ (let ((pos (point)))
+ (skip-chars-backward " \t\n\r")
+ (beginning-of-line 2)
+ (goto-char (min (point) pos))
+ (count-lines (point) pos)))
+
+(defun org-skip-whitespace ()
+ (skip-chars-forward " \t\n\r"))
+
+(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
+match. If the match group does ot exist or point is not inside it,
+return nil."
+ (and (match-beginning group)
+ (>= point (match-beginning group))
+ (<= point (match-end group))
+ (if context
+ (list context (match-beginning group) (match-end group))
+ t)))
+
+(defun org-switch-to-buffer-other-window (&rest args)
+ "Switch to buffer in a second window on the current frame.
+In particular, do not allow pop-up frames."
+ (let (pop-up-frames special-display-buffer-names special-display-regexps
+ special-display-function)
+ (apply 'switch-to-buffer-other-window args)))
+
+(defun org-combine-plists (&rest plists)
+ "Create a single property list from all plists in PLISTS.
+The process starts by copying the first list, and then setting properties
+from the other lists. Settings in the last list are the most significant
+ones and overrule settings in the other lists."
+ (let ((rtn (copy-sequence (pop plists)))
+ p v ls)
+ (while plists
+ (setq ls (pop plists))
+ (while ls
+ (setq p (pop ls) v (pop ls))
+ (setq rtn (plist-put rtn p v))))
+ rtn))
+
+(defun org-move-line-down (arg)
+ "Move the current line down. With prefix argument, move it past ARG lines."
+ (interactive "p")
+ (let ((col (current-column))
+ beg end pos)
+ (beginning-of-line 1) (setq beg (point))
+ (beginning-of-line 2) (setq end (point))
+ (beginning-of-line (+ 1 arg))
+ (setq pos (move-marker (make-marker) (point)))
+ (insert (delete-and-extract-region beg end))
+ (goto-char pos)
+ (org-move-to-column col)))
+
+(defun org-move-line-up (arg)
+ "Move the current line up. With prefix argument, move it past ARG lines."
+ (interactive "p")
+ (let ((col (current-column))
+ beg end pos)
+ (beginning-of-line 1) (setq beg (point))
+ (beginning-of-line 2) (setq end (point))
+ (beginning-of-line (- arg))
+ (setq pos (move-marker (make-marker) (point)))
+ (insert (delete-and-extract-region beg end))
+ (goto-char pos)
+ (org-move-to-column col)))
+
+(defun org-replace-escapes (string table)
+ "Replace %-escapes in STRING with values in TABLE.
+TABLE is an association list with keys like \"%a\" and string values.
+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)
+ (while (setq e (pop table))
+ (setq re (concat "%-?[0-9.]*" (substring (car e) 1)))
+ (while (string-match re string)
+ (setq rpl (format (concat (substring (match-string 0 string) 0 -1) "s")
+ (cdr e)))
+ (setq string (replace-match rpl t t string))))
+ string))
+
+
+(defun org-sublist (list start end)
+ "Return a section of LIST, from START to END.
+Counting starts at 1."
+ (let (rtn (c start))
+ (setq list (nthcdr (1- start) list))
+ (while (and list (<= c end))
+ (push (pop list) rtn)
+ (setq c (1+ c)))
+ (nreverse rtn)))
+
+(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)))
+ (if buf
+ (or (buffer-base-buffer buf) buf)
+ 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)))
+
+;;; Paragraph filling stuff.
+;; We want this to be just right, so use the full arsenal.
+
+(defun org-indent-line-function ()
+ "Indent line like previous, but further if previous was headline or item."
+ (interactive)
+ (let* ((pos (point))
+ (itemp (org-at-item-p))
+ column bpos bcol tpos tcol bullet btype bullet-type)
+ ;; Find the previous relevant line
+ (beginning-of-line 1)
+ (cond
+ ((looking-at "#") (setq column 0))
+ ((looking-at "\\*+ ") (setq column 0))
+ (t
+ (beginning-of-line 0)
+ (while (and (not (bobp)) (looking-at "[ \t]*[\n:#|]"))
+ (beginning-of-line 0))
+ (cond
+ ((looking-at "\\*+[ \t]+")
+ (goto-char (match-end 0))
+ (setq column (current-column)))
+ ((org-in-item-p)
+ (org-beginning-of-item)
+; (looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
+ (looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\\)?")
+ (setq bpos (match-beginning 1) tpos (match-end 0)
+ bcol (progn (goto-char bpos) (current-column))
+ tcol (progn (goto-char tpos) (current-column))
+ bullet (match-string 1)
+ bullet-type (if (string-match "[0-9]" bullet) "n" bullet))
+ (if (not itemp)
+ (setq column tcol)
+ (goto-char pos)
+ (beginning-of-line 1)
+ (if (looking-at "\\S-")
+ (progn
+ (looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
+ (setq bullet (match-string 1)
+ btype (if (string-match "[0-9]" bullet) "n" bullet))
+ (setq column (if (equal btype bullet-type) bcol tcol)))
+ (setq column (org-get-indentation)))))
+ (t (setq column (org-get-indentation))))))
+ (goto-char pos)
+ (if (<= (current-column) (current-indentation))
+ (org-indent-line-to column)
+ (save-excursion (org-indent-line-to column)))
+ (setq column (current-column))
+ (beginning-of-line 1)
+ (if (looking-at
+ "\\([ \t]+\\)\\(:[-_0-9a-zA-Z]+:\\)[ \t]*\\(\\S-.*\\(\\S-\\|$\\)\\)")
+ (replace-match (concat "\\1" (format org-property-format
+ (match-string 2) (match-string 3)))
+ t nil))
+ (org-move-to-column column)))
+
+(defun org-set-autofill-regexps ()
+ (interactive)
+ ;; In the paragraph separator we include headlines, because filling
+ ;; text in a line directly attached to a headline would otherwise
+ ;; fill the headline as well.
+ (org-set-local 'comment-start-skip "^#+[ \t]*")
+ (org-set-local 'paragraph-separate "\f\\|\\*+ \\|[ ]*$\\|[ \t]*[:|]")
+ ;; The paragraph starter includes hand-formatted lists.
+ (org-set-local 'paragraph-start
+ "\f\\|[ ]*$\\|\\*+ \\|\f\\|[ \t]*\\([-+*][ \t]+\\|[0-9]+[.)][ \t]+\\)\\|[ \t]*[:|]")
+ ;; Inhibit auto-fill for headers, tables and fixed-width lines.
+ ;; But only if the user has not turned off tables or fixed-width regions
+ (org-set-local
+ 'auto-fill-inhibit-regexp
+ (concat "\\*+ \\|#\\+"
+ "\\|[ \t]*" org-keyword-time-regexp
+ (if (or org-enable-table-editor org-enable-fixed-width-editor)
+ (concat
+ "\\|[ \t]*["
+ (if org-enable-table-editor "|" "")
+ (if org-enable-fixed-width-editor ":" "")
+ "]"))))
+ ;; We use our own fill-paragraph function, to make sure that tables
+ ;; and fixed-width regions are not wrapped. That function will pass
+ ;; through to `fill-paragraph' when appropriate.
+ (org-set-local 'fill-paragraph-function 'org-fill-paragraph)
+ ; Adaptive filling: To get full control, first make sure that
+ ;; `adaptive-fill-regexp' never matches. Then install our own matcher.
+ (org-set-local 'adaptive-fill-regexp "\000")
+ (org-set-local 'adaptive-fill-function
+ 'org-adaptive-fill-function)
+ (org-set-local
+ 'align-mode-rules-list
+ '((org-in-buffer-settings
+ (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
+ (modes . '(org-mode))))))
+
+(defun org-fill-paragraph (&optional justify)
+ "Re-align a table, pass through to fill-paragraph if no table."
+ (let ((table-p (org-at-table-p))
+ (table.el-p (org-at-table.el-p)))
+ (cond ((and (equal (char-after (point-at-bol)) ?*)
+ (save-excursion (goto-char (point-at-bol))
+ (looking-at outline-regexp)))
+ t) ; skip headlines
+ (table.el-p t) ; skip table.el tables
+ (table-p (org-table-align) t) ; align org-mode tables
+ (t nil)))) ; call paragraph-fill
+
+;; For reference, this is the default value of adaptive-fill-regexp
+;; "[ \t]*\\([-|#;>*]+[ \t]*\\|(?[0-9]+[.)][ \t]*\\)*"
+
+(defun org-adaptive-fill-function ()
+ "Return a fill prefix for org-mode files.
+In particular, this makes sure hanging paragraphs for hand-formatted lists
+work correctly."
+ (cond ((looking-at "#[ \t]+")
+ (match-string 0))
+ ((looking-at "[ \t]*\\([-*+] \\|[0-9]+[.)] \\)?")
+ (save-excursion
+ (goto-char (match-end 0))
+ (make-string (current-column) ?\ )))
+ (t nil)))
+
+;;; Other stuff.
+
+(defun org-toggle-fixed-width-section (arg)
+ "Toggle the fixed-width export.
+If there is no active region, the QUOTE keyword at the current headline is
+inserted or removed. When present, it causes the text between this headline
+and the next to be exported as fixed-width text, and unmodified.
+If there is an active region, this command adds or removes a colon as the
+first character of this line. If the first character of a line is a colon,
+this line is also exported in fixed-width font."
+ (interactive "P")
+ (let* ((cc 0)
+ (regionp (org-region-active-p))
+ (beg (if regionp (region-beginning) (point)))
+ (end (if regionp (region-end)))
+ (nlines (or arg (if (and beg end) (count-lines beg end) 1)))
+ (case-fold-search nil)
+ (re "[ \t]*\\(:\\)")
+ off)
+ (if regionp
+ (save-excursion
+ (goto-char beg)
+ (setq cc (current-column))
+ (beginning-of-line 1)
+ (setq off (looking-at re))
+ (while (> nlines 0)
+ (setq nlines (1- nlines))
+ (beginning-of-line 1)
+ (cond
+ (arg
+ (org-move-to-column cc t)
+ (insert ":\n")
+ (forward-line -1))
+ ((and off (looking-at re))
+ (replace-match "" t t nil 1))
+ ((not off) (org-move-to-column cc t) (insert ":")))
+ (forward-line 1)))
+ (save-excursion
+ (org-back-to-heading)
+ (if (looking-at (concat outline-regexp
+ "\\( *\\<" org-quote-string "\\>[ \t]*\\)"))
+ (replace-match "" t t nil 1)
+ (if (looking-at outline-regexp)
+ (progn
+ (goto-char (match-end 0))
+ (insert org-quote-string " "))))))))
+
+;;;; Functions extending outline functionality
+
+(defun org-beginning-of-line (&optional arg)
+ "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.
+If this is a headline, and `org-special-ctrl-a/e' is set, ignore tags on the
+first attempt, and only move to after the tags when the cursor is already
+beyond the end of the headline."
+ (interactive "P")
+ (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 org-special-ctrl-a/e
+ (cond
+ ((and (looking-at org-todo-line-regexp)
+ (= (char-after (match-end 1)) ?\ ))
+ (goto-char
+ (if (eq org-special-ctrl-a/e t)
+ (cond ((> pos (match-beginning 3)) (match-beginning 3))
+ ((= pos (point)) (match-beginning 3))
+ (t (point)))
+ (cond ((> pos (point)) (point))
+ ((not (eq last-command this-command)) (point))
+ (t (match-beginning 3))))))
+ ((org-at-item-p)
+ (goto-char
+ (if (eq org-special-ctrl-a/e t)
+ (cond ((> pos (match-end 4)) (match-end 4))
+ ((= pos (point)) (match-end 4))
+ (t (point)))
+ (cond ((> pos (point)) (point))
+ ((not (eq last-command this-command)) (point))
+ (t (match-end 4))))))))))
+
+(defun org-end-of-line (&optional arg)
+ "Go to the end of the line.
+If this is a headline, and `org-special-ctrl-a/e' is set, ignore tags on the
+first attempt, and only move to after the tags when the cursor is already
+beyond the end of the headline."
+ (interactive "P")
+ (if (or (not org-special-ctrl-a/e)
+ (not (org-on-heading-p)))
+ (end-of-line arg)
+ (let ((pos (point)))
+ (beginning-of-line 1)
+ (if (looking-at (org-re ".*?\\([ \t]*\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$"))
+ (if (eq org-special-ctrl-a/e t)
+ (if (or (< pos (match-beginning 1))
+ (= pos (match-end 0)))
+ (goto-char (match-beginning 1))
+ (goto-char (match-end 0)))
+ (if (or (< pos (match-end 0)) (not (eq this-command last-command)))
+ (goto-char (match-end 0))
+ (goto-char (match-beginning 1))))
+ (end-of-line arg)))))
+
+(define-key org-mode-map "\C-a" 'org-beginning-of-line)
+(define-key org-mode-map "\C-e" 'org-end-of-line)
+
+(defun org-kill-line (&optional arg)
+ "Kill line, to tags or end of line."
+ (interactive "P")
+ (cond
+ ((or (not org-special-ctrl-k)
+ (bolp)
+ (not (org-on-heading-p)))
+ (call-interactively 'kill-line))
+ ((looking-at (org-re ".*?\\S-\\([ \t]+\\(:[[:alnum:]_@:]+:\\)\\)[ \t]*$"))
+ (kill-region (point) (match-beginning 1))
+ (org-set-tags nil t))
+ (t (kill-region (point) (point-at-eol)))))
+
+(define-key org-mode-map "\C-k" 'org-kill-line)
+
+(defun org-invisible-p ()
+ "Check if point is at a character currently not visible."
+ ;; Early versions of noutline don't have `outline-invisible-p'.
+ (if (fboundp 'outline-invisible-p)
+ (outline-invisible-p)
+ (get-char-property (point) 'invisible)))
+
+(defun org-invisible-p2 ()
+ "Check if point is at a character currently not visible."
+ (save-excursion
+ (if (and (eolp) (not (bobp))) (backward-char 1))
+ ;; Early versions of noutline don't have `outline-invisible-p'.
+ (if (fboundp 'outline-invisible-p)
+ (outline-invisible-p)
+ (get-char-property (point) 'invisible))))
+
+(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)
+ (org-in-regexp org-target-regexp)))
+
+(defun org-up-heading-all (arg)
+ "Move to the heading line of which the present line is a subheading.
+This function considers both visible and invisible heading lines.
+With argument, move up ARG levels."
+ (if (fboundp 'outline-up-heading-all)
+ (outline-up-heading-all arg) ; emacs 21 version of outline.el
+ (outline-up-heading arg t))) ; emacs 22 version of outline.el
+
+(defun org-up-heading-safe ()
+ "Move to the heading line of which the present line is a subheading.
+This version will not throw an error. It will return the level of the
+headline found, or nil if no higher level is found."
+ (let ((pos (point)) start-level level
+ (re (concat "^" outline-regexp)))
+ (catch 'exit
+ (outline-back-to-heading t)
+ (setq start-level (funcall outline-level))
+ (if (equal start-level 1) (throw 'exit nil))
+ (while (re-search-backward re nil t)
+ (setq level (funcall outline-level))
+ (if (< level start-level) (throw 'exit level)))
+ nil)))
+
+(defun org-first-sibling-p ()
+ "Is this heading the first child of its parents?"
+ (interactive)
+ (let ((re (concat "^" outline-regexp))
+ level l)
+ (unless (org-at-heading-p t)
+ (error "Not at a heading"))
+ (setq level (funcall outline-level))
+ (save-excursion
+ (if (not (re-search-backward re nil t))
+ t
+ (setq l (funcall outline-level))
+ (< l level)))))
+
+(defun org-goto-sibling (&optional previous)
+ "Goto the next sibling, even if it is invisible.
+When PREVIOUS is set, go to the previous sibling instead. Returns t
+when a sibling was found. When none is found, return nil and don't
+move point."
+ (let ((fun (if previous 're-search-backward 're-search-forward))
+ (pos (point))
+ (re (concat "^" outline-regexp))
+ level l)
+ (when (condition-case nil (org-back-to-heading t) (error nil))
+ (setq level (funcall outline-level))
+ (catch 'exit
+ (or previous (forward-char 1))
+ (while (funcall fun re nil t)
+ (setq l (funcall outline-level))
+ (when (< l level) (goto-char pos) (throw 'exit nil))
+ (when (= l level) (goto-char (match-beginning 0)) (throw 'exit t)))
+ (goto-char pos)
+ nil))))
+
+(defun org-show-siblings ()
+ "Show all siblings of the current headline."
+ (save-excursion
+ (while (org-goto-sibling) (org-flag-heading nil)))
+ (save-excursion
+ (while (org-goto-sibling 'previous)
+ (org-flag-heading nil))))
+
+(defun org-show-hidden-entry ()
+ "Show an entry where even the heading is hidden."
+ (save-excursion
+ (org-show-entry)))
+
+(defun org-flag-heading (flag &optional entry)
+ "Flag the current heading. FLAG non-nil means make invisible.
+When ENTRY is non-nil, show the entire entry."
+ (save-excursion
+ (org-back-to-heading t)
+ ;; Check if we should show the entire entry
+ (if entry
+ (progn
+ (org-show-entry)
+ (save-excursion
+ (and (outline-next-heading)
+ (org-flag-heading nil))))
+ (outline-flag-region (max (point-min) (1- (point)))
+ (save-excursion (outline-end-of-heading) (point))
+ flag))))
+
+(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.
+ ;; Under Emacs this is not needed, but the old outline.el needs this fix.
+ (org-back-to-heading invisible-OK)
+ (let ((first t)
+ (level (funcall outline-level)))
+ (while (and (not (eobp))
+ (or first (> (funcall outline-level) level)))
+ (setq first nil)
+ (outline-next-heading))
+ (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 ()
+ "Show everything after this heading at deeper levels."
+ (outline-flag-region
+ (point)
+ (save-excursion
+ (outline-end-of-subtree) (outline-next-heading) (point))
+ nil))
+
+(defun org-show-entry ()
+ "Show the body directly following this heading.
+Show the heading too, if it is currently invisible."
+ (interactive)
+ (save-excursion
+ (condition-case nil
+ (progn
+ (org-back-to-heading t)
+ (outline-flag-region
+ (max (point-min) (1- (point)))
+ (save-excursion
+ (re-search-forward
+ (concat "[\r\n]\\(" outline-regexp "\\)") nil 'move)
+ (or (match-beginning 1) (point-max)))
+ nil))
+ (error nil))))
+
+(defun org-make-options-regexp (kwds)
+ "Make a regular expression for keyword lines."
+ (concat
+ "^"
+ "#?[ \t]*\\+\\("
+ (mapconcat 'regexp-quote kwds "\\|")
+ "\\):[ \t]*"
+ "\\(.+\\)"))
+
+;; Make isearch reveal the necessary context
+(defun org-isearch-end ()
+ "Reveal context after isearch exits."
+ (when isearch-success ; only if search was successful
+ (if (featurep 'xemacs)
+ ;; Under XEmacs, the hook is run in the correct place,
+ ;; we directly show the context.
+ (org-show-context 'isearch)
+ ;; In Emacs the hook runs *before* restoring the overlays.
+ ;; So we have to use a one-time post-command-hook to do this.
+ ;; (Emacs 22 has a special variable, see function `org-mode')
+ (unless (and (boundp 'isearch-mode-end-hook-quit)
+ isearch-mode-end-hook-quit)
+ ;; Only when the isearch was not quitted.
+ (org-add-hook 'post-command-hook 'org-isearch-post-command
+ 'append 'local)))))
+
+(defun org-isearch-post-command ()
+ "Remove self from hook, and show context."
+ (remove-hook 'post-command-hook 'org-isearch-post-command 'local)
+ (org-show-context 'isearch))
+
+
+;;;; Integration with and fixes for other packages
+
+;;; Imenu support
+
+(defvar org-imenu-markers nil
+ "All markers currently used by Imenu.")
+(make-variable-buffer-local 'org-imenu-markers)
+
+(defun org-imenu-new-marker (&optional pos)
+ "Return a new marker for use by Imenu, and remember the marker."
+ (let ((m (make-marker)))
+ (move-marker m (or pos (point)))
+ (push m org-imenu-markers)
+ m))
+
+(defun org-imenu-get-tree ()
+ "Produce the index for Imenu."
+ (mapc (lambda (x) (move-marker x nil)) org-imenu-markers)
+ (setq org-imenu-markers nil)
+ (let* ((n org-imenu-depth)
+ (re (concat "^" outline-regexp))
+ (subs (make-vector (1+ n) nil))
+ (last-level 0)
+ m tree level head)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-max))
+ (while (re-search-backward re nil t)
+ (setq level (org-reduced-level (funcall outline-level)))
+ (when (<= level n)
+ (looking-at org-complex-heading-regexp)
+ (setq head (org-match-string-no-properties 4)
+ m (org-imenu-new-marker))
+ (org-add-props head nil 'org-imenu-marker m 'org-imenu t)
+ (if (>= level last-level)
+ (push (cons head m) (aref subs level))
+ (push (cons head (aref subs (1+ level))) (aref subs level))
+ (loop for i from (1+ level) to n do (aset subs i nil)))
+ (setq last-level level)))))
+ (aref subs 1)))
+
+(eval-after-load "imenu"
+ '(progn
+ (add-hook 'imenu-after-jump-hook
+ (lambda () (org-show-context 'org-goto)))))
+
+;; Speedbar support
+
+(defvar org-speedbar-restriction-lock-overlay (org-make-overlay 1 1)
+ "Overlay marking the agenda restriction line in speedbar.")
+(org-overlay-put org-speedbar-restriction-lock-overlay
+ 'face 'org-agenda-restriction-lock)
+(org-overlay-put org-speedbar-restriction-lock-overlay
+ 'help-echo "Agendas are currently limited to this item.")
+(org-detach-overlay org-speedbar-restriction-lock-overlay)
+
+(defun org-speedbar-set-agenda-restriction ()
+ "Restrict future agenda commands to the location at point in speedbar.
+To get rid of the restriction, use \\[org-agenda-remove-restriction-lock]."
+ (interactive)
+ (require 'org-agenda)
+ (let (p m tp np dir txt w)
+ (cond
+ ((setq p (text-property-any (point-at-bol) (point-at-eol)
+ 'org-imenu t))
+ (setq m (get-text-property p 'org-imenu-marker))
+ (save-excursion
+ (save-restriction
+ (set-buffer (marker-buffer m))
+ (goto-char m)
+ (org-agenda-set-restriction-lock 'subtree))))
+ ((setq p (text-property-any (point-at-bol) (point-at-eol)
+ 'speedbar-function 'speedbar-find-file))
+ (setq tp (previous-single-property-change
+ (1+ p) 'speedbar-function)
+ np (next-single-property-change
+ tp 'speedbar-function)
+ dir (speedbar-line-directory)
+ txt (buffer-substring-no-properties (or tp (point-min))
+ (or np (point-max))))
+ (save-excursion
+ (save-restriction
+ (set-buffer (find-file-noselect
+ (let ((default-directory dir))
+ (expand-file-name txt))))
+ (unless (org-mode-p)
+ (error "Cannot restrict to non-Org-mode file"))
+ (org-agenda-set-restriction-lock 'file))))
+ (t (error "Don't know how to restrict Org-mode's agenda")))
+ (org-move-overlay org-speedbar-restriction-lock-overlay
+ (point-at-bol) (point-at-eol))
+ (setq current-prefix-arg nil)
+ (org-agenda-maybe-redo)))
+
+(eval-after-load "speedbar"
+ '(progn
+ (speedbar-add-supported-extension ".org")
+ (define-key speedbar-file-key-map "<" 'org-speedbar-set-agenda-restriction)
+ (define-key speedbar-file-key-map "\C-c\C-x<" 'org-speedbar-set-agenda-restriction)
+ (define-key speedbar-file-key-map ">" 'org-agenda-remove-restriction-lock)
+ (define-key speedbar-file-key-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
+ (add-hook 'speedbar-visiting-tag-hook
+ (lambda () (org-show-context 'org-goto)))))
+
+
+;;; Fixes and Hacks for problems with 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"
+ '(if (boundp 'bookmark-after-jump-hook)
+ ;; We can use the hook
+ (add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
+ ;; Hook not available, use advice
+ (defadvice bookmark-jump (after org-make-visible activate)
+ "Make the position visible."
+ (org-bookmark-jump-unhide))))
+
+(defun org-bookmark-jump-unhide ()
+ "Unhide the current position, to show the bookmark location."
+ (and (org-mode-p)
+ (or (org-invisible-p)
+ (save-excursion (goto-char (max (point-min) (1- (point))))
+ (org-invisible-p)))
+ (org-show-context 'bookmark-jump)))
+
+;; Make session.el ignore our circular variable
+(eval-after-load "session"
+ '(add-to-list 'session-globals-exclude 'org-mark-ring))
+
+;;;; Experimental code
+
+(defun org-closed-in-range ()
+ "Sparse tree of items closed in a certain time range.
+Still experimental, may disappear in the future."
+ (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
+
+(provide 'org)
+
+(run-hooks 'org-load-hook)
+
+;; arch-tag: e77da1a7-acc7-4336-b19e-efa25af3f9fd
+;;; org.el ends here
+
+