diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2006-12-03 12:25:18 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2006-12-03 12:25:18 +0000 |
| commit | d6e01aa592f7326dffeafa6e97180a1cc39fe7ea (patch) | |
| tree | 5a22b785cfee1d77d6452607450a12ca82eeecd3 /lisp | |
| parent | 14bcc1e098410087a837313e2fc822319ff2e8ca (diff) | |
| parent | 4975e69596a64247e8995d1ff9084b98a9a5ed0d (diff) | |
| download | emacs-d6e01aa592f7326dffeafa6e97180a1cc39fe7ea.tar.gz | |
Merged from emacs@sv.gnu.org.
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-479
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-480
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-481
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-482
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-483
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-484
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-485
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-153
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-154
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-155
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-585
Diffstat (limited to 'lisp')
35 files changed, 907 insertions, 454 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89a00314048..896fec114bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,125 @@ +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-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,Ad(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) @@ -39,8 +161,8 @@ 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 + * 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> @@ -301,7 +423,7 @@ After 5.10: - This code may lock Emacs hard!!! Use on your own risk! + This code may lock Emacs hard!!! Use at your own risk! (cperl-font-locking): New internal variable. (cperl-beginning-of-property): New function. @@ -315,7 +437,7 @@ recursively. Bound `next-single-property-change' via `point-max'. (cperl-unwind-to-safe): Bound likewise - (cperl-font-lock-fontify-region-function): 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 @@ -542,7 +664,7 @@ * autoinsert.el (auto-insert-alist): Doc fix. -2006-10-07 Johan Bockg,be(Brd <bojohan@dd.chalmers.se> +2006-10-07 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se> * mouse-sel.el (mouse-insert-selection-internal): Use insert-for-yank, so that yank handlers are run. @@ -2043,7 +2165,7 @@ (python-symbol-completions): Use python-imports. (python-module-path, ffap-alist): Add support for ffap. (python-skeletons, python-mode-abbrev-table, def-python-skeleton) - (pythin-insert-*, python-default-template, python-expand-template): + (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. @@ -26932,7 +27054,7 @@ * emacs-lisp/lisp-mode.el (lisp-mode-variables): Add ;;;###autoload to `outline-regexp'. Suggested by Stefan Monnier - <monnier@iro.umontreal.ca> + <monnier@iro.umontreal.ca>. (lisp-outline-level): Improve efficiency. Suggested by David Kastrup <dak@gnu.org>. @@ -27344,7 +27466,7 @@ * progmodes/gdb-ui.el (gdb-info-breakpoints-custom) (gdb-goto-breakpoint): Make breakpoint handling work on template - functions in C++. Reported by Martin Reed <mjreed@essex.ac.uk> + functions in C++. Reported by Martin Reed <mjreed@essex.ac.uk>. (gdb-assembler-custom): Update to recognize breakpoint information added on 2005-01-19. @@ -27617,10 +27739,10 @@ (tramp-do-copy-or-rename-file-directly): Mask `cp -p' error. Call `set-file-modes' when appropriate. (tramp-action-out-of-band): Mask `scp -p' error. Reported by Isak - Johnsson <isak@hypergene.com> + Johnsson <isak@hypergene.com>. (tramp-get-buffer, tramp-get-debug-buffer): Discard the undo list of both Tramp buffer and debug buffer. Reported by Joakim Verona - <joakim@verona.se> + <joakim@verona.se>. (tramp-file-name-for-operation): Mark `shell-command' as magic for Emacs only. @@ -27666,7 +27788,7 @@ * simple.el (eval-expression-print-format): Avoid warning about edebug-active. -2005-01-15 James R. Van Zandt <jrvz@comcast.net> (Tiny change) +2005-01-15 James R. Van Zandt <jrvz@comcast.net> (tiny change) * progmodes/sh-script.el: Code copied from make-mode.el with small changes, diff --git a/lisp/bindings.el b/lisp/bindings.el index 718feb4dbc9..1d0d49f3832 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -434,15 +434,14 @@ Menu of mode operations in the mode line.") "Return the value of symbol VAR if it is bound, else nil." `(and (boundp (quote ,var)) ,var)) +;; Use mode-line-mode-menu for local minor-modes only. +;; Global ones can go on the menubar (Options --> Show/Hide). (define-key mode-line-mode-menu [overwrite-mode] `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode :button (:toggle . overwrite-mode))) (define-key mode-line-mode-menu [outline-minor-mode] `(menu-item ,(purecopy "Outline (Outl)") outline-minor-mode :button (:toggle . (bound-and-true-p outline-minor-mode)))) -(define-key mode-line-mode-menu [line-number-mode] - `(menu-item ,(purecopy "Line number") line-number-mode - :button (:toggle . line-number-mode))) (define-key mode-line-mode-menu [highlight-changes-mode] `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode :button (:toggle . (bound-and-true-p highlight-changes-mode)))) @@ -458,11 +457,9 @@ Menu of mode operations in the mode line.") (define-key mode-line-mode-menu [flyspell-mode] `(menu-item ,(purecopy "Flyspell (Fly)") flyspell-mode :button (:toggle . (bound-and-true-p flyspell-mode)))) -(define-key mode-line-mode-menu [column-number-mode] - `(menu-item ,(purecopy "Column number") column-number-mode - :button (:toggle . column-number-mode))) (define-key mode-line-mode-menu [auto-revert-tail-mode] `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode + :enable (buffer-file-name) :button (:toggle . (bound-and-true-p auto-revert-tail-mode)))) (define-key mode-line-mode-menu [auto-revert-mode] `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index e3675064010..d2dff294d2e 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el @@ -1450,7 +1450,9 @@ arguments to `skip-chars-forward'." (condition-case nil (let ((res (apply 'call-process ediff-cmp-program nil nil nil - (append ediff-cmp-options (list f1 f2))))) + (append ediff-cmp-options (list (expand-file-name f1) + (expand-file-name f2)))) + )) (and (numberp res) (eq res 0))) (error (format "Cannot execute program %S." ediff-cmp-program))) )) diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el index b33ad7c1859..2ee573a4cb9 100644 --- a/lisp/ediff-mult.el +++ b/lisp/ediff-mult.el @@ -1637,11 +1637,15 @@ Useful commands: (set-buffer (setq tmp-buf (get-buffer-create ediff-tmp-buffer))) (erase-buffer) (shell-command - (format "%s %s %s %s" - ediff-custom-diff-program ediff-custom-diff-options - (ediff-get-session-objA-name session) - (ediff-get-session-objB-name session)) - t)) + (format + "%s %s %s %s" + (shell-quote-argument ediff-custom-diff-program) + ediff-custom-diff-options + (shell-quote-argument (ediff-get-session-objA-name session)) + (shell-quote-argument (ediff-get-session-objB-name session)) + ) + t) + ) (save-excursion (set-buffer meta-diff-buff) (goto-char (point-max)) diff --git a/lisp/ediff.el b/lisp/ediff.el index 6b37d4c1847..14e1461a8a7 100644 --- a/lisp/ediff.el +++ b/lisp/ediff.el @@ -8,7 +8,7 @@ ;; Keywords: comparing, merging, patching, tools, unix (defconst ediff-version "2.81.1" "The current version of Ediff") -(defconst ediff-date "September 18, 2006" "Date of last update") +(defconst ediff-date "October 23, 2006" "Date of last update") ;; This file is part of GNU Emacs. diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index c3ceb4c2f3a..f09b72f396f 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -373,14 +373,16 @@ If nil, indent backquoted lists as data, i.e., like quoted lists." ;; Too few elements in pattern. (throw 'exit normal-indent))) ((eq tem 'nil) - (throw 'exit (list normal-indent containing-form-start))) - ((eq tem '&lambda) - (throw 'exit - (cond ((null p) - (list (+ sexp-column 4) containing-form-start)) - ((null (cdr p)) - (+ sexp-column 1)) - (t normal-indent)))) + (throw 'exit (if (consp normal-indent) + normal-indent + (list normal-indent containing-form-start)))) + ((eq tem '&lambda) + (throw 'exit + (cond ((null p) + (list (+ sexp-column 4) containing-form-start)) + ((null (cdr p)) + (+ sexp-column 1)) + (t normal-indent)))) ((integerp tem) (throw 'exit (if (null p) ;not in subforms diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 61d99e6c78d..ac3ef55d6e4 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -408,7 +408,6 @@ ) - (defun viper-adjust-keys-for (state) "Make necessary adjustments to keymaps before entering STATE." (cond ((memq state '(insert-state replace-state)) @@ -1263,65 +1262,69 @@ as a Meta key and any number of multiple escapes is allowed." (setq com char) (setq char (read-char)))))) - (if (atom com) - ;; `com' is a single char, so we construct the command argument - ;; and if `char' is `?', we describe the arg; otherwise - ;; we prepare the command that will be executed at the end. - (progn - (setq cmd-info (cons value com)) - (while (viper= char ?U) - (viper-describe-arg cmd-info) - (setq char (read-char))) - ;; `char' is a movement cmd, a digit arg cmd, or a register cmd---so we - ;; execute it at the very end - (or (viper-movement-command-p char) - (viper-digit-command-p char) - (viper-regsuffix-command-p char) - (viper= char ?!) ; bang command - (error "")) - (setq cmd-to-exec-at-end - (viper-exec-form-in-vi - `(key-binding (char-to-string ,char))))) - - ;; as com is non-nil, this means that we have a command to execute - (if (viper-memq-char (car com) '(?r ?R)) - ;; execute apropriate region command. - (let ((char (car com)) (com (cdr com))) - (setq prefix-arg (cons value com)) - (if (viper= char ?r) - (viper-region prefix-arg) - (viper-Region prefix-arg)) - ;; reset prefix-arg - (setq prefix-arg nil)) - ;; otherwise, reset prefix arg and call appropriate command - (setq value (if (null value) 1 value)) - (setq prefix-arg nil) - (cond - ;; If we change ?C to ?c here, then cc will enter replacement mode - ;; rather than deleting lines. However, it will affect 1 less line than - ;; normal. We decided to not use replacement mode here and follow Vi, - ;; since replacement mode on n full lines can be achieved with nC. - ((equal com '(?c . ?c)) (viper-line (cons value ?C))) - ((equal com '(?d . ?d)) (viper-line (cons value ?D))) - ((equal com '(?d . ?y)) (viper-yank-defun)) - ((equal com '(?y . ?y)) (viper-line (cons value ?Y))) - ((equal com '(?< . ?<)) (viper-line (cons value ?<))) - ((equal com '(?> . ?>)) (viper-line (cons value ?>))) - ((equal com '(?! . ?!)) (viper-line (cons value ?!))) - ((equal com '(?= . ?=)) (viper-line (cons value ?=))) - (t (error ""))))) - - (if cmd-to-exec-at-end - (progn - (setq last-command-char char) - (setq last-command-event - (viper-copy-event - (if viper-xemacs-p (character-to-event char) char))) - (condition-case nil - (funcall cmd-to-exec-at-end cmd-info) - (error - (error ""))))) - )) + (if (atom com) + ;; `com' is a single char, so we construct the command argument + ;; and if `char' is `?', we describe the arg; otherwise + ;; we prepare the command that will be executed at the end. + (progn + (setq cmd-info (cons value com)) + (while (viper= char ?U) + (viper-describe-arg cmd-info) + (setq char (read-char))) + ;; `char' is a movement cmd, a digit arg cmd, or a register cmd---so + ;; we execute it at the very end + (or (viper-movement-command-p char) + (viper-digit-command-p char) + (viper-regsuffix-command-p char) + (viper= char ?!) ; bang command + (viper= char ?g) ; the gg command (like G0) + (error "")) + (setq cmd-to-exec-at-end + (viper-exec-form-in-vi + `(key-binding (char-to-string ,char))))) + + ;; as com is non-nil, this means that we have a command to execute + (if (viper-memq-char (car com) '(?r ?R)) + ;; execute apropriate region command. + (let ((char (car com)) (com (cdr com))) + (setq prefix-arg (cons value com)) + (if (viper= char ?r) + (viper-region prefix-arg) + (viper-Region prefix-arg)) + ;; reset prefix-arg + (setq prefix-arg nil)) + ;; otherwise, reset prefix arg and call appropriate command + (setq value (if (null value) 1 value)) + (setq prefix-arg nil) + (cond + ;; If we change ?C to ?c here, then cc will enter replacement mode + ;; rather than deleting lines. However, it will affect 1 less line + ;; than normal. We decided to not use replacement mode here and + ;; follow Vi, since replacement mode on n full lines can be achieved + ;; with nC. + ((equal com '(?c . ?c)) (viper-line (cons value ?C))) + ((equal com '(?d . ?d)) (viper-line (cons value ?D))) + ((equal com '(?d . ?y)) (viper-yank-defun)) + ((equal com '(?y . ?y)) (viper-line (cons value ?Y))) + ((equal com '(?< . ?<)) (viper-line (cons value ?<))) + ((equal com '(?> . ?>)) (viper-line (cons value ?>))) + ((equal com '(?! . ?!)) (viper-line (cons value ?!))) + ((equal com '(?= . ?=)) (viper-line (cons value ?=))) + ;; gg acts as G0 + ((equal (car com) ?g) (viper-goto-line 0)) + (t (error ""))))) + + (if cmd-to-exec-at-end + (progn + (setq last-command-char char) + (setq last-command-event + (viper-copy-event + (if viper-xemacs-p (character-to-event char) char))) + (condition-case nil + (funcall cmd-to-exec-at-end cmd-info) + (error + (error ""))))) + )) (defun viper-describe-arg (arg) (let (val com) @@ -1733,6 +1736,7 @@ invokes the command before that, etc." (max viper-com-point (point)))) ((viper= char ?g) (push-mark viper-com-point t) + ;; execute the last emacs kbd macro on each line of the region (viper-global-execute)) ((viper= char ?q) (push-mark viper-com-point t) @@ -3996,6 +4000,7 @@ Null string will repeat previous search." (defun viper-buffer-search-enable (&optional c) (cond (c (setq viper-buffer-search-char c)) ((null viper-buffer-search-char) + ;; ?g acts as a default value for viper-buffer-search-char (setq viper-buffer-search-char ?g))) (define-key viper-vi-basic-map (cond ((viper-characterp viper-buffer-search-char) diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index f9f08034582..9f69c685948 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el @@ -1624,8 +1624,9 @@ reversed." (progn (setq command ;; replace # and % with the previous/current file - (ex-expand-filsyms (concat ex-file ex-cmdfile-args) - (current-buffer))) + (ex-expand-filsyms + (concat (shell-quote-argument ex-file) ex-cmdfile-args) + (current-buffer))) (shell-command command t)) (insert-file-contents ex-file))) (ex-fixup-history viper-last-ex-prompt ex-file ex-cmdfile-args)) diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index ea70ad609ad..82c070d5264 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el @@ -9,7 +9,7 @@ ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> ;; Keywords: emulations -(defconst viper-version "3.13 of September 18, 2006" +(defconst viper-version "3.13.1 of October 23, 2006" "The current version of Viper") ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index dba2c407b21..766a92c1dbd 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,18 @@ +2006-10-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-group.el (gnus-group-make-doc-group): Work for non-ASCII group + names. + + * gnus-sum.el (gnus-select-newsgroup): Decode group name. + +2006-10-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * message.el (message-headers-to-generate): Fix typo in docstring. + +2006-10-19 Reiner Steib <Reiner.Steib@gmx.de> + + * gnus.el (gnus-mime): Remove unused custom group. + 2006-10-13 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> * mm-uu.el (mm-uu-pgp-signed-extract-1): Use RFC 2440 definition of diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index c34e339c5b1..c6a0d599ac4 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2680,13 +2680,18 @@ If called with a prefix argument, ask for the file type." (t (setq err (format "%c unknown. " char)) nil)))) (setq type found))) - (let* ((file (expand-file-name file)) - (name (gnus-generate-new-group-name - (gnus-group-prefixed-name - (file-name-nondirectory file) '(nndoc ""))))) + (setq file (expand-file-name file)) + (let ((name (gnus-generate-new-group-name + (gnus-group-prefixed-name + (file-name-nondirectory file) '(nndoc "")))) + (encodable (mm-coding-system-p 'utf-8))) (gnus-group-make-group - (gnus-group-real-name name) - (list 'nndoc file + (if encodable + (mm-encode-coding-string (gnus-group-real-name name) 'utf-8) + (gnus-group-real-name name)) + (list 'nndoc (if encodable + (mm-encode-coding-string file 'utf-8) + file) (list 'nndoc-address file) (list 'nndoc-article-type (or type 'guess)))))) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 8dcd0753e59..fb0ef25c916 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -5208,13 +5208,13 @@ If SELECT-ARTICLES, only select those articles from GROUP." (when (equal major-mode 'gnus-summary-mode) (gnus-kill-buffer (current-buffer))) (error "Couldn't activate group %s: %s" - group (gnus-status-message group)))) + (gnus-group-decoded-name group) (gnus-status-message group)))) (unless (gnus-request-group group t) (when (equal major-mode 'gnus-summary-mode) (gnus-kill-buffer (current-buffer))) (error "Couldn't request group %s: %s" - group (gnus-status-message group))) + (gnus-group-decoded-name group) (gnus-status-message group))) (when gnus-agent (gnus-agent-possibly-alter-active group (gnus-active group) info) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 8554b1332f1..94e890b02c3 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -279,10 +279,6 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Various Various") :group 'gnus) -(defgroup gnus-mime nil - "Variables for controlling the Gnus MIME interface." - :group 'gnus) - (defgroup gnus-exit nil "Exiting Gnus." :link '(custom-manual "(gnus)Exiting Gnus") @@ -1243,6 +1239,7 @@ used to 899, you would say something along these lines: :group 'gnus-server :type 'file) +;;;###autoload (defun gnus-getenv-nntpserver () "Find default nntp server. Check the NNTPSERVER environment variable and the @@ -1254,6 +1251,7 @@ Check the NNTPSERVER environment variable and the (when (re-search-forward "[^ \t\n\r]+" nil t) (match-string 0)))))) +;;;###autoload (defcustom gnus-select-method (condition-case nil (nconc diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 36a969fdefd..fc3859345f3 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5514,7 +5514,7 @@ between beginning of field and beginning of line." (defun message-headers-to-generate (headers included-headers excluded-headers) "Return a list that includes all headers from HEADERS. -If INCLUDED-HEADERS is a list, just include those headers. If if is +If INCLUDED-HEADERS is a list, just include those headers. If it is t, include all headers. In any case, headers from EXCLUDED-HEADERS are not included." (let ((result nil) diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index dc313c7d30a..6da899af93a 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el @@ -291,7 +291,7 @@ and the return value is the length of the conversion." ;; KEYSEQ is not defined in KKC keymap. ;; Let's put the event back. (setq unread-input-method-events - (append (string-to-list keyseq) + (append (string-to-list (this-single-command-raw-keys)) unread-input-method-events)) (kkc-terminate)))) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index cbb366e5849..2fb118628c5 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -176,13 +176,13 @@ Completion is available. It is used by `add-log-current-defun' in preference to built-in rules. Returns function's name as a string, or nil if outside a function.") -(custom-autoload (quote add-log-current-defun-function) "add-log") +(custom-autoload (quote add-log-current-defun-function) "add-log" t) (defvar add-log-full-name nil "\ *Full name of user, for inclusion in ChangeLog daily headers. This defaults to the value returned by the function `user-full-name'.") -(custom-autoload (quote add-log-full-name) "add-log") +(custom-autoload (quote add-log-full-name) "add-log" t) (defvar add-log-mailing-address nil "\ Email addresses of user, for inclusion in ChangeLog headers. @@ -191,7 +191,7 @@ being a simple string, this value can also be a list. All elements will be recognized as referring to the same user; when creating a new ChangeLog entry, one element will be chosen at random.") -(custom-autoload (quote add-log-mailing-address) "add-log") +(custom-autoload (quote add-log-mailing-address) "add-log" t) (autoload (quote prompt-for-change-log-name) "add-log" "\ Prompt for a change log name. @@ -320,7 +320,7 @@ old original, or keep it and raise an error. The values `accept', `discard', it additionally prints a warning message. All other values will be interpreted as `error'.") -(custom-autoload (quote ad-redefinition-action) "advice") +(custom-autoload (quote ad-redefinition-action) "advice" t) (defvar ad-default-compilation-action (quote maybe) "\ *Defines whether to compile advised definitions during activation. @@ -331,7 +331,7 @@ advised function is compiled or a built-in function. Every other value will be interpreted as `maybe'. This variable will only be considered if the COMPILE argument of `ad-activate' was supplied as nil.") -(custom-autoload (quote ad-default-compilation-action) "advice") +(custom-autoload (quote ad-default-compilation-action) "advice" t) (autoload (quote ad-enable-advice) "advice" "\ Enables the advice of FUNCTION with CLASS and NAME. @@ -627,7 +627,9 @@ The bindings are dictated by the `allout-keybindings-list' and Topic-oriented Killing and Yanking: ---------------------------------- \\[allout-kill-topic] allout-kill-topic Kill current topic, including offspring. -\\[allout-kill-line] allout-kill-line Like kill-line, but reconciles numbering, etc. +\\[allout-copy-topic-as-kill] allout-copy-topic-as-kill Copy current topic, including offspring. +\\[allout-kill-line] allout-kill-line kill-line, attending to outline structure. +\\[allout-copy-line-as-kill] allout-copy-line-as-kill Copy line but don't delete it. \\[allout-yank] allout-yank Yank, adjusting depth of yanked topic to depth of heading if yanking into bare topic heading (ie, prefix sans text). @@ -901,47 +903,47 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. To be detected, the diary entry must have the format described in the documentation of the function `appt-check'.") -(custom-autoload (quote appt-issue-message) "appt") +(custom-autoload (quote appt-issue-message) "appt" t) (defvar appt-message-warning-time 12 "\ *Time in minutes before an appointment that the warning begins.") -(custom-autoload (quote appt-message-warning-time) "appt") +(custom-autoload (quote appt-message-warning-time) "appt" t) (defvar appt-audible t "\ *Non-nil means beep to indicate appointment.") -(custom-autoload (quote appt-audible) "appt") +(custom-autoload (quote appt-audible) "appt" t) (defvar appt-visible t "\ *Non-nil means display appointment message in echo area. This variable is only relevant if `appt-msg-window' is nil.") -(custom-autoload (quote appt-visible) "appt") +(custom-autoload (quote appt-visible) "appt" t) (defvar appt-msg-window t "\ *Non-nil means display appointment message in another window. If non-nil, this variable overrides `appt-visible'.") -(custom-autoload (quote appt-msg-window) "appt") +(custom-autoload (quote appt-msg-window) "appt" t) (defvar appt-display-mode-line t "\ *Non-nil means display minutes to appointment and time on the mode line. This is in addition to any other display of appointment messages.") -(custom-autoload (quote appt-display-mode-line) "appt") +(custom-autoload (quote appt-display-mode-line) "appt" t) (defvar appt-display-duration 10 "\ *The number of seconds an appointment message is displayed. Only relevant if reminders are to be displayed in their own window.") -(custom-autoload (quote appt-display-duration) "appt") +(custom-autoload (quote appt-display-duration) "appt" t) (defvar appt-display-diary t "\ *Non-nil displays the diary when the appointment list is first initialized. This will occur at midnight when the appointment list is updated.") -(custom-autoload (quote appt-display-diary) "appt") +(custom-autoload (quote appt-display-diary) "appt" t) (autoload (quote appt-add) "appt" "\ Add an appointment for today at NEW-APPT-TIME with message NEW-APPT-MSG. @@ -1431,6 +1433,8 @@ See the command `autoarg-mode' for a description of this minor-mode.") (put (quote autoarg-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote autoarg-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote autoarg-mode) "autoarg" "\ Toggle Autoarg minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. @@ -1463,6 +1467,8 @@ use either \\[customize] or the function `autoarg-kp-mode'.") (put (quote autoarg-kp-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote autoarg-kp-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote autoarg-kp-mode) "autoarg" "\ Toggle Autoarg-KP minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. @@ -1508,9 +1514,10 @@ or if CONDITION had no actions, after all other CONDITIONs. Non-nil if Auto-Insert mode is enabled. See the command `auto-insert-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `auto-insert-mode'.") +either customize it (see the info node `Easy Customization') +or call the function `auto-insert-mode'.") -(custom-autoload (quote auto-insert-mode) "autoinsert") +(custom-autoload (quote auto-insert-mode) "autoinsert" nil) (put (quote auto-insert-mode) (quote custom-set) (quote custom-set-minor-mode)) @@ -1619,6 +1626,8 @@ use either \\[customize] or the function `global-auto-revert-mode'.") (custom-autoload (quote global-auto-revert-mode) "autorevert") +(put (quote global-auto-revert-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-auto-revert-mode) "autorevert" "\ Revert any buffer when file on disk changes. @@ -1640,7 +1649,7 @@ See function `mouse-avoidance-mode' for possible values. Setting this variable directly does not take effect; use either \\[customize] or the function `mouse-avoidance-mode'.") -(custom-autoload (quote mouse-avoidance-mode) "avoid") +(custom-autoload (quote mouse-avoidance-mode) "avoid" nil) (autoload (quote mouse-avoidance-mode) "avoid" "\ Set cursor avoidance mode to MODE. @@ -1716,6 +1725,8 @@ use either \\[customize] or the function `display-battery-mode'.") (custom-autoload (quote display-battery-mode) "battery") +(put (quote display-battery-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote display-battery-mode) "battery" "\ Display battery status information in the mode line. The text being displayed in the mode line is controlled by the variables @@ -2882,7 +2893,7 @@ The offset of the principal month from the center of the calendar window. +1 means on the right. Larger (or smaller) values push the principal month off the screen.") -(custom-autoload (quote calendar-offset) "calendar") +(custom-autoload (quote calendar-offset) "calendar" t) (defvar view-diary-entries-initially nil "\ Non-nil means display current date's diary entries on entry to calendar. @@ -2891,32 +2902,32 @@ if the current date is visible. The number of days of diary entries displayed is governed by the variable `number-of-diary-entries'. This variable can be overridden by the value of `calendar-setup'.") -(custom-autoload (quote view-diary-entries-initially) "calendar") +(custom-autoload (quote view-diary-entries-initially) "calendar" t) (defvar mark-diary-entries-in-calendar nil "\ Non-nil means mark dates with diary entries, in the calendar window. The marking symbol is specified by the variable `diary-entry-marker'.") -(custom-autoload (quote mark-diary-entries-in-calendar) "calendar") +(custom-autoload (quote mark-diary-entries-in-calendar) "calendar" t) (defvar calendar-remove-frame-by-deleting nil "\ Determine how the calendar mode removes a frame no longer needed. If nil, make an icon of the frame. If non-nil, delete the frame.") -(custom-autoload (quote calendar-remove-frame-by-deleting) "calendar") +(custom-autoload (quote calendar-remove-frame-by-deleting) "calendar" t) (defvar view-calendar-holidays-initially nil "\ Non-nil means display holidays for current three month period on entry. The holidays are displayed in another window when the calendar is first displayed.") -(custom-autoload (quote view-calendar-holidays-initially) "calendar") +(custom-autoload (quote view-calendar-holidays-initially) "calendar" t) (defvar mark-holidays-in-calendar nil "\ Non-nil means mark dates of holidays in the calendar window. The marking symbol is specified by the variable `calendar-holiday-marker'.") -(custom-autoload (quote mark-holidays-in-calendar) "calendar") +(custom-autoload (quote mark-holidays-in-calendar) "calendar" t) (defvar all-hebrew-calendar-holidays nil "\ If nil, show only major holidays from the Hebrew calendar. @@ -2924,7 +2935,7 @@ This means only those Jewish holidays that appear on secular calendars. If t, show all the holidays that would appear in a complete Hebrew calendar.") -(custom-autoload (quote all-hebrew-calendar-holidays) "calendar") +(custom-autoload (quote all-hebrew-calendar-holidays) "calendar" t) (defvar all-christian-calendar-holidays nil "\ If nil, show only major holidays from the Christian calendar. @@ -2933,7 +2944,7 @@ This means only those Christian holidays that appear on secular calendars. If t, show all the holidays that would appear in a complete Christian calendar.") -(custom-autoload (quote all-christian-calendar-holidays) "calendar") +(custom-autoload (quote all-christian-calendar-holidays) "calendar" t) (defvar all-islamic-calendar-holidays nil "\ If nil, show only major holidays from the Islamic calendar. @@ -2942,7 +2953,7 @@ This means only those Islamic holidays that appear on secular calendars. If t, show all the holidays that would appear in a complete Islamic calendar.") -(custom-autoload (quote all-islamic-calendar-holidays) "calendar") +(custom-autoload (quote all-islamic-calendar-holidays) "calendar" t) (defvar all-bahai-calendar-holidays nil "\ If nil, show only major holidays from the Baha'i calendar. @@ -2951,13 +2962,13 @@ These are the days on which work and school must be suspended. If t, show all the holidays that would appear in a complete Baha'i calendar.") -(custom-autoload (quote all-bahai-calendar-holidays) "calendar") +(custom-autoload (quote all-bahai-calendar-holidays) "calendar" t) (defvar calendar-load-hook nil "\ List of functions to be called after the calendar is first loaded. This is the place to add key bindings to `calendar-mode-map'.") -(custom-autoload (quote calendar-load-hook) "calendar") +(custom-autoload (quote calendar-load-hook) "calendar" t) (defvar initial-calendar-window-hook nil "\ List of functions to be called when the calendar window is first opened. @@ -2965,7 +2976,7 @@ The functions invoked are called after the calendar window is opened, but once opened is never called again. Leaving the calendar with the `q' command and reentering it will cause these functions to be called again.") -(custom-autoload (quote initial-calendar-window-hook) "calendar") +(custom-autoload (quote initial-calendar-window-hook) "calendar" t) (defvar today-visible-calendar-hook nil "\ List of functions called whenever the current date is visible. @@ -2984,7 +2995,7 @@ Other than the use of the provided functions, the changing of any characters in the calendar buffer by the hooks may cause the failure of the functions that move by days and weeks.") -(custom-autoload (quote today-visible-calendar-hook) "calendar") +(custom-autoload (quote today-visible-calendar-hook) "calendar" t) (defvar today-invisible-calendar-hook nil "\ List of functions called whenever the current date is not visible. @@ -2997,7 +3008,7 @@ Other than the use of the provided functions, the changing of any characters in the calendar buffer by the hooks may cause the failure of the functions that move by days and weeks.") -(custom-autoload (quote today-invisible-calendar-hook) "calendar") +(custom-autoload (quote today-invisible-calendar-hook) "calendar" t) (defvar calendar-move-hook nil "\ List of functions called whenever the cursor moves in the calendar. @@ -3008,7 +3019,7 @@ For example, redisplays the diary for whatever date the cursor is moved to.") -(custom-autoload (quote calendar-move-hook) "calendar") +(custom-autoload (quote calendar-move-hook) "calendar" t) (defvar diary-file "~/diary" "\ Name of the file in which one's personal diary of dates is kept. @@ -3115,39 +3126,39 @@ documentation for these functions for details. Diary files can contain directives to include the contents of other files; for details, see the documentation for the variable `list-diary-entries-hook'.") -(custom-autoload (quote diary-file) "calendar") +(custom-autoload (quote diary-file) "calendar" t) (defvar diary-nonmarking-symbol "&" "\ Symbol indicating that a diary entry is not to be marked in the calendar.") -(custom-autoload (quote diary-nonmarking-symbol) "calendar") +(custom-autoload (quote diary-nonmarking-symbol) "calendar" t) (defvar hebrew-diary-entry-symbol "H" "\ Symbol indicating a diary entry according to the Hebrew calendar.") -(custom-autoload (quote hebrew-diary-entry-symbol) "calendar") +(custom-autoload (quote hebrew-diary-entry-symbol) "calendar" t) (defvar islamic-diary-entry-symbol "I" "\ Symbol indicating a diary entry according to the Islamic calendar.") -(custom-autoload (quote islamic-diary-entry-symbol) "calendar") +(custom-autoload (quote islamic-diary-entry-symbol) "calendar" t) (defvar bahai-diary-entry-symbol "B" "\ Symbol indicating a diary entry according to the Baha'i calendar.") -(custom-autoload (quote bahai-diary-entry-symbol) "calendar") +(custom-autoload (quote bahai-diary-entry-symbol) "calendar" t) (defvar diary-include-string "#include" "\ The string indicating inclusion of another file of diary entries. See the documentation for the function `include-other-diary-files'.") -(custom-autoload (quote diary-include-string) "calendar") +(custom-autoload (quote diary-include-string) "calendar" t) (defvar sexp-diary-entry-symbol "%%" "\ The string used to indicate a sexp diary entry in `diary-file'. See the documentation for the function `list-sexp-diary-entries'.") -(custom-autoload (quote sexp-diary-entry-symbol) "calendar") +(custom-autoload (quote sexp-diary-entry-symbol) "calendar" t) (defvar abbreviated-calendar-year t "\ Interpret a two-digit year DD in a diary entry as either 19DD or 20DD. @@ -3155,7 +3166,7 @@ For the Gregorian calendar; similarly for the Hebrew, Islamic and Baha'i calendars. If this variable is nil, years must be written in full.") -(custom-autoload (quote abbreviated-calendar-year) "calendar") +(custom-autoload (quote abbreviated-calendar-year) "calendar" t) (defvar european-calendar-style nil "\ Use the European style of dates in the diary and in any displays. @@ -3171,36 +3182,38 @@ are Names can be capitalized or not, written in full (as specified by the variable `calendar-day-name-array'), or abbreviated (as specified by -`calendar-day-abbrev-array') with or without a period. To take effect, -this variable should be set before the calendar package and its associates -are loaded. Otherwise, use one of the functions `european-calendar' or -`american-calendar' to force the appropriate update.") +`calendar-day-abbrev-array') with or without a period. -(custom-autoload (quote european-calendar-style) "calendar") +Setting this variable directly does not take effect (if the +calendar package is already loaded). Rather, use either +\\[customize] or the functions `european-calendar' and +`american-calendar'.") + +(custom-autoload (quote european-calendar-style) "calendar" nil) (defvar american-date-diary-pattern (quote ((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W"))) "\ List of pseudo-patterns describing the American patterns of date used. See the documentation of `diary-date-forms' for an explanation.") -(custom-autoload (quote american-date-diary-pattern) "calendar") +(custom-autoload (quote american-date-diary-pattern) "calendar" t) (defvar european-date-diary-pattern (quote ((day "/" month "[^/0-9]") (day "/" month "/" year "[^0-9]") (backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)") (day " *" monthname " *" year "[^0-9]") (dayname "\\W"))) "\ List of pseudo-patterns describing the European patterns of date used. See the documentation of `diary-date-forms' for an explanation.") -(custom-autoload (quote european-date-diary-pattern) "calendar") +(custom-autoload (quote european-date-diary-pattern) "calendar" t) (defvar european-calendar-display-form (quote ((if dayname (concat dayname ", ")) day " " monthname " " year)) "\ Pseudo-pattern governing the way a date appears in the European style. See the documentation of `calendar-date-display-form' for an explanation.") -(custom-autoload (quote european-calendar-display-form) "calendar") +(custom-autoload (quote european-calendar-display-form) "calendar" t) (defvar american-calendar-display-form (quote ((if dayname (concat dayname ", ")) monthname " " day ", " year)) "\ Pseudo-pattern governing the way a date appears in the American style. See the documentation of `calendar-date-display-form' for an explanation.") -(custom-autoload (quote american-calendar-display-form) "calendar") +(custom-autoload (quote american-calendar-display-form) "calendar" t) (defvar print-diary-entries-hook (quote lpr-buffer) "\ List of functions called after a temporary diary buffer is prepared. @@ -3209,7 +3222,7 @@ buffer. The default just does the printing. Other uses might include, for example, rearranging the lines into order by day and time, saving the buffer instead of deleting it, or changing the function used to do the printing.") -(custom-autoload (quote print-diary-entries-hook) "calendar") +(custom-autoload (quote print-diary-entries-hook) "calendar" t) (defvar list-diary-entries-hook nil "\ List of functions called after diary file is culled for relevant entries. @@ -3238,13 +3251,13 @@ in your `.emacs' file to cause the fancy diary buffer to be displayed with diary entries from various included files, each day's entries sorted into lexicographic order.") -(custom-autoload (quote list-diary-entries-hook) "calendar") +(custom-autoload (quote list-diary-entries-hook) "calendar" t) (defvar diary-hook nil "\ List of functions called after the display of the diary. Can be used for appointment notification.") -(custom-autoload (quote diary-hook) "calendar") +(custom-autoload (quote diary-hook) "calendar" t) (defvar diary-display-hook nil "\ List of functions that handle the display of the diary. @@ -3268,7 +3281,7 @@ diary buffer will not show days for which there are no diary entries, even if that day is a holiday; if you want such days to be shown in the fancy diary buffer, set the variable `diary-list-include-blanks' to t.") -(custom-autoload (quote diary-display-hook) "calendar") +(custom-autoload (quote diary-display-hook) "calendar" t) (defvar nongregorian-diary-listing-hook nil "\ List of functions called for listing diary file and included files. @@ -3278,7 +3291,7 @@ to cull relevant entries. You can use either or both of `list-bahai-diary-entries'. The documentation for these functions describes the style of such diary entries.") -(custom-autoload (quote nongregorian-diary-listing-hook) "calendar") +(custom-autoload (quote nongregorian-diary-listing-hook) "calendar" t) (defvar mark-diary-entries-hook nil "\ List of functions called after marking diary entries in the calendar. @@ -3294,7 +3307,7 @@ variable `diary-include-string'. When you use `mark-included-diary-files' as part of the mark-diary-entries-hook, you will probably also want to use the function `include-other-diary-files' as part of `list-diary-entries-hook'.") -(custom-autoload (quote mark-diary-entries-hook) "calendar") +(custom-autoload (quote mark-diary-entries-hook) "calendar" t) (defvar nongregorian-diary-marking-hook nil "\ List of functions called for marking diary file and included files. @@ -3304,14 +3317,14 @@ to cull relevant entries. You can use either or both of `mark-bahai-diary-entries'. The documentation for these functions describes the style of such diary entries.") -(custom-autoload (quote nongregorian-diary-marking-hook) "calendar") +(custom-autoload (quote nongregorian-diary-marking-hook) "calendar" t) (defvar diary-list-include-blanks nil "\ If nil, do not include days with no diary entry in the list of diary entries. Such days will then not be shown in the fancy diary buffer, even if they are holidays.") -(custom-autoload (quote diary-list-include-blanks) "calendar") +(custom-autoload (quote diary-list-include-blanks) "calendar" t) (defvar holidays-in-diary-buffer t "\ Non-nil means include holidays in the diary display. @@ -3319,7 +3332,7 @@ The holidays appear in the mode line of the diary buffer, or in the fancy diary buffer next to the date. This slows down the diary functions somewhat; setting it to nil makes the diary display faster.") -(custom-autoload (quote holidays-in-diary-buffer) "calendar") +(custom-autoload (quote holidays-in-diary-buffer) "calendar" t) (put (quote general-holidays) (quote risky-local-variable) t) @@ -3327,7 +3340,7 @@ somewhat; setting it to nil makes the diary display faster.") General holidays. Default value is for the United States. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote general-holidays) "calendar") +(custom-autoload (quote general-holidays) "calendar" t) (put (quote oriental-holidays) (quote risky-local-variable) t) @@ -3335,7 +3348,7 @@ See the documentation for `calendar-holidays' for details.") Oriental holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote oriental-holidays) "calendar") +(custom-autoload (quote oriental-holidays) "calendar" t) (put (quote local-holidays) (quote risky-local-variable) t) @@ -3343,7 +3356,7 @@ See the documentation for `calendar-holidays' for details.") Local holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote local-holidays) "calendar") +(custom-autoload (quote local-holidays) "calendar" t) (put (quote other-holidays) (quote risky-local-variable) t) @@ -3351,7 +3364,7 @@ See the documentation for `calendar-holidays' for details.") User defined holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote other-holidays) "calendar") +(custom-autoload (quote other-holidays) "calendar" t) (put (quote hebrew-holidays-1) (quote risky-local-variable) t) @@ -3375,7 +3388,7 @@ See the documentation for `calendar-holidays' for details.") Jewish holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote hebrew-holidays) "calendar") +(custom-autoload (quote hebrew-holidays) "calendar" t) (put (quote christian-holidays) (quote risky-local-variable) t) @@ -3383,7 +3396,7 @@ See the documentation for `calendar-holidays' for details.") Christian holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote christian-holidays) "calendar") +(custom-autoload (quote christian-holidays) "calendar" t) (put (quote islamic-holidays) (quote risky-local-variable) t) @@ -3391,7 +3404,7 @@ See the documentation for `calendar-holidays' for details.") Islamic holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote islamic-holidays) "calendar") +(custom-autoload (quote islamic-holidays) "calendar" t) (put (quote bahai-holidays) (quote risky-local-variable) t) @@ -3399,7 +3412,7 @@ See the documentation for `calendar-holidays' for details.") Baha'i holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote bahai-holidays) "calendar") +(custom-autoload (quote bahai-holidays) "calendar" t) (put (quote solar-holidays) (quote risky-local-variable) t) @@ -3407,7 +3420,7 @@ See the documentation for `calendar-holidays' for details.") Sun-related holidays. See the documentation for `calendar-holidays' for details.") -(custom-autoload (quote solar-holidays) "calendar") +(custom-autoload (quote solar-holidays) "calendar" t) (put (quote calendar-holidays) (quote risky-local-variable) t) @@ -3419,7 +3432,7 @@ frames); `calendar-only' (calendar in a separate, dedicated frame); with any other value the current frame is used. Using any of the first three options overrides the value of `view-diary-entries-initially'.") -(custom-autoload (quote calendar-setup) "calendar") +(custom-autoload (quote calendar-setup) "calendar" t) (autoload (quote calendar) "calendar" "\ Choose between the one frame, two frame, or basic calendar displays. @@ -4328,6 +4341,7 @@ Return an updated `non-iso-charset-alist'. (autoload-coding-system 'cp852 '(require 'code-pages)) (autoload-coding-system 'cp855 '(require 'code-pages)) (autoload-coding-system 'cp857 '(require 'code-pages)) +(autoload-coding-system 'cp858 '(require 'code-pages)) (autoload-coding-system 'cp860 '(require 'code-pages)) (autoload-coding-system 'cp861 '(require 'code-pages)) (autoload-coding-system 'cp862 '(require 'code-pages)) @@ -5091,10 +5105,11 @@ x.2.y.1.z.2.zz = (autoload (quote conf-space-mode) "conf-mode" "\ Conf Mode starter for space separated conf files. \"Assignments\" are with ` '. Keywords before the parameters are -recognized according to `conf-space-keywords'. Interactively -with a prefix ARG of `0' no keywords will be recognized. With -any other prefix arg you will be prompted for a regexp to match -the keywords. +recognized according to the variable `conf-space-keywords-alist'. +Alternatively, you can specify a value for the file local variable +`conf-space-keywords'. +Use the function `conf-space-keywords' if you want to specify keywords +in an interactive fashion instead. For details see `conf-mode'. Example: @@ -5112,6 +5127,12 @@ add /dev/mixer desktop \(fn)" t nil) +(autoload (quote conf-space-keywords) "conf-mode" "\ +Enter Conf Space mode using regexp KEYWORDS to match the keywords. +See `conf-space-mode'. + +\(fn KEYWORDS)" t nil) + (autoload (quote conf-colon-mode) "conf-mode" "\ Conf Mode starter for Colon files. \"Assignments\" are with `:'. @@ -5357,16 +5378,24 @@ Variables controlling indentation style: `cperl-min-label-indent' Minimal indentation for line that is a label. -Settings for K&R and BSD indentation styles are - `cperl-indent-level' 5 8 - `cperl-continued-statement-offset' 5 8 - `cperl-brace-offset' -5 -8 - `cperl-label-offset' -5 -8 +Settings for classic indent-styles: K&R BSD=C++ GNU PerlStyle=Whitesmith + `cperl-indent-level' 5 4 2 4 + `cperl-brace-offset' 0 0 0 0 + `cperl-continued-brace-offset' -5 -4 0 0 + `cperl-label-offset' -5 -4 -2 -4 + `cperl-continued-statement-offset' 5 4 2 4 CPerl knows several indentation styles, and may bulk set the corresponding variables. Use \\[cperl-set-style] to do this. Use \\[cperl-set-style-back] to restore the memorized preexisting values -\(both available from menu). +\(both available from menu). See examples in `cperl-style-examples'. + +Part of the indentation style is how different parts of if/elsif/else +statements are broken into lines; in CPerl, this is reflected on how +templates for these constructs are created (controlled by +`cperl-extra-newline-before-brace'), and how reflow-logic should treat \"continuation\" blocks of else/elsif/continue, controlled by the same variable, +and by `cperl-extra-newline-before-brace-multiline', +`cperl-merge-trailing-else', `cperl-indent-region-fix-constructs'. If `cperl-indent-level' is 0, the statement after opening brace in column 0 is indented on @@ -5941,6 +5970,8 @@ use either \\[customize] or the function `global-cwarn-mode'.") (put (quote global-cwarn-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote global-cwarn-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-cwarn-mode) "cwarn" "\ Toggle Cwarn mode in every buffer. With prefix ARG, turn Global-Cwarn mode on if and only if ARG is positive. @@ -6319,6 +6350,8 @@ use either \\[customize] or the function `delete-selection-mode'.") (put (quote delete-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote delete-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote delete-selection-mode) "delsel" "\ Toggle Delete Selection mode. With prefix ARG, turn Delete Selection mode on if and only if ARG is @@ -6448,7 +6481,7 @@ List of local variables to save for each buffer. The variables are saved only when they really are local. Conventional minor modes are restored automatically; they should not be listed here.") -(custom-autoload (quote desktop-locals-to-save) "desktop") +(custom-autoload (quote desktop-locals-to-save) "desktop" t) (defvar desktop-save-buffer nil "\ When non-nil, save buffer status in desktop file. @@ -7200,6 +7233,9 @@ with the same names that the files currently have. The default suggested for the target directory depends on the value of `dired-dwim-target', which see. +This command copies symbolic links by creating new ones, +like `cp -d'. + \(fn &optional ARG)" t nil) (autoload (quote dired-do-symlink) "dired-aux" "\ @@ -7587,6 +7623,7 @@ table and its own syntax table. Turning on DNS mode runs `dns-mode-hook'. \(fn)" t nil) + (defalias 'zone-mode 'dns-mode) (autoload (quote dns-mode-soa-increment-serial) "dns-mode" "\ Locate SOA record and increment the serial field. @@ -8352,14 +8389,14 @@ variable. You may wish to make it local to each buffer with \(make-local-variable 'edebug-all-defs) in your `emacs-lisp-mode-hook'.") -(custom-autoload (quote edebug-all-defs) "edebug") +(custom-autoload (quote edebug-all-defs) "edebug" t) (defvar edebug-all-forms nil "\ *Non-nil evaluation of all forms will instrument for Edebug. This doesn't apply to loading or evaluations in the minibuffer. Use the command `edebug-all-forms' to toggle the value of this option.") -(custom-autoload (quote edebug-all-forms) "edebug") +(custom-autoload (quote edebug-all-forms) "edebug" t) (autoload (quote edebug-basic-spec) "edebug" "\ Return t if SPEC uses only extant spec symbols. @@ -10439,19 +10476,24 @@ Facemenu top-level menu keymap.") (defalias (quote facemenu-menu) facemenu-menu) (autoload (quote facemenu-set-face) "facemenu" "\ -Add FACE to the region or next character typed. -This adds FACE to the top of the face list; any faces lower on the list that -will not show through at all will be removed. +Apply FACE to the region or next character typed. -Interactively, reads the face name with the minibuffer. +If the region is active (normally true except in Transient +Mark mode) and nonempty, and there is no prefix argument, +this command applies FACE to the region. Otherwise, it applies FACE +to the faces to use for the next character +inserted. (Moving point or switching buffers before typing +a character to insert cancels the specification.) -If the region is active (normally true except in Transient Mark mode) -and there is no prefix argument, this command sets the region to the -requested face. +If FACE is `default', to \"apply\" it means clearing +the list of faces to be used. For any other value of FACE, +to \"apply\" it means putting FACE at the front of the list +of faces to be used, and removing any faces further +along in the list that would be completely overridden by +preceding faces (including FACE). -Otherwise, this command specifies the face for the next character -inserted. Moving point or switching buffers before -typing a character to insert cancels the specification. +This command can also add FACE to the menu of faces, +if `facemenu-listed-faces' says to do that. \(fn FACE &optional START END)" t nil) @@ -10754,7 +10796,7 @@ This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION gives the option (or options) to `find' that produce the desired output. LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output.") -(custom-autoload (quote find-ls-option) "find-dired") +(custom-autoload (quote find-ls-option) "find-dired" t) (defvar find-ls-subdir-switches "-al" "\ `ls' switches for inserting subdirectories in `*Find*' buffers. @@ -10762,14 +10804,14 @@ This should contain the \"-l\" switch. Use the \"-F\" or \"-b\" switches if and only if you also use them for `find-ls-option'.") -(custom-autoload (quote find-ls-subdir-switches) "find-dired") +(custom-autoload (quote find-ls-subdir-switches) "find-dired" t) (defvar find-grep-options (if (or (eq system-type (quote berkeley-unix)) (string-match "solaris2" system-configuration) (string-match "irix" system-configuration)) "-s" "-q") "\ *Option to grep to be as silent as possible. On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it. On other systems, the closest you can come is to use `-l'.") -(custom-autoload (quote find-grep-options) "find-dired") +(custom-autoload (quote find-grep-options) "find-dired" t) (autoload (quote find-dired) "find-dired" "\ Run `find' and go into Dired mode on a buffer of the output. @@ -12531,7 +12573,7 @@ This variable's value takes effect when `grep-compute-defaults' is called.") (defvar grep-find-use-xargs nil "\ Whether \\[grep-find] uses the `xargs' utility by default. -If nil, it uses `find -exec'; if `gnu', it uses `find -print0' and `xargs -0'; +If `exec', it uses `find -exec'; if `gnu', it uses `find -print0' and `xargs -0'; if not nil and not `gnu', it uses `find -print' and `xargs'. This variable's value takes effect when `grep-compute-defaults' is called.") @@ -12845,12 +12887,12 @@ Thus, Custom distinguishes between a nil value and other values that disable the feature, which Custom identifies with `never'. The default is `never'.") -(custom-autoload (quote help-at-pt-display-when-idle) "help-at-pt") +(custom-autoload (quote help-at-pt-display-when-idle) "help-at-pt" nil) (autoload (quote scan-buf-move-to-region) "help-at-pt" "\ Go to the start of the next region with non-nil PROP property. Then run HOOK, which should be a quoted symbol that is a normal -hook.variable, or an expression evaluating to such a symbol. +hook variable, or an expression evaluating to such a symbol. Adjacent areas with different non-nil PROP properties are considered different regions. @@ -13240,6 +13282,8 @@ use either \\[customize] or the function `global-hi-lock-mode'.") (put (quote global-hi-lock-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote global-hi-lock-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-hi-lock-mode) "hi-lock" "\ Toggle Hi-Lock mode in every buffer. With prefix ARG, turn Global-Hi-Lock mode on if and only if ARG is positive. @@ -13647,9 +13691,10 @@ addition to `hl-line-highlight' on `post-command-hook'. Non-nil if Global-Hl-Line mode is enabled. See the command `global-hl-line-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `global-hl-line-mode'.") +either customize it (see the info node `Easy Customization') +or call the function `global-hl-line-mode'.") -(custom-autoload (quote global-hl-line-mode) "hl-line") +(custom-autoload (quote global-hl-line-mode) "hl-line" nil) (put (quote global-hl-line-mode) (quote custom-set) (quote custom-set-minor-mode)) @@ -14482,7 +14527,7 @@ The main features of this mode are \\i IF statement template \\elif IF-ELSE statement template \\b BEGIN - + For a full list, use \\[idlwave-list-abbrevs]. Some templates also have direct keybindings - see the list of keybindings below. @@ -14550,7 +14595,7 @@ should be enabled. The following values are possible: Setting this variable directly does not take effect; use either \\[customize] or the function `ido-mode'.") -(custom-autoload (quote ido-mode) "ido") +(custom-autoload (quote ido-mode) "ido" nil) (autoload (quote ido-mode) "ido" "\ Toggle ido speed-ups on or off. @@ -15039,6 +15084,8 @@ use either \\[customize] or the function `auto-image-file-mode'.") (put (quote auto-image-file-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote auto-image-file-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote auto-image-file-mode) "image-file" "\ Toggle visiting of image files as images. With prefix argument ARG, turn on if positive, otherwise off. @@ -15109,7 +15156,7 @@ The function should take two arguments and return t if the first element should come before the second. The arguments are cons cells; \(NAME . POSITION). Look at `imenu--sort-by-name' for an example.") -(custom-autoload (quote imenu-sort-function) "imenu") +(custom-autoload (quote imenu-sort-function) "imenu" t) (defvar imenu-generic-expression nil "\ The regex pattern to use for creating a buffer index. @@ -16065,6 +16112,8 @@ use either \\[customize] or the function `iswitchb-mode'.") (put (quote iswitchb-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote iswitchb-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote iswitchb-mode) "iswitchb" "\ Toggle Iswitchb global minor mode. With arg, turn Iswitchb mode on if and only iff ARG is positive. @@ -16867,7 +16916,7 @@ printers, or \"COM1\" to \"COM4\" or \"AUX\" for serial printers, or it to the name of a file, in which case the output gets appended to that file. If you want to discard the printed output, set this to \"NUL\".") -(custom-autoload (quote printer-name) "lpr") +(custom-autoload (quote printer-name) "lpr" t) (defvar lpr-switches nil "\ *List of strings to pass as extra options for the printer program. @@ -16875,7 +16924,7 @@ It is recommended to set `printer-name' instead of including an explicit switch on this list. See `lpr-command'.") -(custom-autoload (quote lpr-switches) "lpr") +(custom-autoload (quote lpr-switches) "lpr" t) (defvar lpr-command (cond (lpr-windows-system "") (lpr-lp-system "lp") (t "lpr")) "\ *Name of program for printing a file. @@ -16888,7 +16937,7 @@ Windows NT and Novell Netware respectively) are handled specially, using treated like `lpr' except that an explicit filename is given as the last argument.") -(custom-autoload (quote lpr-command) "lpr") +(custom-autoload (quote lpr-command) "lpr" t) (autoload (quote lpr-buffer) "lpr" "\ Print buffer contents without pagination or page headers. @@ -17509,17 +17558,17 @@ If `angles', they look like: Otherwise, most addresses look like `angles', but they look like `parens' if `angles' would need quoting and `parens' would not.") -(custom-autoload (quote message-from-style) "message") +(custom-autoload (quote message-from-style) "message" t) (defvar message-signature-separator "^-- *$" "\ Regexp matching the signature separator.") -(custom-autoload (quote message-signature-separator) "message") +(custom-autoload (quote message-signature-separator) "message" t) (defvar message-user-organization-file "/usr/lib/news/organization" "\ *Local news organization file.") -(custom-autoload (quote message-user-organization-file) "message") +(custom-autoload (quote message-user-organization-file) "message" t) (defvar message-send-mail-function (quote message-send-mail-with-sendmail) "\ Function to call to send the current buffer as mail. @@ -17532,7 +17581,7 @@ Valid values include `message-send-mail-with-sendmail' (the default), See also `send-mail-function'.") -(custom-autoload (quote message-send-mail-function) "message") +(custom-autoload (quote message-send-mail-function) "message" t) (defvar message-citation-line-function (quote message-insert-citation-line) "\ *Function called to insert the \"Whomever writes:\" line. @@ -17542,14 +17591,14 @@ Note that Gnus provides a feature where the reader can click on people who read your message will have to change their Gnus configuration. See the variable `gnus-cite-attribution-suffix'.") -(custom-autoload (quote message-citation-line-function) "message") +(custom-autoload (quote message-citation-line-function) "message" t) (defvar message-yank-prefix "> " "\ *Prefix inserted on the lines of yanked messages. Fix `message-cite-prefix-regexp' if it is set to an abnormal value. See also `message-yank-cited-prefix'.") -(custom-autoload (quote message-yank-prefix) "message") +(custom-autoload (quote message-yank-prefix) "message" t) (defvar message-cite-function (quote message-cite-original) "\ *Function for citing an original message. @@ -17557,7 +17606,7 @@ Predefined functions include `message-cite-original' and `message-cite-original-without-signature'. Note that `message-cite-original' uses `mail-citation-hook' if that is non-nil.") -(custom-autoload (quote message-cite-function) "message") +(custom-autoload (quote message-cite-function) "message" t) (defvar message-indent-citation-function (quote message-indent-citation) "\ *Function for modifying a citation just inserted in the mail buffer. @@ -17565,7 +17614,7 @@ This can also be a list of functions. Each function can find the citation between (point) and (mark t). And each function should leave point and mark around the citation text as modified.") -(custom-autoload (quote message-indent-citation-function) "message") +(custom-autoload (quote message-indent-citation-function) "message" t) (defvar message-signature t "\ *String to be inserted at the end of the message buffer. @@ -17573,19 +17622,19 @@ If t, the `message-signature-file' file will be inserted instead. If a function, the result from the function will be used instead. If a form, the result from the form will be used instead.") -(custom-autoload (quote message-signature) "message") +(custom-autoload (quote message-signature) "message" t) (defvar message-signature-file "~/.signature" "\ *Name of file containing the text inserted at end of message buffer. Ignored if the named file doesn't exist. If nil, don't insert a signature.") -(custom-autoload (quote message-signature-file) "message") +(custom-autoload (quote message-signature-file) "message" t) (defvar message-signature-insert-empty-line t "\ *If non-nil, insert an empty line before the signature separator.") -(custom-autoload (quote message-signature-insert-empty-line) "message") +(custom-autoload (quote message-signature-insert-empty-line) "message" t) (define-mail-user-agent (quote message-user-agent) (quote message-mail) (quote message-send-and-exit) (quote message-kill-buffer) (quote message-send-hook)) @@ -18045,6 +18094,8 @@ use either \\[customize] or the function `minibuffer-electric-default-mode'.") (put (quote minibuffer-electric-default-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote minibuffer-electric-default-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote minibuffer-electric-default-mode) "minibuf-eldef" "\ Toggle Minibuffer Electric Default mode. When active, minibuffer prompts that show a default value only show the @@ -18349,6 +18400,8 @@ use either \\[customize] or the function `msb-mode'.") (custom-autoload (quote msb-mode) "msb") +(put (quote msb-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote msb-mode) "msb" "\ Toggle Msb mode. With arg, turn Msb mode on if and only if arg is positive. @@ -18497,7 +18550,8 @@ Display a list of all coding categories. \(fn)" nil nil) (autoload (quote describe-font) "mule-diag" "\ -Display information about fonts which partially match FONTNAME. +Display information about a font whose name is FONTNAME. +The font must be already used by Emacs. \(fn FONTNAME)" t nil) @@ -18677,6 +18731,8 @@ use either \\[customize] or the function `mouse-wheel-mode'.") (custom-autoload (quote mouse-wheel-mode) "mwheel") +(put (quote mouse-wheel-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote mouse-wheel-mode) "mwheel" "\ Toggle mouse wheel support. With prefix argument ARG, turn on if positive, otherwise off. @@ -18815,7 +18871,7 @@ can set the value for a particular mode using that mode's hook. Comments might be indented to a value smaller than this in order not to go beyond `comment-fill-column'.") -(custom-autoload (quote comment-column) "newcomment") +(custom-autoload (quote comment-column) "newcomment" t) (put 'comment-column 'safe-local-variable 'integerp) (defvar comment-start nil "\ @@ -18855,7 +18911,7 @@ comments always start in column zero.") Style to be used for `comment-region'. See `comment-styles' for a list of available styles.") -(custom-autoload (quote comment-style) "newcomment") +(custom-autoload (quote comment-style) "newcomment" t) (defvar comment-padding " " "\ Padding string that `comment-region' puts between comment chars and text. @@ -18865,7 +18921,7 @@ of the corresponding number of spaces. Extra spacing between the comment characters and the comment text makes the comment easier to read. Default is 1. nil means 0.") -(custom-autoload (quote comment-padding) "newcomment") +(custom-autoload (quote comment-padding) "newcomment" t) (defvar comment-multi-line nil "\ Non-nil means `comment-indent-new-line' continues comments. @@ -18876,7 +18932,7 @@ customize this variable. It also affects \\[indent-new-comment-line]. However, if you want this behavior for explicit filling, you might as well use \\[newline-and-indent].") -(custom-autoload (quote comment-multi-line) "newcomment") +(custom-autoload (quote comment-multi-line) "newcomment" t) (autoload (quote comment-normalize-vars) "newcomment" "\ Check and setup the variables needed by other commenting functions. @@ -18933,6 +18989,13 @@ The strings used as comment starts are built from \(fn BEG END &optional ARG)" t nil) +(autoload (quote comment-box) "newcomment" "\ +Comment out the BEG .. END region, putting it inside a box. +The numeric prefix ARG specifies how many characters to add to begin- and +end- comment markers additionally to what `comment-add' already specifies. + +\(fn BEG END &optional ARG)" t nil) + (autoload (quote comment-or-uncomment-region) "newcomment" "\ Call `comment-region', unless the region only consists of comments, in which case call `uncomment-region'. If a prefix arg is given, it @@ -18956,7 +19019,7 @@ You can configure `comment-style' to change the way regions are commented. Non-nil means to only auto-fill inside comments. This has no effect in modes that do not define a comment syntax.") -(custom-autoload (quote comment-auto-fill-only-comments) "newcomment") +(custom-autoload (quote comment-auto-fill-only-comments) "newcomment" t) (autoload (quote comment-indent-new-line) "newcomment" "\ Break line at point and indent, continuing comment if within one. @@ -19649,6 +19712,8 @@ use either \\[customize] or the function `show-paren-mode'.") (put (quote show-paren-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote show-paren-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote show-paren-mode) "paren" "\ Toggle Show Paren mode. With prefix ARG, turn Show Paren mode on if and only if ARG is positive. @@ -19759,6 +19824,8 @@ use either \\[customize] or the function `pc-selection-mode'.") (put (quote pc-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote pc-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote pc-selection-mode) "pc-select" "\ Change mark behavior to emulate Motif, MAC or MS-Windows cut and paste style. @@ -20066,7 +20133,7 @@ Optional argument NOSHOW if non-nil means not to display the buffer. The action to be performed when opening a CVS directory. Sensible values are `cvs-examine', `cvs-status' and `cvs-quickdir'.") -(custom-autoload (quote cvs-dired-action) "pcvs") +(custom-autoload (quote cvs-dired-action) "pcvs" t) (defvar cvs-dired-use-hook (quote (4)) "\ Whether or not opening a CVS directory should run PCL-CVS. @@ -20075,7 +20142,7 @@ ALWAYS means to always do it unless a prefix argument is given to the command that prompted the opening of the directory. Anything else means to do it only if the prefix arg is equal to this value.") -(custom-autoload (quote cvs-dired-use-hook) "pcvs") +(custom-autoload (quote cvs-dired-use-hook) "pcvs" t) (defun cvs-dired-noselect (dir) "\ Run `cvs-examine' if DIR is a CVS administrative directory. @@ -20427,12 +20494,15 @@ Output stream is STREAM, or value of `standard-output' (which see). \(fn OBJECT &optional STREAM)" nil nil) (autoload (quote pp-eval-expression) "pp" "\ -Evaluate EXPRESSION and pretty-print value into a new display buffer. -If the pretty-printed value fits on one line, the message line is used -instead. The value is also consed onto the front of the list +Evaluate an expression, then pretty-print value EXPVAL into a new buffer. +If pretty-printed EXPVAL fits on one line, display it in the echo +area instead. Also add EXPVAL to the front of the list in the variable `values'. -\(fn EXPRESSION)" t nil) +Non-interactively, the argument is the value, EXPVAL, not the expression +to evaluate. + +\(fn EXPVAL)" t nil) (autoload (quote pp-eval-last-sexp) "pp" "\ Run `pp-eval-expression' on sexp before point (which see). @@ -21280,7 +21350,7 @@ Valid values are: Any other value is treated as t.") -(custom-autoload (quote ps-print-color-p) "ps-print") +(custom-autoload (quote ps-print-color-p) "ps-print" t) (autoload (quote ps-print-customize) "ps-print" "\ Customization of ps-print group. @@ -21460,19 +21530,24 @@ If EXTENSION is any other symbol, it is ignored. Run an inferior Python process, input and output via buffer *Python*. CMD is the Python command to run. NOSHOW non-nil means don't show the buffer automatically. -If there is a process already running in `*Python*', switch to -that buffer. Interactively, a prefix arg allows you to edit the initial -command line (default is `python-command'); `-i' etc. args will be added -to this as appropriate. Runs the hook `inferior-python-mode-hook' -\(after the `comint-mode-hook' is run). -\(Type \\[describe-mode] in the process buffer for a list of commands.) -\(fn &optional CMD NOSHOW)" t nil) +Normally, if there is a process already running in `python-buffer', +switch to that buffer. Interactively, a prefix arg allows you to edit +the initial command line (default is `python-command'); `-i' etc. args +will be added to this as appropriate. A new process is started if: +one isn't running attached to `python-buffer', or interactively the +default `python-command', or argument NEW is non-nil. See also the +documentation for `python-buffer'. + +Runs the hook `inferior-python-mode-hook' (after the +`comint-mode-hook' is run). (Type \\[describe-mode] in the process +buffer for a list of commands.) + +\(fn &optional CMD NOSHOW NEW)" t nil) (autoload (quote python-mode) "python" "\ Major mode for editing Python files. -Turns on Font Lock mode unconditionally since it is required for correct -parsing of the source. +Font Lock mode is currently required for correct parsing of the source. See also `jython-mode', which is actually invoked if the buffer appears to contain Jython code. See also `run-python' and associated Python mode commands for running Python under Emacs. @@ -21486,16 +21561,22 @@ the end of definitions at that level, when they move up a level. Colon is electric: it outdents the line if appropriate, e.g. for an else statement. \\[python-backspace] at the beginning of an indented statement deletes a level of indentation to close the current block; otherwise it -deletes a charcter backward. TAB indents the current line relative to +deletes a character backward. TAB indents the current line relative to the preceding code. Successive TABs, with no intervening command, cycle through the possibilities for indentation on the basis of enclosing blocks. -\\[fill-paragraph] fills comments and multiline strings appropriately, but has no +\\[fill-paragraph] fills comments and multi-line strings appropriately, but has no effect outside them. Supports Eldoc mode (only for functions, using a Python process), Info-Look and Imenu. In Outline minor mode, `class' and `def' -lines count as headers. +lines count as headers. Symbol completion is available in the +same way as in the Python shell using the `rlcompleter' module +and this is added to the Hippie Expand functions locally if +Hippie Expand mode is turned on. Completion of symbols of the +form x.y only works if the components are literal +module/attribute names, not variables. An abbrev table is set up +with skeleton expansions for compound statement templates. \\{python-mode-map} @@ -21858,9 +21939,10 @@ Not documented Non-nil if Rcirc-Track minor mode is enabled. See the command `rcirc-track-minor-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `rcirc-track-minor-mode'.") +either customize it (see the info node `Easy Customization') +or call the function `rcirc-track-minor-mode'.") -(custom-autoload (quote rcirc-track-minor-mode) "rcirc") +(custom-autoload (quote rcirc-track-minor-mode) "rcirc" nil) (autoload (quote rcirc-track-minor-mode) "rcirc" "\ Global minor mode for tracking activity in rcirc buffers. @@ -21913,8 +21995,6 @@ Returns non-nil if the new state is enabled. When recentf mode is enabled, it maintains a menu for visiting files that were operated on recently. -\\{recentf-mode-map} - \(fn &optional ARG)" t nil) ;;;*** @@ -22358,6 +22438,8 @@ use either \\[customize] or the function `global-reveal-mode'.") (custom-autoload (quote global-reveal-mode) "reveal") +(put (quote global-reveal-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-reveal-mode) "reveal" "\ Toggle Reveal mode in all buffers on or off. Reveal mode renders invisible text around point visible again. @@ -22452,7 +22534,7 @@ Currently known variants are 'emacs and 'mailutils. A value of nil means exclude your own email address as an address plus whatever is specified by `rmail-default-dont-reply-to-names'.") -(custom-autoload (quote rmail-dont-reply-to-names) "rmail") +(custom-autoload (quote rmail-dont-reply-to-names) "rmail" t) (defvar rmail-default-dont-reply-to-names "\\`info-" "\ A regular expression specifying part of the default value of the @@ -22471,36 +22553,36 @@ To make a change in this variable take effect for a message that you have already viewed, go to that message and type \\[rmail-toggle-header] twice.") -(custom-autoload (quote rmail-ignored-headers) "rmail") +(custom-autoload (quote rmail-ignored-headers) "rmail" t) (defvar rmail-displayed-headers nil "\ *Regexp to match Header fields that Rmail should display. If nil, display all header fields except those matched by `rmail-ignored-headers'.") -(custom-autoload (quote rmail-displayed-headers) "rmail") +(custom-autoload (quote rmail-displayed-headers) "rmail" t) (defvar rmail-retry-ignored-headers "^x-authentication-warning:" "\ *Headers that should be stripped when retrying a failed message.") -(custom-autoload (quote rmail-retry-ignored-headers) "rmail") +(custom-autoload (quote rmail-retry-ignored-headers) "rmail" t) (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\ *Regexp to match Header fields that Rmail should normally highlight. A value of nil means don't highlight. See also `rmail-highlight-face'.") -(custom-autoload (quote rmail-highlighted-headers) "rmail") +(custom-autoload (quote rmail-highlighted-headers) "rmail" t) (defvar rmail-highlight-face (quote rmail-highlight) "\ *Face used by Rmail for highlighting headers.") -(custom-autoload (quote rmail-highlight-face) "rmail") +(custom-autoload (quote rmail-highlight-face) "rmail" t) (defvar rmail-delete-after-output nil "\ *Non-nil means automatically delete a message that is copied to a file.") -(custom-autoload (quote rmail-delete-after-output) "rmail") +(custom-autoload (quote rmail-delete-after-output) "rmail" t) (defvar rmail-primary-inbox-list nil "\ *List of files which are inboxes for user's primary mail file `~/RMAIL'. @@ -22508,29 +22590,29 @@ nil means the default, which is (\"/usr/spool/mail/$USER\") \(the name varies depending on the operating system, and the value of the environment variable MAIL overrides it).") -(custom-autoload (quote rmail-primary-inbox-list) "rmail") +(custom-autoload (quote rmail-primary-inbox-list) "rmail" t) (defvar rmail-mail-new-frame nil "\ *Non-nil means Rmail makes a new frame for composing outgoing mail. This is handy if you want to preserve the window configuration of the frame where you have the RMAIL buffer displayed.") -(custom-autoload (quote rmail-mail-new-frame) "rmail") +(custom-autoload (quote rmail-mail-new-frame) "rmail" t) (defvar rmail-secondary-file-directory "~/" "\ *Directory for additional secondary Rmail files.") -(custom-autoload (quote rmail-secondary-file-directory) "rmail") +(custom-autoload (quote rmail-secondary-file-directory) "rmail" t) (defvar rmail-secondary-file-regexp "\\.xmail$" "\ *Regexp for which files are secondary Rmail files.") -(custom-autoload (quote rmail-secondary-file-regexp) "rmail") +(custom-autoload (quote rmail-secondary-file-regexp) "rmail" t) (defvar rmail-confirm-expunge (quote y-or-n-p) "\ *Whether and how to ask for confirmation before expunging deleted messages.") -(custom-autoload (quote rmail-confirm-expunge) "rmail") +(custom-autoload (quote rmail-confirm-expunge) "rmail" t) (defvar rmail-mode-hook nil "\ List of functions to call when Rmail is invoked.") @@ -22541,7 +22623,7 @@ List of functions to call when Rmail has retrieved new mail.") (defvar rmail-show-message-hook nil "\ List of functions to call when Rmail displays a message.") -(custom-autoload (quote rmail-show-message-hook) "rmail") +(custom-autoload (quote rmail-show-message-hook) "rmail" t) (defvar rmail-quit-hook nil "\ List of functions to call when quitting out of Rmail.") @@ -22566,7 +22648,7 @@ Even if the value is non-nil, you can't use MIME feature if the feature specified by `rmail-mime-feature' is not available in your session.") -(custom-autoload (quote rmail-enable-mime) "rmail") +(custom-autoload (quote rmail-enable-mime) "rmail" t) (defvar rmail-show-mime-function nil "\ Function to show MIME decoded message of RMAIL file. @@ -22619,7 +22701,7 @@ If the variable `rmail-enable-mime' is non-nil, this variables is ignored, and all the decoding work is done by a feature specified by the variable `rmail-mime-feature'.") -(defvar rmail-mime-charset-pattern (concat "^content-type:[ ]*text/plain;" "\\(?:[ \n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" "[ \n]*charset=\"?\\([^ \n\";]+\\)\"?") "\ +(defvar rmail-mime-charset-pattern (concat "^content-type:[ ]*text/plain;" "\\(?:[ \n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" "[ \n]*charset=\"?\\([^ \n\";]+\\)\"?") "\ Regexp to match MIME-charset specification in a header of message. The first parenthesized expression should match the MIME-charset name.") @@ -23504,6 +23586,8 @@ use either \\[customize] or the function `scroll-all-mode'.") (put (quote scroll-all-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote scroll-all-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote scroll-all-mode) "scroll-all" "\ Toggle Scroll-All minor mode. With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise. @@ -23557,7 +23641,7 @@ Emacs to pass the proper email address from `user-mail-address' to the mailer to specify the envelope-from address. But that is now controlled by a separate variable, `mail-specify-envelope-from'.") -(custom-autoload (quote mail-from-style) "sendmail") +(custom-autoload (quote mail-from-style) "sendmail" t) (defvar mail-specify-envelope-from nil "\ If non-nil, specify the envelope-from address when sending mail. @@ -23569,20 +23653,20 @@ privileged operation. This variable affects sendmail and smtpmail -- if you use feedmail to send mail, see instead the variable `feedmail-deduce-envelope-from'.") -(custom-autoload (quote mail-specify-envelope-from) "sendmail") +(custom-autoload (quote mail-specify-envelope-from) "sendmail" t) (defvar mail-self-blind nil "\ Non-nil means insert BCC to self in messages to be sent. This is done when the message is initialized, so you can remove or alter the BCC field to override the default.") -(custom-autoload (quote mail-self-blind) "sendmail") +(custom-autoload (quote mail-self-blind) "sendmail" t) (defvar mail-interactive nil "\ Non-nil means when sending a message wait for and display errors. nil means let mailer mail back a message to report errors.") -(custom-autoload (quote mail-interactive) "sendmail") +(custom-autoload (quote mail-interactive) "sendmail" t) (put (quote send-mail-function) (quote standard-value) (quote ((if (and window-system (memq system-type (quote (darwin windows-nt)))) (quote mailclient-send-it) (quote sendmail-send-it))))) @@ -23594,25 +23678,25 @@ that matches the variable `mail-header-separator'. This is used by the default mail-sending commands. See also `message-send-mail-function' for use with the Message package.") -(custom-autoload (quote send-mail-function) "sendmail") +(custom-autoload (quote send-mail-function) "sendmail" t) (defvar mail-header-separator "--text follows this line--" "\ Line used to separate headers from text in messages being composed.") -(custom-autoload (quote mail-header-separator) "sendmail") +(custom-autoload (quote mail-header-separator) "sendmail" t) (defvar mail-archive-file-name nil "\ Name of file to write all outgoing messages in, or nil for none. This can be an inbox file or an Rmail file.") -(custom-autoload (quote mail-archive-file-name) "sendmail") +(custom-autoload (quote mail-archive-file-name) "sendmail" t) (defvar mail-default-reply-to nil "\ Address to insert as default Reply-to field of outgoing messages. If nil, it will be initialized from the REPLYTO environment variable when you first send mail.") -(custom-autoload (quote mail-default-reply-to) "sendmail") +(custom-autoload (quote mail-default-reply-to) "sendmail" t) (defvar mail-alias-file nil "\ If non-nil, the name of a file to use instead of `/usr/lib/aliases'. @@ -23620,7 +23704,7 @@ This file defines aliases to be expanded by the mailer; this is a different feature from that of defining aliases in `.mailrc' to be expanded in Emacs. This variable has no effect unless your system uses sendmail as its mailer.") -(custom-autoload (quote mail-alias-file) "sendmail") +(custom-autoload (quote mail-alias-file) "sendmail" t) (defvar mail-personal-alias-file "~/.mailrc" "\ If non-nil, the name of the user's personal mail alias file. @@ -23628,13 +23712,13 @@ This file typically should be in same format as the `.mailrc' file used by the `Mail' or `mailx' program. This file need not actually exist.") -(custom-autoload (quote mail-personal-alias-file) "sendmail") +(custom-autoload (quote mail-personal-alias-file) "sendmail" t) (defvar mail-setup-hook nil "\ Normal hook, run each time a new outgoing mail message is initialized. The function `mail-setup' runs this hook.") -(custom-autoload (quote mail-setup-hook) "sendmail") +(custom-autoload (quote mail-setup-hook) "sendmail" t) (defvar mail-aliases t "\ Alist of mail address aliases, @@ -23648,13 +23732,13 @@ The alias definitions in the file have this form: Prefix insert on lines of yanked message being replied to. nil means use indentation.") -(custom-autoload (quote mail-yank-prefix) "sendmail") +(custom-autoload (quote mail-yank-prefix) "sendmail" t) (defvar mail-indentation-spaces 3 "\ Number of spaces to insert at the beginning of each cited line. Used by `mail-yank-original' via `mail-indent-citation'.") -(custom-autoload (quote mail-indentation-spaces) "sendmail") +(custom-autoload (quote mail-indentation-spaces) "sendmail" t) (defvar mail-citation-hook nil "\ Hook for modifying a citation just inserted in the mail buffer. @@ -23667,7 +23751,7 @@ in the cited portion of the message. If this hook is entirely empty (nil), a default action is taken instead of no action.") -(custom-autoload (quote mail-citation-hook) "sendmail") +(custom-autoload (quote mail-citation-hook) "sendmail" t) (defvar mail-citation-prefix-regexp "[ ]*[-a-z0-9A-Z]*>+[ ]*\\|[ ]*" "\ Regular expression to match a citation prefix plus whitespace. @@ -23675,7 +23759,7 @@ It should match whatever sort of citation prefixes you want to handle, with whitespace before and after; it should also match just whitespace. The default value matches citations like `foo-bar>' plus whitespace.") -(custom-autoload (quote mail-citation-prefix-regexp) "sendmail") +(custom-autoload (quote mail-citation-prefix-regexp) "sendmail" t) (defvar mail-signature nil "\ Text inserted at end of mail buffer when a message is initialized. @@ -23686,26 +23770,26 @@ If a string, that string is inserted. Otherwise, it should be an expression; it is evaluated and should insert whatever you want to insert.") -(custom-autoload (quote mail-signature) "sendmail") +(custom-autoload (quote mail-signature) "sendmail" t) (defvar mail-signature-file "~/.signature" "\ File containing the text inserted at end of mail buffer.") -(custom-autoload (quote mail-signature-file) "sendmail") +(custom-autoload (quote mail-signature-file) "sendmail" t) (defvar mail-default-directory "~/" "\ Directory for mail buffers. Value of `default-directory' for mail buffers. This directory is used for auto-save files of mail buffers.") -(custom-autoload (quote mail-default-directory) "sendmail") +(custom-autoload (quote mail-default-directory) "sendmail" t) (defvar mail-default-headers nil "\ A string containing header lines, to be inserted in outgoing messages. It is inserted before you edit the message, so you can edit or delete these lines.") -(custom-autoload (quote mail-default-headers) "sendmail") +(custom-autoload (quote mail-default-headers) "sendmail" t) (defvar mail-bury-selects-summary t "\ If non-nil, try to show RMAIL summary buffer after returning from mail. @@ -23713,7 +23797,7 @@ The functions \\[mail-send-on-exit] or \\[mail-dont-send] select the RMAIL summary buffer before returning, if it exists and this variable is non-nil.") -(custom-autoload (quote mail-bury-selects-summary) "sendmail") +(custom-autoload (quote mail-bury-selects-summary) "sendmail" t) (defvar mail-send-nonascii (quote mime) "\ Specify whether to allow sending non-ASCII characters in mail. @@ -23724,7 +23808,7 @@ The default is `mime'. Including non-ASCII characters in a mail message can be problematical for the recipient, who may not know how to decode them properly.") -(custom-autoload (quote mail-send-nonascii) "sendmail") +(custom-autoload (quote mail-send-nonascii) "sendmail" t) (autoload (quote mail-mode) "sendmail" "\ Major mode for editing mail to be sent. @@ -23755,7 +23839,7 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and The variable is used to trigger insertion of the \"Mail-Followup-To\" header when sending a message to a mailing list.") -(custom-autoload (quote mail-mailing-lists) "sendmail") +(custom-autoload (quote mail-mailing-lists) "sendmail" t) (defvar sendmail-coding-system nil "\ *Coding system for encoding the outgoing mail. @@ -23861,6 +23945,8 @@ use either \\[customize] or the function `server-mode'.") (custom-autoload (quote server-mode) "server") +(put (quote server-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote server-mode) "server" "\ Toggle Server mode. With ARG, turn Server mode on if ARG is positive, off otherwise. @@ -24144,7 +24230,7 @@ match this regexp, Emacs will write out the command history when the shell finishes, and won't remove backslashes when it unquotes shell arguments.") -(custom-autoload (quote shell-dumb-shell-regexp) "shell") +(custom-autoload (quote shell-dumb-shell-regexp) "shell" t) (autoload (quote shell) "shell" "\ Run an inferior shell, with I/O through BUFFER (which defaults to `*shell*'). @@ -25423,9 +25509,10 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead. Non-nil if Strokes mode is enabled. See the command `strokes-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `strokes-mode'.") +either customize it (see the info node `Easy Customization') +or call the function `strokes-mode'.") -(custom-autoload (quote strokes-mode) "strokes") +(custom-autoload (quote strokes-mode) "strokes" nil) (put (quote strokes-mode) (quote custom-set) (quote custom-set-minor-mode)) @@ -25544,7 +25631,7 @@ See the command `t-mouse-mode' for a description of this minor-mode. Setting this variable directly does not take effect; use either \\[customize] or the function `t-mouse-mode'.") -(custom-autoload (quote t-mouse-mode) "t-mouse") +(custom-autoload (quote t-mouse-mode) "t-mouse" nil) (put (quote t-mouse-mode) (quote custom-set) (quote custom-set-minor-mode)) @@ -27099,9 +27186,10 @@ This runs the normal hook `display-time-hook' after each update. Non-nil if Display-Time mode is enabled. See the command `display-time-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `display-time-mode'.") +either customize it (see the info node `Easy Customization') +or call the function `display-time-mode'.") -(custom-autoload (quote display-time-mode) "time") +(custom-autoload (quote display-time-mode) "time" nil) (put (quote display-time-mode) (quote custom-set) (quote custom-set-minor-mode)) @@ -27363,7 +27451,9 @@ Remove TIMER from the list of active timers. \(fn TIMER)" nil nil) (autoload (quote cancel-function-timers) "timer" "\ -Cancel all timers scheduled by `run-at-time' which would run FUNCTION. +Cancel all timers which would run FUNCTION. +This affects ordinary timers such as are scheduled by `run-at-time', +and idle timers such as are scheduled by `run-with-idle-timer'. \(fn FUNCTION)" t nil) @@ -27400,7 +27490,10 @@ This function is for compatibility; see also `run-with-timer'. (autoload (quote run-with-idle-timer) "timer" "\ Perform an action the next time Emacs is idle for SECS seconds. The action is to call FUNCTION with arguments ARGS. -SECS may be an integer or a floating point number. +SECS may be an integer, a floating point number, or the internal +time format (HIGH LOW USECS) returned by, e.g., `current-idle-time'. +If Emacs is currently idle, and has been idle for N seconds (N < SECS), +then it will call FUNCTION in SECS - N seconds from now. If REPEAT is non-nil, do the action each time Emacs has been idle for exactly SECS seconds (that is, only once for each time Emacs becomes idle). @@ -27657,6 +27750,8 @@ use either \\[customize] or the function `tpu-edt-mode'.") (put (quote tpu-edt-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote tpu-edt-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote tpu-edt-mode) "tpu-edt" "\ TPU/edt emulation. @@ -27727,11 +27822,14 @@ display oriented stuff, use `trace-function-background' instead. (autoload (quote trace-function-background) "trace" "\ Traces FUNCTION with trace output going quietly to BUFFER. -For every call of FUNCTION Lisp-style trace messages that display argument -and return values will be inserted into BUFFER. This function generates the -trace advice for FUNCTION and activates it together with any other advice -there might be!! Trace output will quietly go to BUFFER without changing -the window or buffer configuration at all. +When this tracing is enabled, every call to FUNCTION writes +a Lisp-style trace message (showing the arguments and return value) +into BUFFER. This function generates advice to trace FUNCTION +and activates it together with any other advice there might be. +The trace output goes to BUFFER quietly, without changing +the window or buffer configuration. + +BUFFER defaults to `trace-buffer'. \(fn FUNCTION &optional BUFFER)" t nil) @@ -27773,7 +27871,7 @@ updated after changing this variable. Also see `tramp-file-name-structure'.") -(custom-autoload (quote tramp-file-name-regexp) "tramp") +(custom-autoload (quote tramp-file-name-regexp) "tramp" t) (defconst tramp-completion-file-name-regexp-unified "^/$\\|^/[^/:][^/]*$" "\ Value for `tramp-completion-file-name-regexp' for unified remoting. @@ -27796,7 +27894,7 @@ updated after changing this variable. Also see `tramp-file-name-structure'.") -(custom-autoload (quote tramp-completion-file-name-regexp) "tramp") +(custom-autoload (quote tramp-completion-file-name-regexp) "tramp" t) (defconst tramp-completion-file-name-handler-alist (quote ((file-name-all-completions . tramp-completion-handle-file-name-all-completions) (file-name-completion . tramp-completion-handle-file-name-completion))) "\ Alist of completion handler functions. @@ -27825,7 +27923,7 @@ Invoke tramp file name completion handler. Falls back to normal file name handler if no tramp file name handler exists." (let ((fn (assoc operation tramp-completion-file-name-handler-alist))) (if fn (save-match-data (apply (cdr fn) args)) (tramp-completion-run-real-handler operation args)))) (defsubst tramp-register-file-name-handlers nil "\ -Add tramp file name handlers to `file-name-handler-alist'." (add-to-list (quote file-name-handler-alist) (cons tramp-file-name-regexp (quote tramp-file-name-handler))) (when (or partial-completion-mode (featurep (quote ido))) (add-to-list (quote file-name-handler-alist) (cons tramp-completion-file-name-regexp (quote tramp-completion-file-name-handler))) (put (quote tramp-completion-file-name-handler) (quote safe-magic) t)) (let ((jka (rassoc (quote jka-compr-handler) file-name-handler-alist))) (when jka (setq file-name-handler-alist (cons jka (delete jka file-name-handler-alist)))))) +Add tramp file name handlers to `file-name-handler-alist'." (add-to-list (quote file-name-handler-alist) (cons tramp-file-name-regexp (quote tramp-file-name-handler))) (when (or (not (boundp (quote partial-completion-mode))) (symbol-value (quote partial-completion-mode)) (featurep (quote ido))) (add-to-list (quote file-name-handler-alist) (cons tramp-completion-file-name-regexp (quote tramp-completion-file-name-handler))) (put (quote tramp-completion-file-name-handler) (quote safe-magic) t)) (let ((jka (rassoc (quote jka-compr-handler) file-name-handler-alist))) (when jka (setq file-name-handler-alist (cons jka (delete jka file-name-handler-alist)))))) (add-hook 'after-init-hook '(lambda () (tramp-register-file-name-handlers))) @@ -28008,9 +28106,9 @@ easy-to-use form. (autoload (quote 2C-two-columns) "two-column" "\ Split current window vertically for two-column editing. -When called the first time, associates a buffer with the current -buffer in two-column minor mode (see \\[describe-mode] ). -Runs `2C-other-buffer-hook' in the new buffer. +\\<global-map>When called the first time, associates a buffer with the current +buffer in two-column minor mode (use \\[describe-mode] once in the mode, +for details.). It runs `2C-other-buffer-hook' in the new buffer. When called again, restores the screen layout with the current buffer first and the associated buffer to its right. @@ -28316,13 +28414,23 @@ URL is either a string or a parsed URL. CALLBACK is called when the object has been completely retrieved, with the current buffer containing the object, and any MIME headers associated -with it. Normally it gets the arguments in the list CBARGS. -However, if what we find is a redirect, CALLBACK is given -two additional args, `:redirect' and the redirected URL, -followed by CBARGS. +with it. It is called as (apply CALLBACK STATUS CBARGS). +STATUS is a list with an even number of elements representing +what happened during the request, with most recent events first, +or an empty list if no events have occurred. Each pair is one of: + +\(:redirect REDIRECTED-TO) - the request was redirected to this URL +\(:error (ERROR-SYMBOL . DATA)) - an error occurred. The error can be +signaled with (signal ERROR-SYMBOL DATA). Return the buffer URL will load into, or nil if the process has -already completed. +already completed (i.e. URL was a mailto URL or similar; in this case +the callback is not called). + +The variables `url-request-data', `url-request-method' and +`url-request-extra-headers' can be dynamically bound around the +request; dynamic binding of other variables doesn't necessarily +take effect. \(fn URL CALLBACK &optional CBARGS)" nil nil) @@ -28734,7 +28842,7 @@ If t, all messages will be logged. If a number, all messages will be logged, as well shown via `message'. If a list, it is a list of the types of messages to be logged.") -(custom-autoload (quote url-debug) "url-util") +(custom-autoload (quote url-debug) "url-util" t) (autoload (quote url-debug) "url-util" "\ Not documented @@ -28819,9 +28927,13 @@ forbidden in URL encoding. \(fn STR &optional ALLOW-NEWLINES)" nil nil) (autoload (quote url-hexify-string) "url-util" "\ -Escape characters in a string. +Return a new string that is STRING URI-encoded. +First, STRING is converted to utf-8, if necessary. Then, for each +character in the utf-8 string, those found in `url-unreserved-chars' +are left as-is, all others are represented as a three-character +string: \"%\" followed by two lowercase hex digits. -\(fn STR)" nil nil) +\(fn STRING)" nil nil) (autoload (quote url-file-extension) "url-util" "\ Return the filename extension of FNAME. @@ -30367,6 +30479,8 @@ Check the region for whitespace errors. (autoload (quote whitespace-cleanup) "whitespace" "\ Cleanup the five different kinds of whitespace problems. +It normally applies to the whole buffer, but in Transient Mark mode +when the mark is active it applies to the region. See `whitespace-buffer' docstring for a summary of the problems. \(fn)" t nil) @@ -30382,9 +30496,10 @@ Whitespace cleanup on the region. Non-nil if Whitespace-Global mode is enabled. See the command `whitespace-global-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `whitespace-global-mode'.") +either customize it (see the info node `Easy Customization') +or call the function `whitespace-global-mode'.") -(custom-autoload (quote whitespace-global-mode) "whitespace") +(custom-autoload (quote whitespace-global-mode) "whitespace" nil) (autoload (quote whitespace-global-mode) "whitespace" "\ Toggle using Whitespace mode in new buffers. @@ -30737,6 +30852,8 @@ use either \\[customize] or the function `xterm-mouse-mode'.") (put (quote xterm-mouse-mode) (quote custom-set) (quote custom-set-minor-mode)) +(put (quote xterm-mouse-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote xterm-mouse-mode) "xt-mouse" "\ Toggle XTerm mouse mode. With prefix arg, turn XTerm mouse mode on iff arg is positive. diff --git a/lisp/midnight.el b/lisp/midnight.el index 1d9e1efbf2c..d97eb83b543 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -75,9 +75,9 @@ call `cancel-timer' or `timer-activate' on `midnight-timer' instead." (list 1st (floor (- num (* (float div) 1st))) (round (* 10000000 (mod num 1)))))) -(defun midnight-buffer-display-time (&optional buf) - "Return the time-stamp of the given buffer, or current buffer, as float." - (with-current-buffer (or buf (current-buffer)) +(defun midnight-buffer-display-time (&optional buffer) + "Return the time-stamp of BUFFER, or current buffer, as float." + (with-current-buffer (or buffer (current-buffer)) (when buffer-display-time (float-time buffer-display-time)))) ;;; clean-buffer-list stuff @@ -128,7 +128,7 @@ See also `clean-buffer-list-kill-regexps', :group 'midnight) (defcustom clean-buffer-list-kill-never-buffer-names - '("*scratch*" "*Messages*") + '("*scratch*" "*Messages*" "*server*") "*List of buffer names which will never be killed by `clean-buffer-list'. See also `clean-buffer-list-kill-never-regexps'. Note that this does override `clean-buffer-list-kill-regexps' and @@ -137,7 +137,6 @@ two lists will NOT be killed if it is also present in this list." :type '(repeat (string :tag "Buffer Name")) :group 'midnight) - (defcustom clean-buffer-list-kill-never-regexps '("^ \\*Minibuf-.*\\*$") "*List of regexp saying which buffers will never be killed at midnight. See also `clean-buffer-list-kill-never-buffer-names'. diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index b1ca93e2f32..d60746c5de8 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -31,9 +31,9 @@ ;;; This mode is a major mode for editing Ada83 and Ada95 source code. ;;; This is a major rewrite of the file packaged with Emacs-20. The ;;; ada-mode is composed of four lisp files, ada-mode.el, ada-xref.el, -;;; ada-prj.el and ada-stmt.el. Only this file (ada-mode.el) is +;;; ada-prj.el and ada-stmt.el. Only this file (ada-mode.el) is ;;; completely independent from the GNU Ada compiler Gnat, distributed -;;; by Ada Core Technologies. All the other files rely heavily on +;;; by Ada Core Technologies. All the other files rely heavily on ;;; features provided only by Gnat. ;;; ;;; Note: this mode will not work with Emacs 19. If you are on a VMS @@ -962,7 +962,7 @@ OLD-LEN indicates what the length of the replaced text was." (defsubst ada-in-string-p (&optional parse-result) "Return t if point is inside a string. -If parse-result is non-nil, use is instead of calling `parse-partial-sexp'." +If PARSE-RESULT is non-nil, use it instead of calling `parse-partial-sexp'." (nth 3 (or parse-result (parse-partial-sexp (line-beginning-position) (point))))) @@ -2410,8 +2410,8 @@ offset." ;; else ((looking-at "else\\>") - (if (save-excursion (ada-goto-previous-word) - (looking-at "\\<or\\>")) + (if (save-excursion (ada-goto-previous-word) + (looking-at "\\<or\\>")) (ada-indent-on-previous-lines nil orgpoint orgpoint) (save-excursion (ada-goto-matching-start 1 nil t) @@ -4205,9 +4205,9 @@ of the region. Otherwise, operate only on the current line." (defun ada-untab-hard () "Indent current line to previous tab stop." (interactive) - (let ((bol (save-excursion (progn (beginning-of-line) (point)))) - (eol (save-excursion (progn (end-of-line) (point))))) - (indent-rigidly bol eol (- 0 ada-indent)))) + (let ((bol (save-excursion (progn (beginning-of-line) (point)))) + (eol (save-excursion (progn (end-of-line) (point))))) + (indent-rigidly bol eol (- 0 ada-indent)))) @@ -4217,7 +4217,7 @@ of the region. Otherwise, operate only on the current line." ;; Not needed any more for Emacs 21.2, but still needed for backward ;; compatibility -(defun ada-remove-trailing-spaces () +(defun ada-remove-trailing-spaces () "Remove trailing spaces in the whole buffer." (interactive) (save-match-data @@ -4904,7 +4904,7 @@ or the spec otherwise." (let ((is-spec nil) (is-body nil) (suffixes ada-spec-suffixes) - (name (buffer-file-name))) + (name (buffer-file-name))) ;; Guess whether we have a spec or a body, and get the basename of the ;; file. Since the extension may not start with '.', we can not use diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 3264e0e72f6..26bbb8f3faf 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -445,12 +445,8 @@ Font for POD headers." ;;; Some double-evaluation happened with font-locks... Needed with 21.2... (defvar cperl-singly-quote-face cperl-xemacs-p) -(defcustom cperl-invalid-face ; Does not customize with '' on XEmacs - (if cperl-singly-quote-face - 'underline ''underline) ; On older Emacsen was evaluated by `font-lock' - (if cperl-singly-quote-face - "*This face is used for highlighting trailing whitespace." - "*Face for highlighting trailing whitespace.") +(defcustom cperl-invalid-face 'underline + "*Face for highlighting trailing whitespace." :type 'face :version "21.1" :group 'cperl-faces) @@ -1835,7 +1831,7 @@ or as help on variables `cperl-tips', `cperl-problems', (if (boundp 'font-lock-multiline) ; Newer font-lock; use its facilities (progn (setq cperl-font-lock-multiline t) ; Not localized... - (set 'font-lock-multiline t)) ; not present with old Emacs; auto-local + (set (make-local-variable 'font-lock-multiline) t)) (make-local-variable 'font-lock-fontify-region-function) (set 'font-lock-fontify-region-function ; not present with old Emacs 'cperl-font-lock-fontify-region-function)) @@ -5708,19 +5704,22 @@ indentation and initial hashes. Behaves usually outside of comment." (defun cperl-windowed-init () "Initialization under windowed version." - (if (or (featurep 'ps-print) cperl-faces-init) - ;; Need to init anyway: - (or cperl-faces-init (cperl-init-faces)) - (add-hook 'font-lock-mode-hook - (function - (lambda () - (if (memq major-mode '(perl-mode cperl-mode)) - (progn - (or cperl-faces-init (cperl-init-faces))))))) - (if (fboundp 'eval-after-load) - (eval-after-load - "ps-print" - '(or cperl-faces-init (cperl-init-faces)))))) + (cond ((featurep 'ps-print) + (unless cperl-faces-init + (if (boundp 'font-lock-multiline) + (setq cperl-font-lock-multiline t)) + (cperl-init-faces))) + ((not cperl-faces-init) + (add-hook 'font-lock-mode-hook + (function + (lambda () + (if (memq major-mode '(perl-mode cperl-mode)) + (progn + (or cperl-faces-init (cperl-init-faces))))))) + (if (fboundp 'eval-after-load) + (eval-after-load + "ps-print" + '(or cperl-faces-init (cperl-init-faces))))))) (defvar cperl-font-lock-keywords-1 nil "Additional expressions to highlight in Perl mode. Minimal set.") diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 52360a73970..007033a87ba 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -2048,7 +2048,6 @@ static char *magick[] = { (or gdb-stack-position (setq gdb-stack-position (make-marker))) (set-marker gdb-stack-position (point))) - (set-marker gdb-stack-position nil) (put-text-property bl (+ bl 4) 'face '(:inverse-video t)))) (when (re-search-forward diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el index 863f972086e..0f20626c9b9 100644 --- a/lisp/progmodes/octave-inf.el +++ b/lisp/progmodes/octave-inf.el @@ -113,6 +113,9 @@ the regular expression `comint-prompt-regexp', a buffer local variable." (defvar inferior-octave-complete-impossible nil "Non-nil means that `inferior-octave-complete' is impossible.") +(defvar inferior-octave-has-built-in-variables nil + "Non-nil means that Octave has built-in variables.") + (defvar inferior-octave-dynamic-complete-functions '(inferior-octave-complete comint-dynamic-complete-filename) "List of functions called to perform completion for inferior Octave. @@ -218,11 +221,20 @@ startup file, `~/.emacs-octave'." 'identity inferior-octave-output-list "\n") "\n")))) + ;; Find out whether Octave has built-in variables. + (inferior-octave-send-list-and-digest + (list "exist \"LOADPATH\"\n")) + (setq inferior-octave-has-built-in-variables + (string-match "101$" (car inferior-octave-output-list))) + ;; An empty secondary prompt, as e.g. obtained by '--braindead', ;; means trouble. (inferior-octave-send-list-and-digest (list "PS2\n")) - (if (string-match "^PS2 = *$" (car inferior-octave-output-list)) - (inferior-octave-send-list-and-digest (list "PS2 = \"> \"\n"))) + (if (string-match "\\(PS2\\|ans\\) = *$" (car inferior-octave-output-list)) + (inferior-octave-send-list-and-digest + (list (if inferior-octave-has-built-in-variables + "PS2 = \"> \"\n" + "PS2 (\"> \");\n")))) ;; O.k., now we are ready for the Inferior Octave startup commands. (let* (commands @@ -230,10 +242,12 @@ startup file, `~/.emacs-octave'." (file (or inferior-octave-startup-file (concat "~/.emacs-" program)))) (setq commands - (list "page_screen_output = 0;\n" + (list "more off;\n" (if (not (string-equal inferior-octave-output-string ">> ")) - "PS1=\"\\\\s> \";\n") + (if inferior-octave-has-built-in-variables + "PS1=\"\\\\s> \";\n" + "PS1 (\"\\\\s> \");\n")) (if (file-exists-p file) (format "source (\"%s\");\n" file)))) (inferior-octave-send-list-and-digest commands)) @@ -383,7 +397,7 @@ Use \\[inferior-octave-resync-dirs] to resync if Emacs gets confused." This command queries the inferior Octave process about its current directory and makes this the current buffer's default directory." (interactive) - (inferior-octave-send-list-and-digest '("pwd\n")) + (inferior-octave-send-list-and-digest '("disp (pwd ())\n")) (cd (car inferior-octave-output-list))) ;;; provide ourself diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 0387c05134e..4d9a49a6b8d 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -1969,6 +1969,13 @@ Repeating the command scrolls the completion window." ;;;; Skeletons +(defcustom python-use-skeletons nil + "Non-nil means template skeletons will be automagically inserted. +This happens when pressing \"if<SPACE>\", for example, to prompt for +the if condition." + :type 'boolean + :group 'python) + (defvar python-skeletons nil "Alist of named skeletons for Python mode. Elements are of the form (NAME . EXPANDER-FUNCTION).") @@ -1986,7 +1993,8 @@ The default contents correspond to the elements of `python-skeletons'.") (function (intern (concat "python-insert-" name)))) `(progn (add-to-list 'python-skeletons ',(cons name function)) - (define-abbrev python-mode-abbrev-table ,name "" ',function nil t) + (if python-use-skeletons + (define-abbrev python-mode-abbrev-table ,name "" ',function nil t)) (define-skeleton ,function ,(format "Insert Python \"%s\" template." name) ,@elements))))) diff --git a/lisp/select.el b/lisp/select.el index cbdeaf12fe3..9b711ee1d7f 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -152,6 +152,41 @@ Cut buffers are considered obsolete; you should use selections instead." ;;; Every selection type that Emacs handles is implemented this way, except ;;; for TIMESTAMP, which is a special case. +(eval-when-compile (require 'ccl)) + +(define-ccl-program ccl-check-utf-8 + '(0 + ((r0 = 1) + (loop + (read-if (r1 < #x80) (repeat) + ((r0 = 0) + (if (r1 < #xC2) (end)) + (read r2) + (if ((r2 & #xC0) != #x80) (end)) + (if (r1 < #xE0) ((r0 = 1) (repeat))) + (read r2) + (if ((r2 & #xC0) != #x80) (end)) + (if (r1 < #xF0) ((r0 = 1) (repeat))) + (read r2) + (if ((r2 & #xC0) != #x80) (end)) + (if (r1 < #xF8) ((r0 = 1) (repeat))) + (read r2) + (if ((r2 & #xC0) != #x80) (end)) + (if (r1 == #xF8) ((r0 = 1) (repeat))) + (end)))))) + "Check if the input unibyte string is a valid UTF-8 sequence or not. +If it is valid, set the register `r0' to 1, else set it to 0.") + +(defun string-utf-8-p (string) + "Return non-nil iff STRING is a unibyte string of valid UTF-8 sequence." + (if (or (not (stringp string)) + (multibyte-string-p string)) + (error "Not a unibyte string: %s" string)) + (let ((status (make-vector 9 0))) + (ccl-execute-on-string ccl-check-utf-8 status string) + (= (aref status 0) 1))) + + (defun xselect-convert-to-string (selection type value) (let (str coding) ;; Get the actual string from VALUE. @@ -223,11 +258,10 @@ Cut buffers are considered obsolete; you should use selections instead." (setq str (encode-coding-string str coding)))) ((eq type 'UTF8_STRING) - (let ((charsets (find-charset-string str))) - (if (or (memq 'eight-bit-control charsets) - (memq 'eight-bit-graphic charsets)) - (setq type 'STRING) - (setq str (encode-coding-string str 'utf-8))))) + (if (multibyte-string-p str) + (setq str (encode-coding-string str 'utf-8))) + (if (not (string-utf-8-p str)) + (setq str nil))) ;; Decline request as we don't have UTF-8 data. (t (error "Unknow selection type: %S" type)) ))) diff --git a/lisp/subr.el b/lisp/subr.el index 1f947a795f9..028b6ef21ff 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1100,13 +1100,19 @@ until a certain package is loaded, you should put the call to `add-to-list' into a hook function that will be run only after loading the package. `eval-after-load' provides one way to do this. In some cases other hooks, such as major mode hooks, can do the job." - (if (if compare-fn - (let (present) - (dolist (elt (symbol-value list-var)) - (if (funcall compare-fn element elt) - (setq present t))) - present) + (if (cond + ((null compare-fn) (member element (symbol-value list-var))) + ((eq compare-fn 'eq) + (memq element (symbol-value list-var))) + ((eq compare-fn 'eql) + (memql element (symbol-value list-var))) + (t + (let (present) + (dolist (elt (symbol-value list-var)) + (if (funcall compare-fn element elt) + (setq present t))) + present))) (symbol-value list-var) (set list-var (if append @@ -1752,8 +1758,14 @@ floating point support. (or nodisp (redisplay)) (let ((read (read-event nil nil seconds))) (or (null read) - (progn (push read unread-command-events) - nil)))))) + (progn + ;; If last command was a prefix arg, e.g. C-u, push this event onto + ;; unread-command-events as (t . EVENT) so it will be added to + ;; this-command-keys by read-key-sequence. + (if (eq overriding-terminal-local-map universal-argument-map) + (setq read (cons t read))) + (push read unread-command-events) + nil)))))) ;;; Atomic change groups. diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 3e86c2a8ead..43454a5ca77 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -2526,12 +2526,15 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") (cons '(user-size . t) parsed)))) ;; All geometry parms apply to the initial frame. (setq initial-frame-alist (append initial-frame-alist parsed)) - ;; The size parms apply to all frames. - (if (assq 'height parsed) + ;; The size parms apply to all frames. Don't set it if there are + ;; sizes there already (from command line). + (if (and (assq 'height parsed) + (not (assq 'height default-frame-alist))) (setq default-frame-alist (cons (cons 'height (cdr (assq 'height parsed))) default-frame-alist))) - (if (assq 'width parsed) + (if (and (assq 'width parsed) + (not (assq 'width default-frame-alist))) (setq default-frame-alist (cons (cons 'width (cdr (assq 'width parsed))) default-frame-alist)))))) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 31a794eeaa1..7aaa59d40ec 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -208,7 +208,7 @@ the last file dropped is selected." (setq x-invocation-args (cdr x-invocation-args)))) (defun x-handle-name-switch (switch) - "Handle a \"-name\" SWITCH." + "Handle the \"-name\" SWITCH." ;; Handle the -name option. Set the variable x-resource-name ;; to the option's operand; set the name of the initial frame, too. (or (consp x-invocation-args) @@ -1091,7 +1091,7 @@ This defines a fontset consisting of the Courier New variations for European languages which are distributed with Windows as \"Multilanguage Support\". -See the documentation of `create-fontset-from-fontset-spec for the format.") +See the documentation of `create-fontset-from-fontset-spec' for the format.") ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles (if (fboundp 'new-fontset) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index e7b95c9619d..b24124851de 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1011,11 +1011,14 @@ Mostly we check word delimiters." (not (memq (char-after (1- start)) '(?\} ?\\))))) flyspell-mark-duplications-flag (save-excursion - (goto-char (1- start)) - (let ((p (flyspell-word-search-backward - word - (- start (1+ (- end start)))))) - (and p (/= p (1- start)))))) + (goto-char start) + (let* ((bound + (- start + (- end start) + (- (skip-chars-backward " \t\n\f")))) + (p (when (>= bound (point-min)) + (flyspell-word-search-backward word bound)))) + (and p (/= p start))))) ;; yes, this is a doublon (flyspell-highlight-incorrect-region start end 'doublon) nil) @@ -1472,7 +1475,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'." (flyspell-word) ; Make sure current word is checked (backward-word 1) (while (and (< (point) end) - (re-search-forward "\\b\\([^ \n\t]+\\)[ \n\t]+\\1\\b" + (re-search-forward "\\<\\(\\w+\\)\\>[ \n\t\f]+\\1\\>" end 'move)) (flyspell-word) (backward-word 1)) @@ -1708,7 +1711,9 @@ is itself incorrect, but suspiciously repeated." ;; now we can use a new overlay (setq flyspell-overlay (make-flyspell-overlay - beg end 'flyspell-incorrect 'highlight))))))) + beg end + (if (eq poss 'doublon) 'flyspell-duplicate 'flyspell-incorrect) + 'highlight))))))) ;;*---------------------------------------------------------------------*/ ;;* flyspell-highlight-duplicate-region ... */ diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 2d26bc805a7..60d287896dd 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,20 @@ +2006-10-27 Magnus Henoch <mange@freemail.hu> + + * url-http.el (url-http-mark-connection-as-free): Verify that + connection is open before saving it. + (url-http-handle-authentication): Use url-retrieve-internal + instead of url-retrieve. + (url-http-parse-headers): Adapt to new callback interface. + (url-http): Handle non-blocking connections. + (url-http-async-sentinel): Create. + + * url.el (url-retrieve): Update docstring for new callback interface. + Remove all code. + (url-retrieve-internal): Move code from url-retrieve here. + + * url-gw.el (url-open-stream): Use a non-blocking socket for + `native' gateway method, if available. + 2006-10-16 Magnus Henoch <mange@freemail.hu> * url-http.el (url-https-create-secure-wrapper): Always use tls diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el index 878259927eb..31e1a629aba 100644 --- a/lisp/url/url-gw.el +++ b/lisp/url/url-gw.el @@ -210,7 +210,8 @@ linked Emacs under SunOS 4.x" (defun url-open-stream (name buffer host service) "Open a stream to HOST, possibly via a gateway. Args per `open-network-stream'. -Will not make a connection if `url-gateway-unplugged' is non-nil." +Will not make a connection if `url-gateway-unplugged' is non-nil. +Might do a non-blocking connection; use `process-status' to check." (unless url-gateway-unplugged (let ((gw-method (if (and url-gateway-local-host-regexp (not (eq 'tls url-gateway-method)) @@ -249,7 +250,11 @@ Will not make a connection if `url-gateway-unplugged' is non-nil." (ssl (open-ssl-stream name buffer host service)) ((native) - (open-network-stream name buffer host service)) + ;; Use non-blocking socket if we can. + (make-network-process :name name :buffer buffer + :host host :service service + :nowait + (and nil (featurep 'make-network-process '(:nowait t))))) (socks (socks-open-network-stream name buffer host service)) (telnet diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 958d90683e4..cd09df3cb4c 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -92,11 +92,12 @@ request.") (defun url-http-mark-connection-as-free (host port proc) (url-http-debug "Marking connection as free: %s:%d %S" host port proc) - (set-process-buffer proc nil) - (set-process-sentinel proc 'url-http-idle-sentinel) - (puthash (cons host port) - (cons proc (gethash (cons host port) url-http-open-connections)) - url-http-open-connections) + (when (memq (process-status proc) '(open run)) + (set-process-buffer proc nil) + (set-process-sentinel proc 'url-http-idle-sentinel) + (puthash (cons host port) + (cons proc (gethash (cons host port) url-http-open-connections)) + url-http-open-connections)) nil) (defun url-http-find-free-connection (host port) @@ -336,8 +337,8 @@ This allows us to use `mail-fetch-field', etc." (let ((url-request-method url-http-method) (url-request-data url-http-data) (url-request-extra-headers url-http-extra-headers)) - (url-retrieve url url-callback-function - url-callback-arguments))))))) + (url-retrieve-internal url url-callback-function + url-callback-arguments))))))) (defun url-http-parse-response () "Parse just the response code." @@ -520,18 +521,21 @@ should be shown to the user." (let ((url-request-method url-http-method) (url-request-data url-http-data) (url-request-extra-headers url-http-extra-headers)) - ;; Put in the current buffer a forwarding pointer to the new - ;; destination buffer. - ;; FIXME: This is a hack to fix url-retrieve-synchronously - ;; without changing the API. Instead url-retrieve should - ;; either simply not return the "destination" buffer, or it - ;; should take an optional `dest-buf' argument. - (set (make-local-variable 'url-redirect-buffer) - (url-retrieve redirect-uri url-callback-function - (cons :redirect - (cons redirect-uri - url-callback-arguments)))) - (url-mark-buffer-as-dead (current-buffer)))))) + ;; Remember that the request was redirected. + (setf (car url-callback-arguments) + (nconc (list :redirect redirect-uri) + (car url-callback-arguments))) + ;; Put in the current buffer a forwarding pointer to the new + ;; destination buffer. + ;; FIXME: This is a hack to fix url-retrieve-synchronously + ;; without changing the API. Instead url-retrieve should + ;; either simply not return the "destination" buffer, or it + ;; should take an optional `dest-buf' argument. + (set (make-local-variable 'url-redirect-buffer) + (url-retrieve-internal + redirect-uri url-callback-function + url-callback-arguments) + (url-mark-buffer-as-dead (current-buffer))))))) (4 ; Client error ;; 400 Bad Request ;; 401 Unauthorized @@ -653,7 +657,13 @@ should be shown to the user." ;; The request could not be understood by the server due to ;; malformed syntax. The client SHOULD NOT repeat the ;; request without modifications. - (setq success t)))) + (setq success t))) + ;; Tell the callback that an error occurred, and what the + ;; status code was. + (when success + (setf (car url-callback-arguments) + (nconc (list :error (list 'error 'http url-http-response-status)) + (car url-callback-arguments))))) (5 ;; 500 Internal server error ;; 501 Not implemented @@ -702,7 +712,13 @@ should be shown to the user." ;; which received this status code was the result of a user ;; action, the request MUST NOT be repeated until it is ;; requested by a separate user action. - nil))) + nil)) + ;; Tell the callback that an error occurred, and what the + ;; status code was. + (when success + (setf (car url-callback-arguments) + (nconc (list :error (list 'error 'http url-http-response-status)) + (car url-callback-arguments))))) (otherwise (error "Unknown class of HTTP response code: %d (%d)" class url-http-response-status))) @@ -1089,11 +1105,38 @@ CBARGS as the arguments." url-current-object)) (set-process-buffer connection buffer) - (set-process-sentinel connection 'url-http-end-of-document-sentinel) (set-process-filter connection 'url-http-generic-filter) - (process-send-string connection (url-http-create-request url)))) + (let ((status (process-status connection))) + (cond + ((eq status 'connect) + ;; Asynchronous connection + (set-process-sentinel connection 'url-http-async-sentinel)) + ((eq status 'failed) + ;; Asynchronous connection failed + (error "Could not create connection to %s:%d" (url-host url) + (url-port url))) + (t + (set-process-sentinel connection 'url-http-end-of-document-sentinel) + (process-send-string connection (url-http-create-request url))))))) buffer)) +(defun url-http-async-sentinel (proc why) + (declare (special url-callback-arguments)) + ;; We are performing an asynchronous connection, and a status change + ;; has occurred. + (with-current-buffer (process-buffer proc) + (cond + ((string= (substring why 0 4) "open") + (set-process-sentinel proc 'url-http-end-of-document-sentinel) + (process-send-string proc (url-http-create-request url-current-object))) + (t + (setf (car url-callback-arguments) + (nconc (list :error (list 'error 'connection-failed why + :host (url-host url-current-object) + :service (url-port url-current-object))) + (car url-callback-arguments))) + (url-http-activate-callback))))) + ;; Since Emacs 19/20 does not allow you to change the ;; `after-change-functions' hook in the midst of running them, we fake ;; an after change by hooking into the process filter and inserting diff --git a/lisp/url/url.el b/lisp/url/url.el index 07ac55dcd3d..6e4dfa089e7 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -128,13 +128,39 @@ URL is either a string or a parsed URL. CALLBACK is called when the object has been completely retrieved, with the current buffer containing the object, and any MIME headers associated -with it. Normally it gets the arguments in the list CBARGS. -However, if what we find is a redirect, CALLBACK is given -two additional args, `:redirect' and the redirected URL, -followed by CBARGS. +with it. It is called as (apply CALLBACK STATUS CBARGS). +STATUS is a list with an even number of elements representing +what happened during the request, with most recent events first, +or an empty list if no events have occurred. Each pair is one of: + +\(:redirect REDIRECTED-TO) - the request was redirected to this URL +\(:error (ERROR-SYMBOL . DATA)) - an error occurred. The error can be +signaled with (signal ERROR-SYMBOL DATA). Return the buffer URL will load into, or nil if the process has -already completed." +already completed (i.e. URL was a mailto URL or similar; in this case +the callback is not called). + +The variables `url-request-data', `url-request-method' and +`url-request-extra-headers' can be dynamically bound around the +request; dynamic binding of other variables doesn't necessarily +take effect." +;;; XXX: There is code in Emacs that does dynamic binding +;;; of the following variables around url-retrieve: +;;; url-standalone-mode, url-gateway-unplugged, w3-honor-stylesheets, +;;; url-confirmation-func, url-cookie-multiple-line, +;;; url-cookie-{{,secure-}storage,confirmation} +;;; url-standalone-mode and url-gateway-unplugged should work as +;;; usual. url-confirmation-func is only used in nnwarchive.el and +;;; webmail.el; the latter should be updated. Is +;;; url-cookie-multiple-line needed anymore? The other url-cookie-* +;;; are (for now) only used in synchronous retrievals. + (url-retrieve-internal url callback (cons nil cbargs))) + +(defun url-retrieve-internal (url callback cbargs) + "Internal function; external interface is `url-retrieve'. +CBARGS is what the callback will actually receive - the first item is +the list of events, as described in the docstring of `url-retrieve'." (url-do-setup) (url-gc-dead-buffers) (if (stringp url) @@ -211,6 +237,9 @@ no further processing). URL is either a string or a parsed URL." ;; clear that it's a bug, but even then we need to decide how ;; url-http can then warn us that the download has completed. ;; In the mean time, we use this here workaround. + ;; XXX: The callback must always be called. Any + ;; exception is a bug that should be fixed, not worked + ;; around. (setq retrieval-done t)) ;; We used to use `sit-for' here, but in some cases it wouldn't ;; work because apparently pending keyboard input would always diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 6d27c5c6a7e..c48ce7a5f99 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -125,8 +125,7 @@ This is only meaningful if you don't use the implicit checkout model ;; an `error' by vc-do-command. (error nil)))) (when (eq 0 status) - (vc-svn-parse-status t) - (eq 'SVN (vc-file-getprop file 'vc-backend))))))) + (vc-svn-parse-status file)))))) (defun vc-svn-state (file &optional localp) "SVN-specific version of `vc-state'." @@ -134,8 +133,7 @@ This is only meaningful if you don't use the implicit checkout model (with-temp-buffer (cd (file-name-directory file)) (vc-svn-command t 0 file "status" (if localp "-v" "-u")) - (vc-svn-parse-status localp) - (vc-file-getprop file 'vc-state))) + (vc-svn-parse-status file))) (defun vc-svn-state-heuristic (file) "SVN-specific state heuristic." @@ -149,7 +147,7 @@ This is only meaningful if you don't use the implicit checkout model ;; enough. Otherwise it might fail with remote repositories. (with-temp-buffer (vc-svn-command t 0 nil "status" (if localp "-v" "-u")) - (vc-svn-parse-status localp)))) + (vc-svn-parse-status)))) (defun vc-svn-workfile-version (file) "SVN-specific version of `vc-workfile-version'." @@ -488,10 +486,10 @@ and that it passes `vc-svn-global-switches' to it before FLAGS." ;; behavior for different modules on the same server. (match-string 1)))) -(defun vc-svn-parse-status (localp) +(defun vc-svn-parse-status (&optional filename) "Parse output of \"svn status\" command in the current buffer. -Set file properties accordingly. Unless FULL is t, parse only -essential information." +Set file properties accordingly. Unless FILENAME is non-nil, parse only +information about FILENAME and return its status." (let (file status) (goto-char (point-min)) (while (re-search-forward @@ -500,7 +498,9 @@ essential information." (buffer-substring (point) (line-end-position)))) (setq status (char-after (line-beginning-position))) (unless (eq status ??) - (vc-file-setprop file 'vc-backend 'SVN) + ;; `vc-BACKEND-registered' must not set vc-backend, + ;; which is instead set in vc-registered. + (unless filename (vc-file-setprop file 'vc-backend 'SVN)) ;; Use the last-modified revision, so that searching in vc-print-log ;; output works. (vc-file-setprop file 'vc-workfile-version (match-string 3)) @@ -522,7 +522,8 @@ essential information." (if (eq (char-after (match-beginning 1)) ?*) 'needs-merge 'edited)) - (t 'edited))))))) + (t 'edited))))) + (if filename (vc-file-getprop filename 'vc-state)))) (defun vc-svn-dir-state-heuristic (dir) "Find the SVN state of all files in DIR, using only local information." diff --git a/lisp/vc.el b/lisp/vc.el index d72ee4c7e4e..afeba8d2409 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2682,25 +2682,32 @@ To get a prompt, use a prefix argument." (error "There is no version-controlled file in this buffer")) (let ((backend (vc-backend buffer-file-name)) (backends nil)) - (unless backend - (error "File %s is not under version control" buffer-file-name)) - ;; Find the registered backends. - (dolist (backend vc-handled-backends) - (when (vc-call-backend backend 'registered buffer-file-name) - (push backend backends))) - ;; Find the next backend. - (let ((def (car (delq backend (append (memq backend backends) backends)))) - (others (delete backend backends))) - (cond - ((null others) (error "No other backend to switch to")) - (current-prefix-arg - (intern - (upcase - (completing-read - (format "Switch to backend [%s]: " def) - (mapcar (lambda (b) (list (downcase (symbol-name b)))) backends) - nil t nil nil (downcase (symbol-name def)))))) - (t def)))))) + (unwind-protect + (progn + (unless backend + (error "File %s is not under version control" buffer-file-name)) + ;; Find the registered backends. + (dolist (backend vc-handled-backends) + (when (vc-call-backend backend 'registered buffer-file-name) + (push backend backends))) + ;; Find the next backend. + (let ((def (car (delq backend + (append (memq backend backends) backends)))) + (others (delete backend backends))) + (cond + ((null others) (error "No other backend to switch to")) + (current-prefix-arg + (intern + (upcase + (completing-read + (format "Switch to backend [%s]: " def) + (mapcar (lambda (b) (list (downcase (symbol-name b)))) backends) + nil t nil nil (downcase (symbol-name def)))))) + (t def)))) + ;; Calling the `registered' method can mess up the file + ;; properties, so we want to revert them to what they were. + (if (and backend (delete backend backends)) + (vc-call-backend backend 'registered buffer-file-name)))))) (unless (eq backend (vc-backend file)) (vc-file-clearprops file) (vc-file-setprop file 'vc-backend backend) diff --git a/lisp/version.el b/lisp/version.el index 5b9fccfefb3..e6ed5fb5e7e 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -27,7 +27,7 @@ ;;; Code: -(defconst emacs-version "22.0.51" "\ +(defconst emacs-version "22.0.91" "\ Version numbers of this version of Emacs.") (defconst emacs-major-version @@ -64,6 +64,8 @@ to the system configuration; look at `system-configuration' instead." ((featurep 'gtk) (concat ", GTK+ Version " gtk-version-string)) ((featurep 'x-toolkit) ", X toolkit") + ((boundp 'mac-carbon-version-string) + (concat ", Carbon Version " mac-carbon-version-string)) (t "")) (if (and (boundp 'x-toolkit-scroll-bars) (memq x-toolkit-scroll-bars '(xaw xaw3d))) diff --git a/lisp/window.el b/lisp/window.el index 0c50bc63a08..ac4fc0b7c96 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -719,17 +719,25 @@ or if the window is the only window of its frame." "Kill the current buffer and delete the selected window." (interactive) (let ((window-to-delete (selected-window)) + (buffer-to-kill (current-buffer)) (delete-window-hook (lambda () (condition-case nil (delete-window) (error nil))))) - (add-hook 'kill-buffer-hook delete-window-hook t t) - (if (kill-buffer (current-buffer)) - ;; If `delete-window' failed before, we rerun it to regenerate - ;; the error so it can be seen in the minibuffer. - (when (eq (selected-window) window-to-delete) - (delete-window)) - (remove-hook 'kill-buffer-hook delete-window-hook t)))) + (unwind-protect + (progn + (add-hook 'kill-buffer-hook delete-window-hook t t) + (if (kill-buffer (current-buffer)) + ;; If `delete-window' failed before, we rerun it to regenerate + ;; the error so it can be seen in the echo area. + (when (eq (selected-window) window-to-delete) + (delete-window)))) + ;; If the buffer is not dead for some reason (probably because + ;; of a `quit' signal), remove the hook again. + (condition-case nil + (with-current-buffer buffer-to-kill + (remove-hook 'kill-buffer-hook delete-window-hook t)) + (error nil))))) (defun quit-window (&optional kill window) "Quit the current buffer. Bury it, and maybe delete the selected frame. |