Now on revision 108451. ------------------------------------------------------------ revno: 108451 committer: Paul Eggert branch nick: trunk timestamp: Fri 2012-06-01 13:49:03 -0700 message: * xfns.c (x_set_tool_bar_lines) [USE_GTK]: Adjust to bitfield change. diff: === modified file 'src/ChangeLog' --- src/ChangeLog 2012-06-01 03:41:03 +0000 +++ src/ChangeLog 2012-06-01 20:49:03 +0000 @@ -1,3 +1,7 @@ +2012-06-01 Paul Eggert + + * xfns.c (x_set_tool_bar_lines) [USE_GTK]: Adjust to bitfield change. + 2012-06-01 Dmitry Antipov For a 'struct window', replace some Lisp_Object fields to === modified file 'src/xfns.c' --- src/xfns.c 2012-06-01 03:41:03 +0000 +++ src/xfns.c 2012-06-01 20:49:03 +0000 @@ -1291,7 +1291,7 @@ FRAME_EXTERNAL_TOOL_BAR (f) = 1; if (FRAME_X_P (f) && f->output_data.x->toolbar_widget == 0) /* Make sure next redisplay shows the tool bar. */ - XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt; + XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = 1; update_frame_tool_bar (f); } else ------------------------------------------------------------ revno: 108450 committer: Stefan Monnier branch nick: trunk timestamp: Fri 2012-06-01 16:36:00 -0400 message: * lisp/emacs-lisp/cl-macs.el: Use backquotes. (cl-transform-function-property): Use eval-and-compile rather than abusing `require'. (defstruct): Use declare-function instead of with-no-warnings. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2012-06-01 19:47:54 +0000 +++ lisp/ChangeLog 2012-06-01 20:36:00 +0000 @@ -1,5 +1,10 @@ 2012-06-01 Stefan Monnier + * emacs-lisp/cl-macs.el: Use backquotes. + (cl-transform-function-property): Use eval-and-compile rather than + abusing `require'. + (defstruct): Use declare-function instead of with-no-warnings. + * emacs-lisp/bytecomp.el: Fix last change (bug#11594). (byte-compile-output-docform): Re-add the print-circle bindings. (byte-compile-fix-header): Use #$ just because it's shorter. === modified file 'lisp/emacs-lisp/cl-loaddefs.el' --- lisp/emacs-lisp/cl-loaddefs.el 2012-05-27 01:06:44 +0000 +++ lisp/emacs-lisp/cl-loaddefs.el 2012-06-01 20:36:00 +0000 @@ -286,7 +286,7 @@ ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist ;;;;;; do* do loop return-from return block etypecase typecase ecase ;;;;;; case load-time-value eval-when destructuring-bind function* -;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "c383ef0fa5f6d28796cd8e9cf65e1c5d") +;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "27ba927adbc0b4f120c4d949181e04ed") ;;; Generated autoloads from cl-macs.el (autoload 'gensym "cl-macs" "\ @@ -306,34 +306,34 @@ Like normal `defun', except ARGLIST allows full Common Lisp conventions, and BODY is implicitly surrounded by (block NAME ...). -\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil (quote macro)) +\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil t) + +(put 'defun* 'doc-string-elt '3) (put 'defun* 'lisp-indent-function '2) -(put 'defun* 'doc-string-elt '3) - (autoload 'defmacro* "cl-macs" "\ Define NAME as a macro. Like normal `defmacro', except ARGLIST allows full Common Lisp conventions, and BODY is implicitly surrounded by (block NAME ...). -\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil (quote macro)) +\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil t) + +(put 'defmacro* 'doc-string-elt '3) (put 'defmacro* 'lisp-indent-function '2) -(put 'defmacro* 'doc-string-elt '3) - (autoload 'function* "cl-macs" "\ Introduce a function. Like normal `function', except that if argument is a lambda form, its argument list allows full Common Lisp conventions. -\(fn FUNC)" nil (quote macro)) +\(fn FUNC)" nil t) (autoload 'destructuring-bind "cl-macs" "\ -\(fn ARGS EXPR &rest BODY)" nil (quote macro)) +\(fn ARGS EXPR &rest BODY)" nil t) (put 'destructuring-bind 'lisp-indent-function '2) @@ -343,7 +343,7 @@ If `load' is in WHEN, BODY is evaluated when loaded after top-level compile. If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level. -\(fn (WHEN...) BODY...)" nil (quote macro)) +\(fn (WHEN...) BODY...)" nil t) (put 'eval-when 'lisp-indent-function '1) @@ -351,7 +351,7 @@ Like `progn', but evaluates the body at load time. The result of the body appears to the compiler as a quoted constant. -\(fn FORM &optional READ-ONLY)" nil (quote macro)) +\(fn FORM &optional READ-ONLY)" nil t) (autoload 'case "cl-macs" "\ Eval EXPR and choose among clauses on that value. @@ -362,7 +362,7 @@ allowed only in the final clause, and matches if no other keys match. Key values are compared by `eql'. -\(fn EXPR (KEYLIST BODY...)...)" nil (quote macro)) +\(fn EXPR (KEYLIST BODY...)...)" nil t) (put 'case 'lisp-indent-function '1) @@ -370,7 +370,7 @@ Like `case', but error if no case fits. `otherwise'-clauses are not allowed. -\(fn EXPR (KEYLIST BODY...)...)" nil (quote macro)) +\(fn EXPR (KEYLIST BODY...)...)" nil t) (put 'ecase 'lisp-indent-function '1) @@ -381,7 +381,7 @@ typecase returns nil. A TYPE of t or `otherwise' is allowed only in the final clause, and matches if no other keys match. -\(fn EXPR (TYPE BODY...)...)" nil (quote macro)) +\(fn EXPR (TYPE BODY...)...)" nil t) (put 'typecase 'lisp-indent-function '1) @@ -389,7 +389,7 @@ Like `typecase', but error if no case fits. `otherwise'-clauses are not allowed. -\(fn EXPR (TYPE BODY...)...)" nil (quote macro)) +\(fn EXPR (TYPE BODY...)...)" nil t) (put 'etypecase 'lisp-indent-function '1) @@ -403,7 +403,7 @@ references may appear inside macro expansions, but not inside functions called from BODY. -\(fn NAME &rest BODY)" nil (quote macro)) +\(fn NAME &rest BODY)" nil t) (put 'block 'lisp-indent-function '1) @@ -411,7 +411,7 @@ Return from the block named nil. This is equivalent to `(return-from nil RESULT)'. -\(fn &optional RESULT)" nil (quote macro)) +\(fn &optional RESULT)" nil t) (autoload 'return-from "cl-macs" "\ Return from the block named NAME. @@ -420,7 +420,7 @@ This is compatible with Common Lisp, but note that `defun' and `defmacro' do not create implicit blocks as they do in Common Lisp. -\(fn NAME &optional RESULT)" nil (quote macro)) +\(fn NAME &optional RESULT)" nil t) (put 'return-from 'lisp-indent-function '1) @@ -438,19 +438,19 @@ do EXPRS..., initially EXPRS..., finally EXPRS..., return EXPR, finally return EXPR, named NAME. -\(fn CLAUSE...)" nil (quote macro)) +\(fn CLAUSE...)" nil t) (autoload 'do "cl-macs" "\ The Common Lisp `do' loop. -\(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil (quote macro)) +\(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil t) (put 'do 'lisp-indent-function '2) (autoload 'do* "cl-macs" "\ The Common Lisp `do*' loop. -\(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil (quote macro)) +\(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil t) (put 'do* 'lisp-indent-function '2) @@ -460,7 +460,7 @@ Then evaluate RESULT to get return value, default nil. An implicit nil block is established around the loop. -\(fn (VAR LIST [RESULT]) BODY...)" nil (quote macro)) +\(fn (VAR LIST [RESULT]) BODY...)" nil t) (autoload 'dotimes "cl-macs" "\ Loop a certain number of times. @@ -468,21 +468,21 @@ to COUNT, exclusive. Then evaluate RESULT to get return value, default nil. -\(fn (VAR COUNT [RESULT]) BODY...)" nil (quote macro)) +\(fn (VAR COUNT [RESULT]) BODY...)" nil t) (autoload 'do-symbols "cl-macs" "\ Loop over all symbols. Evaluate BODY with VAR bound to each interned symbol, or to each symbol from OBARRAY. -\(fn (VAR [OBARRAY [RESULT]]) BODY...)" nil (quote macro)) +\(fn (VAR [OBARRAY [RESULT]]) BODY...)" nil t) (put 'do-symbols 'lisp-indent-function '1) (autoload 'do-all-symbols "cl-macs" "\ -\(fn SPEC &rest BODY)" nil (quote macro)) +\(fn SPEC &rest BODY)" nil t) (put 'do-all-symbols 'lisp-indent-function '1) @@ -491,7 +491,7 @@ This is like `setq', except that all VAL forms are evaluated (in order) before assigning any symbols SYM to the corresponding values. -\(fn SYM VAL SYM VAL ...)" nil (quote macro)) +\(fn SYM VAL SYM VAL ...)" nil t) (autoload 'progv "cl-macs" "\ Bind SYMBOLS to VALUES dynamically in BODY. @@ -501,7 +501,7 @@ BODY forms are executed and their result is returned. This is much like a `let' form, except that the list of symbols can be computed at run-time. -\(fn SYMBOLS VALUES &rest BODY)" nil (quote macro)) +\(fn SYMBOLS VALUES &rest BODY)" nil t) (put 'progv 'lisp-indent-function '2) @@ -512,7 +512,7 @@ function definitions in place, then the definitions are undone (the FUNCs go back to their previous definitions, or lack thereof). -\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" nil (quote macro)) +\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" nil t) (put 'flet 'lisp-indent-function '1) @@ -521,7 +521,7 @@ This is like `flet', except the bindings are lexical instead of dynamic. Unlike `flet', this macro is fully compliant with the Common Lisp standard. -\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" nil (quote macro)) +\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" nil t) (put 'labels 'lisp-indent-function '1) @@ -529,7 +529,7 @@ Make temporary macro definitions. This is like `flet', but for macros instead of functions. -\(fn ((NAME ARGLIST BODY...) ...) FORM...)" nil (quote macro)) +\(fn ((NAME ARGLIST BODY...) ...) FORM...)" nil t) (put 'macrolet 'lisp-indent-function '1) @@ -538,7 +538,7 @@ Within the body FORMs, references to the variable NAME will be replaced by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...). -\(fn ((NAME EXPANSION) ...) FORM...)" nil (quote macro)) +\(fn ((NAME EXPANSION) ...) FORM...)" nil t) (put 'symbol-macrolet 'lisp-indent-function '1) @@ -547,7 +547,7 @@ The main visible difference is that lambdas inside BODY will create lexical closures as in Common Lisp. -\(fn BINDINGS BODY)" nil (quote macro)) +\(fn BINDINGS BODY)" nil t) (put 'lexical-let 'lisp-indent-function '1) @@ -558,7 +558,7 @@ as in Common Lisp. This is similar to the behavior of `let*' in Common Lisp. -\(fn BINDINGS BODY)" nil (quote macro)) +\(fn BINDINGS BODY)" nil t) (put 'lexical-let* 'lisp-indent-function '1) @@ -570,7 +570,7 @@ simulate true multiple return values. For compatibility, (values A B C) is a synonym for (list A B C). -\(fn (SYM...) FORM BODY)" nil (quote macro)) +\(fn (SYM...) FORM BODY)" nil t) (put 'multiple-value-bind 'lisp-indent-function '2) @@ -581,19 +581,19 @@ `multiple-value-setq' macro, using lists to simulate true multiple return values. For compatibility, (values A B C) is a synonym for (list A B C). -\(fn (SYM...) FORM)" nil (quote macro)) +\(fn (SYM...) FORM)" nil t) (put 'multiple-value-setq 'lisp-indent-function '1) (autoload 'locally "cl-macs" "\ -\(fn &rest BODY)" nil (quote macro)) +\(fn &rest BODY)" nil t) (autoload 'the "cl-macs" "\ -\(fn TYPE FORM)" nil (quote macro)) +\(fn TYPE FORM)" nil t) (put 'the 'lisp-indent-function '1) @@ -606,7 +606,7 @@ will turn off byte-compile warnings in the function. See Info node `(cl)Declarations' for details. -\(fn &rest SPECS)" nil (quote macro)) +\(fn &rest SPECS)" nil t) (autoload 'define-setf-method "cl-macs" "\ Define a `setf' method. @@ -617,7 +617,7 @@ list, a store-variables list (of length one), a store-form, and an access- form. See `defsetf' for a simpler way to define most setf-methods. -\(fn NAME ARGLIST BODY...)" nil (quote macro)) +\(fn NAME ARGLIST BODY...)" nil t) (autoload 'defsetf "cl-macs" "\ Define a `setf' method. @@ -636,9 +636,9 @@ introduced automatically to preserve proper execution order of the arguments. Example: - (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v)) + (defsetf nth (n x) (v) `(setcar (nthcdr ,n ,x) ,v)) -\(fn NAME [FUNC | ARGLIST (STORE) BODY...])" nil (quote macro)) +\(fn NAME [FUNC | ARGLIST (STORE) BODY...])" nil t) (autoload 'get-setf-method "cl-macs" "\ Return a list of five values describing the setf-method for PLACE. @@ -654,14 +654,14 @@ For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y). The return value is the last VAL in the list. -\(fn PLACE VAL PLACE VAL ...)" nil (quote macro)) +\(fn PLACE VAL PLACE VAL ...)" nil t) (autoload 'psetf "cl-macs" "\ Set PLACEs to the values VALs in parallel. This is like `setf', except that all VAL forms are evaluated (in order) before assigning any PLACEs to the corresponding values. -\(fn PLACE VAL PLACE VAL ...)" nil (quote macro)) +\(fn PLACE VAL PLACE VAL ...)" nil t) (autoload 'cl-do-pop "cl-macs" "\ @@ -673,21 +673,21 @@ PLACE may be a symbol, or any generalized variable allowed by `setf'. The form returns true if TAG was found and removed, nil otherwise. -\(fn PLACE TAG)" nil (quote macro)) +\(fn PLACE TAG)" nil t) (autoload 'shiftf "cl-macs" "\ Shift left among PLACEs. Example: (shiftf A B C) sets A to B, B to C, and returns the old A. Each PLACE may be a symbol, or any generalized variable allowed by `setf'. -\(fn PLACE... VAL)" nil (quote macro)) +\(fn PLACE... VAL)" nil t) (autoload 'rotatef "cl-macs" "\ Rotate left among PLACEs. Example: (rotatef A B C) sets A to B, B to C, and C to A. It returns nil. Each PLACE may be a symbol, or any generalized variable allowed by `setf'. -\(fn PLACE...)" nil (quote macro)) +\(fn PLACE...)" nil t) (autoload 'letf "cl-macs" "\ Temporarily bind to PLACEs. @@ -699,7 +699,7 @@ As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)', the PLACE is not modified before executing BODY. -\(fn ((PLACE VALUE) ...) BODY...)" nil (quote macro)) +\(fn ((PLACE VALUE) ...) BODY...)" nil t) (put 'letf 'lisp-indent-function '1) @@ -713,7 +713,7 @@ As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)', the PLACE is not modified before executing BODY. -\(fn ((PLACE VALUE) ...) BODY...)" nil (quote macro)) +\(fn ((PLACE VALUE) ...) BODY...)" nil t) (put 'letf* 'lisp-indent-function '1) @@ -722,7 +722,7 @@ FUNC should be an unquoted function name. PLACE may be a symbol, or any generalized variable allowed by `setf'. -\(fn FUNC PLACE ARGS...)" nil (quote macro)) +\(fn FUNC PLACE ARGS...)" nil t) (put 'callf 'lisp-indent-function '2) @@ -730,7 +730,7 @@ Set PLACE to (FUNC ARG1 PLACE ARGS...). Like `callf', but PLACE is the second argument of FUNC, not the first. -\(fn FUNC ARG1 PLACE ARGS...)" nil (quote macro)) +\(fn FUNC ARG1 PLACE ARGS...)" nil t) (put 'callf2 'lisp-indent-function '3) @@ -739,7 +739,7 @@ If NAME is called, it combines its PLACE argument with the other arguments from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +) -\(fn NAME ARGLIST FUNC &optional DOC)" nil (quote macro)) +\(fn NAME ARGLIST FUNC &optional DOC)" nil t) (autoload 'defstruct "cl-macs" "\ Define a struct type. @@ -757,7 +757,7 @@ one keyword is supported, `:read-only'. If this has a non-nil value, that slot cannot be set via `setf'. -\(fn NAME SLOTS...)" nil (quote macro)) +\(fn NAME SLOTS...)" nil t) (put 'defstruct 'doc-string-elt '2) @@ -770,7 +770,7 @@ Define NAME as a new data type. The type name can then be used in `typecase', `check-type', etc. -\(fn NAME ARGLIST &rest BODY)" nil (quote macro)) +\(fn NAME ARGLIST &rest BODY)" nil t) (put 'deftype 'doc-string-elt '3) @@ -784,7 +784,7 @@ Verify that FORM is of type TYPE; signal an error if not. STRING is an optional description of the desired type. -\(fn FORM TYPE &optional STRING)" nil (quote macro)) +\(fn FORM TYPE &optional STRING)" nil t) (autoload 'assert "cl-macs" "\ Verify that FORM returns non-nil; signal an error if not. @@ -793,7 +793,7 @@ They are not evaluated unless the assertion fails. If STRING is omitted, a default message listing FORM itself is used. -\(fn FORM &optional SHOW-ARGS STRING &rest ARGS)" nil (quote macro)) +\(fn FORM &optional SHOW-ARGS STRING &rest ARGS)" nil t) (autoload 'define-compiler-macro "cl-macs" "\ Define a compiler-only macro. @@ -807,7 +807,7 @@ original function call alone by declaring an initial `&whole foo' parameter and then returning foo. -\(fn FUNC ARGS &rest BODY)" nil (quote macro)) +\(fn FUNC ARGS &rest BODY)" nil t) (autoload 'compiler-macroexpand "cl-macs" "\ @@ -820,7 +820,7 @@ ARGLIST allows full Common Lisp conventions, and BODY is implicitly surrounded by (block NAME ...). -\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil (quote macro)) +\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil t) ;;;*** === modified file 'lisp/emacs-lisp/cl-macs.el' --- lisp/emacs-lisp/cl-macs.el 2012-05-27 01:06:44 +0000 +++ lisp/emacs-lisp/cl-macs.el 2012-06-01 20:36:00 +0000 @@ -46,8 +46,8 @@ (require 'cl) (defmacro cl-pop2 (place) - (list 'prog1 (list 'car (list 'cdr place)) - (list 'setq place (list 'cdr (list 'cdr place))))) + `(prog1 (car (cdr ,place)) + (setq ,place (cdr (cdr ,place))))) (put 'cl-pop2 'edebug-form-spec 'edebug-sexps) (defvar cl-optimize-safety) @@ -57,15 +57,10 @@ ;; This kludge allows macros which use cl-transform-function-property ;; to be called at compile-time. -(require - (progn - (or (fboundp 'cl-transform-function-property) - (defalias 'cl-transform-function-property - (function (lambda (n p f) - (list 'put (list 'quote n) (list 'quote p) - (list 'function (cons 'lambda f))))))) - (car (or features (setq features (list 'cl-kludge)))))) - +(eval-and-compile + (or (fboundp 'cl-transform-function-property) + (defun cl-transform-function-property (n p f) + `(put ',n ',p #'(lambda . ,f))))) ;;; Initialization. @@ -148,7 +143,7 @@ ;; non-macroexpanded code, so it may also miss some occurrences that would ;; only appear in the expanded code. (cond ((equal y x) 1) - ((and (consp x) (not (memq (car-safe x) '(quote function function*)))) + ((and (consp x) (not (memq (car x) '(quote function function*)))) (let ((sum 0)) (while (consp x) (setq sum (+ sum (or (cl-expr-contains (pop x) y) 0)))) @@ -230,8 +225,8 @@ (doc-string 3) (indent 2)) (let* ((res (cl-transform-lambda (cons args body) name)) - (form (list* 'defun name (cdr res)))) - (if (car res) (list 'progn (car res) form) form))) + (form `(defun ,name ,@(cdr res)))) + (if (car res) `(progn ,(car res) ,form) form))) ;; The lambda list for macros is different from that of normal lambdas. ;; Note that &environment is only allowed as first or last items in the @@ -283,8 +278,8 @@ (doc-string 3) (indent 2)) (let* ((res (cl-transform-lambda (cons args body) name)) - (form (list* 'defmacro name (cdr res)))) - (if (car res) (list 'progn (car res) form) form))) + (form `(defmacro ,name ,@(cdr res)))) + (if (car res) `(progn ,(car res) ,form) form))) (def-edebug-spec cl-lambda-expr (&define ("lambda" cl-lambda-list @@ -308,15 +303,14 @@ (declare (debug (&or symbolp cl-lambda-expr))) (if (eq (car-safe func) 'lambda) (let* ((res (cl-transform-lambda (cdr func) 'cl-none)) - (form (list 'function (cons 'lambda (cdr res))))) - (if (car res) (list 'progn (car res) form) form)) - (list 'function func))) + (form `(function (lambda . ,(cdr res))))) + (if (car res) `(progn ,(car res) ,form) form)) + `(function ,func))) (defun cl-transform-function-property (func prop form) (let ((res (cl-transform-lambda form func))) - (append '(progn) (cdr (cdr (car res))) - (list (list 'put (list 'quote func) (list 'quote prop) - (list 'function (cons 'lambda (cdr res)))))))) + `(progn ,@(cdr (cdr (car res))) + (put ',func ',prop #'(lambda . ,(cdr res)))))) (defconst lambda-list-keywords '(&optional &rest &key &allow-other-keys &aux &whole &body &environment)) @@ -387,15 +381,15 @@ (or bind-defs (consp (cadr args)))))) (push (pop args) simple-args)) (or (eq bind-block 'cl-none) - (setq body (list (list* 'block bind-block body)))) + (setq body (list `(block ,bind-block ,@body)))) (if (null args) (list* nil (nreverse simple-args) (nconc (nreverse header) body)) (if (memq '&optional simple-args) (push '&optional args)) (cl-do-arglist args nil (- (length simple-args) (if (memq '&optional simple-args) 1 0))) (setq bind-lets (nreverse bind-lets)) - (list* (and bind-inits (list* 'eval-when '(compile load eval) - (nreverse bind-inits))) + (list* (and bind-inits `(eval-when (compile load eval) + ,@(nreverse bind-inits))) (nconc (nreverse simple-args) (list '&rest (car (pop bind-lets)))) (nconc (let ((hdr (nreverse header))) @@ -410,8 +404,9 @@ (cons 'fn (cl--make-usage-args orig-args)))) hdr))) - (list (nconc (list 'let* bind-lets) - (nreverse bind-forms) body))))))) + (list `(let* ,bind-lets + ,@(nreverse bind-forms) + ,@body))))))) (defun cl-do-arglist (args expr &optional num) ; uses bind-* (if (nlistp args) @@ -440,8 +435,8 @@ (or (eq p args) (setq minarg (list 'cdr minarg))) (setq p (cdr p))) (if (memq (car p) '(nil &aux)) - (setq minarg (list '= (list 'length restarg) - (length (ldiff args p))) + (setq minarg `(= (length ,restarg) + ,(length (ldiff args p))) exactarg (not (eq args p))))) (while (and args (not (memq (car args) lambda-list-keywords))) (let ((poparg (list (if (or (cdr args) (not exactarg)) 'pop 'car) @@ -449,36 +444,36 @@ (cl-do-arglist (pop args) (if (or laterarg (= safety 0)) poparg - (list 'if minarg poparg - (list 'signal '(quote wrong-number-of-arguments) - (list 'list (and (not (eq bind-block 'cl-none)) - (list 'quote bind-block)) - (list 'length restarg))))))) + `(if ,minarg ,poparg + (signal 'wrong-number-of-arguments + (list ,(and (not (eq bind-block 'cl-none)) + `',bind-block) + (length ,restarg))))))) (setq num (1+ num) laterarg t)) (while (and (eq (car args) '&optional) (pop args)) (while (and args (not (memq (car args) lambda-list-keywords))) (let ((arg (pop args))) (or (consp arg) (setq arg (list arg))) - (if (cddr arg) (cl-do-arglist (nth 2 arg) (list 'and restarg t))) + (if (cddr arg) (cl-do-arglist (nth 2 arg) `(and ,restarg t))) (let ((def (if (cdr arg) (nth 1 arg) (or (car bind-defs) (nth 1 (assq (car arg) bind-defs))))) - (poparg (list 'pop restarg))) - (and def bind-enquote (setq def (list 'quote def))) + (poparg `(pop ,restarg))) + (and def bind-enquote (setq def `',def)) (cl-do-arglist (car arg) - (if def (list 'if restarg poparg def) poparg)) + (if def `(if ,restarg ,poparg ,def) poparg)) (setq num (1+ num)))))) (if (eq (car args) '&rest) (let ((arg (cl-pop2 args))) (if (consp arg) (cl-do-arglist arg restarg))) (or (eq (car args) '&key) (= safety 0) exactarg - (push (list 'if restarg - (list 'signal '(quote wrong-number-of-arguments) - (list 'list - (and (not (eq bind-block 'cl-none)) - (list 'quote bind-block)) - (list '+ num (list 'length restarg))))) - bind-forms))) + (push `(if ,restarg + (signal 'wrong-number-of-arguments + (list + ,(and (not (eq bind-block 'cl-none)) + `',bind-block) + (+ ,num (length ,restarg))))) + bind-forms))) (while (and (eq (car args) '&key) (pop args)) (while (and args (not (memq (car args) lambda-list-keywords))) (let ((arg (pop args))) @@ -488,59 +483,48 @@ (varg (if (consp (car arg)) (cadar arg) (car arg))) (def (if (cdr arg) (cadr arg) (or (car bind-defs) (cadr (assq varg bind-defs))))) - (look (list 'memq (list 'quote karg) restarg))) - (and def bind-enquote (setq def (list 'quote def))) + (look `(memq ',karg ,restarg))) + (and def bind-enquote (setq def `',def)) (if (cddr arg) (let* ((temp (or (nth 2 arg) (make-symbol "--cl-var--"))) - (val (list 'car (list 'cdr temp)))) + (val `(car (cdr ,temp)))) (cl-do-arglist temp look) (cl-do-arglist varg - (list 'if temp - (list 'prog1 val (list 'setq temp t)) - def))) + `(if ,temp + (prog1 ,val (setq ,temp t)) + ,def))) (cl-do-arglist varg - (list 'car - (list 'cdr - (if (null def) + `(car (cdr ,(if (null def) look - (list 'or look - (if (eq (cl-const-expr-p def) t) - (list - 'quote - (list nil (cl-const-expr-val def))) - (list 'list nil def)))))))) + `(or ,look + ,(if (eq (cl-const-expr-p def) t) + `'(nil ,(cl-const-expr-val def)) + `(list nil ,def)))))))) (push karg keys))))) (setq keys (nreverse keys)) (or (and (eq (car args) '&allow-other-keys) (pop args)) (null keys) (= safety 0) (let* ((var (make-symbol "--cl-keys--")) (allow '(:allow-other-keys)) - (check (list - 'while var - (list - 'cond - (list (list 'memq (list 'car var) - (list 'quote (append keys allow))) - (list 'setq var (list 'cdr (list 'cdr var)))) - (list (list 'car - (list 'cdr - (list 'memq (cons 'quote allow) - restarg))) - (list 'setq var nil)) - (list t - (list - 'error - (format "Keyword argument %%s not one of %s" - keys) - (list 'car var))))))) - (push (list 'let (list (list var restarg)) check) bind-forms))) + (check `(while ,var + (cond + ((memq (car ,var) ',(append keys allow)) + (setq ,var (cdr (cdr ,var)))) + ((car (cdr (memq (quote ,@allow) ,restarg))) + (setq ,var nil)) + (t + (error + ,(format "Keyword argument %%s not one of %s" + keys) + (car ,var))))))) + (push `(let ((,var ,restarg)) ,check) bind-forms))) (while (and (eq (car args) '&aux) (pop args)) (while (and args (not (memq (car args) lambda-list-keywords))) (if (consp (car args)) (if (and bind-enquote (cadar args)) (cl-do-arglist (caar args) - (list 'quote (cadr (pop args)))) + `',(cadr (pop args))) (cl-do-arglist (caar args) (cadr (pop args)))) (cl-do-arglist (pop args) nil)))) (if args (error "Malformed argument list %s" save-args))))) @@ -565,8 +549,8 @@ (bind-defs nil) (bind-block 'cl-none) (bind-enquote nil)) (cl-do-arglist (or args '(&aux)) expr) (append '(progn) bind-inits - (list (nconc (list 'let* (nreverse bind-lets)) - (nreverse bind-forms) body))))) + (list `(let* ,(nreverse bind-lets) + ,@(nreverse bind-forms) ,@body))))) ;;; The `eval-when' form. @@ -588,7 +572,7 @@ (cl-not-toplevel t)) (if (or (memq 'load when) (memq :load-toplevel when)) (if comp (cons 'progn (mapcar 'cl-compile-time-too body)) - (list* 'if nil nil body)) + `(if nil nil ,@body)) (progn (if comp (eval (cons 'progn body))) nil))) (and (or (memq 'eval when) (memq :execute when)) (cons 'progn body)))) @@ -602,7 +586,7 @@ ((eq (car-safe form) 'eval-when) (let ((when (nth 1 form))) (if (or (memq 'eval when) (memq :execute when)) - (list* 'eval-when (cons 'compile when) (cddr form)) + `(eval-when (compile ,@when) ,@(cddr form)) form))) (t (eval form) form))) @@ -613,19 +597,18 @@ (declare (debug (form &optional sexp))) (if (cl-compiling-file) (let* ((temp (gentemp "--cl-load-time--")) - (set (list 'set (list 'quote temp) form))) + (set `(set ',temp ,form))) (if (and (fboundp 'byte-compile-file-form-defmumble) (boundp 'this-kind) (boundp 'that-one)) (fset 'byte-compile-file-form - (list 'lambda '(form) - (list 'fset '(quote byte-compile-file-form) - (list 'quote - (symbol-function 'byte-compile-file-form))) - (list 'byte-compile-file-form (list 'quote set)) - '(byte-compile-file-form form))) + `(lambda (form) + (fset 'byte-compile-file-form + ',(symbol-function 'byte-compile-file-form)) + (byte-compile-file-form ',set) + (byte-compile-file-form form))) (print set (symbol-value 'byte-compile--outbuffer))) - (list 'symbol-value (list 'quote temp))) - (list 'quote (eval form)))) + `(symbol-value ',temp)) + `',(eval form))) ;;; Conditional control structures. @@ -650,21 +633,21 @@ (lambda (c) (cons (cond ((memq (car c) '(t otherwise)) t) ((eq (car c) 'ecase-error-flag) - (list 'error "ecase failed: %s, %s" - temp (list 'quote (reverse head-list)))) + `(error "ecase failed: %s, %s" + ,temp ',(reverse head-list))) ((listp (car c)) (setq head-list (append (car c) head-list)) - (list 'member* temp (list 'quote (car c)))) + `(member* ,temp ',(car c))) (t (if (memq (car c) head-list) (error "Duplicate key in case: %s" (car c))) (push (car c) head-list) - (list 'eql temp (list 'quote (car c))))) + `(eql ,temp ',(car c)))) (or (cdr c) '(nil))))) clauses)))) (if (eq temp expr) body - (list 'let (list (list temp expr)) body)))) + `(let ((,temp ,expr)) ,body)))) ;;;###autoload (defmacro ecase (expr &rest clauses) @@ -672,7 +655,7 @@ `otherwise'-clauses are not allowed. \n(fn EXPR (KEYLIST BODY...)...)" (declare (indent 1) (debug case)) - (list* 'case expr (append clauses '((ecase-error-flag))))) + `(case ,expr ,@clauses (ecase-error-flag))) ;;;###autoload (defmacro typecase (expr &rest clauses) @@ -693,15 +676,15 @@ (lambda (c) (cons (cond ((eq (car c) 'otherwise) t) ((eq (car c) 'ecase-error-flag) - (list 'error "etypecase failed: %s, %s" - temp (list 'quote (reverse type-list)))) + `(error "etypecase failed: %s, %s" + ,temp ',(reverse type-list))) (t (push (car c) type-list) (cl-make-type-test temp (car c)))) (or (cdr c) '(nil))))) clauses)))) (if (eq temp expr) body - (list 'let (list (list temp expr)) body)))) + `(let ((,temp ,expr)) ,body)))) ;;;###autoload (defmacro etypecase (expr &rest clauses) @@ -709,7 +692,7 @@ `otherwise'-clauses are not allowed. \n(fn EXPR (TYPE BODY...)...)" (declare (indent 1) (debug typecase)) - (list* 'typecase expr (append clauses '((ecase-error-flag))))) + `(typecase ,expr ,@clauses (ecase-error-flag))) ;;; Blocks and exits. @@ -725,17 +708,17 @@ references may appear inside macro expansions, but not inside functions called from BODY." (declare (indent 1) (debug (symbolp body))) - (if (cl-safe-expr-p (cons 'progn body)) (cons 'progn body) - (list 'cl-block-wrapper - (list* 'catch (list 'quote (intern (format "--cl-block-%s--" name))) - body)))) + (if (cl-safe-expr-p `(progn ,@body)) `(progn ,@body) + `(cl-block-wrapper + (catch ',(intern (format "--cl-block-%s--" name)) + ,@body)))) ;;;###autoload (defmacro return (&optional result) "Return from the block named nil. This is equivalent to `(return-from nil RESULT)'." (declare (debug (&optional form))) - (list 'return-from nil result)) + `(return-from nil ,result)) ;;;###autoload (defmacro return-from (name &optional result) @@ -746,7 +729,7 @@ `defmacro' do not create implicit blocks as they do in Common Lisp." (declare (indent 1) (debug (symbolp &optional form))) (let ((name2 (intern (format "--cl-block-%s--" name)))) - (list 'cl-block-throw (list 'quote name2) result))) + `(cl-block-throw ',name2 ,result))) ;;; The "loop" macro. @@ -776,7 +759,7 @@ \(fn CLAUSE...)" (declare (debug (&rest &or symbolp form))) (if (not (memq t (mapcar 'symbolp (delq nil (delq t (copy-list loop-args)))))) - (list 'block nil (list* 'while t loop-args)) + `(block nil (while t ,@loop-args)) (let ((loop-name nil) (loop-bindings nil) (loop-body nil) (loop-steps nil) (loop-result nil) (loop-result-explicit nil) @@ -799,15 +782,15 @@ (body (append (nreverse loop-initially) (list (if loop-map-form - (list 'block '--cl-finish-- - (subst - (if (eq (car ands) t) while-body - (cons `(or ,(car ands) - (return-from --cl-finish-- - nil)) - while-body)) - '--cl-map loop-map-form)) - (list* 'while (car ands) while-body))) + `(block --cl-finish-- + ,(subst + (if (eq (car ands) t) while-body + (cons `(or ,(car ands) + (return-from --cl-finish-- + nil)) + while-body)) + '--cl-map loop-map-form)) + `(while ,(car ands) ,@while-body))) (if loop-finish-flag (if (equal epilogue '(nil)) (list loop-result-var) `((if ,loop-finish-flag @@ -823,8 +806,8 @@ (push (car (pop loop-bindings)) lets)) (setq body (list (cl-loop-let lets body nil)))))) (if loop-symbol-macs - (setq body (list (list* 'symbol-macrolet loop-symbol-macs body)))) - (list* 'block loop-name body))))) + (setq body (list `(symbol-macrolet ,loop-symbol-macs ,@body)))) + `(block ,loop-name ,@body))))) ;; Below is a complete spec for loop, in several parts that correspond ;; to the syntax given in CLtL2. The specs do more than specify where @@ -1060,13 +1043,13 @@ (temp (if (and on (symbolp var)) var (make-symbol "--cl-var--")))) (push (list temp (pop loop-args)) loop-for-bindings) - (push (list 'consp temp) loop-body) + (push `(consp ,temp) loop-body) (if (eq word 'in-ref) - (push (list var (list 'car temp)) loop-symbol-macs) + (push (list var `(car ,temp)) loop-symbol-macs) (or (eq temp var) (progn (push (list var nil) loop-for-bindings) - (push (list var (if on temp (list 'car temp))) + (push (list var (if on temp `(car ,temp))) loop-for-sets)))) (push (list temp (if (eq (car loop-args) 'by) @@ -1076,8 +1059,8 @@ function*)) (symbolp (nth 1 step))) (list (nth 1 step) temp) - (list 'funcall step temp))) - (list 'cdr temp))) + `(funcall ,step ,temp))) + `(cdr ,temp))) loop-for-steps))) ((eq word '=) @@ -1106,13 +1089,13 @@ (temp-idx (make-symbol "--cl-idx--"))) (push (list temp-vec (pop loop-args)) loop-for-bindings) (push (list temp-idx -1) loop-for-bindings) - (push (list '< (list 'setq temp-idx (list '1+ temp-idx)) - (list 'length temp-vec)) loop-body) + (push `(< (setq ,temp-idx (1+ ,temp-idx)) + (length ,temp-vec)) loop-body) (if (eq word 'across-ref) - (push (list var (list 'aref temp-vec temp-idx)) + (push (list var `(aref ,temp-vec ,temp-idx)) loop-symbol-macs) (push (list var nil) loop-for-bindings) - (push (list var (list 'aref temp-vec temp-idx)) + (push (list var `(aref ,temp-vec ,temp-idx)) loop-for-sets)))) ((memq word '(element elements)) @@ -1131,22 +1114,21 @@ (push (list temp-idx 0) loop-for-bindings) (if ref (let ((temp-len (make-symbol "--cl-len--"))) - (push (list temp-len (list 'length temp-seq)) + (push (list temp-len `(length ,temp-seq)) loop-for-bindings) - (push (list var (list 'elt temp-seq temp-idx)) + (push (list var `(elt ,temp-seq temp-idx)) loop-symbol-macs) - (push (list '< temp-idx temp-len) loop-body)) + (push `(< ,temp-idx ,temp-len) loop-body)) (push (list var nil) loop-for-bindings) - (push (list 'and temp-seq - (list 'or (list 'consp temp-seq) - (list '< temp-idx - (list 'length temp-seq)))) + (push `(and ,temp-seq + (or (consp ,temp-seq) + (< ,temp-idx (length ,temp-seq)))) loop-body) - (push (list var (list 'if (list 'consp temp-seq) - (list 'pop temp-seq) - (list 'aref temp-seq temp-idx))) + (push (list var `(if (consp ,temp-seq) + (pop ,temp-seq) + (aref ,temp-seq ,temp-idx))) loop-for-sets)) - (push (list temp-idx (list '1+ temp-idx)) + (push (list temp-idx `(1+ ,temp-idx)) loop-for-steps))) ((memq word hash-types) @@ -1194,7 +1176,7 @@ (t (setq buf (cl-pop2 loop-args))))) (if (and (consp var) (symbolp (car var)) (symbolp (cdr var))) (setq var1 (car var) var2 (cdr var)) - (push (list var (list 'cons var1 var2)) loop-for-sets)) + (push (list var `(cons ,var1 ,var2)) loop-for-sets)) (setq loop-map-form `(cl-map-intervals (lambda (,var1 ,var2) . --cl-map) @@ -1222,10 +1204,10 @@ (push (list var '(selected-frame)) loop-for-bindings) (push (list temp nil) loop-for-bindings) - (push (list 'prog1 (list 'not (list 'eq var temp)) - (list 'or temp (list 'setq temp var))) + (push `(prog1 (not (eq ,var ,temp)) + (or ,temp (setq ,temp ,var))) loop-body) - (push (list var (list 'next-frame var)) + (push (list var `(next-frame ,var)) loop-for-steps))) ((memq word '(window windows)) @@ -1233,7 +1215,7 @@ (temp (make-symbol "--cl-var--")) (minip (make-symbol "--cl-minip--"))) (push (list var (if scr - (list 'frame-selected-window scr) + `(frame-selected-window ,scr) '(selected-window))) loop-for-bindings) ;; If we started in the minibuffer, we need to @@ -1244,10 +1226,10 @@ (push (list minip `(minibufferp (window-buffer ,var))) loop-for-bindings) (push (list temp nil) loop-for-bindings) - (push (list 'prog1 (list 'not (list 'eq var temp)) - (list 'or temp (list 'setq temp var))) + (push `(prog1 (not (eq ,var ,temp)) + (or ,temp (setq ,temp ,var))) loop-body) - (push (list var (list 'next-window var minip)) + (push (list var `(next-window ,var ,minip)) loop-for-steps))) (t @@ -1264,9 +1246,9 @@ (setq loop-bindings (nconc (mapcar 'list loop-for-bindings) loop-bindings))) (if loop-for-sets - (push (list 'progn - (cl-loop-let (nreverse loop-for-sets) 'setq ands) - t) loop-body)) + (push `(progn + ,(cl-loop-let (nreverse loop-for-sets) 'setq ands) + t) loop-body)) (if loop-for-steps (push (cons (if ands 'psetq 'setq) (apply 'append (nreverse loop-for-steps))) @@ -1275,61 +1257,61 @@ ((eq word 'repeat) (let ((temp (make-symbol "--cl-var--"))) (push (list (list temp (pop loop-args))) loop-bindings) - (push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body))) + (push `(>= (setq ,temp (1- ,temp)) 0) loop-body))) ((memq word '(collect collecting)) (let ((what (pop loop-args)) (var (cl-loop-handle-accum nil 'nreverse))) (if (eq var loop-accum-var) - (push (list 'progn (list 'push what var) t) loop-body) - (push (list 'progn - (list 'setq var (list 'nconc var (list 'list what))) - t) loop-body)))) + (push `(progn (push ,what ,var) t) loop-body) + (push `(progn + (setq ,var (nconc ,var (list ,what))) + t) loop-body)))) ((memq word '(nconc nconcing append appending)) (let ((what (pop loop-args)) (var (cl-loop-handle-accum nil 'nreverse))) - (push (list 'progn - (list 'setq var - (if (eq var loop-accum-var) - (list 'nconc - (list (if (memq word '(nconc nconcing)) - 'nreverse 'reverse) - what) - var) - (list (if (memq word '(nconc nconcing)) - 'nconc 'append) - var what))) t) loop-body))) + (push `(progn + (setq ,var + ,(if (eq var loop-accum-var) + `(nconc + (,(if (memq word '(nconc nconcing)) + #'nreverse #'reverse) + ,what) + ,var) + `(,(if (memq word '(nconc nconcing)) + #'nconc #'append) + ,var ,what))) t) loop-body))) ((memq word '(concat concating)) (let ((what (pop loop-args)) (var (cl-loop-handle-accum ""))) - (push (list 'progn (list 'callf 'concat var what) t) loop-body))) + (push `(progn (callf concat ,var ,what) t) loop-body))) ((memq word '(vconcat vconcating)) (let ((what (pop loop-args)) (var (cl-loop-handle-accum []))) - (push (list 'progn (list 'callf 'vconcat var what) t) loop-body))) + (push `(progn (callf vconcat ,var ,what) t) loop-body))) ((memq word '(sum summing)) (let ((what (pop loop-args)) (var (cl-loop-handle-accum 0))) - (push (list 'progn (list 'incf var what) t) loop-body))) + (push `(progn (incf ,var ,what) t) loop-body))) ((memq word '(count counting)) (let ((what (pop loop-args)) (var (cl-loop-handle-accum 0))) - (push (list 'progn (list 'if what (list 'incf var)) t) loop-body))) + (push `(progn (if ,what (incf ,var)) t) loop-body))) ((memq word '(minimize minimizing maximize maximizing)) (let* ((what (pop loop-args)) (temp (if (cl-simple-expr-p what) what (make-symbol "--cl-var--"))) (var (cl-loop-handle-accum nil)) (func (intern (substring (symbol-name word) 0 3))) - (set (list 'setq var (list 'if var (list func var temp) temp)))) - (push (list 'progn (if (eq temp what) set - (list 'let (list (list temp what)) set)) - t) loop-body))) + (set `(setq ,var (if ,var (,func ,var ,temp) ,temp)))) + (push `(progn ,(if (eq temp what) set + `(let ((,temp ,what)) ,set)) + t) loop-body))) ((eq word 'with) (let ((bindings nil)) @@ -1344,24 +1326,24 @@ (push (pop loop-args) loop-body)) ((eq word 'until) - (push (list 'not (pop loop-args)) loop-body)) + (push `(not ,(pop loop-args)) loop-body)) ((eq word 'always) (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-flag--"))) - (push (list 'setq loop-finish-flag (pop loop-args)) loop-body) + (push `(setq ,loop-finish-flag ,(pop loop-args)) loop-body) (setq loop-result t)) ((eq word 'never) (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-flag--"))) - (push (list 'setq loop-finish-flag (list 'not (pop loop-args))) + (push `(setq ,loop-finish-flag (not ,(pop loop-args))) loop-body) (setq loop-result t)) ((eq word 'thereis) (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-flag--"))) (or loop-result-var (setq loop-result-var (make-symbol "--cl-var--"))) - (push (list 'setq loop-finish-flag - (list 'not (list 'setq loop-result-var (pop loop-args)))) + (push `(setq ,loop-finish-flag + (not (setq ,loop-result-var ,(pop loop-args)))) loop-body)) ((memq word '(if when unless)) @@ -1381,10 +1363,10 @@ (if (cl-expr-contains form 'it) (let ((temp (make-symbol "--cl-var--"))) (push (list temp) loop-bindings) - (setq form (list* 'if (list 'setq temp cond) - (subst temp 'it form)))) - (setq form (list* 'if cond form))) - (push (if simple (list 'progn form t) form) loop-body)))) + (setq form `(if (setq ,temp ,cond) + ,@(subst temp 'it form)))) + (setq form `(if ,cond ,@form))) + (push (if simple `(progn ,form t) form) loop-body)))) ((memq word '(do doing)) (let ((body nil)) @@ -1395,8 +1377,8 @@ ((eq word 'return) (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-var--"))) (or loop-result-var (setq loop-result-var (make-symbol "--cl-var--"))) - (push (list 'setq loop-result-var (pop loop-args) - loop-finish-flag nil) loop-body)) + (push `(setq ,loop-result-var ,(pop loop-args) + ,loop-finish-flag nil) loop-body)) (t (let ((handler (and (symbolp word) (get word 'cl-loop-handler)))) @@ -1435,9 +1417,9 @@ (push (pop specs) new))) (if (eq body 'setq) (let ((set (cons (if par 'psetq 'setq) (apply 'nconc (nreverse new))))) - (if temps (list 'let* (nreverse temps) set) set)) - (list* (if par 'let 'let*) - (nconc (nreverse temps) (nreverse new)) body)))) + (if temps `(let* ,(nreverse temps) ,set) set)) + `(,(if par 'let 'let*) + ,(nconc (nreverse temps) (nreverse new)) ,@body)))) (defun cl-loop-handle-accum (def &optional func) ; uses loop-* (if (eq (car loop-args) 'into) @@ -1501,25 +1483,22 @@ (cl-expand-do-loop steps endtest body t)) (defun cl-expand-do-loop (steps endtest body star) - (list 'block nil - (list* (if star 'let* 'let) - (mapcar (function (lambda (c) - (if (consp c) (list (car c) (nth 1 c)) c))) - steps) - (list* 'while (list 'not (car endtest)) - (append body - (let ((sets (mapcar - (function - (lambda (c) - (and (consp c) (cdr (cdr c)) - (list (car c) (nth 2 c))))) - steps))) - (setq sets (delq nil sets)) - (and sets - (list (cons (if (or star (not (cdr sets))) - 'setq 'psetq) - (apply 'append sets))))))) - (or (cdr endtest) '(nil))))) + `(block nil + (,(if star 'let* 'let) + ,(mapcar (lambda (c) (if (consp c) (list (car c) (nth 1 c)) c)) + steps) + (while (not ,(car endtest)) + ,@body + ,@(let ((sets (mapcar (lambda (c) + (and (consp c) (cdr (cdr c)) + (list (car c) (nth 2 c)))) + steps))) + (setq sets (delq nil sets)) + (and sets + (list (cons (if (or star (not (cdr sets))) + 'setq 'psetq) + (apply 'append sets)))))) + ,@(or (cdr endtest) '(nil))))) ;;;###autoload (defmacro dolist (spec &rest body) @@ -1599,17 +1578,16 @@ (declare (indent 1) (debug ((symbolp &optional form form) cl-declarations body))) ;; Apparently this doesn't have an implicit block. - (list 'block nil - (list 'let (list (car spec)) - (list* 'mapatoms - (list 'function (list* 'lambda (list (car spec)) body)) - (and (cadr spec) (list (cadr spec)))) - (caddr spec)))) + `(block nil + (let (,(car spec)) + (mapatoms #'(lambda (,(car spec)) ,@body) + ,@(and (cadr spec) (list (cadr spec)))) + ,(caddr spec)))) ;;;###autoload (defmacro do-all-symbols (spec &rest body) (declare (indent 1) (debug ((symbolp &optional form) cl-declarations body))) - (list* 'do-symbols (list (car spec) nil (cadr spec)) body)) + `(do-symbols (,(car spec) nil ,(cadr spec)) ,@body)) ;;; Assignments. @@ -1636,10 +1614,10 @@ BODY forms are executed and their result is returned. This is much like a `let' form, except that the list of symbols can be computed at run-time." (declare (indent 2) (debug (form form body))) - (list 'let '((cl-progv-save nil)) - (list 'unwind-protect - (list* 'progn (list 'cl-progv-before symbols values) body) - '(cl-progv-after)))) + `(let ((cl-progv-save nil)) + (unwind-protect + (progn (cl-progv-before ,symbols ,values) ,@body) + (cl-progv-after)))) ;;; This should really have some way to shadow 'byte-compile properties, etc. ;;;###autoload @@ -1652,30 +1630,28 @@ \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" (declare (indent 1) (debug ((&rest (defun*)) cl-declarations body))) - (list* 'letf* - (mapcar - (function - (lambda (x) - (if (or (and (fboundp (car x)) - (eq (car-safe (symbol-function (car x))) 'macro)) - (cdr (assq (car x) cl-macro-environment))) - (error "Use `labels', not `flet', to rebind macro names")) - (let ((func (list 'function* - (list 'lambda (cadr x) - (list* 'block (car x) (cddr x)))))) - (when (cl-compiling-file) - ;; Bug#411. It would be nice to fix this. - (and (get (car x) 'byte-compile) - (error "Byte-compiling a redefinition of `%s' \ + `(letf* ,(mapcar + (lambda (x) + (if (or (and (fboundp (car x)) + (eq (car-safe (symbol-function (car x))) 'macro)) + (cdr (assq (car x) cl-macro-environment))) + (error "Use `labels', not `flet', to rebind macro names")) + (let ((func `(function* + (lambda ,(cadr x) + (block ,(car x) ,@(cddr x)))))) + (when (cl-compiling-file) + ;; Bug#411. It would be nice to fix this. + (and (get (car x) 'byte-compile) + (error "Byte-compiling a redefinition of `%s' \ will not work - use `labels' instead" (symbol-name (car x)))) - ;; FIXME This affects the rest of the file, when it - ;; should be restricted to the flet body. - (and (boundp 'byte-compile-function-environment) - (push (cons (car x) (eval func)) - byte-compile-function-environment))) - (list (list 'symbol-function (list 'quote (car x))) func)))) - bindings) - body)) + ;; FIXME This affects the rest of the file, when it + ;; should be restricted to the flet body. + (and (boundp 'byte-compile-function-environment) + (push (cons (car x) (eval func)) + byte-compile-function-environment))) + (list `(symbol-function ',(car x)) func))) + bindings) + ,@body)) ;;;###autoload (defmacro labels (bindings &rest body) @@ -1692,13 +1668,13 @@ ;; vars get added to the cl-macro-environment. (let ((var (gensym "--cl-var--"))) (push var vars) - (push (list 'function* (cons 'lambda (cdar bindings))) sets) + (push `(function* (lambda . ,(cdar bindings))) sets) (push var sets) (push (list (car (pop bindings)) 'lambda '(&rest cl-labels-args) - (list 'list* '(quote funcall) (list 'quote var) - 'cl-labels-args)) - cl-macro-environment))) - (cl-macroexpand-all (list* 'lexical-let vars (cons (cons 'setq sets) body)) + `(list* 'funcall ',var + cl-labels-args)) + cl-macro-environment))) + (cl-macroexpand-all `(lexical-let ,vars (setq ,@sets) ,@body) cl-macro-environment))) ;; The following ought to have a better definition for use with newer @@ -1715,8 +1691,7 @@ def-body)) cl-declarations body))) (if (cdr bindings) - (list 'macrolet - (list (car bindings)) (list* 'macrolet (cdr bindings) body)) + `(macrolet (,(car bindings)) (macrolet ,(cdr bindings) ,@body)) (if (null bindings) (cons 'progn body) (let* ((name (caar bindings)) (res (cl-transform-lambda (cdar bindings) name))) @@ -1734,8 +1709,8 @@ \(fn ((NAME EXPANSION) ...) FORM...)" (declare (indent 1) (debug ((&rest (symbol sexp)) cl-declarations body))) (if (cdr bindings) - (list 'symbol-macrolet - (list (car bindings)) (list* 'symbol-macrolet (cdr bindings) body)) + `(symbol-macrolet (,(car bindings)) + (symbol-macrolet ,(cdr bindings) ,@body)) (if (null bindings) (cons 'progn body) (cl-macroexpand-all (cons 'progn body) (cons (list (symbol-name (caar bindings)) @@ -1764,7 +1739,7 @@ (cons 'progn body) (nconc (mapcar (function (lambda (x) (list (symbol-name (car x)) - (list 'symbol-value (caddr x)) + `(symbol-value ,(caddr x)) t))) vars) (list '(defun . cl-defun-expander)) cl-macro-environment)))) @@ -1779,20 +1754,18 @@ (let ,(mapcar (lambda (x) (list (caddr x) (cadr x))) vars) ,(sublis (mapcar (lambda (x) (cons (caddr x) - (list 'quote (caddr x)))) + `',(caddr x))) vars) ebody))) - (list 'let (mapcar (function (lambda (x) - (list (caddr x) - (list 'make-symbol - (format "--%s--" (car x)))))) - vars) - (apply 'append '(setf) - (mapcar (function - (lambda (x) - (list (list 'symbol-value (caddr x)) (cadr x)))) - vars)) - ebody)))) + `(let ,(mapcar (lambda (x) + (list (caddr x) + `(make-symbol ,(format "--%s--" (car x))))) + vars) + (setf ,@(apply #'append + (mapcar (lambda (x) + (list `(symbol-value ,(caddr x)) (cadr x))) + vars))) + ,ebody)))) ;;;###autoload (defmacro lexical-let* (bindings &rest body) @@ -1806,14 +1779,13 @@ (if (null bindings) (cons 'progn body) (setq bindings (reverse bindings)) (while bindings - (setq body (list (list* 'lexical-let (list (pop bindings)) body)))) + (setq body (list `(lexical-let (,(pop bindings)) ,@body)))) (car body))) (defun cl-defun-expander (func &rest rest) - (list 'progn - (list 'defalias (list 'quote func) - (list 'function (cons 'lambda rest))) - (list 'quote func))) + `(progn + (defalias ',func #'(lambda ,@rest)) + ',func)) ;;; Multiple values. @@ -1830,12 +1802,11 @@ \(fn (SYM...) FORM BODY)" (declare (indent 2) (debug ((&rest symbolp) form body))) (let ((temp (make-symbol "--cl-var--")) (n -1)) - (list* 'let* (cons (list temp form) - (mapcar (function - (lambda (v) - (list v (list 'nth (setq n (1+ n)) temp)))) - vars)) - body))) + `(let* ((,temp ,form) + ,@(mapcar (lambda (v) + (list v `(nth ,(setq n (1+ n)) ,temp))) + vars)) + ,@body))) ;;;###autoload (defmacro multiple-value-setq (vars form) @@ -1847,20 +1818,17 @@ \(fn (SYM...) FORM)" (declare (indent 1) (debug ((&rest symbolp) form))) - (cond ((null vars) (list 'progn form nil)) - ((null (cdr vars)) (list 'setq (car vars) (list 'car form))) + (cond ((null vars) `(progn ,form nil)) + ((null (cdr vars)) `(setq ,(car vars) (car ,form))) (t (let* ((temp (make-symbol "--cl-var--")) (n 0)) - (list 'let (list (list temp form)) - (list 'prog1 (list 'setq (pop vars) (list 'car temp)) - (cons 'setq (apply 'nconc - (mapcar (function - (lambda (v) - (list v (list - 'nth - (setq n (1+ n)) - temp)))) - vars))))))))) + `(let ((,temp ,form)) + (prog1 (setq ,(pop vars) (car ,temp)) + (setq ,@(apply #'nconc + (mapcar (lambda (v) + (list v `(nth ,(setq n (1+ n)) + ,temp))) + vars))))))))) ;;; Declarations. @@ -1954,12 +1922,11 @@ \(fn NAME ARGLIST BODY...)" (declare (debug (&define name cl-lambda-list cl-declarations-or-string def-body))) - (append '(eval-when (compile load eval)) - (if (stringp (car body)) - (list (list 'put (list 'quote func) '(quote setf-documentation) - (pop body)))) - (list (cl-transform-function-property - func 'setf-method (cons args body))))) + `(eval-when (compile load eval) + ,@(if (stringp (car body)) + (list `(put ',func 'setf-documentation ,(pop body)))) + ,(cl-transform-function-property + func 'setf-method (cons args body)))) (defalias 'define-setf-expander 'define-setf-method) ;;;###autoload @@ -1980,7 +1947,7 @@ introduced automatically to preserve proper execution order of the arguments. Example: - (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v)) + (defsetf nth (n x) (v) `(setcar (nthcdr ,n ,x) ,v)) \(fn NAME [FUNC | ARGLIST (STORE) BODY...])" (declare (debug @@ -2043,7 +2010,7 @@ lets2)) ,@args) (,(if restarg 'list* 'list) - ,@(cons (list 'quote func) tempsr)))))) + ,@(cons `',func tempsr)))))) `(defsetf ,func (&rest args) (store) ,(let ((call `(cons ',arg1 (append args (list store))))) @@ -2055,63 +2022,63 @@ (defsetf aref aset) (defsetf car setcar) (defsetf cdr setcdr) -(defsetf caar (x) (val) (list 'setcar (list 'car x) val)) -(defsetf cadr (x) (val) (list 'setcar (list 'cdr x) val)) -(defsetf cdar (x) (val) (list 'setcdr (list 'car x) val)) -(defsetf cddr (x) (val) (list 'setcdr (list 'cdr x) val)) +(defsetf caar (x) (val) `(setcar (car ,x) ,val)) +(defsetf cadr (x) (val) `(setcar (cdr ,x) ,val)) +(defsetf cdar (x) (val) `(setcdr (car ,x) ,val)) +(defsetf cddr (x) (val) `(setcdr (cdr ,x) ,val)) (defsetf elt (seq n) (store) - (list 'if (list 'listp seq) (list 'setcar (list 'nthcdr n seq) store) - (list 'aset seq n store))) + `(if (listp ,seq) (setcar (nthcdr ,n ,seq) ,store) + (aset ,seq ,n ,store))) (defsetf get put) -(defsetf get* (x y &optional d) (store) (list 'put x y store)) -(defsetf gethash (x h &optional d) (store) (list 'puthash x store h)) -(defsetf nth (n x) (store) (list 'setcar (list 'nthcdr n x) store)) +(defsetf get* (x y &optional d) (store) `(put ,x ,y ,store)) +(defsetf gethash (x h &optional d) (store) `(puthash ,x ,store ,h)) +(defsetf nth (n x) (store) `(setcar (nthcdr ,n ,x) ,store)) (defsetf subseq (seq start &optional end) (new) - (list 'progn (list 'replace seq new :start1 start :end1 end) new)) + `(progn (replace ,seq ,new :start1 ,start :end1 ,end) ,new)) (defsetf symbol-function fset) (defsetf symbol-plist setplist) (defsetf symbol-value set) ;;; Various car/cdr aliases. Note that `cadr' is handled specially. (defsetf first setcar) -(defsetf second (x) (store) (list 'setcar (list 'cdr x) store)) -(defsetf third (x) (store) (list 'setcar (list 'cddr x) store)) -(defsetf fourth (x) (store) (list 'setcar (list 'cdddr x) store)) -(defsetf fifth (x) (store) (list 'setcar (list 'nthcdr 4 x) store)) -(defsetf sixth (x) (store) (list 'setcar (list 'nthcdr 5 x) store)) -(defsetf seventh (x) (store) (list 'setcar (list 'nthcdr 6 x) store)) -(defsetf eighth (x) (store) (list 'setcar (list 'nthcdr 7 x) store)) -(defsetf ninth (x) (store) (list 'setcar (list 'nthcdr 8 x) store)) -(defsetf tenth (x) (store) (list 'setcar (list 'nthcdr 9 x) store)) +(defsetf second (x) (store) `(setcar (cdr ,x) ,store)) +(defsetf third (x) (store) `(setcar (cddr ,x) ,store)) +(defsetf fourth (x) (store) `(setcar (cdddr ,x) ,store)) +(defsetf fifth (x) (store) `(setcar (nthcdr 4 ,x) ,store)) +(defsetf sixth (x) (store) `(setcar (nthcdr 5 ,x) ,store)) +(defsetf seventh (x) (store) `(setcar (nthcdr 6 ,x) ,store)) +(defsetf eighth (x) (store) `(setcar (nthcdr 7 ,x) ,store)) +(defsetf ninth (x) (store) `(setcar (nthcdr 8 ,x) ,store)) +(defsetf tenth (x) (store) `(setcar (nthcdr 9 ,x) ,store)) (defsetf rest setcdr) ;;; Some more Emacs-related place types. (defsetf buffer-file-name set-visited-file-name t) (defsetf buffer-modified-p (&optional buf) (flag) - (list 'with-current-buffer buf - (list 'set-buffer-modified-p flag))) + `(with-current-buffer ,buf + (set-buffer-modified-p ,flag))) (defsetf buffer-name rename-buffer t) (defsetf buffer-string () (store) - (list 'progn '(erase-buffer) (list 'insert store))) + `(progn (erase-buffer) (insert ,store))) (defsetf buffer-substring cl-set-buffer-substring) (defsetf current-buffer set-buffer) (defsetf current-case-table set-case-table) (defsetf current-column move-to-column t) (defsetf current-global-map use-global-map t) (defsetf current-input-mode () (store) - (list 'progn (list 'apply 'set-input-mode store) store)) + `(progn (apply #'set-input-mode ,store) ,store)) (defsetf current-local-map use-local-map t) (defsetf current-window-configuration set-window-configuration t) (defsetf default-file-modes set-default-file-modes t) (defsetf default-value set-default) (defsetf documentation-property put) -(defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) +(defsetf face-background (f &optional s) (x) `(set-face-background ,f ,x ,s)) (defsetf face-background-pixmap (f &optional s) (x) - (list 'set-face-background-pixmap f x s)) -(defsetf face-font (f &optional s) (x) (list 'set-face-font f x s)) -(defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s)) + `(set-face-background-pixmap ,f ,x ,s)) +(defsetf face-font (f &optional s) (x) `(set-face-font ,f ,x ,s)) +(defsetf face-foreground (f &optional s) (x) `(set-face-foreground ,f ,x ,s)) (defsetf face-underline-p (f &optional s) (x) - (list 'set-face-underline-p f x s)) + `(set-face-underline-p ,f ,x ,s)) (defsetf file-modes set-file-modes t) (defsetf frame-height set-screen-height t) (defsetf frame-parameters modify-frame-parameters t) @@ -2129,25 +2096,25 @@ (defsetf marker-position set-marker t) (defsetf match-data set-match-data t) (defsetf mouse-position (scr) (store) - (list 'set-mouse-position scr (list 'car store) (list 'cadr store) - (list 'cddr store))) + `(set-mouse-position ,scr (car ,store) (cadr ,store) + (cddr ,store))) (defsetf overlay-get overlay-put) (defsetf overlay-start (ov) (store) - (list 'progn (list 'move-overlay ov store (list 'overlay-end ov)) store)) + `(progn (move-overlay ,ov ,store (overlay-end ,ov)) ,store)) (defsetf overlay-end (ov) (store) - (list 'progn (list 'move-overlay ov (list 'overlay-start ov) store) store)) + `(progn (move-overlay ,ov (overlay-start ,ov) ,store) ,store)) (defsetf point goto-char) (defsetf point-marker goto-char t) (defsetf point-max () (store) - (list 'progn (list 'narrow-to-region '(point-min) store) store)) + `(progn (narrow-to-region (point-min) ,store) ,store)) (defsetf point-min () (store) - (list 'progn (list 'narrow-to-region store '(point-max)) store)) + `(progn (narrow-to-region ,store (point-max)) ,store)) (defsetf process-buffer set-process-buffer) (defsetf process-filter set-process-filter) (defsetf process-sentinel set-process-sentinel) (defsetf process-get process-put) (defsetf read-mouse-position (scr) (store) - (list 'set-mouse-position scr (list 'car store) (list 'cdr store))) + `(set-mouse-position ,scr (car ,store) (cdr ,store))) (defsetf screen-height set-screen-height t) (defsetf screen-width set-screen-width t) (defsetf selected-window select-window) @@ -2160,13 +2127,13 @@ (defsetf window-display-table set-window-display-table t) (defsetf window-dedicated-p set-window-dedicated-p t) (defsetf window-height () (store) - (list 'progn (list 'enlarge-window (list '- store '(window-height))) store)) + `(progn (enlarge-window (- ,store (window-height))) ,store)) (defsetf window-hscroll set-window-hscroll) (defsetf window-parameter set-window-parameter) (defsetf window-point set-window-point) (defsetf window-start set-window-start) (defsetf window-width () (store) - (list 'progn (list 'enlarge-window (list '- store '(window-width)) t) store)) + `(progn (enlarge-window (- ,store (window-width)) t) ,store)) (defsetf x-get-secondary-selection x-own-secondary-selection t) (defsetf x-get-selection x-own-selection t) @@ -2203,10 +2170,10 @@ (defun cl-setf-make-apply (form func temps) (if (eq (car form) 'progn) - (list* 'progn (cl-setf-make-apply (cadr form) func temps) (cddr form)) + `(progn ,(cl-setf-make-apply (cadr form) func temps) ,@(cddr form)) (or (equal (last form) (last temps)) (error "%s is not suitable for use with setf-of-apply" func)) - (list* 'apply (list 'quote (car form)) (cdr form)))) + `(apply ',(car form) ,@(cdr form)))) (define-setf-method nthcdr (n place) (let ((method (get-setf-method place cl-macro-environment)) @@ -2215,11 +2182,11 @@ (list (cons n-temp (car method)) (cons n (nth 1 method)) (list store-temp) - (list 'let (list (list (car (nth 2 method)) - (list 'cl-set-nthcdr n-temp (nth 4 method) - store-temp))) - (nth 3 method) store-temp) - (list 'nthcdr n-temp (nth 4 method))))) + `(let ((,(car (nth 2 method)) + (cl-set-nthcdr ,n-temp ,(nth 4 method) + ,store-temp))) + ,(nth 3 method) ,store-temp) + `(nthcdr ,n-temp ,(nth 4 method))))) (define-setf-method getf (place tag &optional def) (let ((method (get-setf-method place cl-macro-environment)) @@ -2229,11 +2196,10 @@ (list (append (car method) (list tag-temp def-temp)) (append (nth 1 method) (list tag def)) (list store-temp) - (list 'let (list (list (car (nth 2 method)) - (list 'cl-set-getf (nth 4 method) - tag-temp store-temp))) - (nth 3 method) store-temp) - (list 'getf (nth 4 method) tag-temp def-temp)))) + `(let ((,(car (nth 2 method)) + (cl-set-getf ,(nth 4 method) ,tag-temp ,store-temp))) + ,(nth 3 method) ,store-temp) + `(getf ,(nth 4 method) ,tag-temp ,def-temp)))) (define-setf-method substring (place from &optional to) (let ((method (get-setf-method place cl-macro-environment)) @@ -2243,11 +2209,11 @@ (list (append (car method) (list from-temp to-temp)) (append (nth 1 method) (list from to)) (list store-temp) - (list 'let (list (list (car (nth 2 method)) - (list 'cl-set-substring (nth 4 method) - from-temp to-temp store-temp))) - (nth 3 method) store-temp) - (list 'substring (nth 4 method) from-temp to-temp)))) + `(let ((,(car (nth 2 method)) + (cl-set-substring ,(nth 4 method) + ,from-temp ,to-temp ,store-temp))) + ,(nth 3 method) ,store-temp) + `(substring ,(nth 4 method) ,from-temp ,to-temp)))) ;;; Getting and optimizing setf-methods. ;;;###autoload @@ -2257,7 +2223,7 @@ a macro like `setf' or `incf'." (if (symbolp place) (let ((temp (make-symbol "--cl-setf--"))) - (list nil nil (list temp) (list 'setq place temp) place)) + (list nil nil (list temp) `(setq ,place ,temp) place)) (or (and (symbolp (car place)) (let* ((func (car place)) (name (symbol-name func)) @@ -2308,7 +2274,7 @@ (and (cl-simple-expr-p val) (eq (cl-expr-contains form sym) 1)) (cl-setf-simple-store-p sym form)) (subst val sym form) - (list 'let (list (list sym val)) form)))) + `(let ((,sym ,val)) ,form)))) (defun cl-setf-simple-store-p (sym form) (and (consp form) (eq (cl-expr-contains form sym) 1) @@ -2329,13 +2295,13 @@ (declare (debug (&rest [place form]))) (if (cdr (cdr args)) (let ((sets nil)) - (while args (push (list 'setf (pop args) (pop args)) sets)) + (while args (push `(setf ,(pop args) ,(pop args)) sets)) (cons 'progn (nreverse sets))) (if (symbolp (car args)) (and args (cons 'setq args)) (let* ((method (cl-setf-do-modify (car args) (nth 1 args))) (store (cl-setf-do-store (nth 1 method) (nth 1 args)))) - (if (car method) (list 'let* (car method) store) store))))) + (if (car method) `(let* ,(car method) ,store) store))))) ;;;###autoload (defmacro psetf (&rest args) @@ -2355,25 +2321,23 @@ (or p (error "Odd number of arguments to psetf")) (pop p)) (if simple - (list 'progn (cons 'setf args) nil) + `(progn (setf ,@args) nil) (setq args (reverse args)) - (let ((expr (list 'setf (cadr args) (car args)))) + (let ((expr `(setf ,(cadr args) ,(car args)))) (while (setq args (cddr args)) - (setq expr (list 'setf (cadr args) (list 'prog1 (car args) expr)))) - (list 'progn expr nil))))) + (setq expr `(setf ,(cadr args) (prog1 ,(car args) ,expr)))) + `(progn ,expr nil))))) ;;;###autoload (defun cl-do-pop (place) (if (cl-simple-expr-p place) - (list 'prog1 (list 'car place) (list 'setf place (list 'cdr place))) + `(prog1 (car ,place) (setf ,place (cdr ,place))) (let* ((method (cl-setf-do-modify place t)) (temp (make-symbol "--cl-pop--"))) - (list 'let* - (append (car method) - (list (list temp (nth 2 method)))) - (list 'prog1 - (list 'car temp) - (cl-setf-do-store (nth 1 method) (list 'cdr temp))))))) + `(let* (,@(car method) + (,temp ,(nth 2 method))) + (prog1 (car ,temp) + ,(cl-setf-do-store (nth 1 method) `(cdr ,temp))))))) ;;;###autoload (defmacro remf (place tag) @@ -2387,15 +2351,13 @@ (make-symbol "--cl-remf-place--"))) (ttag (or tag-temp tag)) (tval (or val-temp (nth 2 method)))) - (list 'let* - (append (car method) - (and val-temp (list (list val-temp (nth 2 method)))) - (and tag-temp (list (list tag-temp tag)))) - (list 'if (list 'eq ttag (list 'car tval)) - (list 'progn - (cl-setf-do-store (nth 1 method) (list 'cddr tval)) - t) - (list 'cl-do-remf tval ttag))))) + `(let* (,@(car method) + ,@(and val-temp `((,val-temp ,(nth 2 method)))) + ,@(and tag-temp `((,tag-temp ,tag)))) + (if (eq ,ttag (car ,tval)) + (progn ,(cl-setf-do-store (nth 1 method) `(cddr ,tval)) + t) + `(cl-do-remf ,tval ,ttag))))) ;;;###autoload (defmacro shiftf (place &rest args) @@ -2428,18 +2390,18 @@ (first (car args))) (while (cdr args) (setq sets (nconc sets (list (pop args) (car args))))) - (nconc (list 'psetf) sets (list (car args) first)))) + `(psetf ,@sets ,(car args) ,first))) (let* ((places (reverse args)) (temp (make-symbol "--cl-rotatef--")) (form temp)) (while (cdr places) (let ((method (cl-setf-do-modify (pop places) 'unsafe))) - (setq form (list 'let* (car method) - (list 'prog1 (nth 2 method) - (cl-setf-do-store (nth 1 method) form)))))) + (setq form `(let* ,(car method) + (prog1 ,(nth 2 method) + ,(cl-setf-do-store (nth 1 method) form)))))) (let ((method (cl-setf-do-modify (car places) 'unsafe))) - (list 'let* (append (car method) (list (list temp (nth 2 method)))) - (cl-setf-do-store (nth 1 method) form) nil))))) + `(let* (,@(car method) (,temp ,(nth 2 method))) + ,(cl-setf-do-store (nth 1 method) form) nil))))) ;;;###autoload (defmacro letf (bindings &rest body) @@ -2455,12 +2417,12 @@ \(fn ((PLACE VALUE) ...) BODY...)" (declare (indent 1) (debug ((&rest (gate place &optional form)) body))) (if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings))) - (list* 'let bindings body) + `(let ,bindings ,@body) (let ((lets nil) (sets nil) (unsets nil) (rev (reverse bindings))) (while rev (let* ((place (if (symbolp (caar rev)) - (list 'symbol-value (list 'quote (caar rev))) + `(symbol-value ',(caar rev)) (caar rev))) (value (cadar rev)) (method (cl-setf-do-modify place 'no-opt)) @@ -2476,28 +2438,29 @@ 'symbol-value) 'boundp 'fboundp) (nth 1 (nth 2 method)))) - (list save (list 'and bound - (nth 2 method)))) + (list save `(and ,bound + ,(nth 2 method)))) (list (list save (nth 2 method)))) (and temp (list (list temp value))) lets) body (list - (list 'unwind-protect - (cons 'progn - (if (cdr (car rev)) - (cons (cl-setf-do-store (nth 1 method) - (or temp value)) - body) - body)) - (if bound - (list 'if bound - (cl-setf-do-store (nth 1 method) save) - (list (if (eq (car place) 'symbol-value) - 'makunbound 'fmakunbound) - (nth 1 (nth 2 method)))) - (cl-setf-do-store (nth 1 method) save)))) + `(unwind-protect + (progn + ,@(if (cdr (car rev)) + (cons (cl-setf-do-store (nth 1 method) + (or temp value)) + body) + body)) + ,(if bound + `(if ,bound + ,(cl-setf-do-store (nth 1 method) save) + (,(if (eq (car place) 'symbol-value) + #'makunbound #'fmakunbound) + ,(nth 1 (nth 2 method)))) + (cl-setf-do-store (nth 1 method) save)))) rev (cdr rev)))) - (list* 'let* lets body)))) + `(let* ,lets ,@body)))) + ;;;###autoload (defmacro letf* (bindings &rest body) @@ -2516,7 +2479,7 @@ (cons 'progn body) (setq bindings (reverse bindings)) (while bindings - (setq body (list (list* 'letf (list (pop bindings)) body)))) + (setq body (list `(letf (,(pop bindings)) ,@body)))) (car body))) ;;;###autoload @@ -2529,11 +2492,10 @@ (declare (indent 2) (debug (function* place &rest form))) (let* ((method (cl-setf-do-modify place (cons 'list args))) (rargs (cons (nth 2 method) args))) - (list 'let* (car method) - (cl-setf-do-store (nth 1 method) - (if (symbolp func) (cons func rargs) - (list* 'funcall (list 'function func) - rargs)))))) + `(let* ,(car method) + ,(cl-setf-do-store (nth 1 method) + (if (symbolp func) (cons func rargs) + `(funcall #',func ,@rargs)))))) ;;;###autoload (defmacro callf2 (func arg1 place &rest args) @@ -2543,15 +2505,14 @@ \(fn FUNC ARG1 PLACE ARGS...)" (declare (indent 3) (debug (function* form place &rest form))) (if (and (cl-safe-expr-p arg1) (cl-simple-expr-p place) (symbolp func)) - (list 'setf place (list* func arg1 place args)) + `(setf ,place (,func ,arg1 ,place ,@args)) (let* ((method (cl-setf-do-modify place (cons 'list args))) (temp (and (not (cl-const-expr-p arg1)) (make-symbol "--cl-arg1--"))) (rargs (list* (or temp arg1) (nth 2 method) args))) - (list 'let* (append (and temp (list (list temp arg1))) (car method)) - (cl-setf-do-store (nth 1 method) - (if (symbolp func) (cons func rargs) - (list* 'funcall (list 'function func) - rargs))))))) + `(let* (,@(and temp (list (list temp arg1))) ,@(car method)) + ,(cl-setf-do-store (nth 1 method) + (if (symbolp func) (cons func rargs) + `(funcall #',func ,@rargs))))))) ;;;###autoload (defmacro define-modify-macro (name arglist func &optional doc) @@ -2563,10 +2524,11 @@ symbolp &optional stringp))) (if (memq '&key arglist) (error "&key not allowed in define-modify-macro")) (let ((place (make-symbol "--cl-place--"))) - (list 'defmacro* name (cons place arglist) doc - (list* (if (memq '&rest arglist) 'list* 'list) - '(quote callf) (list 'quote func) place - (cl-arglist-args arglist))))) + `(defmacro* ,name (,place ,@arglist) + ,doc + (,(if (memq '&rest arglist) #'list* #'list) + #'callf ',func ,place + ,@(cl-arglist-args arglist))))) ;;; Structures. @@ -2630,8 +2592,8 @@ (forms nil) pred-form pred-check) (if (stringp (car descs)) - (push (list 'put (list 'quote name) '(quote structure-documentation) - (pop descs)) forms)) + (push `(put ',name 'structure-documentation + ,(pop descs)) forms)) (setq descs (cons '(cl-tag-slot) (mapcar (function (lambda (x) (if (consp x) x (list x)))) descs))) @@ -2673,15 +2635,13 @@ (t (error "Slot option %s unrecognized" opt))))) (if print-func - (setq print-func (list 'progn - (list 'funcall (list 'function print-func) - 'cl-x 'cl-s 'cl-n) t)) + (setq print-func + `(progn (funcall #',print-func cl-x cl-s cl-n) t)) (or type (and include (not (get include 'cl-struct-print))) (setq print-auto t print-func (and (or (not (or include type)) (null print-func)) - (list 'progn - (list 'princ (format "#S(%s" name) - 'cl-s)))))) + `(progn + (princ ,(format "#S(%s" name) cl-s)))))) (if include (let ((inc-type (get include 'cl-struct-type)) (old-descs (get include 'cl-struct-slots))) @@ -2700,9 +2660,9 @@ (if (cadr inc-type) (setq tag name named t)) (let ((incl include)) (while incl - (push (list 'pushnew (list 'quote tag) - (intern (format "cl-struct-%s-tags" incl))) - forms) + (push `(pushnew ',tag + ,(intern (format "cl-struct-%s-tags" incl))) + forms) (setq incl (get incl 'cl-struct-include))))) (if type (progn @@ -2711,21 +2671,19 @@ (if named (setq tag name))) (setq type 'vector named 'true))) (or named (setq descs (delq (assq 'cl-tag-slot descs) descs))) - (push (list 'defvar tag-symbol) forms) + (push `(defvar ,tag-symbol) forms) (setq pred-form (and named (let ((pos (- (length descs) (length (memq (assq 'cl-tag-slot descs) descs))))) (if (eq type 'vector) - (list 'and '(vectorp cl-x) - (list '>= '(length cl-x) (length descs)) - (list 'memq (list 'aref 'cl-x pos) - tag-symbol)) + `(and (vectorp cl-x) + (>= (length cl-x) ,(length descs)) + (memq (aref cl-x ,pos) ,tag-symbol)) (if (= pos 0) - (list 'memq '(car-safe cl-x) tag-symbol) - (list 'and '(consp cl-x) - (list 'memq (list 'nth pos 'cl-x) - tag-symbol)))))) + `(memq (car-safe cl-x) ,tag-symbol) + `(and (consp cl-x) + (memq (nth ,pos cl-x) ,tag-symbol)))))) pred-check (and pred-form (> safety 0) (if (and (eq (caadr pred-form) 'vectorp) (= safety 1)) @@ -2737,7 +2695,7 @@ (if (memq slot '(cl-tag-slot cl-skip-slot)) (progn (push nil slots) - (push (and (eq slot 'cl-tag-slot) (list 'quote tag)) + (push (and (eq slot 'cl-tag-slot) `',tag) defaults)) (if (assq slot descp) (error "Duplicate slots named %s in %s" slot name)) @@ -2748,43 +2706,46 @@ 'defsubst* accessor '(cl-x) (append (and pred-check - (list (list 'or pred-check - `(error "%s accessing a non-%s" - ',accessor ',name)))) - (list (if (eq type 'vector) (list 'aref 'cl-x pos) + (list `(or ,pred-check + (error "%s accessing a non-%s" + ',accessor ',name)))) + (list (if (eq type 'vector) `(aref cl-x ,pos) (if (= pos 0) '(car cl-x) - (list 'nth pos 'cl-x)))))) forms) + `(nth ,pos cl-x)))))) forms) (push (cons accessor t) side-eff) - (push (list 'define-setf-method accessor '(cl-x) - (if (cadr (memq :read-only (cddr desc))) - (list 'progn '(ignore cl-x) - `(error "%s is a read-only slot" - ',accessor)) - ;; If cl is loaded only for compilation, - ;; the call to cl-struct-setf-expander would - ;; cause a warning because it may not be - ;; defined at run time. Suppress that warning. - (list 'with-no-warnings - (list 'cl-struct-setf-expander 'cl-x - (list 'quote name) (list 'quote accessor) - (and pred-check (list 'quote pred-check)) - pos)))) - forms) + (push `(define-setf-method ,accessor (cl-x) + ,(if (cadr (memq :read-only (cddr desc))) + `(progn (ignore cl-x) + (error "%s is a read-only slot" + ',accessor)) + ;; If cl is loaded only for compilation, + ;; the call to cl-struct-setf-expander would + ;; cause a warning because it may not be + ;; defined at run time. Suppress that warning. + `(progn + (declare-function + cl-struct-setf-expander "cl-macs" + (x name accessor pred-form pos)) + (cl-struct-setf-expander + cl-x ',name ',accessor + ,(and pred-check `',pred-check) + ,pos)))) + forms) (if print-auto (nconc print-func - (list (list 'princ (format " %s" slot) 'cl-s) - (list 'prin1 (list accessor 'cl-x) 'cl-s))))))) + (list `(princ ,(format " %s" slot) cl-s) + `(prin1 (,accessor cl-x) cl-s))))))) (setq pos (1+ pos)))) (setq slots (nreverse slots) defaults (nreverse defaults)) (and predicate pred-form - (progn (push (list 'defsubst* predicate '(cl-x) - (if (eq (car pred-form) 'and) - (append pred-form '(t)) - (list 'and pred-form t))) forms) + (progn (push `(defsubst* ,predicate (cl-x) + ,(if (eq (car pred-form) 'and) + (append pred-form '(t)) + `(and ,pred-form t))) forms) (push (cons predicate 'error-free) side-eff))) (and copier - (progn (push (list 'defun copier '(x) '(copy-sequence x)) forms) + (progn (push `(defun ,copier (x) (copy-sequence x)) forms) (push (cons copier t) side-eff))) (if constructor (push (list constructor @@ -2796,10 +2757,10 @@ (anames (cl-arglist-args args)) (make (mapcar* (function (lambda (s d) (if (memq s anames) s d))) slots defaults))) - (push (list 'defsubst* name - (list* '&cl-defs (list 'quote (cons nil descs)) args) - (cons type make)) forms) - (if (cl-safe-expr-p (cons 'progn (mapcar 'second descs))) + (push `(defsubst* ,name + (&cl-defs '(nil ,@descs) ,@args) + (,type ,@make)) forms) + (if (cl-safe-expr-p `(progn ,@(mapcar #'second descs))) (push (cons name t) side-eff)))) (if print-auto (nconc print-func (list '(princ ")" cl-s) t))) (if print-func @@ -2810,44 +2771,38 @@ (and ,pred-form ,print-func)) custom-print-functions) forms)) - (push (list 'setq tag-symbol (list 'list (list 'quote tag))) forms) - (push (list* 'eval-when '(compile load eval) - (list 'put (list 'quote name) '(quote cl-struct-slots) - (list 'quote descs)) - (list 'put (list 'quote name) '(quote cl-struct-type) - (list 'quote (list type (eq named t)))) - (list 'put (list 'quote name) '(quote cl-struct-include) - (list 'quote include)) - (list 'put (list 'quote name) '(quote cl-struct-print) - print-auto) - (mapcar (function (lambda (x) - (list 'put (list 'quote (car x)) - '(quote side-effect-free) - (list 'quote (cdr x))))) - side-eff)) - forms) - (cons 'progn (nreverse (cons (list 'quote name) forms))))) + (push `(setq ,tag-symbol (list ',tag)) forms) + (push `(eval-when (compile load eval) + (put ',name 'cl-struct-slots ',descs) + (put ',name 'cl-struct-type ',(list type (eq named t))) + (put ',name 'cl-struct-include ',include) + (put ',name 'cl-struct-print ,print-auto) + ,@(mapcar (lambda (x) + `(put ',(car x) 'side-effect-free ',(cdr x))) + side-eff)) + forms) + `(progn ,@(nreverse (cons `',name forms))))) ;;;###autoload (defun cl-struct-setf-expander (x name accessor pred-form pos) (let* ((temp (make-symbol "--cl-x--")) (store (make-symbol "--cl-store--"))) (list (list temp) (list x) (list store) - (append '(progn) - (and pred-form - (list (list 'or (subst temp 'cl-x pred-form) - (list 'error - (format - "%s storing a non-%s" accessor name))))) - (list (if (eq (car (get name 'cl-struct-type)) 'vector) - (list 'aset temp pos store) - (list 'setcar - (if (<= pos 5) - (let ((xx temp)) - (while (>= (setq pos (1- pos)) 0) - (setq xx (list 'cdr xx))) - xx) - (list 'nthcdr pos temp)) - store)))) + `(progn + ,@(and pred-form + (list `(or ,(subst temp 'cl-x pred-form) + (error ,(format + "%s storing a non-%s" + accessor name))))) + ,(if (eq (car (get name 'cl-struct-type)) 'vector) + `(aset ,temp ,pos ,store) + `(setcar + ,(if (<= pos 5) + (let ((xx temp)) + (while (>= (setq pos (1- pos)) 0) + (setq xx `(cdr ,xx))) + xx) + `(nthcdr ,pos ,temp)) + ,store))) (list accessor temp)))) @@ -2858,9 +2813,9 @@ "Define NAME as a new data type. The type name can then be used in `typecase', `check-type', etc." (declare (debug defmacro*) (doc-string 3)) - (list 'eval-when '(compile load eval) - (cl-transform-function-property - name 'cl-deftype-handler (cons (list* '&cl-defs ''('*) arglist) body)))) + `(eval-when (compile load eval) + ,(cl-transform-function-property + name 'cl-deftype-handler (cons `(&cl-defs '('*) ,@arglist) body)))) (defun cl-make-type-test (val type) (if (symbolp type) @@ -2883,19 +2838,19 @@ (cl-make-type-test val (apply (get (car type) 'cl-deftype-handler) (cdr type)))) ((memq (car type) '(integer float real number)) - (delq t (list 'and (cl-make-type-test val (car type)) - (if (memq (cadr type) '(* nil)) t - (if (consp (cadr type)) (list '> val (caadr type)) - (list '>= val (cadr type)))) - (if (memq (caddr type) '(* nil)) t - (if (consp (caddr type)) (list '< val (caaddr type)) - (list '<= val (caddr type))))))) + (delq t `(and ,(cl-make-type-test val (car type)) + ,(if (memq (cadr type) '(* nil)) t + (if (consp (cadr type)) `(> ,val ,(caadr type)) + `(>= ,val ,(cadr type)))) + ,(if (memq (caddr type) '(* nil)) t + (if (consp (caddr type)) `(< ,val ,(caaddr type)) + `(<= ,val ,(caddr type))))))) ((memq (car type) '(and or not)) (cons (car type) (mapcar (function (lambda (x) (cl-make-type-test val x))) (cdr type)))) ((memq (car type) '(member member*)) - (list 'and (list 'member* val (list 'quote (cdr type))) t)) + `(and (member* ,val ',(cdr type)) t)) ((eq (car type) 'satisfies) (list (cadr type) val)) (t (error "Bad type spec: %s" type))))) @@ -2914,12 +2869,12 @@ (< cl-optimize-speed 3) (= cl-optimize-safety 3)) (let* ((temp (if (cl-simple-expr-p form 3) form (make-symbol "--cl-var--"))) - (body (list 'or (cl-make-type-test temp type) - (list 'signal '(quote wrong-type-argument) - (list 'list (or string (list 'quote type)) - temp (list 'quote form)))))) - (if (eq temp form) (list 'progn body nil) - (list 'let (list (list temp form)) body nil))))) + (body `(or ,(cl-make-type-test temp type) + (signal 'wrong-type-argument + (list ,(or string `',type) + ,temp ',form))))) + (if (eq temp form) `(progn ,body nil) + `(let ((,temp ,form)) ,body nil))))) ;;;###autoload (defmacro assert (form &optional show-args string &rest args) @@ -2937,13 +2892,13 @@ (unless (cl-const-expr-p x) x)) (cdr form)))))) - (list 'progn - (list 'or form - (if string - (list* 'error string (append sargs args)) - (list 'signal '(quote cl-assertion-failed) - (list* 'list (list 'quote form) sargs)))) - nil)))) + `(progn + (or ,form + ,(if string + `(error ,string ,@sargs ,@args) + `(signal 'cl-assertion-failed + (list ',form ,@sargs)))) + nil)))) ;;; Compiler macros. @@ -2963,28 +2918,23 @@ (let ((p args) (res nil)) (while (consp p) (push (pop p) res)) (setq args (nconc (nreverse res) (and p (list '&rest p))))) - (list 'eval-when '(compile load eval) - (cl-transform-function-property - func 'cl-compiler-macro - (cons (if (memq '&whole args) (delq '&whole args) - (cons '_cl-whole-arg args)) body)) - (list 'or (list 'get (list 'quote func) '(quote byte-compile)) - (list 'progn - (list 'put (list 'quote func) '(quote byte-compile) - '(quote cl-byte-compile-compiler-macro)) - ;; This is so that describe-function can locate - ;; the macro definition. - (list 'let - (list (list - 'file - (or buffer-file-name - (and (boundp 'byte-compile-current-file) - (stringp byte-compile-current-file) - byte-compile-current-file)))) - (list 'if 'file - (list 'put (list 'quote func) - '(quote compiler-macro-file) - '(purecopy (file-name-nondirectory file))))))))) + `(eval-when (compile load eval) + ,(cl-transform-function-property + func 'cl-compiler-macro + (cons (if (memq '&whole args) (delq '&whole args) + (cons '_cl-whole-arg args)) body)) + (or (get ',func 'byte-compile) + (progn + (put ',func 'byte-compile + 'cl-byte-compile-compiler-macro) + ;; This is so that describe-function can locate + ;; the macro definition. + (let ((file ,(or buffer-file-name + (and (boundp 'byte-compile-current-file) + (stringp byte-compile-current-file) + byte-compile-current-file)))) + (if file (put ',func 'compiler-macro-file + (purecopy (file-name-nondirectory file))))))))) ;;;###autoload (defun compiler-macroexpand (form) @@ -3039,22 +2989,22 @@ (pbody (cons 'progn body)) (unsafe (not (cl-safe-expr-p pbody)))) (while (and p (eq (cl-expr-contains args (car p)) 1)) (pop p)) - (list 'progn - (if p nil ; give up if defaults refer to earlier args - (list 'define-compiler-macro name - (if (memq '&key args) - (list* '&whole 'cl-whole '&cl-quote args) - (cons '&cl-quote args)) - (list* 'cl-defsubst-expand (list 'quote argns) - (list 'quote (list* 'block name body)) - ;; We used to pass `simple' as - ;; (not (or unsafe (cl-expr-access-order pbody argns))) - ;; But this is much too simplistic since it - ;; does not pay attention to the argvs (and - ;; cl-expr-access-order itself is also too naive). - nil - (and (memq '&key args) 'cl-whole) unsafe argns))) - (list* 'defun* name args body)))) + `(progn + ,(if p nil ; give up if defaults refer to earlier args + `(define-compiler-macro ,name + ,(if (memq '&key args) + `(&whole cl-whole &cl-quote ,@args) + (cons '&cl-quote args)) + (cl-defsubst-expand + ',argns '(block ,name ,@body) + ;; We used to pass `simple' as + ;; (not (or unsafe (cl-expr-access-order pbody argns))) + ;; But this is much too simplistic since it + ;; does not pay attention to the argvs (and + ;; cl-expr-access-order itself is also too naive). + nil + ,(and (memq '&key args) 'cl-whole) ,unsafe ,@argns))) + (defun* ,name ,args ,@body)))) (defun cl-defsubst-expand (argns body simple whole unsafe &rest argvs) (if (and whole (not (cl-safe-expr-p (cons 'progn argvs)))) whole @@ -3077,7 +3027,7 @@ ((null (cdr substs)) (subst (cdar substs) (caar substs) body)) (t (sublis substs body)))) - (if lets (list 'let lets body) body)))) + (if lets `(let ,lets ,body) body)))) ;; Compile-time optimizations for some functions defined in this package. @@ -3089,59 +3039,59 @@ (cond ((eq (cl-const-expr-p a) t) (let ((val (cl-const-expr-val a))) (if (and (numberp val) (not (integerp val))) - (list 'equal a b) - (list 'eq a b)))) + `(equal ,a ,b) + `(eq ,a ,b)))) ((eq (cl-const-expr-p b) t) (let ((val (cl-const-expr-val b))) (if (and (numberp val) (not (integerp val))) - (list 'equal a b) - (list 'eq a b)))) + `(equal ,a ,b) + `(eq ,a ,b)))) ((cl-simple-expr-p a 5) - (list 'if (list 'numberp a) - (list 'equal a b) - (list 'eq a b))) + `(if (numberp ,a) + (equal ,a ,b) + (eq ,a ,b))) ((and (cl-safe-expr-p a) (cl-simple-expr-p b 5)) - (list 'if (list 'numberp b) - (list 'equal a b) - (list 'eq a b))) + `(if (numberp ,b) + (equal ,a ,b) + (eq ,a ,b))) (t form))) (define-compiler-macro member* (&whole form a list &rest keys) (let ((test (and (= (length keys) 2) (eq (car keys) :test) (cl-const-expr-val (nth 1 keys))))) - (cond ((eq test 'eq) (list 'memq a list)) - ((eq test 'equal) (list 'member a list)) - ((or (null keys) (eq test 'eql)) (list 'memql a list)) + (cond ((eq test 'eq) `(memq ,a ,list)) + ((eq test 'equal) `(member ,a ,list)) + ((or (null keys) (eq test 'eql)) `(memql ,a ,list)) (t form)))) (define-compiler-macro assoc* (&whole form a list &rest keys) (let ((test (and (= (length keys) 2) (eq (car keys) :test) (cl-const-expr-val (nth 1 keys))))) - (cond ((eq test 'eq) (list 'assq a list)) - ((eq test 'equal) (list 'assoc a list)) + (cond ((eq test 'eq) `(assq ,a ,list)) + ((eq test 'equal) `(assoc ,a ,list)) ((and (eq (cl-const-expr-p a) t) (or (null keys) (eq test 'eql))) (if (floatp-safe (cl-const-expr-val a)) - (list 'assoc a list) (list 'assq a list))) + `(assoc ,a ,list) `(assq ,a ,list))) (t form)))) (define-compiler-macro adjoin (&whole form a list &rest keys) (if (and (cl-simple-expr-p a) (cl-simple-expr-p list) (not (memq :key keys))) - (list 'if (list* 'member* a list keys) list (list 'cons a list)) + `(if (member* ,a ,list ,@keys) ,list (cons ,a ,list)) form)) (define-compiler-macro list* (arg &rest others) (let* ((args (reverse (cons arg others))) (form (car args))) (while (setq args (cdr args)) - (setq form (list 'cons (car args) form))) + (setq form `(cons ,(car args) ,form))) form)) (define-compiler-macro get* (sym prop &optional def) (if def - (list 'getf (list 'symbol-plist sym) prop def) - (list 'get sym prop))) + `(getf (symbol-plist ,sym) ,prop ,def) + `(get ,sym ,prop))) (define-compiler-macro typep (&whole form val type) (if (cl-const-expr-p type) @@ -3149,7 +3099,7 @@ (if (or (memq (cl-expr-contains res val) '(nil 1)) (cl-simple-expr-p val)) res (let ((temp (make-symbol "--cl-var--"))) - (list 'let (list (list temp val)) (subst temp val res))))) + `(let ((,temp ,val)) ,(subst temp val res))))) form)) ------------------------------------------------------------ revno: 108449 committer: Stefan Monnier branch nick: trunk timestamp: Fri 2012-06-01 16:24:17 -0400 message: * lisp/gnus/nntp.el: Stop the `letf' madness. (nntp--report-1): New var. (nntp-report): Merge nntp-report-1 into it. (nntp-with-open-group-function): Set nntp--report-1 instead of modifying the nntp-report function. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2012-06-01 20:12:11 +0000 +++ lisp/gnus/ChangeLog 2012-06-01 20:24:17 +0000 @@ -1,5 +1,11 @@ 2012-06-01 Stefan Monnier + * nntp.el: Stop the `letf' madness. + (nntp--report-1): New var. + (nntp-report): Merge nntp-report-1 into it. + (nntp-with-open-group-function): Set nntp--report-1 instead of modifying + the nntp-report function. + * auth-source.el: Fix comment-style to follow the convention. 2012-05-27 Katsumi Yamaoka === modified file 'lisp/gnus/nntp.el' --- lisp/gnus/nntp.el 2012-02-25 00:39:24 +0000 +++ lisp/gnus/nntp.el 2012-06-01 20:24:17 +0000 @@ -344,26 +344,26 @@ (insert (format-time-string "%Y%m%dT%H%M%S.%3N") " " nntp-address " " string "\n"))) +(defvar nntp--report-1 nil) + (defun nntp-report (&rest args) "Report an error from the nntp backend. The first string in ARGS can be a format string. For some commands, the failed command may be retried once before actually displaying the error report." - - (when nntp-record-commands - (nntp-record-command "*** CALLED nntp-report ***")) - - (nnheader-report 'nntp args) - - (apply 'error args)) - -(defun nntp-report-1 (&rest args) - "Throws out to nntp-with-open-group-error so that the connection may -be restored and the command retried." - - (when nntp-record-commands - (nntp-record-command "*** CONNECTION LOST ***")) - - (throw 'nntp-with-open-group-error t)) + (if nntp--report-1 + (progn + ;; Throw out to nntp-with-open-group-error so that the connection may + ;; be restored and the command retried." + (when nntp-record-commands + (nntp-record-command "*** CONNECTION LOST ***")) + (throw 'nntp-with-open-group-error t)) + + (when nntp-record-commands + (nntp-record-command "*** CALLED nntp-report ***")) + + (nnheader-report 'nntp args) + + (apply 'error args))) (defmacro nntp-copy-to-buffer (buffer start end) "Copy string from unibyte current buffer to multibyte buffer." @@ -633,10 +633,6 @@ (t nil))) -(eval-when-compile - (defvar nntp-with-open-group-internal nil) - (defvar nntp-report-n nil)) - (defun nntp-with-open-group-function (-group -server -connectionless -bodyfun) "Protect against servers that don't like clients that keep idle connections opens. The problem being that these servers may either close a connection or @@ -647,9 +643,9 @@ `nntp-connection-timeout' has expired. When these occur `nntp-with-open-group', opens a new connection then re-issues the NNTP command whose response triggered the error." - (letf ((nntp-report-n (symbol-function 'nntp-report)) - ((symbol-function 'nntp-report) (symbol-function 'nntp-report-1)) - (nntp-with-open-group-internal nil)) + (let ((nntp-report-n nntp--report-1) + (nntp--report-1 t) + (nntp-with-open-group-internal nil)) (while (catch 'nntp-with-open-group-error ;; Open the connection to the server ;; NOTE: Existing connections are NOT tested. @@ -685,7 +681,7 @@ (when -timer (nnheader-cancel-timer -timer))) nil)) - (setf (symbol-function 'nntp-report) nntp-report-n)) + (setq nntp--report-1 nntp-report-n)) nntp-with-open-group-internal)) (defmacro nntp-with-open-group (group server &optional connectionless &rest forms) ------------------------------------------------------------ revno: 108448 committer: Stefan Monnier branch nick: trunk timestamp: Fri 2012-06-01 16:12:11 -0400 message: * lisp/gnus/auth-source.el: Fix comment-style to follow the convention. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2012-05-27 01:06:44 +0000 +++ lisp/gnus/ChangeLog 2012-06-01 20:12:11 +0000 @@ -1,3 +1,7 @@ +2012-06-01 Stefan Monnier + + * auth-source.el: Fix comment-style to follow the convention. + 2012-05-27 Katsumi Yamaoka * gnus-msg.el (gnus-msg-mail): Ensure that gnus-newsgroup-name is === modified file 'lisp/gnus/auth-source.el' --- lisp/gnus/auth-source.el 2012-04-28 21:59:08 +0000 +++ lisp/gnus/auth-source.el 2012-06-01 20:12:11 +0000 @@ -91,9 +91,9 @@ (const :tag "30 Minutes" 1800) (integer :tag "Seconds"))) -;;; The slots below correspond with the `auth-source-search' spec, -;;; so a backend with :host set, for instance, would match only -;;; searches for that host. Normally they are nil. +;; The slots below correspond with the `auth-source-search' spec, +;; so a backend with :host set, for instance, would match only +;; searches for that host. Normally they are nil. (defclass auth-source-backend () ((type :initarg :type :initform 'netrc @@ -148,8 +148,8 @@ (repeat :tag "Names" (string :tag "Name"))))) -;;; generate all the protocols in a format Customize can use -;;; TODO: generate on the fly from auth-source-protocols +;; Generate all the protocols in a format Customize can use. +;; TODO: generate on the fly from auth-source-protocols (defconst auth-source-protocols-customize (mapcar (lambda (a) (let ((p (car-safe a))) @@ -338,7 +338,7 @@ msg)) -;;; (auth-source-read-char-choice "enter choice? " '(?a ?b ?q)) +;; (auth-source-read-char-choice "enter choice? " '(?a ?b ?q)) (defun auth-source-read-char-choice (prompt choices) "Read one of CHOICES by `read-char-choice', or `read-char'. `dropdown-list' support is disabled because it doesn't work reliably. @@ -710,10 +710,10 @@ (setq matches (append matches bmatches)))))) matches)) -;;; (auth-source-search :max 1) -;;; (funcall (plist-get (nth 0 (auth-source-search :max 1)) :secret)) -;;; (auth-source-search :host "nonesuch" :type 'netrc :K 1) -;;; (auth-source-search :host "nonesuch" :type 'secrets) +;; (auth-source-search :max 1) +;; (funcall (plist-get (nth 0 (auth-source-search :max 1)) :secret)) +;; (auth-source-search :host "nonesuch" :type 'netrc :K 1) +;; (auth-source-search :host "nonesuch" :type 'secrets) (defun* auth-source-delete (&rest spec &key delete @@ -775,16 +775,16 @@ Returns t or nil for forgotten or not found." (password-cache-remove (auth-source-format-cache-entry spec))) -;;; (loop for sym being the symbols of password-data when (string-match (concat "^" auth-source-magic) (symbol-name sym)) collect (symbol-name sym)) +;; (loop for sym being the symbols of password-data when (string-match (concat "^" auth-source-magic) (symbol-name sym)) collect (symbol-name sym)) -;;; (auth-source-remember '(:host "wedd") '(4 5 6)) -;;; (auth-source-remembered-p '(:host "wedd")) -;;; (auth-source-remember '(:host "xedd") '(1 2 3)) -;;; (auth-source-remembered-p '(:host "xedd")) -;;; (auth-source-remembered-p '(:host "zedd")) -;;; (auth-source-recall '(:host "xedd")) -;;; (auth-source-recall '(:host t)) -;;; (auth-source-forget+ :host t) +;; (auth-source-remember '(:host "wedd") '(4 5 6)) +;; (auth-source-remembered-p '(:host "wedd")) +;; (auth-source-remember '(:host "xedd") '(1 2 3)) +;; (auth-source-remembered-p '(:host "xedd")) +;; (auth-source-remembered-p '(:host "zedd")) +;; (auth-source-recall '(:host "xedd")) +;; (auth-source-recall '(:host t)) +;; (auth-source-forget+ :host t) (defun* auth-source-forget+ (&rest spec &allow-other-keys) "Forget any cached data matching SPEC. Returns forgotten count. @@ -818,8 +818,8 @@ (return 'no))) 'no)))) -;;; (auth-source-pick-first-password :host "z.lifelogs.com") -;;; (auth-source-pick-first-password :port "imap") +;; (auth-source-pick-first-password :host "z.lifelogs.com") +;; (auth-source-pick-first-password :port "imap") (defun auth-source-pick-first-password (&rest spec) "Pick the first secret found from applying SPEC to `auth-source-search'." (let* ((result (nth 0 (apply 'auth-source-search (plist-put spec :max 1)))) @@ -867,7 +867,7 @@ (defun auth-source--aget (alist key) (cdr (assoc key alist))) -;;; (auth-source-netrc-parse "~/.authinfo.gpg") +;; (auth-source-netrc-parse "~/.authinfo.gpg") (defun* auth-source-netrc-parse (&rest spec &key file max host user port delete require @@ -1101,8 +1101,8 @@ ret)) alist)) -;;; (setq secret (plist-get (nth 0 (auth-source-search :host t :type 'netrc :K 1 :max 1)) :secret)) -;;; (funcall secret) +;; (setq secret (plist-get (nth 0 (auth-source-search :host t :type 'netrc :K 1 :max 1)) :secret)) +;; (funcall secret) (defun* auth-source-netrc-search (&rest spec @@ -1148,8 +1148,8 @@ (nth 0 v) v)) -;;; (auth-source-search :host "nonesuch" :type 'netrc :max 1 :create t) -;;; (auth-source-search :host "nonesuch" :type 'netrc :max 1 :create t :create-extra-keys '((A "default A") (B))) +;; (auth-source-search :host "nonesuch" :type 'netrc :max 1 :create t) +;; (auth-source-search :host "nonesuch" :type 'netrc :max 1 :create t :create-extra-keys '((A "default A") (B))) (defun* auth-source-netrc-create (&rest spec &key backend @@ -1404,12 +1404,12 @@ ;;; Backend specific parsing: Secrets API backend -;;; (let ((auth-sources '(default))) (auth-source-search :max 1 :create t)) -;;; (let ((auth-sources '(default))) (auth-source-search :max 1 :delete t)) -;;; (let ((auth-sources '(default))) (auth-source-search :max 1)) -;;; (let ((auth-sources '(default))) (auth-source-search)) -;;; (let ((auth-sources '("secrets:Login"))) (auth-source-search :max 1)) -;;; (let ((auth-sources '("secrets:Login"))) (auth-source-search :max 1 :signon_realm "https://git.gnus.org/Git")) +;; (let ((auth-sources '(default))) (auth-source-search :max 1 :create t)) +;; (let ((auth-sources '(default))) (auth-source-search :max 1 :delete t)) +;; (let ((auth-sources '(default))) (auth-source-search :max 1)) +;; (let ((auth-sources '(default))) (auth-source-search)) +;; (let ((auth-sources '("secrets:Login"))) (auth-source-search :max 1)) +;; (let ((auth-sources '("secrets:Login"))) (auth-source-search :max 1 :signon_realm "https://git.gnus.org/Git")) (defun* auth-source-secrets-search (&rest spec @@ -1719,7 +1719,7 @@ ;;; older API -;;; (auth-source-user-or-password '("login" "password") "imap.myhost.com" t "tzz") +;; (auth-source-user-or-password '("login" "password") "imap.myhost.com" t "tzz") ;; deprecate the old interface (make-obsolete 'auth-source-user-or-password ------------------------------------------------------------ revno: 108447 fixes bug(s): http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11594 committer: Stefan Monnier branch nick: trunk timestamp: Fri 2012-06-01 15:47:54 -0400 message: * lisp/emacs-lisp/bytecomp.el: Fix last change. (byte-compile-output-docform): Re-add the print-circle bindings. (byte-compile-fix-header): Use #$ just because it's shorter. (byte-compile-output-file-form): Remove defun/defmacro. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2012-06-01 13:44:48 +0000 +++ lisp/ChangeLog 2012-06-01 19:47:54 +0000 @@ -1,3 +1,10 @@ +2012-06-01 Stefan Monnier + + * emacs-lisp/bytecomp.el: Fix last change (bug#11594). + (byte-compile-output-docform): Re-add the print-circle bindings. + (byte-compile-fix-header): Use #$ just because it's shorter. + (byte-compile-output-file-form): Remove defun/defmacro. + 2012-06-01 Martin Rudalics * simple.el (choose-completion): Remove now obsolete binding for @@ -21,8 +28,8 @@ 2012-05-31 Stefan Monnier - * emacs-lisp/bytecomp.el (byte-compile-fix-header): Handle - arbitrary file name lengths (Bug#11585). + * emacs-lisp/bytecomp.el (byte-compile-fix-header): + Handle arbitrary file name lengths (Bug#11585). 2012-05-31 Martin Rudalics === modified file 'lisp/emacs-lisp/bytecomp.el' --- lisp/emacs-lisp/bytecomp.el 2012-05-31 06:06:42 +0000 +++ lisp/emacs-lisp/bytecomp.el 2012-06-01 19:47:54 +0000 @@ -1965,7 +1965,7 @@ ;; Because the header must fit in a fixed width, we cannot ;; insert arbitrary-length file names (Bug#11585). " (error \"`%s' was compiled for " - (format "Emacs %s or later\" load-file-name))\n\n" minimum-version)) + (format "Emacs %s or later\" #$))\n\n" minimum-version)) ;; Now compensate for any change in size, to make sure all ;; positions in the file remain valid. (setq delta (- (point-max) old-header-end)) @@ -2023,7 +2023,7 @@ (defun byte-compile-output-file-form (form) ;; Write the given form to the output buffer, being careful of docstrings - ;; in defun, defmacro, defvar, defvaralias, defconst, autoload and + ;; in defvar, defvaralias, defconst, autoload and ;; custom-declare-variable because make-docfile is so amazingly stupid. ;; defalias calls are output directly by byte-compile-file-form-defmumble; ;; it does not pay to first build the defalias in defmumble and then parse @@ -2035,7 +2035,7 @@ (print-gensym t) (print-circle ; Handle circular data structures. (not byte-compile-disable-print-circle))) - (if (and (memq (car-safe form) '(defun defmacro defvar defvaralias defconst + (if (and (memq (car-safe form) '(defvar defvaralias defconst autoload custom-declare-variable)) (stringp (nth 3 form))) (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil @@ -2089,7 +2089,16 @@ (insert (car info)) (let ((print-continuous-numbering t) print-number-table - (index 0)) + (index 0) + ;; FIXME: The bindings below are only needed for when we're + ;; called from ...-defmumble. + (print-escape-newlines t) + (print-length nil) + (print-level nil) + (print-quoted t) + (print-gensym t) + (print-circle ; Handle circular data structures. + (not byte-compile-disable-print-circle))) (prin1 (car form) byte-compile--outbuffer) (while (setq form (cdr form)) (setq index (1+ index)) @@ -2815,7 +2824,7 @@ (push (cons fn (if (and (consp args) (listp (car args))) (list 'declared (car args)) - t)) ; arglist not specified + t)) ; Arglist not specified. byte-compile-function-environment) ;; We are stating that it _will_ be defined at runtime. (setq byte-compile-noruntime-functions ------------------------------------------------------------ revno: 108446 fixes bug(s): http://debbugs.gnu.org/11555 committer: Paul Eggert branch nick: trunk timestamp: Fri 2012-06-01 11:26:21 -0700 message: Remove --disable-maintainer-mode option from 'configure'. (Bug#11555) It is confusingly named and rarely useful. See, for example, . * INSTALL.BZR: Don't mention --disable-maintainer-mode. * Makefile.in (MAINTAINER_MODE_FLAG): Remove; all uses removed. * configure.in: Remove --disable-maintainer-mode. (USE_MAINTAINER_MODE, MAINT): Remove. * admin/make-tarball.txt: Don't worry about maintainer mode. * etc/NEWS: Mention this. diff: === modified file 'ChangeLog' --- ChangeLog 2012-05-28 00:46:33 +0000 +++ ChangeLog 2012-06-01 18:26:21 +0000 @@ -1,3 +1,13 @@ +2012-06-01 Paul Eggert + + Remove --disable-maintainer-mode option from 'configure'. (Bug#11555) + It is confusingly named and rarely useful. See, for example, + . + * INSTALL.BZR: Don't mention --disable-maintainer-mode. + * Makefile.in (MAINTAINER_MODE_FLAG): Remove; all uses removed. + * configure.in: Remove --disable-maintainer-mode. + (USE_MAINTAINER_MODE, MAINT): Remove. + 2012-05-28 Paul Eggert Make 'configure' a bit smaller and faster. === modified file 'INSTALL.BZR' --- INSTALL.BZR 2012-01-19 07:21:25 +0000 +++ INSTALL.BZR 2012-06-01 18:26:21 +0000 @@ -30,7 +30,7 @@ If you want later builds to go faster, at the expense of sometimes doing the wrong thing if you update the build procedure, you can -invoke "./configure -C --disable-maintainer-mode" instead. +invoke "./configure -C" instead. Some of the files that are included in the Emacs tarball, such as byte-compiled Lisp files, are not stored in Bazaar. Therefore, to === modified file 'Makefile.in' --- Makefile.in 2012-05-22 01:19:43 +0000 +++ Makefile.in 2012-06-01 18:26:21 +0000 @@ -66,10 +66,8 @@ # ==================== Things `configure' Might Edit ==================== -MAINTAINER_MODE_FLAG = --disable-maintainer-mode -@MAINT@MAINTAINER_MODE_FLAG = --enable-maintainer-mode cache_file = @cache_file@ -CONFIGURE_FLAGS = --cache-file=$(cache_file) $(MAINTAINER_MODE_FLAG) +CONFIGURE_FLAGS = --cache-file=$(cache_file) CC=@CC@ CFLAGS=@CFLAGS@ @@ -360,16 +358,17 @@ ./configure $(CONFIGURE_FLAGS); \ fi -AUTOCONF_INPUTS = @MAINT@ $(srcdir)/configure.in $(srcdir)/aclocal.m4 +AUTOCONF_INPUTS = $(srcdir)/configure.in $(srcdir)/aclocal.m4 $(srcdir)/configure: $(AUTOCONF_INPUTS) cd ${srcdir} && autoconf -ACLOCAL_INPUTS = @MAINT@ $(srcdir)/m4/gnulib-comp.m4 +ACLOCAL_INPUTS = $(srcdir)/m4/gnulib-comp.m4 $(srcdir)/aclocal.m4: $(ACLOCAL_INPUTS) cd $(srcdir) && aclocal -I m4 -AUTOMAKE_INPUTS = @MAINT@ $(srcdir)/aclocal.m4 $(srcdir)/lib/Makefile.am $(srcdir)/lib/gnulib.mk +AUTOMAKE_INPUTS = $(srcdir)/aclocal.m4 $(srcdir)/lib/Makefile.am \ + $(srcdir)/lib/gnulib.mk $(srcdir)/lib/Makefile.in: $(AUTOMAKE_INPUTS) cd $(srcdir) && automake --gnu -a -c lib/Makefile am--refresh: $(srcdir)/aclocal.m4 $(srcdir)/configure $(srcdir)/src/config.in === modified file 'admin/ChangeLog' --- admin/ChangeLog 2012-05-28 00:46:33 +0000 +++ admin/ChangeLog 2012-06-01 18:26:21 +0000 @@ -1,3 +1,8 @@ +2012-06-01 Paul Eggert + + Remove --disable-maintainer-mode option from 'configure'. (Bug#11555) + * make-tarball.txt: Don't worry about maintainer mode. + 2012-05-28 Paul Eggert * CPP-DEFINES: Remove HAVE_SYSINFO. === modified file 'admin/make-tarball.txt' --- admin/make-tarball.txt 2012-02-04 22:12:14 +0000 +++ admin/make-tarball.txt 2012-06-01 18:26:21 +0000 @@ -28,13 +28,7 @@ refer to a newer release of Emacs. (This is probably needed only when preparing a major Emacs release, or branching for it.) -5. Edit configure.in so that maintainer-mode is off by default. - (FIXME - need to find a better way of dealing with this. - Or maybe it's fine and indeed correct to leave it on? - See http://lists.gnu.org/archive/html/emacs-devel/2011-03/msg00859.html - and subsequent.) - - autoreconf -i -I m4 --force +5. autoreconf -i -I m4 --force make bootstrap 6. Commit etc/AUTHORS, all the files changed by M-x set-version, and === modified file 'configure.in' --- configure.in 2012-05-28 00:46:33 +0000 +++ configure.in 2012-06-01 18:26:21 +0000 @@ -235,19 +235,6 @@ USE_XASSERTS=$enableval, USE_XASSERTS=no) -AC_ARG_ENABLE(maintainer-mode, -[AS_HELP_STRING([--disable-maintainer-mode], - [disable make rules and dependencies not useful (and sometimes - confusing) to the casual installer])], - USE_MAINTAINER_MODE=$enableval, - USE_MAINTAINER_MODE=yes) -if test $USE_MAINTAINER_MODE = yes; then - MAINT= -else - MAINT=# -fi -AC_SUBST(MAINT) - AC_ARG_ENABLE(locallisppath, [AS_HELP_STRING([--enable-locallisppath=PATH], [directories Emacs should search for lisp files specific === modified file 'etc/ChangeLog' --- etc/ChangeLog 2012-06-01 07:10:49 +0000 +++ etc/ChangeLog 2012-06-01 18:26:21 +0000 @@ -1,3 +1,8 @@ +2012-06-01 Paul Eggert + + Remove --disable-maintainer-mode option from 'configure'. (Bug#11555) + * NEWS: Mention this. + 2012-06-01 Andrew Beals (tiny change) * spook.lines: Additions. (Bug#11598) === modified file 'etc/NEWS' --- etc/NEWS 2012-05-31 17:14:46 +0000 +++ etc/NEWS 2012-06-01 18:26:21 +0000 @@ -29,6 +29,9 @@ no warnings; on older and on non-GNU systems the generated warnings may be useful. +** The configure option '--disable-maintainer-mode' has been removed, +as it was confusingly-named and rarely useful. + --- ** Emacs uses libtinfo in preference to libncurses, if available. ------------------------------------------------------------ revno: 108445 committer: martin rudalics branch nick: trunk timestamp: Fri 2012-06-01 15:44:48 +0200 message: Remove obsolete binding in choose-completion. * simple.el (choose-completion): Remove now obsolete binding for owindow. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2012-06-01 13:23:26 +0000 +++ lisp/ChangeLog 2012-06-01 13:44:48 +0000 @@ -1,3 +1,8 @@ +2012-06-01 Martin Rudalics + + * simple.el (choose-completion): Remove now obsolete binding for + owindow. + 2012-06-01 Michael Albinus * net/tramp.el (tramp-check-for-regexp): Search from buffer end, === modified file 'lisp/simple.el' --- lisp/simple.el 2012-05-29 12:21:45 +0000 +++ lisp/simple.el 2012-06-01 13:44:48 +0000 @@ -6198,8 +6198,7 @@ (setq beg (previous-single-property-change beg 'mouse-face)) (setq end (or (next-single-property-change end 'mouse-face) (point-max))) - (buffer-substring-no-properties beg end)))) - (owindow (selected-window))) + (buffer-substring-no-properties beg end))))) (unless (buffer-live-p buffer) (error "Destination buffer is dead")) ------------------------------------------------------------ revno: 108444 committer: Michael Albinus branch nick: trunk timestamp: Fri 2012-06-01 15:23:26 +0200 message: * net/tramp.el (tramp-check-for-regexp): Search from buffer end, in order to avoid "Stack overflow in regexp matcher". diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2012-05-31 20:06:04 +0000 +++ lisp/ChangeLog 2012-06-01 13:23:26 +0000 @@ -1,3 +1,8 @@ +2012-06-01 Michael Albinus + + * net/tramp.el (tramp-check-for-regexp): Search from buffer end, + in order to avoid "Stack overflow in regexp matcher". + 2012-05-31 Glenn Morris * image.el: For clarity, call imagemagick-register-types at === modified file 'lisp/net/tramp.el' --- lisp/net/tramp.el 2012-04-22 13:58:00 +0000 +++ lisp/net/tramp.el 2012-06-01 13:23:26 +0000 @@ -3315,8 +3315,14 @@ 'buffer-substring-no-properties 1 (min (1+ tramp-echo-mark-marker-length) (point-max)))))) ;; No echo to be handled, now we can look for the regexp. - (goto-char (point-min)) - (re-search-forward regexp nil t)))) + ;; Sometimes, the buffer is much to huge, and we run into a + ;; "Stack overflow in regexp matcher". For example, directory + ;; listings with some thousand files. Therefore, we look from + ;; the end for the last line. We ignore also superlong lines, + ;; like created with "//DIRED//". + (goto-char (point-max)) + (unless (> (- (point) (point-at-bol)) 128) + (re-search-backward regexp (point-at-bol) t))))) (defun tramp-wait-for-regexp (proc timeout regexp) "Wait for a REGEXP to appear from process PROC within TIMEOUT seconds. @@ -3857,9 +3863,6 @@ ;; * Run emerge on two remote files. Bug is described here: ;; . ;; (Bug#6850) -;; * It would be very useful if it were possible to load or save a -;; buffer using Tramp in a non-blocking way so that use of Emacs on -;; other buffers could continue. (Bug#9617) ;;; tramp.el ends here ------------------------------------------------------------ revno: 108443 committer: Glenn Morris branch nick: trunk timestamp: Fri 2012-06-01 06:18:34 -0400 message: Auto-commit of loaddefs files. diff: === modified file 'lisp/ldefs-boot.el' --- lisp/ldefs-boot.el 2012-05-27 01:06:44 +0000 +++ lisp/ldefs-boot.el 2012-06-01 10:18:34 +0000 @@ -5,7 +5,7 @@ ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" -;;;;;; "play/5x5.el" (20229 56251)) +;;;;;; "play/5x5.el" (20355 10021)) ;;; Generated autoloads from play/5x5.el (autoload '5x5 "5x5" "\ @@ -68,7 +68,7 @@ ;;;*** ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/ada-mode.el (autoload 'ada-add-extensions "ada-mode" "\ @@ -88,7 +88,7 @@ ;;;*** ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/ada-stmt.el (autoload 'ada-header "ada-stmt" "\ @@ -99,7 +99,7 @@ ;;;*** ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/ada-xref.el (autoload 'ada-find-file "ada-xref" "\ @@ -114,7 +114,7 @@ ;;;;;; add-change-log-entry-other-window add-change-log-entry find-change-log ;;;;;; prompt-for-change-log-name add-log-mailing-address add-log-full-name ;;;;;; add-log-current-defun-function) "add-log" "vc/add-log.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/add-log.el (put 'change-log-default-name 'safe-local-variable 'string-or-null-p) @@ -253,7 +253,7 @@ ;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice ;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action) -;;;;;; "advice" "emacs-lisp/advice.el" (20280 8018)) +;;;;;; "advice" "emacs-lisp/advice.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action 'warn "\ @@ -398,7 +398,7 @@ ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule ;;;;;; align-highlight-rule align-current align-entire align-regexp -;;;;;; align) "align" "align.el" (20229 56251)) +;;;;;; align) "align" "align.el" (20355 10021)) ;;; Generated autoloads from align.el (autoload 'align "align" "\ @@ -489,7 +489,7 @@ ;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation ;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el" -;;;;;; (20400 16870)) +;;;;;; (20399 35365)) ;;; Generated autoloads from allout.el (autoload 'allout-auto-activation-helper "allout" "\ @@ -850,7 +850,7 @@ ;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation ;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el" -;;;;;; (20387 12783)) +;;;;;; (20385 23626)) ;;; Generated autoloads from allout-widgets.el (let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads)))) @@ -910,7 +910,7 @@ ;;;*** ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" -;;;;;; "net/ange-ftp.el" (20373 62846)) +;;;;;; "net/ange-ftp.el" (20373 11301)) ;;; Generated autoloads from net/ange-ftp.el (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) @@ -932,7 +932,7 @@ ;;;*** ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) -;;;;;; "animate" "play/animate.el" (20355 835)) +;;;;;; "animate" "play/animate.el" (20355 10021)) ;;; Generated autoloads from play/animate.el (autoload 'animate-string "animate" "\ @@ -965,7 +965,7 @@ ;;;*** ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) -;;;;;; "ansi-color" "ansi-color.el" (20395 5351)) +;;;;;; "ansi-color" "ansi-color.el" (20394 17446)) ;;; Generated autoloads from ansi-color.el (autoload 'ansi-color-for-comint-mode-on "ansi-color" "\ @@ -991,7 +991,7 @@ ;;;*** ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) -;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20355 835)) +;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20355 10021)) ;;; Generated autoloads from progmodes/antlr-mode.el (autoload 'antlr-show-makefile-rules "antlr-mode" "\ @@ -1027,7 +1027,7 @@ ;;;*** ;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from calendar/appt.el (autoload 'appt-add "appt" "\ @@ -1050,7 +1050,7 @@ ;;;### (autoloads (apropos-documentation apropos-value apropos-library ;;;;;; apropos apropos-documentation-property apropos-command apropos-variable -;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20373 62846)) +;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20374 32165)) ;;; Generated autoloads from apropos.el (autoload 'apropos-read-pattern "apropos" "\ @@ -1158,8 +1158,8 @@ ;;;*** -;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20389 -;;;;;; 6410)) +;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20387 +;;;;;; 44199)) ;;; Generated autoloads from arc-mode.el (autoload 'archive-mode "arc-mode" "\ @@ -1179,7 +1179,7 @@ ;;;*** -;;;### (autoloads (array-mode) "array" "array.el" (20229 56251)) +;;;### (autoloads (array-mode) "array" "array.el" (20355 10021)) ;;; Generated autoloads from array.el (autoload 'array-mode "array" "\ @@ -1251,7 +1251,7 @@ ;;;*** ;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20357 -;;;;;; 51632)) +;;;;;; 58785)) ;;; Generated autoloads from textmodes/artist.el (autoload 'artist-mode "artist" "\ @@ -1457,7 +1457,7 @@ ;;;*** ;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload 'asm-mode "asm-mode" "\ @@ -1485,7 +1485,7 @@ ;;;*** ;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el" -;;;;;; (20382 62774)) +;;;;;; (20381 5411)) ;;; Generated autoloads from gnus/auth-source.el (defvar auth-source-cache-expiry 7200 "\ @@ -1498,7 +1498,7 @@ ;;;*** ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ @@ -1559,7 +1559,7 @@ ;;;*** ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/autoconf.el (autoload 'autoconf-mode "autoconf" "\ @@ -1570,7 +1570,7 @@ ;;;*** ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) -;;;;;; "autoinsert" "autoinsert.el" (20389 6410)) +;;;;;; "autoinsert" "autoinsert.el" (20387 44199)) ;;; Generated autoloads from autoinsert.el (autoload 'auto-insert "autoinsert" "\ @@ -1610,7 +1610,7 @@ ;;;### (autoloads (batch-update-autoloads update-directory-autoloads ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" -;;;;;; (20405 42495)) +;;;;;; (20423 17700)) ;;; Generated autoloads from emacs-lisp/autoload.el (put 'generated-autoload-file 'safe-local-variable 'stringp) @@ -1661,7 +1661,7 @@ ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode ;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) -;;;;;; "autorevert" "autorevert.el" (20373 62846)) +;;;;;; "autorevert" "autorevert.el" (20373 11301)) ;;; Generated autoloads from autorevert.el (autoload 'auto-revert-mode "autorevert" "\ @@ -1750,7 +1750,7 @@ ;;;*** ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" -;;;;;; "avoid.el" (20370 4296)) +;;;;;; "avoid.el" (20369 14251)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1791,7 +1791,7 @@ ;;;*** ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" -;;;;;; (20370 4296)) +;;;;;; (20369 14251)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1827,7 +1827,7 @@ ;;;*** ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) -;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20229 56251)) +;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload 'benchmark-run "benchmark" "\ @@ -1860,7 +1860,7 @@ ;;;*** ;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize) -;;;;;; "bibtex" "textmodes/bibtex.el" (20355 835)) +;;;;;; "bibtex" "textmodes/bibtex.el" (20355 10021)) ;;; Generated autoloads from textmodes/bibtex.el (autoload 'bibtex-initialize "bibtex" "\ @@ -1949,7 +1949,7 @@ ;;;*** ;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/bibtex-style.el (autoload 'bibtex-style-mode "bibtex-style" "\ @@ -1961,7 +1961,7 @@ ;;;### (autoloads (binhex-decode-region binhex-decode-region-external ;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/binhex.el (defconst binhex-begin-line "^:...............................................................$" "\ @@ -1985,8 +1985,8 @@ ;;;*** -;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from play/blackbox.el (autoload 'blackbox "blackbox" "\ @@ -2109,7 +2109,7 @@ ;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert ;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate ;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark" -;;;;;; "bookmark.el" (20400 16870)) +;;;;;; "bookmark.el" (20399 35365)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-r-map "b" 'bookmark-jump) (define-key ctl-x-r-map "m" 'bookmark-set) @@ -2310,7 +2310,7 @@ ;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point ;;;;;; browse-url browse-url-of-region browse-url-of-dired-file ;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function) -;;;;;; "browse-url" "net/browse-url.el" (20395 5351)) +;;;;;; "browse-url" "net/browse-url.el" (20395 3526)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function 'browse-url-default-browser "\ @@ -2626,7 +2626,7 @@ ;;;*** ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) -;;;;;; "bs" "bs.el" (20370 4296)) +;;;;;; "bs" "bs.el" (20369 14251)) ;;; Generated autoloads from bs.el (autoload 'bs-cycle-next "bs" "\ @@ -2666,7 +2666,7 @@ ;;;*** -;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20229 56251)) +;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20355 10021)) ;;; Generated autoloads from play/bubbles.el (autoload 'bubbles "bubbles" "\ @@ -2688,7 +2688,7 @@ ;;;*** ;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference" -;;;;;; "progmodes/bug-reference.el" (20229 56251)) +;;;;;; "progmodes/bug-reference.el" (20355 10021)) ;;; Generated autoloads from progmodes/bug-reference.el (put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format))))) @@ -2712,7 +2712,7 @@ ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile ;;;;;; compile-defun byte-compile-file byte-recompile-directory ;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning) -;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20387 12783)) +;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20423 17700)) ;;; Generated autoloads from emacs-lisp/bytecomp.el (put 'byte-compile-dynamic 'safe-local-variable 'booleanp) (put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) @@ -2832,8 +2832,8 @@ ;;;*** -;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20229 -;;;;;; 56251)) +;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from calendar/cal-china.el (put 'calendar-chinese-time-zone 'risky-local-variable t) @@ -2842,7 +2842,7 @@ ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20229 56251)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20355 10021)) ;;; Generated autoloads from calendar/cal-dst.el (put 'calendar-daylight-savings-starts 'risky-local-variable t) @@ -2854,7 +2854,7 @@ ;;;*** ;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el" -;;;;;; (20286 28414)) +;;;;;; (20355 10021)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ @@ -2870,8 +2870,8 @@ ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle ;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc -;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20373 -;;;;;; 62846)) +;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20407 +;;;;;; 29477)) ;;; Generated autoloads from calc/calc.el (define-key ctl-x-map "*" 'calc-dispatch) @@ -2955,8 +2955,8 @@ ;;;*** -;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from calc/calc-undo.el (autoload 'calc-undo "calc-undo" "\ @@ -2966,8 +2966,8 @@ ;;;*** -;;;### (autoloads (calculator) "calculator" "calculator.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (calculator) "calculator" "calculator.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from calculator.el (autoload 'calculator "calculator" "\ @@ -2978,8 +2978,8 @@ ;;;*** -;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20389 -;;;;;; 6410)) +;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20388 +;;;;;; 65061)) ;;; Generated autoloads from calendar/calendar.el (autoload 'calendar "calendar" "\ @@ -3023,7 +3023,7 @@ ;;;*** ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" -;;;;;; "gnus/canlock.el" (20229 56251)) +;;;;;; "gnus/canlock.el" (20355 10021)) ;;; Generated autoloads from gnus/canlock.el (autoload 'canlock-insert-header "canlock" "\ @@ -3041,7 +3041,7 @@ ;;;*** ;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/cap-words.el (autoload 'capitalized-words-mode "cap-words" "\ @@ -3080,15 +3080,15 @@ ;;;*** -;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20229 -;;;;;; 56251)) +;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from progmodes/cc-compat.el (put 'c-indent-level 'safe-local-variable 'integerp) ;;;*** ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" -;;;;;; (20373 62846)) +;;;;;; (20373 11301)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload 'c-guess-basic-syntax "cc-engine" "\ @@ -3100,7 +3100,7 @@ ;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region ;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install -;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20280 8018)) +;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20355 10021)) ;;; Generated autoloads from progmodes/cc-guess.el (defvar c-guess-guessed-offsets-alist nil "\ @@ -3200,7 +3200,7 @@ ;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode ;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" -;;;;;; (20370 4296)) +;;;;;; (20416 44451)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload 'c-initialize-cc-mode "cc-mode" "\ @@ -3330,7 +3330,7 @@ (defvar pike-mode-syntax-table nil "\ Syntax table used in pike-mode buffers.") - (add-to-list 'auto-mode-alist '("\\.\\(u?lpc\\|pike\\|pmod\\(.in\\)?\\)\\'" . pike-mode)) + (add-to-list 'auto-mode-alist '("\\.\\(u?lpc\\|pike\\|pmod\\(\\.in\\)?\\)\\'" . pike-mode)) (add-to-list 'interpreter-mode-alist '("pike" . pike-mode)) (autoload 'pike-mode "cc-mode" "\ @@ -3377,7 +3377,7 @@ ;;;*** ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" -;;;;;; "progmodes/cc-styles.el" (20229 56251)) +;;;;;; "progmodes/cc-styles.el" (20355 10021)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload 'c-set-style "cc-styles" "\ @@ -3428,7 +3428,7 @@ ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20280 8018)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20355 10021)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -3438,7 +3438,7 @@ ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from international/ccl.el (autoload 'ccl-compile "ccl" "\ @@ -3699,7 +3699,7 @@ ;;;*** ;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el" -;;;;;; (20376 44718)) +;;;;;; (20421 62373)) ;;; Generated autoloads from emacs-lisp/cconv.el (autoload 'cconv-closure-convert "cconv" "\ @@ -3714,7 +3714,7 @@ ;;;*** ;;;### (autoloads (cfengine-auto-mode cfengine2-mode cfengine3-mode) -;;;;;; "cfengine" "progmodes/cfengine.el" (20355 835)) +;;;;;; "cfengine" "progmodes/cfengine.el" (20355 10021)) ;;; Generated autoloads from progmodes/cfengine.el (autoload 'cfengine3-mode "cfengine" "\ @@ -3744,7 +3744,7 @@ ;;;*** ;;;### (autoloads (check-declare-directory check-declare-file) "check-declare" -;;;;;; "emacs-lisp/check-declare.el" (20379 60745)) +;;;;;; "emacs-lisp/check-declare.el" (20378 29222)) ;;; Generated autoloads from emacs-lisp/check-declare.el (autoload 'check-declare-file "check-declare" "\ @@ -3769,7 +3769,7 @@ ;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer ;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive ;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p) -;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20389 6410)) +;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20388 65061)) ;;; Generated autoloads from emacs-lisp/checkdoc.el (put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp) (put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp) @@ -3965,7 +3965,7 @@ ;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer ;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util" -;;;;;; "language/china-util.el" (20229 56251)) +;;;;;; "language/china-util.el" (20355 10021)) ;;; Generated autoloads from language/china-util.el (autoload 'decode-hz-region "china-util" "\ @@ -4003,7 +4003,7 @@ ;;;*** ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) -;;;;;; "chistory" "chistory.el" (20229 56251)) +;;;;;; "chistory" "chistory.el" (20355 10021)) ;;; Generated autoloads from chistory.el (autoload 'repeat-matching-complex-command "chistory" "\ @@ -4042,7 +4042,7 @@ ;;;*** -;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (20405 42971)) +;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (20406 8611)) ;;; Generated autoloads from emacs-lisp/cl.el (defvar custom-print-functions nil "\ @@ -4066,7 +4066,7 @@ ;;;*** ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" -;;;;;; (20280 8018)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload 'common-lisp-indent-function "cl-indent" "\ @@ -4145,7 +4145,7 @@ ;;;*** ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload 'c-macro-expand "cmacexp" "\ @@ -4165,8 +4165,8 @@ ;;;*** -;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from cmuscheme.el (autoload 'run-scheme "cmuscheme" "\ @@ -4186,7 +4186,7 @@ ;;;*** -;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20350 14460)) +;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20355 10021)) ;;; Generated autoloads from color.el (autoload 'color-name-to-rgb "color" "\ @@ -4208,7 +4208,7 @@ ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list ;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command ;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" -;;;;;; (20405 16851)) +;;;;;; (20420 41510)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ @@ -4308,7 +4308,7 @@ ;;;*** ;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/compare-w.el (autoload 'compare-windows "compare-w" "\ @@ -4345,8 +4345,8 @@ ;;;;;; compilation-shell-minor-mode compilation-mode compilation-start ;;;;;; compile compilation-disable-input compile-command compilation-search-path ;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook -;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20405 -;;;;;; 42899)) +;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20410 +;;;;;; 5673)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4528,7 +4528,7 @@ ;;;*** ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" -;;;;;; (20389 6410)) +;;;;;; (20388 65061)) ;;; Generated autoloads from completion.el (defvar dynamic-completion-mode nil "\ @@ -4553,7 +4553,7 @@ ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode ;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode ;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload 'conf-mode "conf-mode" "\ @@ -4709,7 +4709,7 @@ ;;;*** ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) -;;;;;; "cookie1" "play/cookie1.el" (20370 4296)) +;;;;;; "cookie1" "play/cookie1.el" (20364 27900)) ;;; Generated autoloads from play/cookie1.el (autoload 'cookie "cookie1" "\ @@ -4741,8 +4741,8 @@ ;;;*** ;;;### (autoloads (copyright-update-directory copyright copyright-fix-years -;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20389 -;;;;;; 6410)) +;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20387 +;;;;;; 44199)) ;;; Generated autoloads from emacs-lisp/copyright.el (put 'copyright-at-end-flag 'safe-local-variable 'booleanp) (put 'copyright-names-regexp 'safe-local-variable 'stringp) @@ -4781,7 +4781,7 @@ ;;;*** ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) -;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20229 56251)) +;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20355 10021)) ;;; Generated autoloads from progmodes/cperl-mode.el (put 'cperl-indent-level 'safe-local-variable 'integerp) (put 'cperl-brace-offset 'safe-local-variable 'integerp) @@ -4980,7 +4980,7 @@ ;;;*** ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/cpp.el (autoload 'cpp-highlight-buffer "cpp" "\ @@ -4999,7 +4999,7 @@ ;;;*** ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emulation/crisp.el (defvar crisp-mode nil "\ @@ -5025,7 +5025,7 @@ ;;;*** ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload 'completing-read-multiple "crm" "\ @@ -5060,8 +5060,8 @@ ;;;*** -;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from textmodes/css-mode.el (autoload 'css-mode "css-mode" "\ @@ -5072,7 +5072,7 @@ ;;;*** ;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" -;;;;;; (20360 57703)) +;;;;;; (20361 20134)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ @@ -5132,7 +5132,7 @@ ;;;;;; customize-mode customize customize-push-and-save customize-save-variable ;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically ;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically) -;;;;;; "cus-edit" "cus-edit.el" (20400 16870)) +;;;;;; "cus-edit" "cus-edit.el" (20399 35365)) ;;; Generated autoloads from cus-edit.el (defvar custom-browse-sort-alphabetically nil "\ @@ -5444,8 +5444,8 @@ ;;;*** ;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme -;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20339 -;;;;;; 13356)) +;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from cus-theme.el (autoload 'customize-create-theme "cus-theme" "\ @@ -5479,7 +5479,7 @@ ;;;*** ;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/cvs-status.el (autoload 'cvs-status-mode "cvs-status" "\ @@ -5490,7 +5490,7 @@ ;;;*** ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) -;;;;;; "cwarn" "progmodes/cwarn.el" (20355 835)) +;;;;;; "cwarn" "progmodes/cwarn.el" (20355 10021)) ;;; Generated autoloads from progmodes/cwarn.el (autoload 'cwarn-mode "cwarn" "\ @@ -5541,7 +5541,7 @@ ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char ;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from language/cyril-util.el (autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ @@ -5570,7 +5570,7 @@ ;;;*** ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" -;;;;;; (20397 19651)) +;;;;;; (20397 45851)) ;;; Generated autoloads from dabbrev.el (put 'dabbrev-case-fold-search 'risky-local-variable t) (put 'dabbrev-case-replace 'risky-local-variable t) @@ -5617,7 +5617,7 @@ ;;;*** ;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from cedet/data-debug.el (autoload 'data-debug-new-buffer "data-debug" "\ @@ -5627,8 +5627,8 @@ ;;;*** -;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20400 -;;;;;; 16870)) +;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20399 +;;;;;; 35365)) ;;; Generated autoloads from net/dbus.el (autoload 'dbus-handle-event "dbus" "\ @@ -5642,7 +5642,7 @@ ;;;*** ;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload 'dcl-mode "dcl-mode" "\ @@ -5769,7 +5769,7 @@ ;;;*** ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" -;;;;;; "emacs-lisp/debug.el" (20229 56251)) +;;;;;; "emacs-lisp/debug.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger 'debug) @@ -5813,7 +5813,7 @@ ;;;*** ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from play/decipher.el (autoload 'decipher "decipher" "\ @@ -5842,8 +5842,8 @@ ;;;*** ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region -;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20229 -;;;;;; 56251)) +;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from delim-col.el (autoload 'delimit-columns-customize "delim-col" "\ @@ -5868,7 +5868,7 @@ ;;;*** ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/delphi.el (autoload 'delphi-mode "delphi" "\ @@ -5919,8 +5919,8 @@ ;;;*** -;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from delsel.el (defalias 'pending-delete-mode 'delete-selection-mode) @@ -5950,7 +5950,7 @@ ;;;*** ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) -;;;;;; "derived" "emacs-lisp/derived.el" (20229 56251)) +;;;;;; "derived" "emacs-lisp/derived.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload 'define-derived-mode "derived" "\ @@ -6017,7 +6017,7 @@ ;;;*** ;;;### (autoloads (describe-char describe-text-properties) "descr-text" -;;;;;; "descr-text.el" (20370 4296)) +;;;;;; "descr-text.el" (20369 14251)) ;;; Generated autoloads from descr-text.el (autoload 'describe-text-properties "descr-text" "\ @@ -6054,7 +6054,7 @@ ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir ;;;;;; desktop-load-default desktop-read desktop-remove desktop-save ;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop" -;;;;;; "desktop.el" (20400 16870)) +;;;;;; "desktop.el" (20423 17700)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ @@ -6241,7 +6241,7 @@ ;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article ;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines) -;;;;;; "deuglify" "gnus/deuglify.el" (20229 56251)) +;;;;;; "deuglify" "gnus/deuglify.el" (20355 10021)) ;;; Generated autoloads from gnus/deuglify.el (autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ @@ -6274,7 +6274,7 @@ ;;;*** ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" -;;;;;; "calendar/diary-lib.el" (20288 9499)) +;;;;;; "calendar/diary-lib.el" (20355 10021)) ;;; Generated autoloads from calendar/diary-lib.el (autoload 'diary "diary-lib" "\ @@ -6317,7 +6317,7 @@ ;;;*** ;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command -;;;;;; diff-switches) "diff" "vc/diff.el" (20379 60745)) +;;;;;; diff-switches) "diff" "vc/diff.el" (20379 50083)) ;;; Generated autoloads from vc/diff.el (defvar diff-switches (purecopy "-c") "\ @@ -6361,7 +6361,7 @@ ;;;*** ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el" -;;;;;; (20377 16772)) +;;;;;; (20415 23587)) ;;; Generated autoloads from vc/diff-mode.el (autoload 'diff-mode "diff-mode" "\ @@ -6393,7 +6393,7 @@ ;;;*** -;;;### (autoloads (dig) "dig" "net/dig.el" (20229 56251)) +;;;### (autoloads (dig) "dig" "net/dig.el" (20355 10021)) ;;; Generated autoloads from net/dig.el (autoload 'dig "dig" "\ @@ -6405,7 +6405,7 @@ ;;;*** ;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window -;;;;;; dired dired-listing-switches) "dired" "dired.el" (20400 16870)) +;;;;;; dired dired-listing-switches) "dired" "dired.el" (20399 35754)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6527,7 +6527,7 @@ ;;;*** ;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el" -;;;;;; (20400 16870)) +;;;;;; (20399 35365)) ;;; Generated autoloads from dirtrack.el (autoload 'dirtrack-mode "dirtrack" "\ @@ -6557,8 +6557,8 @@ ;;;*** -;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload 'disassemble "disass" "\ @@ -6577,7 +6577,7 @@ ;;;;;; standard-display-g1 standard-display-ascii standard-display-default ;;;;;; standard-display-8bit describe-current-display-table describe-display-table ;;;;;; set-display-table-slot display-table-slot make-display-table) -;;;;;; "disp-table" "disp-table.el" (20229 56251)) +;;;;;; "disp-table" "disp-table.el" (20355 10021)) ;;; Generated autoloads from disp-table.el (autoload 'make-display-table "disp-table" "\ @@ -6699,7 +6699,7 @@ ;;;*** ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from play/dissociate.el (autoload 'dissociated-press "dissociate" "\ @@ -6715,7 +6715,7 @@ ;;;*** -;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20229 56251)) +;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20355 10021)) ;;; Generated autoloads from dnd.el (defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file) (,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") . dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") . dnd-open-file)) "\ @@ -6736,7 +6736,7 @@ ;;;*** ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" -;;;;;; "textmodes/dns-mode.el" (20229 56251)) +;;;;;; "textmodes/dns-mode.el" (20355 10021)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload 'dns-mode "dns-mode" "\ @@ -6760,8 +6760,8 @@ ;;;*** ;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe -;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20376 -;;;;;; 50510)) +;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20378 +;;;;;; 29222)) ;;; Generated autoloads from doc-view.el (autoload 'doc-view-mode-p "doc-view" "\ @@ -6807,7 +6807,7 @@ ;;;*** -;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20235 37244)) +;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20355 10021)) ;;; Generated autoloads from play/doctor.el (autoload 'doctor "doctor" "\ @@ -6817,7 +6817,7 @@ ;;;*** -;;;### (autoloads (double-mode) "double" "double.el" (20229 56251)) +;;;### (autoloads (double-mode) "double" "double.el" (20355 10021)) ;;; Generated autoloads from double.el (autoload 'double-mode "double" "\ @@ -6833,7 +6833,7 @@ ;;;*** -;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20229 56251)) +;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20355 10021)) ;;; Generated autoloads from play/dunnet.el (autoload 'dunnet "dunnet" "\ @@ -6845,7 +6845,7 @@ ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap ;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode" -;;;;;; "emacs-lisp/easy-mmode.el" (20405 42390)) +;;;;;; "emacs-lisp/easy-mmode.el" (20423 17700)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) @@ -6909,7 +6909,7 @@ :lighter \" Foo\" :require 'foo :global t :group 'hassle :version \"27.5\" ...BODY CODE...) -\(fn MODE DOC &optional INIT-VALUE LIGHTER KEYMAP &rest BODY)" nil (quote macro)) +\(fn MODE DOC &optional INIT-VALUE LIGHTER KEYMAP &rest BODY)" nil t) (put 'define-minor-mode 'doc-string-elt '2) @@ -6936,7 +6936,7 @@ prevent problems with derived modes, that is, major modes that call another major mode in their body. -\(fn GLOBAL-MODE MODE TURN-ON &rest KEYS)" nil (quote macro)) +\(fn GLOBAL-MODE MODE TURN-ON &rest KEYS)" nil t) (put 'define-globalized-minor-mode 'doc-string-elt '2) @@ -6964,19 +6964,19 @@ The M, BS, and ARGS arguments are as per that function. DOC is the constant's documentation. -\(fn M BS DOC &rest ARGS)" nil (quote macro)) +\(fn M BS DOC &rest ARGS)" nil t) (autoload 'easy-mmode-defsyntax "easy-mmode" "\ Define variable ST as a syntax-table. CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). -\(fn ST CSS DOC &rest ARGS)" nil (quote macro)) +\(fn ST CSS DOC &rest ARGS)" nil t) ;;;*** ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define -;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (20304 -;;;;;; 58723)) +;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from emacs-lisp/easymenu.el (autoload 'easy-menu-define "easymenu" "\ @@ -7130,7 +7130,7 @@ ;;;;;; ebnf-eps-file ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer ;;;;;; ebnf-spool-file ebnf-spool-directory ebnf-print-region ebnf-print-buffer ;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" -;;;;;; "progmodes/ebnf2ps.el" (20373 62846)) +;;;;;; "progmodes/ebnf2ps.el" (20373 11301)) ;;; Generated autoloads from progmodes/ebnf2ps.el (autoload 'ebnf-customize "ebnf2ps" "\ @@ -7398,13 +7398,14 @@ ;;;;;; ebrowse-electric-position-menu ebrowse-forward-in-position-stack ;;;;;; ebrowse-back-in-position-stack ebrowse-tags-search-member-use ;;;;;; ebrowse-tags-query-replace ebrowse-tags-search ebrowse-tags-loop-continue -;;;;;; ebrowse-tags-find-definition-other-frame ebrowse-tags-view-definition-other-frame -;;;;;; ebrowse-tags-find-declaration-other-frame ebrowse-tags-find-definition-other-window -;;;;;; ebrowse-tags-view-definition-other-window ebrowse-tags-find-declaration-other-window -;;;;;; ebrowse-tags-find-definition ebrowse-tags-view-definition -;;;;;; ebrowse-tags-find-declaration ebrowse-tags-view-declaration -;;;;;; ebrowse-member-mode ebrowse-electric-choose-tree ebrowse-tree-mode) -;;;;;; "ebrowse" "progmodes/ebrowse.el" (20355 835)) +;;;;;; ebrowse-tags-complete-symbol ebrowse-tags-find-definition-other-frame +;;;;;; ebrowse-tags-view-definition-other-frame ebrowse-tags-find-declaration-other-frame +;;;;;; ebrowse-tags-find-definition-other-window ebrowse-tags-view-definition-other-window +;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition +;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration +;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree +;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload 'ebrowse-tree-mode "ebrowse" "\ @@ -7479,6 +7480,14 @@ \(fn)" t nil) +(autoload 'ebrowse-tags-complete-symbol "ebrowse" "\ +Perform completion on the C++ symbol preceding point. +A second call of this function without changing point inserts the next match. +A call with prefix PREFIX reads the symbol to insert from the minibuffer with +completion. + +\(fn PREFIX)" t nil) + (autoload 'ebrowse-tags-loop-continue "ebrowse" "\ Repeat last operation on files in tree. FIRST-TIME non-nil means this is not a repetition, but the first time. @@ -7545,7 +7554,7 @@ ;;;*** ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" -;;;;;; (20400 16870)) +;;;;;; (20400 56227)) ;;; Generated autoloads from ebuff-menu.el (autoload 'electric-buffer-list "ebuff-menu" "\ @@ -7578,7 +7587,7 @@ ;;;*** ;;;### (autoloads (Electric-command-history-redo-expression) "echistory" -;;;;;; "echistory.el" (20229 56251)) +;;;;;; "echistory.el" (20355 10021)) ;;; Generated autoloads from echistory.el (autoload 'Electric-command-history-redo-expression "echistory" "\ @@ -7590,7 +7599,7 @@ ;;;*** ;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/ecomplete.el (autoload 'ecomplete-setup "ecomplete" "\ @@ -7600,7 +7609,7 @@ ;;;*** -;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20255 22932)) +;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20355 10021)) ;;; Generated autoloads from cedet/ede.el (defvar global-ede-mode nil "\ @@ -7627,7 +7636,7 @@ ;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form ;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug" -;;;;;; "emacs-lisp/edebug.el" (20355 835)) +;;;;;; "emacs-lisp/edebug.el" (20417 65331)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ @@ -7700,7 +7709,7 @@ ;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories ;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories ;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file -;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20373 62846)) +;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20373 11301)) ;;; Generated autoloads from vc/ediff.el (autoload 'ediff-files "ediff" "\ @@ -7932,7 +7941,7 @@ ;;;*** ;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/ediff-help.el (autoload 'ediff-customize "ediff-help" "\ @@ -7943,7 +7952,7 @@ ;;;*** ;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/ediff-mult.el (autoload 'ediff-show-registry "ediff-mult" "\ @@ -7956,7 +7965,7 @@ ;;;*** ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) -;;;;;; "ediff-util" "vc/ediff-util.el" (20304 58723)) +;;;;;; "ediff-util" "vc/ediff-util.el" (20355 10021)) ;;; Generated autoloads from vc/ediff-util.el (autoload 'ediff-toggle-multiframe "ediff-util" "\ @@ -7977,7 +7986,7 @@ ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro ;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from edmacro.el (autoload 'edit-kbd-macro "edmacro" "\ @@ -8026,7 +8035,7 @@ ;;;*** ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" -;;;;;; "emulation/edt.el" (20229 56251)) +;;;;;; "emulation/edt.el" (20355 10021)) ;;; Generated autoloads from emulation/edt.el (autoload 'edt-set-scroll-margins "edt" "\ @@ -8044,7 +8053,7 @@ ;;;*** ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from ehelp.el (autoload 'with-electric-help "ehelp" "\ @@ -8081,7 +8090,7 @@ ;;;*** ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) -;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20229 56251)) +;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/eldoc.el (defvar eldoc-minor-mode-string (purecopy " ElDoc") "\ @@ -8128,7 +8137,7 @@ ;;;*** ;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode) -;;;;;; "electric" "electric.el" (20370 4296)) +;;;;;; "electric" "electric.el" (20369 14251)) ;;; Generated autoloads from electric.el (defvar electric-indent-chars '(10) "\ @@ -8198,8 +8207,8 @@ ;;;*** -;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from elide-head.el (autoload 'elide-head "elide-head" "\ @@ -8216,7 +8225,7 @@ ;;;### (autoloads (elint-initialize elint-defun elint-current-buffer ;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el" -;;;;;; (20229 56251)) +;;;;;; (20421 62373)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload 'elint-file "elint" "\ @@ -8252,8 +8261,8 @@ ;;;*** ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list -;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20229 -;;;;;; 56251)) +;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload 'elp-instrument-function "elp" "\ @@ -8288,7 +8297,7 @@ ;;;*** ;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el" -;;;;;; (20400 16870)) +;;;;;; (20399 35365)) ;;; Generated autoloads from emacs-lock.el (autoload 'emacs-lock-mode "emacs-lock" "\ @@ -8316,7 +8325,7 @@ ;;;*** ;;;### (autoloads (report-emacs-bug-query-existing-bugs report-emacs-bug) -;;;;;; "emacsbug" "mail/emacsbug.el" (20355 835)) +;;;;;; "emacsbug" "mail/emacsbug.el" (20411 26532)) ;;; Generated autoloads from mail/emacsbug.el (autoload 'report-emacs-bug "emacsbug" "\ @@ -8337,7 +8346,7 @@ ;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote ;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor ;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge" -;;;;;; "vc/emerge.el" (20355 835)) +;;;;;; "vc/emerge.el" (20355 10021)) ;;; Generated autoloads from vc/emerge.el (autoload 'emerge-files "emerge" "\ @@ -8398,7 +8407,7 @@ ;;;*** ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) -;;;;;; "enriched" "textmodes/enriched.el" (20273 59945)) +;;;;;; "enriched" "textmodes/enriched.el" (20355 10021)) ;;; Generated autoloads from textmodes/enriched.el (autoload 'enriched-mode "enriched" "\ @@ -8439,7 +8448,7 @@ ;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file ;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys ;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from epa.el (autoload 'epa-list-keys "epa" "\ @@ -8617,7 +8626,7 @@ ;;;*** ;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify -;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20229 56251)) +;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20355 10021)) ;;; Generated autoloads from epa-dired.el (autoload 'epa-dired-do-decrypt "epa-dired" "\ @@ -8643,7 +8652,7 @@ ;;;*** ;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler) -;;;;;; "epa-file" "epa-file.el" (20229 56251)) +;;;;;; "epa-file" "epa-file.el" (20355 10021)) ;;; Generated autoloads from epa-file.el (autoload 'epa-file-handler "epa-file" "\ @@ -8665,7 +8674,7 @@ ;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt ;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode) -;;;;;; "epa-mail" "epa-mail.el" (20325 60273)) +;;;;;; "epa-mail" "epa-mail.el" (20355 10021)) ;;; Generated autoloads from epa-mail.el (autoload 'epa-mail-mode "epa-mail" "\ @@ -8735,7 +8744,7 @@ ;;;*** -;;;### (autoloads (epg-make-context) "epg" "epg.el" (20255 22932)) +;;;### (autoloads (epg-make-context) "epg" "epg.el" (20355 10021)) ;;; Generated autoloads from epg.el (autoload 'epg-make-context "epg" "\ @@ -8746,7 +8755,7 @@ ;;;*** ;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration) -;;;;;; "epg-config" "epg-config.el" (20373 62846)) +;;;;;; "epg-config" "epg-config.el" (20373 11301)) ;;; Generated autoloads from epg-config.el (autoload 'epg-configuration "epg-config" "\ @@ -8766,8 +8775,8 @@ ;;;*** -;;;### (autoloads (erc-handle-irc-url erc-tls erc-select-read-args) -;;;;;; "erc" "erc/erc.el" (20356 48455)) +;;;### (autoloads (erc-handle-irc-url erc-tls erc erc-select-read-args) +;;;;;; "erc" "erc/erc.el" (20356 2211)) ;;; Generated autoloads from erc/erc.el (autoload 'erc-select-read-args "erc" "\ @@ -8775,6 +8784,29 @@ \(fn)" nil nil) +(autoload 'erc "erc" "\ +ERC is a powerful, modular, and extensible IRC client. +This function is the main entry point for ERC. + +It permits you to select connection parameters, and then starts ERC. + +Non-interactively, it takes the keyword arguments + (server (erc-compute-server)) + (port (erc-compute-port)) + (nick (erc-compute-nick)) + password + (full-name (erc-compute-full-name))) + +That is, if called with + + (erc :server \"irc.freenode.net\" :full-name \"Harry S Truman\") + +then the server and full-name will be set to those values, whereas +`erc-compute-port', `erc-compute-nick' and `erc-compute-full-name' will +be invoked for the values of the other parameters. + +\(fn &key (server (erc-compute-server)) (port (erc-compute-port)) (nick (erc-compute-nick)) PASSWORD (full-name (erc-compute-full-name)))" t nil) + (defalias 'erc-select 'erc) (autoload 'erc-tls "erc" "\ @@ -8793,32 +8825,32 @@ ;;;*** ;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from erc/erc-autoaway.el (autoload 'erc-autoaway-mode "erc-autoaway") ;;;*** -;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20355 835)) +;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20355 10021)) ;;; Generated autoloads from erc/erc-button.el (autoload 'erc-button-mode "erc-button" nil t) ;;;*** -;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20229 56251)) +;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20355 10021)) ;;; Generated autoloads from erc/erc-capab.el (autoload 'erc-capab-identify-mode "erc-capab" nil t) ;;;*** -;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (20304 58723)) +;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (20355 10021)) ;;; Generated autoloads from erc/erc-compat.el (autoload 'erc-define-minor-mode "erc-compat") ;;;*** ;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC) -;;;;;; "erc-dcc" "erc/erc-dcc.el" (20405 16851)) +;;;;;; "erc-dcc" "erc/erc-dcc.el" (20402 11562)) ;;; Generated autoloads from erc/erc-dcc.el (autoload 'erc-dcc-mode "erc-dcc") @@ -8851,7 +8883,7 @@ ;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list ;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action ;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-ezbounce.el (autoload 'erc-cmd-ezb "erc-ezbounce" "\ @@ -8913,8 +8945,8 @@ ;;;*** -;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from erc/erc-fill.el (autoload 'erc-fill-mode "erc-fill" nil t) @@ -8927,7 +8959,7 @@ ;;;*** ;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd" -;;;;;; "erc/erc-identd.el" (20229 56251)) +;;;;;; "erc/erc-identd.el" (20355 10021)) ;;; Generated autoloads from erc/erc-identd.el (autoload 'erc-identd-mode "erc-identd") @@ -8949,7 +8981,7 @@ ;;;*** ;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-imenu.el (autoload 'erc-create-imenu-index "erc-imenu" "\ @@ -8959,20 +8991,20 @@ ;;;*** -;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20356 48455)) +;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20356 2211)) ;;; Generated autoloads from erc/erc-join.el (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;*** -;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20229 56251)) +;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20355 10021)) ;;; Generated autoloads from erc/erc-list.el (autoload 'erc-list-mode "erc-list") ;;;*** ;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log" -;;;;;; "erc/erc-log.el" (20355 835)) +;;;;;; "erc/erc-log.el" (20355 10021)) ;;; Generated autoloads from erc/erc-log.el (autoload 'erc-log-mode "erc-log" nil t) @@ -9004,7 +9036,7 @@ ;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host ;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool ;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-match.el (autoload 'erc-match-mode "erc-match") @@ -9050,14 +9082,14 @@ ;;;*** -;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20229 56251)) +;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20355 10021)) ;;; Generated autoloads from erc/erc-menu.el (autoload 'erc-menu-mode "erc-menu" nil t) ;;;*** ;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-netsplit.el (autoload 'erc-netsplit-mode "erc-netsplit") @@ -9069,7 +9101,7 @@ ;;;*** ;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks" -;;;;;; "erc/erc-networks.el" (20229 56251)) +;;;;;; "erc/erc-networks.el" (20355 10021)) ;;; Generated autoloads from erc/erc-networks.el (autoload 'erc-determine-network "erc-networks" "\ @@ -9087,7 +9119,7 @@ ;;;*** ;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify" -;;;;;; "erc/erc-notify.el" (20355 835)) +;;;;;; "erc/erc-notify.el" (20355 10021)) ;;; Generated autoloads from erc/erc-notify.el (autoload 'erc-notify-mode "erc-notify" nil t) @@ -9105,33 +9137,33 @@ ;;;*** -;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20239 35035)) +;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20355 10021)) ;;; Generated autoloads from erc/erc-page.el (autoload 'erc-page-mode "erc-page") ;;;*** ;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;*** -;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20229 56251)) +;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20355 10021)) ;;; Generated autoloads from erc/erc-replace.el (autoload 'erc-replace-mode "erc-replace") ;;;*** -;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20229 56251)) +;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20355 10021)) ;;; Generated autoloads from erc/erc-ring.el (autoload 'erc-ring-mode "erc-ring" nil t) ;;;*** ;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode) -;;;;;; "erc-services" "erc/erc-services.el" (20357 51632)) +;;;;;; "erc-services" "erc/erc-services.el" (20357 58785)) ;;; Generated autoloads from erc/erc-services.el (autoload 'erc-services-mode "erc-services" nil t) @@ -9148,14 +9180,14 @@ ;;;*** -;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20355 835)) +;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20355 10021)) ;;; Generated autoloads from erc/erc-sound.el (autoload 'erc-sound-mode "erc-sound") ;;;*** ;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-speedbar.el (autoload 'erc-speedbar-browser "erc-speedbar" "\ @@ -9166,21 +9198,21 @@ ;;;*** -;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20229 -;;;;;; 56251)) +;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from erc/erc-spelling.el (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;*** -;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20355 835)) +;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20355 10021)) ;;; Generated autoloads from erc/erc-stamp.el (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;*** ;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-track.el (defvar erc-track-minor-mode nil "\ @@ -9206,7 +9238,7 @@ ;;;*** ;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size) -;;;;;; "erc-truncate" "erc/erc-truncate.el" (20355 835)) +;;;;;; "erc-truncate" "erc/erc-truncate.el" (20355 10021)) ;;; Generated autoloads from erc/erc-truncate.el (autoload 'erc-truncate-mode "erc-truncate" nil t) @@ -9226,7 +9258,7 @@ ;;;*** ;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from erc/erc-xdcc.el (autoload 'erc-xdcc-mode "erc-xdcc") @@ -9238,10 +9270,31 @@ ;;;*** ;;;### (autoloads (ert-describe-test ert-run-tests-interactively -;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch) "ert" "emacs-lisp/ert.el" -;;;;;; (20355 835)) +;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest) +;;;;;; "ert" "emacs-lisp/ert.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/ert.el +(autoload 'ert-deftest "ert" "\ +Define NAME (a symbol) as a test. + +BODY is evaluated as a `progn' when the test is run. It should +signal a condition on failure or just return if the test passes. + +`should', `should-not' and `should-error' are useful for +assertions in BODY. + +Use `ert' to run tests interactively. + +Tests that are expected to fail can be marked as such +using :expected-result. See `ert-test-result-type-p' for a +description of valid values for RESULT-TYPE. + +\(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags '(TAG...)] BODY...)" nil (quote macro)) + +(put 'ert-deftest 'lisp-indent-function '2) + +(put 'ert-deftest 'doc-string-elt '3) + (put 'ert-deftest 'lisp-indent-function 2) (put 'ert-info 'lisp-indent-function 1) @@ -9288,7 +9341,7 @@ ;;;*** ;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el" -;;;;;; (20370 4296)) +;;;;;; (20364 28960)) ;;; Generated autoloads from emacs-lisp/ert-x.el (put 'ert-with-test-buffer 'lisp-indent-function 1) @@ -9300,8 +9353,8 @@ ;;;*** -;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from eshell/esh-mode.el (autoload 'eshell-mode "esh-mode" "\ @@ -9314,7 +9367,7 @@ ;;;*** ;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell" -;;;;;; "eshell/eshell.el" (20373 62846)) +;;;;;; "eshell/eshell.el" (20373 11301)) ;;; Generated autoloads from eshell/eshell.el (autoload 'eshell "eshell" "\ @@ -9355,7 +9408,7 @@ ;;;;;; visit-tags-table tags-table-mode find-tag-default-function ;;;;;; find-tag-hook tags-add-tables tags-compression-info-list ;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" -;;;;;; (20389 6410)) +;;;;;; (20388 65061)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9673,7 +9726,7 @@ ;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer ;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer ;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from language/ethio-util.el (autoload 'setup-ethiopic-environment-internal "ethio-util" "\ @@ -9843,7 +9896,7 @@ ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" -;;;;;; (20304 58723)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/eudc.el (autoload 'eudc-set-server "eudc" "\ @@ -9899,7 +9952,7 @@ ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline ;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) -;;;;;; "eudc-bob" "net/eudc-bob.el" (20229 56251)) +;;;;;; "eudc-bob" "net/eudc-bob.el" (20355 10021)) ;;; Generated autoloads from net/eudc-bob.el (autoload 'eudc-display-generic-binary "eudc-bob" "\ @@ -9935,7 +9988,7 @@ ;;;*** ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) -;;;;;; "eudc-export" "net/eudc-export.el" (20229 56251)) +;;;;;; "eudc-export" "net/eudc-export.el" (20355 10021)) ;;; Generated autoloads from net/eudc-export.el (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ @@ -9952,7 +10005,7 @@ ;;;*** ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ @@ -9962,8 +10015,8 @@ ;;;*** -;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20376 -;;;;;; 50401)) +;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20378 +;;;;;; 29222)) ;;; Generated autoloads from emacs-lisp/ewoc.el (autoload 'ewoc-create "ewoc" "\ @@ -9992,7 +10045,7 @@ ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p ;;;;;; executable-self-display executable-set-magic executable-interpret ;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/executable.el (autoload 'executable-command-find-posix-p "executable" "\ @@ -10035,7 +10088,7 @@ ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot ;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from expand.el (autoload 'expand-add-abbrevs "expand" "\ @@ -10084,7 +10137,7 @@ ;;;*** -;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20389 6410)) +;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20388 65061)) ;;; Generated autoloads from progmodes/f90.el (autoload 'f90-mode "f90" "\ @@ -10154,8 +10207,8 @@ ;;;### (autoloads (variable-pitch-mode buffer-face-toggle buffer-face-set ;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase ;;;;;; text-scale-set face-remap-set-base face-remap-reset-base -;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20389 -;;;;;; 6410)) +;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20388 +;;;;;; 65061)) ;;; Generated autoloads from face-remap.el (autoload 'face-remap-add-relative "face-remap" "\ @@ -10303,7 +10356,7 @@ ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts -;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20389 6410)) +;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20387 44199)) ;;; Generated autoloads from mail/feedmail.el (autoload 'feedmail-send-it "feedmail" "\ @@ -10358,7 +10411,7 @@ ;;;### (autoloads (ffap-bindings ffap-guess-file-name-at-point dired-at-point ;;;;;; ffap-at-mouse ffap-menu find-file-at-point ffap-next) "ffap" -;;;;;; "ffap.el" (20395 46900)) +;;;;;; "ffap.el" (20395 38306)) ;;; Generated autoloads from ffap.el (autoload 'ffap-next "ffap" "\ @@ -10424,7 +10477,7 @@ ;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively ;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find ;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory) -;;;;;; "filecache" "filecache.el" (20229 56251)) +;;;;;; "filecache" "filecache.el" (20355 10021)) ;;; Generated autoloads from filecache.el (autoload 'file-cache-add-directory "filecache" "\ @@ -10484,7 +10537,7 @@ ;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable ;;;;;; add-dir-local-variable delete-file-local-variable-prop-line ;;;;;; add-file-local-variable-prop-line delete-file-local-variable -;;;;;; add-file-local-variable) "files-x" "files-x.el" (20355 835)) +;;;;;; add-file-local-variable) "files-x" "files-x.el" (20355 10021)) ;;; Generated autoloads from files-x.el (autoload 'add-file-local-variable "files-x" "\ @@ -10549,8 +10602,8 @@ ;;;*** -;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20304 -;;;;;; 58723)) +;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from filesets.el (autoload 'filesets-init "filesets" "\ @@ -10561,7 +10614,7 @@ ;;;*** -;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20229 56251)) +;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20355 10021)) ;;; Generated autoloads from find-cmd.el (autoload 'find-cmd "find-cmd" "\ @@ -10581,7 +10634,7 @@ ;;;*** ;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired" -;;;;;; "find-dired.el" (20255 22932)) +;;;;;; "find-dired.el" (20355 10021)) ;;; Generated autoloads from find-dired.el (autoload 'find-dired "find-dired" "\ @@ -10621,7 +10674,7 @@ ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file ;;;;;; ff-find-other-file ff-get-other-file ff-special-constructs) -;;;;;; "find-file" "find-file.el" (20389 6410)) +;;;;;; "find-file" "find-file.el" (20387 44199)) ;;; Generated autoloads from find-file.el (defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\ @@ -10717,7 +10770,7 @@ ;;;;;; find-variable find-variable-noselect find-function-other-frame ;;;;;; find-function-other-window find-function find-function-noselect ;;;;;; find-function-search-for-symbol find-library) "find-func" -;;;;;; "emacs-lisp/find-func.el" (20229 56251)) +;;;;;; "emacs-lisp/find-func.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload 'find-library "find-func" "\ @@ -10876,7 +10929,7 @@ ;;;*** ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories -;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20229 56251)) +;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20355 10021)) ;;; Generated autoloads from find-lisp.el (autoload 'find-lisp-find-dired "find-lisp" "\ @@ -10897,7 +10950,7 @@ ;;;*** ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) -;;;;;; "finder" "finder.el" (20229 56251)) +;;;;;; "finder" "finder.el" (20355 10021)) ;;; Generated autoloads from finder.el (autoload 'finder-list-keywords "finder" "\ @@ -10919,7 +10972,7 @@ ;;;*** ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" -;;;;;; "flow-ctrl.el" (20229 56251)) +;;;;;; "flow-ctrl.el" (20355 10021)) ;;; Generated autoloads from flow-ctrl.el (autoload 'enable-flow-control "flow-ctrl" "\ @@ -10941,7 +10994,7 @@ ;;;*** ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/flow-fill.el (autoload 'fill-flowed-encode "flow-fill" "\ @@ -10957,7 +11010,7 @@ ;;;*** ;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on -;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20373 62846)) +;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20373 11301)) ;;; Generated autoloads from progmodes/flymake.el (autoload 'flymake-mode "flymake" "\ @@ -10987,7 +11040,7 @@ ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) -;;;;;; "flyspell" "textmodes/flyspell.el" (20405 16851)) +;;;;;; "flyspell" "textmodes/flyspell.el" (20420 41510)) ;;; Generated autoloads from textmodes/flyspell.el (autoload 'flyspell-prog-mode "flyspell" "\ @@ -11059,7 +11112,7 @@ ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" -;;;;;; (20389 6410)) +;;;;;; (20387 44199)) ;;; Generated autoloads from follow.el (autoload 'turn-on-follow-mode "follow" "\ @@ -11127,8 +11180,8 @@ ;;;*** -;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20389 -;;;;;; 6410)) +;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20387 +;;;;;; 44199)) ;;; Generated autoloads from mail/footnote.el (autoload 'footnote-mode "footnote" "\ @@ -11147,7 +11200,7 @@ ;;;*** ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) -;;;;;; "forms" "forms.el" (20392 26928)) +;;;;;; "forms" "forms.el" (20392 20740)) ;;; Generated autoloads from forms.el (autoload 'forms-mode "forms" "\ @@ -11184,7 +11237,7 @@ ;;;*** ;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/fortran.el (autoload 'fortran-mode "fortran" "\ @@ -11262,7 +11315,7 @@ ;;;*** ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region -;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20229 56251)) +;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20355 10021)) ;;; Generated autoloads from play/fortune.el (autoload 'fortune-add-fortune "fortune" "\ @@ -11311,13 +11364,24 @@ ;;;*** ;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el" -;;;;;; (20405 42390)) +;;;;;; (20415 53309)) ;;; Generated autoloads from progmodes/gdb-mi.el (defvar gdb-enable-debug nil "\ -Non-nil means record the process input and output in `gdb-debug-log'.") - -(custom-autoload 'gdb-enable-debug "gdb-mi" t) +Non-nil if Gdb-Enable-Debug mode is enabled. +See the command `gdb-enable-debug' for a description of this minor mode.") + +(custom-autoload 'gdb-enable-debug "gdb-mi" nil) + +(autoload 'gdb-enable-debug "gdb-mi" "\ +Toggle logging of transaction between Emacs and Gdb. +The log is stored in `gdb-debug-log' as an alist with elements +whose cons is send, send-item or recv and whose cdr is the string +being transferred. This list may grow up to a size of +`gdb-debug-log-max' after which the oldest element (at the end of +the list) is deleted every time a new one is added (at the front). + +\(fn &optional ARG)" t nil) (autoload 'gdb "gdb-mi" "\ Run gdb on program FILE in buffer *gud-FILE*. @@ -11378,8 +11442,8 @@ ;;;*** ;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal -;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20405 -;;;;;; 42390)) +;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20406 +;;;;;; 8611)) ;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ @@ -11458,7 +11522,7 @@ ;;;*** ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/glasses.el (autoload 'glasses-mode "glasses" "\ @@ -11474,7 +11538,7 @@ ;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error ;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el" -;;;;;; (20304 58723)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gmm-utils.el (autoload 'gmm-regexp-concat "gmm-utils" "\ @@ -11529,7 +11593,7 @@ ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server -;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20379 60745)) +;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20414 2727)) ;;; Generated autoloads from gnus/gnus.el (when (fboundp 'custom-autoload) (custom-autoload 'gnus-select-method "gnus")) @@ -11582,7 +11646,7 @@ ;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group ;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize ;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" -;;;;;; "gnus/gnus-agent.el" (20304 58723)) +;;;;;; "gnus/gnus-agent.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload 'gnus-unplugged "gnus-agent" "\ @@ -11673,7 +11737,7 @@ ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" -;;;;;; (20360 57703)) +;;;;;; (20361 20134)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -11684,7 +11748,7 @@ ;;;*** ;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set) -;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20229 56251)) +;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-bookmark.el (autoload 'gnus-bookmark-set "gnus-bookmark" "\ @@ -11709,8 +11773,8 @@ ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group ;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active -;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (20229 -;;;;;; 56251)) +;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload 'gnus-jog-cache "gnus-cache" "\ @@ -11752,7 +11816,7 @@ ;;;*** ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) -;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20229 56251)) +;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload 'gnus-delay-article "gnus-delay" "\ @@ -11788,7 +11852,7 @@ ;;;*** ;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d) -;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20229 56251)) +;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-diary.el (autoload 'gnus-user-format-function-d "gnus-diary" "\ @@ -11804,7 +11868,7 @@ ;;;*** ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ @@ -11815,7 +11879,7 @@ ;;;*** ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload 'gnus-draft-reminder "gnus-draft" "\ @@ -11827,8 +11891,8 @@ ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png ;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header -;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (20229 -;;;;;; 56251)) +;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload 'gnus-random-x-face "gnus-fun" "\ @@ -11873,7 +11937,7 @@ ;;;*** ;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar) -;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20229 56251)) +;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-gravatar.el (autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ @@ -11891,7 +11955,7 @@ ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) -;;;;;; "gnus-group" "gnus/gnus-group.el" (20268 11628)) +;;;;;; "gnus-group" "gnus/gnus-group.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-group.el (autoload 'gnus-fetch-group "gnus-group" "\ @@ -11909,7 +11973,7 @@ ;;;*** ;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html" -;;;;;; "gnus/gnus-html.el" (20273 59945)) +;;;;;; "gnus/gnus-html.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-html.el (autoload 'gnus-article-html "gnus-html" "\ @@ -11925,7 +11989,7 @@ ;;;*** ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias 'gnus-batch-kill 'gnus-batch-score) @@ -11940,7 +12004,7 @@ ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate ;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ @@ -11965,7 +12029,7 @@ ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update ;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload 'gnus-group-split-setup "gnus-mlspl" "\ @@ -12066,7 +12130,7 @@ ;;;*** ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) -;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20360 57703)) +;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20417 65331)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload 'gnus-msg-mail "gnus-msg" "\ @@ -12094,7 +12158,7 @@ ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon ;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" -;;;;;; (20280 8018)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload 'gnus-treat-from-picon "gnus-picon" "\ @@ -12121,7 +12185,7 @@ ;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection ;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement ;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" -;;;;;; "gnus/gnus-range.el" (20229 56251)) +;;;;;; "gnus/gnus-range.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-range.el (autoload 'gnus-sorted-difference "gnus-range" "\ @@ -12189,7 +12253,7 @@ ;;;*** ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) -;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20376 41972)) +;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20415 53309)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload 'gnus-registry-initialize "gnus-registry" "\ @@ -12205,8 +12269,8 @@ ;;;*** ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate -;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20229 -;;;;;; 56251)) +;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload 'gnus-sieve-update "gnus-sieve" "\ @@ -12234,7 +12298,7 @@ ;;;*** ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload 'gnus-update-format "gnus-spec" "\ @@ -12245,7 +12309,7 @@ ;;;*** ;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" -;;;;;; (20360 57703)) +;;;;;; (20361 20134)) ;;; Generated autoloads from gnus/gnus-start.el (autoload 'gnus-declare-backend "gnus-start" "\ @@ -12256,7 +12320,7 @@ ;;;*** ;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el" -;;;;;; (20325 60273)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/gnus-sum.el (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ @@ -12268,7 +12332,7 @@ ;;;*** ;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize) -;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20229 56251)) +;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20355 10021)) ;;; Generated autoloads from gnus/gnus-sync.el (autoload 'gnus-sync-initialize "gnus-sync" "\ @@ -12284,7 +12348,7 @@ ;;;*** ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" -;;;;;; (20376 41972)) +;;;;;; (20420 41510)) ;;; Generated autoloads from gnus/gnus-win.el (autoload 'gnus-add-configuration "gnus-win" "\ @@ -12295,23 +12359,23 @@ ;;;*** ;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el" -;;;;;; (20286 28414)) +;;;;;; (20417 65331)) ;;; Generated autoloads from net/gnutls.el -(defvar gnutls-min-prime-bits nil "\ -The minimum number of bits to be used in Diffie-Hellman key exchange. - -This sets the minimum accepted size of the key to be used in a -client-server handshake. If the server sends a prime with fewer than -the specified number of bits the handshake will fail. - -A value of nil says to use the default gnutls value.") +(defvar gnutls-min-prime-bits 256 "\ +Minimum number of prime bits accepted by GnuTLS for key exchange. +During a Diffie-Hellman handshake, if the server sends a prime +number with fewer than this number of bits, the handshake is +rejected. (The smaller the prime number, the less secure the +key exchange is against man-in-the-middle attacks.) + +A value of nil says to use the default GnuTLS value.") (custom-autoload 'gnutls-min-prime-bits "gnutls" t) ;;;*** -;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20355 835)) +;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20355 10021)) ;;; Generated autoloads from play/gomoku.el (autoload 'gomoku "gomoku" "\ @@ -12339,7 +12403,7 @@ ;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address ;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from net/goto-addr.el (define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") @@ -12381,7 +12445,7 @@ ;;;*** ;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve) -;;;;;; "gravatar" "gnus/gravatar.el" (20280 8018)) +;;;;;; "gravatar" "gnus/gravatar.el" (20355 10021)) ;;; Generated autoloads from gnus/gravatar.el (autoload 'gravatar-retrieve "gravatar" "\ @@ -12397,9 +12461,9 @@ ;;;*** -;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-compute-defaults +;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command -;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20370 4296)) +;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20369 14251)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12474,6 +12538,11 @@ \(fn)" nil nil) +(autoload 'grep-mode "grep" "\ +Sets `grep-last-buffer' and `compilation-window-height'. + +\(fn)" nil nil) + (autoload 'grep "grep" "\ Run grep, with user-specified args, and collect output in a buffer. While grep runs asynchronously, you can use \\[next-error] (M-x next-error), @@ -12557,7 +12626,7 @@ ;;;*** -;;;### (autoloads (gs-load-image) "gs" "gs.el" (20229 56251)) +;;;### (autoloads (gs-load-image) "gs" "gs.el" (20355 10021)) ;;; Generated autoloads from gs.el (autoload 'gs-load-image "gs" "\ @@ -12571,7 +12640,7 @@ ;;;*** ;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb -;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20373 62846)) +;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20373 11301)) ;;; Generated autoloads from progmodes/gud.el (autoload 'gud-gdb "gud" "\ @@ -12659,8 +12728,8 @@ ;;;*** -;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (20304 -;;;;;; 58723)) +;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from play/handwrite.el (autoload 'handwrite "handwrite" "\ @@ -12678,7 +12747,7 @@ ;;;*** ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" -;;;;;; (19981 63558)) +;;;;;; (20355 10021)) ;;; Generated autoloads from play/hanoi.el (autoload 'hanoi "hanoi" "\ @@ -12707,7 +12776,7 @@ ;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment ;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment) -;;;;;; "hashcash" "mail/hashcash.el" (20355 835)) +;;;;;; "hashcash" "mail/hashcash.el" (20355 10021)) ;;; Generated autoloads from mail/hashcash.el (autoload 'hashcash-insert-payment "hashcash" "\ @@ -12752,7 +12821,7 @@ ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region ;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer ;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string -;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (20229 56251)) +;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (20355 10021)) ;;; Generated autoloads from help-at-pt.el (autoload 'help-at-pt-string "help-at-pt" "\ @@ -12882,7 +12951,7 @@ ;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories ;;;;;; describe-syntax describe-variable variable-at-point describe-function-1 ;;;;;; find-lisp-object-file-name help-C-file-name describe-function) -;;;;;; "help-fns" "help-fns.el" (20298 64606)) +;;;;;; "help-fns" "help-fns.el" (20355 10021)) ;;; Generated autoloads from help-fns.el (autoload 'describe-function "help-fns" "\ @@ -12962,7 +13031,7 @@ ;;;*** ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" -;;;;;; (20255 22932)) +;;;;;; (20355 10021)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -12978,8 +13047,8 @@ ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button ;;;;;; help-make-xrefs help-buffer help-setup-xref help-mode-finish -;;;;;; help-mode-setup help-mode) "help-mode" "help-mode.el" (20229 -;;;;;; 56251)) +;;;;;; help-mode-setup help-mode) "help-mode" "help-mode.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from help-mode.el (autoload 'help-mode "help-mode" "\ @@ -13072,7 +13141,7 @@ ;;;*** ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" -;;;;;; "emacs-lisp/helper.el" (20229 56251)) +;;;;;; "emacs-lisp/helper.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload 'Helper-describe-bindings "helper" "\ @@ -13088,7 +13157,7 @@ ;;;*** ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" -;;;;;; "hexl.el" (20364 20442)) +;;;;;; "hexl.el" (20420 41510)) ;;; Generated autoloads from hexl.el (autoload 'hexl-mode "hexl" "\ @@ -13185,7 +13254,7 @@ ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer ;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer ;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" -;;;;;; (20229 56251)) +;;;;;; (20410 5673)) ;;; Generated autoloads from hi-lock.el (autoload 'hi-lock-mode "hi-lock" "\ @@ -13324,7 +13393,7 @@ ;;;*** ;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/hideif.el (autoload 'hide-ifdef-mode "hideif" "\ @@ -13368,7 +13437,7 @@ ;;;*** ;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el" -;;;;;; (20356 52797)) +;;;;;; (20356 55829)) ;;; Generated autoloads from progmodes/hideshow.el (defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\ @@ -13434,8 +13503,8 @@ ;;;;;; highlight-compare-buffers highlight-changes-rotate-faces ;;;;;; highlight-changes-previous-change highlight-changes-next-change ;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode -;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20229 -;;;;;; 56251)) +;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from hilit-chg.el (autoload 'highlight-changes-mode "hilit-chg" "\ @@ -13570,7 +13639,7 @@ ;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction ;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space ;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" -;;;;;; "hippie-exp.el" (20229 56251)) +;;;;;; "hippie-exp.el" (20355 10021)) ;;; Generated autoloads from hippie-exp.el (defvar hippie-expand-try-functions-list '(try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol) "\ @@ -13643,7 +13712,7 @@ ;;;*** ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from hl-line.el (autoload 'hl-line-mode "hl-line" "\ @@ -13696,7 +13765,7 @@ ;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays ;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays ;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays" -;;;;;; "calendar/holidays.el" (20390 32086)) +;;;;;; "calendar/holidays.el" (20390 20388)) ;;; Generated autoloads from calendar/holidays.el (define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1") @@ -13844,8 +13913,8 @@ ;;;*** -;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/html2text.el (autoload 'html2text "html2text" "\ @@ -13856,7 +13925,7 @@ ;;;*** ;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer) -;;;;;; "htmlfontify" "htmlfontify.el" (20325 60273)) +;;;;;; "htmlfontify" "htmlfontify.el" (20355 10021)) ;;; Generated autoloads from htmlfontify.el (autoload 'htmlfontify-buffer "htmlfontify" "\ @@ -13887,14 +13956,10 @@ \(fn SRCDIR DSTDIR &optional F-EXT L-EXT)" t nil) ;;;*** - -;;;*** - -;;;*** ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter -;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20405 -;;;;;; 42390)) +;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20406 +;;;;;; 8611)) ;;; Generated autoloads from ibuf-macs.el (autoload 'define-ibuffer-column "ibuf-macs" "\ @@ -13997,7 +14062,7 @@ ;;;*** ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) -;;;;;; "ibuffer" "ibuffer.el" (20382 62719)) +;;;;;; "ibuffer" "ibuffer.el" (20383 47352)) ;;; Generated autoloads from ibuffer.el (autoload 'ibuffer-list-buffers "ibuffer" "\ @@ -14038,7 +14103,7 @@ ;;;### (autoloads (icalendar-import-buffer icalendar-import-file ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" -;;;;;; "calendar/icalendar.el" (20325 60273)) +;;;;;; "calendar/icalendar.el" (20421 62373)) ;;; Generated autoloads from calendar/icalendar.el (autoload 'icalendar-export-file "icalendar" "\ @@ -14090,8 +14155,8 @@ ;;;*** -;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20294 -;;;;;; 23710)) +;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ @@ -14113,7 +14178,7 @@ ;;;*** -;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20355 835)) +;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20355 10021)) ;;; Generated autoloads from progmodes/icon.el (autoload 'icon-mode "icon" "\ @@ -14154,7 +14219,7 @@ ;;;*** ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" -;;;;;; (20395 5351)) +;;;;;; (20394 17446)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload 'idlwave-shell "idlw-shell" "\ @@ -14180,7 +14245,7 @@ ;;;*** ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" -;;;;;; (20389 6410)) +;;;;;; (20387 44199)) ;;; Generated autoloads from progmodes/idlwave.el (autoload 'idlwave-mode "idlwave" "\ @@ -14314,8 +14379,8 @@ ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window -;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (20389 -;;;;;; 6410)) +;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (20387 +;;;;;; 44199)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -14575,7 +14640,7 @@ ;;;*** -;;;### (autoloads (ielm) "ielm" "ielm.el" (20229 56251)) +;;;### (autoloads (ielm) "ielm" "ielm.el" (20355 10021)) ;;; Generated autoloads from ielm.el (autoload 'ielm "ielm" "\ @@ -14586,7 +14651,7 @@ ;;;*** -;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20273 59945)) +;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20355 10021)) ;;; Generated autoloads from iimage.el (define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") @@ -14607,7 +14672,7 @@ ;;;;;; create-image image-type-auto-detected-p image-type-available-p ;;;;;; image-type image-type-from-file-name image-type-from-file-header ;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el" -;;;;;; (20377 16772)) +;;;;;; (20423 43129)) ;;; Generated autoloads from image.el (autoload 'image-type-from-data "image" "\ @@ -14780,22 +14845,21 @@ (defimage test-image ((:type xpm :file \"~/test1.xpm\") (:type xbm :file \"~/test1.xbm\"))) -\(fn SYMBOL SPECS &optional DOC)" nil (quote macro)) +\(fn SYMBOL SPECS &optional DOC)" nil t) (put 'defimage 'doc-string-elt '3) (autoload 'imagemagick-register-types "image" "\ Register file types that can be handled by ImageMagick. This function is called at startup, after loading the init file. -It registers the ImageMagick types listed in `imagemagick-types', -excluding those listed in `imagemagick-types-inhibit'. +It registers the ImageMagick types returned by `imagemagick-filter-types'. Registered image types are added to `auto-mode-alist', so that Emacs visits them in Image mode. They are also added to `image-type-file-name-regexps', so that the `image-type' function recognizes these files as having image type `imagemagick'. -If Emacs is compiled without ImageMagick support, do nothing. +If Emacs is compiled without ImageMagick support, this does nothing. \(fn)" nil nil) @@ -14808,7 +14872,7 @@ ;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag ;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs ;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs) -;;;;;; "image-dired" "image-dired.el" (20229 56251)) +;;;;;; "image-dired" "image-dired.el" (20355 10021)) ;;; Generated autoloads from image-dired.el (autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\ @@ -14946,7 +15010,7 @@ ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp ;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" -;;;;;; "image-file.el" (20229 56251)) +;;;;;; "image-file.el" (20355 10021)) ;;; Generated autoloads from image-file.el (defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\ @@ -15009,7 +15073,7 @@ ;;;*** ;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode -;;;;;; image-mode) "image-mode" "image-mode.el" (20400 38248)) +;;;;;; image-mode) "image-mode" "image-mode.el" (20420 41510)) ;;; Generated autoloads from image-mode.el (autoload 'image-mode "image-mode" "\ @@ -15054,7 +15118,7 @@ ;;;*** ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar -;;;;;; imenu-sort-function) "imenu" "imenu.el" (20395 5351)) +;;;;;; imenu-sort-function) "imenu" "imenu.el" (20393 22044)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -15171,7 +15235,7 @@ ;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion ;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) -;;;;;; "ind-util" "language/ind-util.el" (20229 56251)) +;;;;;; "ind-util" "language/ind-util.el" (20355 10021)) ;;; Generated autoloads from language/ind-util.el (autoload 'indian-compose-region "ind-util" "\ @@ -15203,7 +15267,7 @@ ;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command ;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" -;;;;;; "progmodes/inf-lisp.el" (20355 835)) +;;;;;; "progmodes/inf-lisp.el" (20355 10021)) ;;; Generated autoloads from progmodes/inf-lisp.el (defvar inferior-lisp-filter-regexp (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") "\ @@ -15269,8 +15333,8 @@ ;;;### (autoloads (info-display-manual Info-bookmark-jump Info-speedbar-browser ;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node ;;;;;; Info-mode info-finder info-apropos Info-index Info-directory -;;;;;; Info-on-current-buffer info-standalone info-emacs-manual -;;;;;; info info-other-window) "info" "info.el" (20389 6410)) +;;;;;; Info-on-current-buffer info-standalone info-emacs-bug info-emacs-manual +;;;;;; info info-other-window) "info" "info.el" (20420 41510)) ;;; Generated autoloads from info.el (autoload 'info-other-window "info" "\ @@ -15308,6 +15372,11 @@ \(fn)" t nil) +(autoload 'info-emacs-bug "info" "\ +Display the \"Reporting Bugs\" section of the Emacs manual in Info mode. + +\(fn)" t nil) + (autoload 'info-standalone "info" "\ Run Emacs as a standalone Info reader. Usage: emacs -f info-standalone [filename] @@ -15456,7 +15525,7 @@ ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from info-look.el (autoload 'info-lookup-reset "info-look" "\ @@ -15505,7 +15574,7 @@ ;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom ;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from info-xref.el (autoload 'info-xref-check "info-xref" "\ @@ -15588,7 +15657,7 @@ ;;;*** ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold -;;;;;; Info-tagify) "informat" "informat.el" (20229 56251)) +;;;;;; Info-tagify) "informat" "informat.el" (20355 10021)) ;;; Generated autoloads from informat.el (autoload 'Info-tagify "informat" "\ @@ -15635,7 +15704,7 @@ ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method ;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from international/isearch-x.el (autoload 'isearch-toggle-specified-input-method "isearch-x" "\ @@ -15655,8 +15724,8 @@ ;;;*** -;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from isearchb.el (autoload 'isearchb-activate "isearchb" "\ @@ -15672,7 +15741,7 @@ ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only ;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso ;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" -;;;;;; "international/iso-cvt.el" (20229 56251)) +;;;;;; "international/iso-cvt.el" (20355 10021)) ;;; Generated autoloads from international/iso-cvt.el (autoload 'iso-spanish "iso-cvt" "\ @@ -15763,7 +15832,7 @@ ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from international/iso-transl.el (or key-translation-map (setq key-translation-map (make-sparse-keymap))) (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) @@ -15775,7 +15844,7 @@ ;;;;;; ispell-complete-word ispell-continue ispell-buffer ispell-comments-and-strings ;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell ;;;;;; ispell-help ispell-pdict-save ispell-word ispell-personal-dictionary) -;;;;;; "ispell" "textmodes/ispell.el" (20373 62846)) +;;;;;; "ispell" "textmodes/ispell.el" (20423 17700)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -16002,8 +16071,8 @@ ;;;*** -;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20389 -;;;;;; 6410)) +;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20387 +;;;;;; 44199)) ;;; Generated autoloads from iswitchb.el (defvar iswitchb-mode nil "\ @@ -16031,7 +16100,7 @@ ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region ;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku ;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) -;;;;;; "japan-util" "language/japan-util.el" (20229 56251)) +;;;;;; "japan-util" "language/japan-util.el" (20355 10021)) ;;; Generated autoloads from language/japan-util.el (autoload 'setup-japanese-environment-internal "japan-util" "\ @@ -16109,7 +16178,7 @@ ;;;*** ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" -;;;;;; "jka-compr.el" (20304 59396)) +;;;;;; "jka-compr.el" (20355 10021)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16132,7 +16201,7 @@ ;;;*** -;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20376 50278)) +;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20415 53309)) ;;; Generated autoloads from progmodes/js.el (autoload 'js-mode "js" "\ @@ -16146,7 +16215,7 @@ ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup ;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" -;;;;;; (20239 35035)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -16202,7 +16271,7 @@ ;;;*** ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from international/kinsoku.el (autoload 'kinsoku "kinsoku" "\ @@ -16223,8 +16292,8 @@ ;;;*** -;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -16249,7 +16318,7 @@ ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro ;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter ;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro kmacro-exec-ring-item) -;;;;;; "kmacro" "kmacro.el" (20389 6410)) +;;;;;; "kmacro" "kmacro.el" (20388 65061)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -16360,7 +16429,7 @@ ;;;*** ;;;### (autoloads (setup-korean-environment-internal) "korea-util" -;;;;;; "language/korea-util.el" (20355 835)) +;;;;;; "language/korea-util.el" (20355 10021)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ @@ -16375,7 +16444,7 @@ ;;;*** ;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from play/landmark.el (defalias 'landmark-repeat 'landmark-test-run) @@ -16407,7 +16476,7 @@ ;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string ;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string) -;;;;;; "lao-util" "language/lao-util.el" (20229 56251)) +;;;;;; "lao-util" "language/lao-util.el" (20355 10021)) ;;; Generated autoloads from language/lao-util.el (autoload 'lao-compose-string "lao-util" "\ @@ -16446,7 +16515,7 @@ ;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc ;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) -;;;;;; "latexenc" "international/latexenc.el" (20229 56251)) +;;;;;; "latexenc" "international/latexenc.el" (20355 10021)) ;;; Generated autoloads from international/latexenc.el (defvar latex-inputenc-coding-alist (purecopy '(("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\ @@ -16478,7 +16547,7 @@ ;;;*** ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) -;;;;;; "latin1-disp" "international/latin1-disp.el" (20229 56251)) +;;;;;; "latin1-disp" "international/latin1-disp.el" (20355 10021)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -16520,7 +16589,7 @@ ;;;*** ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/ld-script.el (autoload 'ld-script-mode "ld-script" "\ @@ -16531,7 +16600,7 @@ ;;;*** ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from ledit.el (defconst ledit-save-files t "\ @@ -16566,7 +16635,7 @@ ;;;*** -;;;### (autoloads (life) "life" "play/life.el" (20229 56251)) +;;;### (autoloads (life) "life" "play/life.el" (20355 10021)) ;;; Generated autoloads from play/life.el (autoload 'life "life" "\ @@ -16580,7 +16649,7 @@ ;;;*** ;;;### (autoloads (global-linum-mode linum-mode linum-format) "linum" -;;;;;; "linum.el" (20229 56251)) +;;;;;; "linum.el" (20355 10021)) ;;; Generated autoloads from linum.el (defvar linum-format 'dynamic "\ @@ -16625,8 +16694,8 @@ ;;;*** -;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20400 -;;;;;; 16870)) +;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20399 +;;;;;; 35365)) ;;; Generated autoloads from loadhist.el (autoload 'unload-feature "loadhist" "\ @@ -16658,7 +16727,7 @@ ;;;*** ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) -;;;;;; "locate" "locate.el" (20229 56251)) +;;;;;; "locate" "locate.el" (20355 10021)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches (purecopy "-al") "\ @@ -16710,7 +16779,7 @@ ;;;*** -;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20400 16870)) +;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20399 35365)) ;;; Generated autoloads from vc/log-edit.el (autoload 'log-edit "log-edit" "\ @@ -16737,8 +16806,8 @@ ;;;*** -;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20280 -;;;;;; 8018)) +;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from vc/log-view.el (autoload 'log-view-mode "log-view" "\ @@ -16748,8 +16817,8 @@ ;;;*** -;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from longlines.el (autoload 'longlines-mode "longlines" "\ @@ -16775,8 +16844,8 @@ ;;;*** ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer -;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20229 -;;;;;; 56251)) +;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\ @@ -16872,7 +16941,7 @@ ;;;*** ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" -;;;;;; (20273 59945)) +;;;;;; (20355 10021)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -16883,8 +16952,8 @@ ;;;*** -;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from calendar/lunar.el (autoload 'lunar-phases "lunar" "\ @@ -16899,7 +16968,7 @@ ;;;*** ;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload 'm4-mode "m4-mode" "\ @@ -16910,7 +16979,7 @@ ;;;*** ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" -;;;;;; (20229 56251)) +;;;;;; (20421 62373)) ;;; Generated autoloads from emacs-lisp/macroexp.el (autoload 'macroexpand-all "macroexp" "\ @@ -16924,7 +16993,7 @@ ;;;*** ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro -;;;;;; name-last-kbd-macro) "macros" "macros.el" (20229 56251)) +;;;;;; name-last-kbd-macro) "macros" "macros.el" (20355 10021)) ;;; Generated autoloads from macros.el (autoload 'name-last-kbd-macro "macros" "\ @@ -17013,7 +17082,7 @@ ;;;*** ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" -;;;;;; "mail/mail-extr.el" (20355 835)) +;;;;;; "mail/mail-extr.el" (20355 10021)) ;;; Generated autoloads from mail/mail-extr.el (autoload 'mail-extract-address-components "mail-extr" "\ @@ -17045,7 +17114,7 @@ ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history ;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/mail-hist.el (autoload 'mail-hist-define-keys "mail-hist" "\ @@ -17077,7 +17146,7 @@ ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region ;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable ;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822) -;;;;;; "mail-utils" "mail/mail-utils.el" (20325 60273)) +;;;;;; "mail-utils" "mail/mail-utils.el" (20355 10021)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -17152,8 +17221,8 @@ ;;;*** ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup -;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20389 -;;;;;; 6410)) +;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20387 +;;;;;; 44199)) ;;; Generated autoloads from mail/mailabbrev.el (defvar mail-abbrevs-mode nil "\ @@ -17204,7 +17273,7 @@ ;;;### (autoloads (mail-complete mail-completion-at-point-function ;;;;;; define-mail-alias expand-mail-aliases mail-complete-style) -;;;;;; "mailalias" "mail/mailalias.el" (20229 56251)) +;;;;;; "mailalias" "mail/mailalias.el" (20355 10021)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style 'angles "\ @@ -17256,7 +17325,7 @@ ;;;*** ;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el" -;;;;;; (20239 35035)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/mailclient.el (autoload 'mailclient-send-it "mailclient" "\ @@ -17270,7 +17339,7 @@ ;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode ;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode) -;;;;;; "make-mode" "progmodes/make-mode.el" (20395 5351)) +;;;;;; "make-mode" "progmodes/make-mode.el" (20392 30149)) ;;; Generated autoloads from progmodes/make-mode.el (autoload 'makefile-mode "make-mode" "\ @@ -17387,8 +17456,8 @@ ;;;*** -;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from makesum.el (autoload 'make-command-summary "makesum" "\ @@ -17400,7 +17469,7 @@ ;;;*** ;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el" -;;;;;; (20390 32086)) +;;;;;; (20390 20388)) ;;; Generated autoloads from man.el (defalias 'manual-entry 'man) @@ -17454,7 +17523,7 @@ ;;;*** -;;;### (autoloads (master-mode) "master" "master.el" (20229 56251)) +;;;### (autoloads (master-mode) "master" "master.el" (20355 10021)) ;;; Generated autoloads from master.el (autoload 'master-mode "master" "\ @@ -17477,7 +17546,7 @@ ;;;*** ;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mb-depth.el (defvar minibuffer-depth-indicate-mode nil "\ @@ -17510,7 +17579,7 @@ ;;;;;; message-forward-make-body message-forward message-recover ;;;;;; message-supersede message-cancel-news message-followup message-wide-reply ;;;;;; message-reply message-news message-mail message-mode) "message" -;;;;;; "gnus/message.el" (20280 8018)) +;;;;;; "gnus/message.el" (20355 10021)) ;;; Generated autoloads from gnus/message.el (define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) @@ -17676,7 +17745,7 @@ ;;;*** ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" -;;;;;; (20400 16870)) +;;;;;; (20399 35365)) ;;; Generated autoloads from progmodes/meta-mode.el (autoload 'metafont-mode "meta-mode" "\ @@ -17693,7 +17762,7 @@ ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body ;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/metamail.el (autoload 'metamail-interpret-header "metamail" "\ @@ -17738,7 +17807,7 @@ ;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose ;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" -;;;;;; "mh-e/mh-comp.el" (20229 56251)) +;;;;;; "mh-e/mh-comp.el" (20355 10021)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload 'mh-smail "mh-comp" "\ @@ -17828,7 +17897,7 @@ ;;;*** -;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20229 56251)) +;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20355 10021)) ;;; Generated autoloads from mh-e/mh-e.el (put 'mh-progs 'risky-local-variable t) @@ -17845,7 +17914,7 @@ ;;;*** ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" -;;;;;; "mh-e/mh-folder.el" (20373 62846)) +;;;;;; "mh-e/mh-folder.el" (20371 55972)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload 'mh-rmail "mh-folder" "\ @@ -17927,7 +17996,7 @@ ;;;*** ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" -;;;;;; "midnight.el" (20229 56251)) +;;;;;; "midnight.el" (20355 10021)) ;;; Generated autoloads from midnight.el (autoload 'clean-buffer-list "midnight" "\ @@ -17954,7 +18023,7 @@ ;;;*** ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" -;;;;;; "minibuf-eldef.el" (20355 835)) +;;;;;; "minibuf-eldef.el" (20355 10021)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ @@ -17984,7 +18053,7 @@ ;;;*** ;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el" -;;;;;; (20356 48455)) +;;;;;; (20356 27828)) ;;; Generated autoloads from misc.el (autoload 'butterfly "misc" "\ @@ -18014,7 +18083,7 @@ ;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files ;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup) -;;;;;; "misearch" "misearch.el" (20229 56251)) +;;;;;; "misearch" "misearch.el" (20420 41510)) ;;; Generated autoloads from misearch.el (add-hook 'isearch-mode-hook 'multi-isearch-setup) @@ -18096,7 +18165,7 @@ ;;;*** ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" -;;;;;; (20239 35035)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/mixal-mode.el (autoload 'mixal-mode "mixal-mode" "\ @@ -18107,7 +18176,7 @@ ;;;*** ;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/mm-encode.el (autoload 'mm-default-file-encoding "mm-encode" "\ @@ -18118,7 +18187,7 @@ ;;;*** ;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents) -;;;;;; "mm-extern" "gnus/mm-extern.el" (20229 56251)) +;;;;;; "mm-extern" "gnus/mm-extern.el" (20355 10021)) ;;; Generated autoloads from gnus/mm-extern.el (autoload 'mm-extern-cache-contents "mm-extern" "\ @@ -18137,7 +18206,7 @@ ;;;*** ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/mm-partial.el (autoload 'mm-inline-partial "mm-partial" "\ @@ -18151,7 +18220,7 @@ ;;;*** ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) -;;;;;; "mm-url" "gnus/mm-url.el" (20229 56251)) +;;;;;; "mm-url" "gnus/mm-url.el" (20355 10021)) ;;; Generated autoloads from gnus/mm-url.el (autoload 'mm-url-insert-file-contents "mm-url" "\ @@ -18168,7 +18237,7 @@ ;;;*** ;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu" -;;;;;; "gnus/mm-uu.el" (20325 60273)) +;;;;;; "gnus/mm-uu.el" (20355 10021)) ;;; Generated autoloads from gnus/mm-uu.el (autoload 'mm-uu-dissect "mm-uu" "\ @@ -18188,7 +18257,7 @@ ;;;*** ;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/mml.el (autoload 'mml-to-mime "mml" "\ @@ -18213,7 +18282,7 @@ ;;;*** ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" -;;;;;; (20291 40061)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/mml1991.el (autoload 'mml1991-encrypt "mml1991" "\ @@ -18230,7 +18299,7 @@ ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt ;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) -;;;;;; "mml2015" "gnus/mml2015.el" (20229 56251)) +;;;;;; "mml2015" "gnus/mml2015.el" (20355 10021)) ;;; Generated autoloads from gnus/mml2015.el (autoload 'mml2015-decrypt "mml2015" "\ @@ -18270,7 +18339,7 @@ ;;;*** -;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (20405 42940)) +;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (20406 8611)) ;;; Generated autoloads from cedet/mode-local.el (put 'define-overloadable-function 'doc-string-elt 3) @@ -18278,7 +18347,7 @@ ;;;*** ;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/modula2.el (defalias 'modula-2-mode 'm2-mode) @@ -18312,7 +18381,7 @@ ;;;*** ;;;### (autoloads (denato-region nato-region unmorse-region morse-region) -;;;;;; "morse" "play/morse.el" (20229 56251)) +;;;;;; "morse" "play/morse.el" (20355 10021)) ;;; Generated autoloads from play/morse.el (autoload 'morse-region "morse" "\ @@ -18338,7 +18407,7 @@ ;;;*** ;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag" -;;;;;; "mouse-drag.el" (20355 835)) +;;;;;; "mouse-drag.el" (20355 10021)) ;;; Generated autoloads from mouse-drag.el (autoload 'mouse-drag-throw "mouse-drag" "\ @@ -18385,7 +18454,7 @@ ;;;*** -;;;### (autoloads (mpc) "mpc" "mpc.el" (20376 50653)) +;;;### (autoloads (mpc) "mpc" "mpc.el" (20378 29222)) ;;; Generated autoloads from mpc.el (autoload 'mpc "mpc" "\ @@ -18395,7 +18464,7 @@ ;;;*** -;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20229 56251)) +;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20355 10021)) ;;; Generated autoloads from play/mpuz.el (autoload 'mpuz "mpuz" "\ @@ -18405,7 +18474,7 @@ ;;;*** -;;;### (autoloads (msb-mode) "msb" "msb.el" (20355 835)) +;;;### (autoloads (msb-mode) "msb" "msb.el" (20355 10021)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ @@ -18435,7 +18504,7 @@ ;;;;;; describe-current-coding-system describe-current-coding-system-briefly ;;;;;; describe-coding-system describe-character-set list-charset-chars ;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from international/mule-diag.el (autoload 'list-character-sets "mule-diag" "\ @@ -18572,7 +18641,7 @@ ;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion ;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist ;;;;;; truncate-string-to-width store-substring string-to-sequence) -;;;;;; "mule-util" "international/mule-util.el" (20229 56251)) +;;;;;; "mule-util" "international/mule-util.el" (20355 10021)) ;;; Generated autoloads from international/mule-util.el (autoload 'string-to-sequence "mule-util" "\ @@ -18583,9 +18652,11 @@ (make-obsolete 'string-to-sequence "use `string-to-list' or `string-to-vector'." "22.1") -(defsubst string-to-list (string) "Return a list of characters in STRING." (append string nil)) +(defsubst string-to-list (string) "\ +Return a list of characters in STRING." (append string nil)) -(defsubst string-to-vector (string) "Return a vector of characters in STRING." (vconcat string)) +(defsubst string-to-vector (string) "\ +Return a vector of characters in STRING." (vconcat string)) (autoload 'store-substring "mule-util" "\ Embed OBJ (string or character) at index IDX of STRING. @@ -18618,7 +18689,16 @@ \(fn STR END-COLUMN &optional START-COLUMN PADDING ELLIPSIS)" nil nil) -(defsubst nested-alist-p (obj) "Return t if OBJ is a nested alist.\n\nNested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is\nany Lisp object, and BRANCHES is a list of cons cells of the form\n(KEY-ELEMENT . NESTED-ALIST).\n\nYou can use a nested alist to store any Lisp object (ENTRY) for a key\nsequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ\ncan be a string, a vector, or a list." (and obj (listp obj) (listp (cdr obj)))) +(defsubst nested-alist-p (obj) "\ +Return t if OBJ is a nested alist. + +Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is +any Lisp object, and BRANCHES is a list of cons cells of the form +\(KEY-ELEMENT . NESTED-ALIST). + +You can use a nested alist to store any Lisp object (ENTRY) for a key +sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ +can be a string, a vector, or a list." (and obj (listp obj) (listp (cdr obj)))) (autoload 'set-nested-alist "mule-util" "\ Set ENTRY for KEYSEQ in a nested alist ALIST. @@ -18701,8 +18781,8 @@ ;;;### (autoloads (network-connection network-connection-to-service ;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host ;;;;;; nslookup nslookup-host ping traceroute route arp netstat -;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20229 -;;;;;; 56251)) +;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from net/net-utils.el (autoload 'ifconfig "net-utils" "\ @@ -18796,8 +18876,8 @@ ;;;*** -;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20280 -;;;;;; 8018)) +;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from net/netrc.el (autoload 'netrc-credentials "netrc" "\ @@ -18810,7 +18890,7 @@ ;;;*** ;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el" -;;;;;; (20370 4296)) +;;;;;; (20369 14251)) ;;; Generated autoloads from net/network-stream.el (autoload 'open-network-stream "network-stream" "\ @@ -18901,7 +18981,7 @@ ;;;*** ;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend" -;;;;;; "net/newst-backend.el" (20229 56251)) +;;;;;; "net/newst-backend.el" (20355 10021)) ;;; Generated autoloads from net/newst-backend.el (autoload 'newsticker-running-p "newst-backend" "\ @@ -18923,7 +19003,7 @@ ;;;*** ;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/newst-plainview.el (autoload 'newsticker-plainview "newst-plainview" "\ @@ -18934,7 +19014,7 @@ ;;;*** ;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/newst-reader.el (autoload 'newsticker-show-news "newst-reader" "\ @@ -18945,7 +19025,7 @@ ;;;*** ;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p) -;;;;;; "newst-ticker" "net/newst-ticker.el" (20229 56251)) +;;;;;; "newst-ticker" "net/newst-ticker.el" (20355 10021)) ;;; Generated autoloads from net/newst-ticker.el (autoload 'newsticker-ticker-running-p "newst-ticker" "\ @@ -18966,7 +19046,7 @@ ;;;*** ;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/newst-treeview.el (autoload 'newsticker-treeview "newst-treeview" "\ @@ -18977,7 +19057,7 @@ ;;;*** ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/nndiary.el (autoload 'nndiary-generate-nov-databases "nndiary" "\ @@ -18987,8 +19067,8 @@ ;;;*** -;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/nndoc.el (autoload 'nndoc-add-type "nndoc" "\ @@ -19003,7 +19083,7 @@ ;;;*** ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/nnfolder.el (autoload 'nnfolder-generate-active-file "nnfolder" "\ @@ -19015,7 +19095,7 @@ ;;;*** ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" -;;;;;; (20281 6865)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/nnml.el (autoload 'nnml-generate-nov-databases "nnml" "\ @@ -19026,7 +19106,7 @@ ;;;*** ;;;### (autoloads (disable-command enable-command disabled-command-function) -;;;;;; "novice" "novice.el" (20400 16870)) +;;;;;; "novice" "novice.el" (20399 35365)) ;;; Generated autoloads from novice.el (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") @@ -19059,7 +19139,7 @@ ;;;*** ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload 'nroff-mode "nroff-mode" "\ @@ -19074,7 +19154,7 @@ ;;;*** ;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from nxml/nxml-glyph.el (autoload 'nxml-glyph-display-string "nxml-glyph" "\ @@ -19086,8 +19166,8 @@ ;;;*** -;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20370 -;;;;;; 4296)) +;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20369 +;;;;;; 14251)) ;;; Generated autoloads from nxml/nxml-mode.el (autoload 'nxml-mode "nxml-mode" "\ @@ -19149,7 +19229,7 @@ ;;;*** ;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm" -;;;;;; "nxml/nxml-uchnm.el" (20229 56251)) +;;;;;; "nxml/nxml-uchnm.el" (20355 10021)) ;;; Generated autoloads from nxml/nxml-uchnm.el (autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ @@ -19173,7 +19253,7 @@ ;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe ;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info ;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob" -;;;;;; "org/ob.el" (20347 39495)) +;;;;;; "org/ob.el" (20417 65331)) ;;; Generated autoloads from org/ob.el (autoload 'org-babel-execute-safely-maybe "ob" "\ @@ -19396,7 +19476,7 @@ ;;;*** ;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "org/ob-keys.el" -;;;;;; (20228 61824)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/ob-keys.el (autoload 'org-babel-describe-bindings "ob-keys" "\ @@ -19407,7 +19487,7 @@ ;;;*** ;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe -;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20347 39495)) +;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20355 10021)) ;;; Generated autoloads from org/ob-lob.el (autoload 'org-babel-lob-ingest "ob-lob" "\ @@ -19432,7 +19512,7 @@ ;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file ;;;;;; org-babel-tangle-lang-exts) "ob-tangle" "org/ob-tangle.el" -;;;;;; (20347 39495)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/ob-tangle.el (defvar org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "\ @@ -19474,7 +19554,7 @@ ;;;*** ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/octave-inf.el (autoload 'inferior-octave "octave-inf" "\ @@ -19497,7 +19577,7 @@ ;;;*** ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" -;;;;;; (20389 6410)) +;;;;;; (20388 65061)) ;;; Generated autoloads from progmodes/octave-mod.el (autoload 'octave-mode "octave-mod" "\ @@ -19585,7 +19665,7 @@ ;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode ;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle ;;;;;; org-mode org-version org-babel-do-load-languages) "org" "org/org.el" -;;;;;; (20379 60745)) +;;;;;; (20420 41510)) ;;; Generated autoloads from org/org.el (autoload 'org-babel-do-load-languages "org" "\ @@ -19818,7 +19898,7 @@ ;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list ;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views ;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda -;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20379 60745)) +;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20420 41510)) ;;; Generated autoloads from org/org-agenda.el (autoload 'org-agenda "org-agenda" "\ @@ -20072,7 +20152,7 @@ ;;;### (autoloads (org-archive-subtree-default-with-confirmation ;;;;;; org-archive-subtree-default) "org-archive" "org/org-archive.el" -;;;;;; (20347 39495)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-archive.el (autoload 'org-archive-subtree-default "org-archive" "\ @@ -20092,8 +20172,8 @@ ;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii ;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer ;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer -;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20344 -;;;;;; 56211)) +;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from org/org-ascii.el (autoload 'org-export-as-latin1 "org-ascii" "\ @@ -20166,8 +20246,8 @@ ;;;*** -;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20347 -;;;;;; 39495)) +;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from org/org-attach.el (autoload 'org-attach "org-attach" "\ @@ -20179,7 +20259,7 @@ ;;;*** ;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org/org-bbdb.el" -;;;;;; (20344 56211)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-bbdb.el (autoload 'org-bbdb-anniversaries "org-bbdb" "\ @@ -20190,7 +20270,7 @@ ;;;*** ;;;### (autoloads (org-capture-import-remember-templates org-capture-insert-template-here -;;;;;; org-capture) "org-capture" "org/org-capture.el" (20347 39495)) +;;;;;; org-capture) "org-capture" "org/org-capture.el" (20355 10021)) ;;; Generated autoloads from org/org-capture.el (autoload 'org-capture "org-capture" "\ @@ -20228,7 +20308,7 @@ ;;;*** ;;;### (autoloads (org-clock-persistence-insinuate org-get-clocktable) -;;;;;; "org-clock" "org/org-clock.el" (20379 60745)) +;;;;;; "org-clock" "org/org-clock.el" (20378 29222)) ;;; Generated autoloads from org/org-clock.el (autoload 'org-get-clocktable "org-clock" "\ @@ -20246,7 +20326,7 @@ ;;;*** ;;;### (autoloads (org-datetree-find-date-create) "org-datetree" -;;;;;; "org/org-datetree.el" (20344 56211)) +;;;;;; "org/org-datetree.el" (20355 10021)) ;;; Generated autoloads from org/org-datetree.el (autoload 'org-datetree-find-date-create "org-datetree" "\ @@ -20262,7 +20342,7 @@ ;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open ;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook ;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch) -;;;;;; "org-docbook" "org/org-docbook.el" (20347 39495)) +;;;;;; "org-docbook" "org/org-docbook.el" (20355 10021)) ;;; Generated autoloads from org/org-docbook.el (autoload 'org-export-as-docbook-batch "org-docbook" "\ @@ -20339,7 +20419,7 @@ ;;;### (autoloads (org-insert-export-options-template org-export-as-org ;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el" -;;;;;; (20347 39495)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-exp.el (autoload 'org-export "org-exp" "\ @@ -20400,8 +20480,8 @@ ;;;*** ;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update -;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20228 -;;;;;; 61824)) +;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from org/org-feed.el (autoload 'org-feed-update-all "org-feed" "\ @@ -20429,7 +20509,7 @@ ;;;*** ;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote" -;;;;;; "org/org-footnote.el" (20379 60745)) +;;;;;; "org/org-footnote.el" (20378 29222)) ;;; Generated autoloads from org/org-footnote.el (autoload 'org-footnote-action "org-footnote" "\ @@ -20480,7 +20560,7 @@ ;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree ;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node ;;;;;; org-freemind-show org-export-as-freemind) "org-freemind" -;;;;;; "org/org-freemind.el" (20347 39495)) +;;;;;; "org/org-freemind.el" (20355 10021)) ;;; Generated autoloads from org/org-freemind.el (autoload 'org-export-as-freemind "org-freemind" "\ @@ -20541,7 +20621,7 @@ ;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html ;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer ;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html" -;;;;;; "org/org-html.el" (20347 39495)) +;;;;;; "org/org-html.el" (20355 10021)) ;;; Generated autoloads from org/org-html.el (put 'org-export-html-style-include-default 'safe-local-variable 'booleanp) @@ -20635,7 +20715,7 @@ ;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files ;;;;;; org-export-icalendar-this-file) "org-icalendar" "org/org-icalendar.el" -;;;;;; (20347 39495)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-icalendar.el (autoload 'org-export-icalendar-this-file "org-icalendar" "\ @@ -20663,7 +20743,7 @@ ;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find ;;;;;; org-id-goto org-id-get-with-outline-drilling org-id-get-with-outline-path-completion ;;;;;; org-id-get org-id-copy org-id-get-create) "org-id" "org/org-id.el" -;;;;;; (20228 61824)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-id.el (autoload 'org-id-get-create "org-id" "\ @@ -20732,7 +20812,7 @@ ;;;*** ;;;### (autoloads (org-indent-mode) "org-indent" "org/org-indent.el" -;;;;;; (20344 56211)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-indent.el (autoload 'org-indent-mode "org-indent" "\ @@ -20750,7 +20830,7 @@ ;;;*** ;;;### (autoloads (org-irc-store-link) "org-irc" "org/org-irc.el" -;;;;;; (20228 61824)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-irc.el (autoload 'org-irc-store-link "org-irc" "\ @@ -20763,7 +20843,7 @@ ;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex ;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer ;;;;;; org-export-as-latex-batch) "org-latex" "org/org-latex.el" -;;;;;; (20344 56211)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-latex.el (autoload 'org-export-as-latex-batch "org-latex" "\ @@ -20844,7 +20924,7 @@ ;;;### (autoloads (org-lparse-region org-replace-region-by org-lparse-to-buffer ;;;;;; org-lparse-batch org-lparse-and-open) "org-lparse" "org/org-lparse.el" -;;;;;; (20344 56211)) +;;;;;; (20417 65331)) ;;; Generated autoloads from org/org-lparse.el (autoload 'org-lparse-and-open "org-lparse" "\ @@ -20901,8 +20981,8 @@ ;;;*** ;;;### (autoloads (org-mobile-create-sumo-agenda org-mobile-pull -;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20347 -;;;;;; 39495)) +;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from org/org-mobile.el (autoload 'org-mobile-push "org-mobile" "\ @@ -20928,7 +21008,7 @@ ;;;### (autoloads (org-export-as-odf-and-open org-export-as-odf org-export-odt-convert ;;;;;; org-export-as-odt org-export-as-odt-batch org-export-as-odt-and-open) -;;;;;; "org-odt" "org/org-odt.el" (20379 60745)) +;;;;;; "org-odt" "org/org-odt.el" (20417 65331)) ;;; Generated autoloads from org/org-odt.el (autoload 'org-export-as-odt-and-open "org-odt" "\ @@ -20998,7 +21078,7 @@ ;;;*** ;;;### (autoloads (org-plot/gnuplot) "org-plot" "org/org-plot.el" -;;;;;; (20228 61824)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-plot.el (autoload 'org-plot/gnuplot "org-plot" "\ @@ -21012,7 +21092,7 @@ ;;;### (autoloads (org-publish-current-project org-publish-current-file ;;;;;; org-publish-all org-publish) "org-publish" "org/org-publish.el" -;;;;;; (20347 39495)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-publish.el (defalias 'org-publish-project 'org-publish) @@ -21046,7 +21126,7 @@ ;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template ;;;;;; org-remember-annotation org-remember-insinuate) "org-remember" -;;;;;; "org/org-remember.el" (20228 61824)) +;;;;;; "org/org-remember.el" (20420 41510)) ;;; Generated autoloads from org/org-remember.el (autoload 'org-remember-insinuate "org-remember" "\ @@ -21122,7 +21202,7 @@ ;;;*** ;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl) -;;;;;; "org-table" "org/org-table.el" (20379 60745)) +;;;;;; "org-table" "org/org-table.el" (20417 65331)) ;;; Generated autoloads from org/org-table.el (autoload 'turn-on-orgtbl "org-table" "\ @@ -21146,7 +21226,7 @@ ;;;*** ;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler) -;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20347 39495)) +;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20355 10021)) ;;; Generated autoloads from org/org-taskjuggler.el (autoload 'org-export-as-taskjuggler "org-taskjuggler" "\ @@ -21174,7 +21254,7 @@ ;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region ;;;;;; org-timer org-timer-start) "org-timer" "org/org-timer.el" -;;;;;; (20347 39495)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-timer.el (autoload 'org-timer-start "org-timer" "\ @@ -21235,7 +21315,7 @@ ;;;*** ;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org/org-xoxo.el" -;;;;;; (20344 56211)) +;;;;;; (20355 10021)) ;;; Generated autoloads from org/org-xoxo.el (autoload 'org-export-as-xoxo "org-xoxo" "\ @@ -21247,7 +21327,7 @@ ;;;*** ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from outline.el (put 'outline-regexp 'safe-local-variable 'stringp) (put 'outline-heading-end-regexp 'safe-local-variable 'stringp) @@ -21311,7 +21391,7 @@ ;;;### (autoloads (list-packages describe-package package-initialize ;;;;;; package-refresh-contents package-install-file package-install-from-buffer ;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el" -;;;;;; (20395 5351)) +;;;;;; (20394 17446)) ;;; Generated autoloads from emacs-lisp/package.el (defvar package-enable-at-startup t "\ @@ -21381,7 +21461,7 @@ ;;;*** -;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20355 835)) +;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20355 10021)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ @@ -21408,7 +21488,7 @@ ;;;*** ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" -;;;;;; (20298 64606)) +;;;;;; (20355 10021)) ;;; Generated autoloads from calendar/parse-time.el (put 'parse-time-rules 'risky-local-variable t) @@ -21421,8 +21501,8 @@ ;;;*** -;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20379 -;;;;;; 60745)) +;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20378 +;;;;;; 29222)) ;;; Generated autoloads from progmodes/pascal.el (autoload 'pascal-mode "pascal" "\ @@ -21475,7 +21555,7 @@ ;;;*** ;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache) -;;;;;; "password-cache" "password-cache.el" (20229 56251)) +;;;;;; "password-cache" "password-cache.el" (20355 10021)) ;;; Generated autoloads from password-cache.el (defvar password-cache t "\ @@ -21497,7 +21577,7 @@ ;;;*** ;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el" -;;;;;; (20405 28429)) +;;;;;; (20421 62373)) ;;; Generated autoloads from emacs-lisp/pcase.el (autoload 'pcase "pcase" "\ @@ -21556,8 +21636,8 @@ ;;;*** -;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from pcmpl-cvs.el (autoload 'pcomplete/cvs "pcmpl-cvs" "\ @@ -21568,7 +21648,7 @@ ;;;*** ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) -;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20255 22932)) +;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20355 10021)) ;;; Generated autoloads from pcmpl-gnu.el (autoload 'pcomplete/gzip "pcmpl-gnu" "\ @@ -21596,7 +21676,7 @@ ;;;*** ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) -;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20229 56251)) +;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20355 10021)) ;;; Generated autoloads from pcmpl-linux.el (autoload 'pcomplete/kill "pcmpl-linux" "\ @@ -21616,8 +21696,8 @@ ;;;*** -;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20360 -;;;;;; 57703)) +;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20361 +;;;;;; 20134)) ;;; Generated autoloads from pcmpl-rpm.el (autoload 'pcomplete/rpm "pcmpl-rpm" "\ @@ -21629,7 +21709,7 @@ ;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown ;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir -;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20376 18781)) +;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20376 40834)) ;;; Generated autoloads from pcmpl-unix.el (autoload 'pcomplete/cd "pcmpl-unix" "\ @@ -21687,7 +21767,7 @@ ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list ;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete ;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (20376 -;;;;;; 18781)) +;;;;;; 40834)) ;;; Generated autoloads from pcomplete.el (autoload 'pcomplete "pcomplete" "\ @@ -21746,7 +21826,7 @@ ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status ;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" -;;;;;; "vc/pcvs.el" (20370 4296)) +;;;;;; "vc/pcvs.el" (20364 45187)) ;;; Generated autoloads from vc/pcvs.el (autoload 'cvs-checkout "pcvs" "\ @@ -21821,7 +21901,7 @@ ;;;*** -;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20355 835)) +;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20355 10021)) ;;; Generated autoloads from vc/pcvs-defs.el (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m)) "\ @@ -21830,7 +21910,7 @@ ;;;*** ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" -;;;;;; (20370 4296)) +;;;;;; (20365 17199)) ;;; Generated autoloads from progmodes/perl-mode.el (put 'perl-indent-level 'safe-local-variable 'integerp) (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) @@ -21892,7 +21972,7 @@ ;;;*** ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" -;;;;;; (20373 62846)) +;;;;;; (20373 11301)) ;;; Generated autoloads from textmodes/picture.el (autoload 'picture-mode "picture" "\ @@ -21973,7 +22053,7 @@ ;;;*** ;;;### (autoloads (plstore-mode plstore-open) "plstore" "gnus/plstore.el" -;;;;;; (20377 59525)) +;;;;;; (20378 29222)) ;;; Generated autoloads from gnus/plstore.el (autoload 'plstore-open "plstore" "\ @@ -21989,7 +22069,7 @@ ;;;*** ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/po.el (autoload 'po-find-file-coding-system "po" "\ @@ -22000,7 +22080,7 @@ ;;;*** -;;;### (autoloads (pong) "pong" "play/pong.el" (20229 56251)) +;;;### (autoloads (pong) "pong" "play/pong.el" (20355 10021)) ;;; Generated autoloads from play/pong.el (autoload 'pong "pong" "\ @@ -22016,7 +22096,7 @@ ;;;*** -;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20229 56251)) +;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20355 10021)) ;;; Generated autoloads from gnus/pop3.el (autoload 'pop3-movemail "pop3" "\ @@ -22029,7 +22109,7 @@ ;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression ;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el" -;;;;;; (20271 10599)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload 'pp-to-string "pp" "\ @@ -22097,7 +22177,7 @@ ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from printing.el (autoload 'pr-interface "printing" "\ @@ -22684,7 +22764,7 @@ ;;;*** -;;;### (autoloads (proced) "proced" "proced.el" (20229 56251)) +;;;### (autoloads (proced) "proced" "proced.el" (20355 10021)) ;;; Generated autoloads from proced.el (autoload 'proced "proced" "\ @@ -22700,7 +22780,7 @@ ;;;*** ;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog" -;;;;;; "progmodes/prolog.el" (20397 28824)) +;;;;;; "progmodes/prolog.el" (20397 45851)) ;;; Generated autoloads from progmodes/prolog.el (autoload 'prolog-mode "prolog" "\ @@ -22735,8 +22815,8 @@ ;;;*** -;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from ps-bdf.el (defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\ @@ -22748,7 +22828,7 @@ ;;;*** ;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/ps-mode.el (autoload 'ps-mode "ps-mode" "\ @@ -22799,8 +22879,8 @@ ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type -;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (20229 -;;;;;; 56251)) +;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from ps-print.el (defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\ @@ -22997,7 +23077,7 @@ ;;;*** ;;;### (autoloads (jython-mode python-mode python-after-info-look -;;;;;; run-python) "python" "progmodes/python.el" (20376 18761)) +;;;;;; run-python) "python" "progmodes/python.el" (20376 40834)) ;;; Generated autoloads from progmodes/python.el (add-to-list 'interpreter-mode-alist (cons (purecopy "jython") 'jython-mode)) @@ -23083,7 +23163,7 @@ ;;;*** ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/qp.el (autoload 'quoted-printable-decode-region "qp" "\ @@ -23106,7 +23186,7 @@ ;;;;;; quail-defrule quail-install-decode-map quail-install-map ;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout ;;;;;; quail-define-package quail-use-package quail-title) "quail" -;;;;;; "international/quail.el" (20356 48455)) +;;;;;; "international/quail.el" (20356 55829)) ;;; Generated autoloads from international/quail.el (autoload 'quail-title "quail" "\ @@ -23337,7 +23417,8 @@ ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls ;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url -;;;;;; quickurl-ask) "quickurl" "net/quickurl.el" (20355 835)) +;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from net/quickurl.el (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\ @@ -23351,6 +23432,15 @@ in your ~/.emacs (after loading/requiring quickurl).") +(autoload 'quickurl "quickurl" "\ +Insert a URL based on LOOKUP. + +If not supplied LOOKUP is taken to be the word at point in the current +buffer, this default action can be modified via +`quickurl-grab-lookup-function'. + +\(fn &optional LOOKUP)" t nil) + (autoload 'quickurl-ask "quickurl" "\ Insert a URL, with `completing-read' prompt, based on LOOKUP. @@ -23400,7 +23490,7 @@ ;;;*** ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" -;;;;;; "net/rcirc.el" (20373 62846)) +;;;;;; "net/rcirc.el" (20371 55972)) ;;; Generated autoloads from net/rcirc.el (autoload 'rcirc "rcirc" "\ @@ -23438,8 +23528,8 @@ ;;;*** -;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20291 -;;;;;; 40061)) +;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from net/rcompile.el (autoload 'remote-compile "rcompile" "\ @@ -23451,7 +23541,7 @@ ;;;*** ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias 'regexp-builder 're-builder) @@ -23469,7 +23559,7 @@ ;;;*** -;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20356 48455)) +;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20356 2211)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ @@ -23499,7 +23589,7 @@ ;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle ;;;;;; insert-rectangle yank-rectangle kill-rectangle extract-rectangle ;;;;;; delete-extract-rectangle delete-rectangle) "rect" "rect.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from rect.el (define-key ctl-x-r-map "c" 'clear-rectangle) (define-key ctl-x-r-map "k" 'kill-rectangle) @@ -23635,8 +23725,8 @@ ;;;*** -;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from textmodes/refill.el (autoload 'refill-mode "refill" "\ @@ -23657,7 +23747,7 @@ ;;;*** ;;;### (autoloads (reftex-reset-scanning-information reftex-mode -;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20229 56251)) +;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20355 10021)) ;;; Generated autoloads from textmodes/reftex.el (autoload 'turn-on-reftex "reftex" "\ @@ -23713,7 +23803,7 @@ ;;;*** ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/reftex-cite.el (autoload 'reftex-citation "reftex-cite" "\ @@ -23743,7 +23833,7 @@ ;;;*** ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" -;;;;;; (20229 56251)) +;;;;;; (20420 41510)) ;;; Generated autoloads from textmodes/reftex-global.el (autoload 'reftex-isearch-minor-mode "reftex-global" "\ @@ -23760,7 +23850,7 @@ ;;;*** ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" -;;;;;; (20400 16870)) +;;;;;; (20399 35365)) ;;; Generated autoloads from textmodes/reftex-index.el (autoload 'reftex-index-phrases-mode "reftex-index" "\ @@ -23793,7 +23883,7 @@ ;;;*** ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/reftex-parse.el (autoload 'reftex-all-document-files "reftex-parse" "\ @@ -23806,7 +23896,7 @@ ;;;*** ;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from textmodes/reftex-vars.el (put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) (put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) @@ -23816,7 +23906,7 @@ ;;;*** ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" -;;;;;; (20364 20442)) +;;;;;; (20363 61861)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload 'regexp-opt "regexp-opt" "\ @@ -23847,7 +23937,7 @@ ;;;### (autoloads (remember-diary-extract-entries remember-clipboard ;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/remember.el (autoload 'remember "remember" "\ @@ -23878,7 +23968,7 @@ ;;;*** -;;;### (autoloads (repeat) "repeat" "repeat.el" (20389 6410)) +;;;### (autoloads (repeat) "repeat" "repeat.el" (20388 65061)) ;;; Generated autoloads from repeat.el (autoload 'repeat "repeat" "\ @@ -23901,7 +23991,7 @@ ;;;*** ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/reporter.el (autoload 'reporter-submit-bug-report "reporter" "\ @@ -23933,7 +24023,7 @@ ;;;*** ;;;### (autoloads (reposition-window) "reposition" "reposition.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from reposition.el (autoload 'reposition-window "reposition" "\ @@ -23960,7 +24050,7 @@ ;;;*** ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from reveal.el (autoload 'reveal-mode "reveal" "\ @@ -23996,7 +24086,7 @@ ;;;*** ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" -;;;;;; (20325 60273)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload 'ring-p "ring" "\ @@ -24011,7 +24101,7 @@ ;;;*** -;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20405 16851)) +;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20402 11562)) ;;; Generated autoloads from net/rlogin.el (autoload 'rlogin "rlogin" "\ @@ -24059,10 +24149,24 @@ ;;;;;; rmail rmail-show-message-hook rmail-secondary-file-regexp ;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers ;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers -;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p) -;;;;;; "rmail" "mail/rmail.el" (20389 6410)) +;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p rmail-spool-directory +;;;;;; rmail-file-name) "rmail" "mail/rmail.el" (20414 2727)) ;;; Generated autoloads from mail/rmail.el +(defvar rmail-file-name (purecopy "~/RMAIL") "\ +Name of user's primary mail file.") + +(custom-autoload 'rmail-file-name "rmail" t) + +(put 'rmail-spool-directory 'standard-value '((cond ((file-exists-p "/var/mail") "/var/mail/") ((file-exists-p "/var/spool/mail") "/var/spool/mail/") ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/") (t "/usr/spool/mail/")))) + +(defvar rmail-spool-directory (purecopy (cond ((file-exists-p "/var/mail") "/var/mail/") ((file-exists-p "/var/spool/mail") "/var/spool/mail/") ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/") (t "/usr/spool/mail/"))) "\ +Name of directory used by system mailer for delivering new mail. +Its name should end with a slash.") + +(custom-autoload 'rmail-spool-directory "rmail" t) +(custom-initialize-delay 'rmail-spool-directory nil) + (autoload 'rmail-movemail-variant-p "rmail" "\ Return t if the current movemail variant is any of VARIANTS. Currently known variants are 'emacs and 'mailutils. @@ -24244,7 +24348,7 @@ ;;;*** ;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen -;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20229 56251)) +;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20355 10021)) ;;; Generated autoloads from mail/rmailout.el (put 'rmail-output-file-alist 'risky-local-variable t) @@ -24309,7 +24413,7 @@ ;;;*** ;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from nxml/rng-cmpct.el (autoload 'rng-c-load-schema "rng-cmpct" "\ @@ -24321,7 +24425,7 @@ ;;;*** ;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from nxml/rng-nxml.el (autoload 'rng-nxml-mode-init "rng-nxml" "\ @@ -24334,7 +24438,7 @@ ;;;*** ;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el" -;;;;;; (20280 8018)) +;;;;;; (20355 10021)) ;;; Generated autoloads from nxml/rng-valid.el (autoload 'rng-validate-mode "rng-valid" "\ @@ -24364,8 +24468,8 @@ ;;;*** -;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from nxml/rng-xsd.el (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) @@ -24393,7 +24497,7 @@ ;;;*** ;;;### (autoloads (robin-use-package robin-modify-package robin-define-package) -;;;;;; "robin" "international/robin.el" (20228 61824)) +;;;;;; "robin" "international/robin.el" (20355 10021)) ;;; Generated autoloads from international/robin.el (autoload 'robin-define-package "robin" "\ @@ -24426,7 +24530,7 @@ ;;;*** ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region -;;;;;; rot13-string rot13) "rot13" "rot13.el" (20229 56251)) +;;;;;; rot13-string rot13) "rot13" "rot13.el" (20355 10021)) ;;; Generated autoloads from rot13.el (autoload 'rot13 "rot13" "\ @@ -24464,7 +24568,7 @@ ;;;*** ;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el" -;;;;;; (20405 18712)) +;;;;;; (20421 62373)) ;;; Generated autoloads from textmodes/rst.el (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) @@ -24495,7 +24599,7 @@ ;;;*** ;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el" -;;;;;; (20376 18761)) +;;;;;; (20375 53029)) ;;; Generated autoloads from progmodes/ruby-mode.el (autoload 'ruby-mode "ruby-mode" "\ @@ -24516,8 +24620,8 @@ ;;;*** -;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from ruler-mode.el (defvar ruler-mode nil "\ @@ -24534,8 +24638,8 @@ ;;;*** -;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload 'rx-to-string "rx" "\ @@ -24846,8 +24950,8 @@ ;;;*** -;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20325 -;;;;;; 60273)) +;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from savehist.el (defvar savehist-mode nil "\ @@ -24879,7 +24983,7 @@ ;;;*** ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/scheme.el (autoload 'scheme-mode "scheme" "\ @@ -24921,7 +25025,7 @@ ;;;*** ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/score-mode.el (autoload 'gnus-score-mode "score-mode" "\ @@ -24935,7 +25039,7 @@ ;;;*** ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" -;;;;;; (20364 20442)) +;;;;;; (20363 61861)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ @@ -24961,7 +25065,7 @@ ;;;*** ;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el" -;;;;;; (20273 59945)) +;;;;;; (20355 10021)) ;;; Generated autoloads from scroll-lock.el (autoload 'scroll-lock-mode "scroll-lock" "\ @@ -24977,7 +25081,7 @@ ;;;*** -;;;### (autoloads nil "secrets" "net/secrets.el" (20304 58723)) +;;;### (autoloads nil "secrets" "net/secrets.el" (20355 10021)) ;;; Generated autoloads from net/secrets.el (when (featurep 'dbusbind) (autoload 'secrets-show-secrets "secrets" nil t)) @@ -24985,7 +25089,7 @@ ;;;*** ;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic" -;;;;;; "cedet/semantic.el" (20355 835)) +;;;;;; "cedet/semantic.el" (20355 10021)) ;;; Generated autoloads from cedet/semantic.el (defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\ @@ -25039,7 +25143,7 @@ ;;;;;; mail-personal-alias-file mail-default-reply-to mail-archive-file-name ;;;;;; mail-header-separator send-mail-function mail-interactive ;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style) -;;;;;; "sendmail" "mail/sendmail.el" (20370 4296)) +;;;;;; "sendmail" "mail/sendmail.el" (20417 65331)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style 'default "\ @@ -25322,7 +25426,7 @@ ;;;### (autoloads (server-save-buffers-kill-terminal server-mode ;;;;;; server-force-delete server-start) "server" "server.el" (20370 -;;;;;; 4296)) +;;;;;; 35109)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -25389,7 +25493,7 @@ ;;;*** -;;;### (autoloads (ses-mode) "ses" "ses.el" (20373 62846)) +;;;### (autoloads (ses-mode) "ses" "ses.el" (20373 11301)) ;;; Generated autoloads from ses.el (autoload 'ses-mode "ses" "\ @@ -25408,7 +25512,7 @@ ;;;*** ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload 'sgml-mode "sgml-mode" "\ @@ -25474,7 +25578,7 @@ ;;;*** ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" -;;;;;; (20397 7606)) +;;;;;; (20397 18394)) ;;; Generated autoloads from progmodes/sh-script.el (put 'sh-shell 'safe-local-variable 'symbolp) @@ -25538,7 +25642,7 @@ ;;;*** ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload 'list-load-path-shadows "shadow" "\ @@ -25588,8 +25692,8 @@ ;;;*** ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group -;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20229 -;;;;;; 56251)) +;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from shadowfile.el (autoload 'shadow-define-cluster "shadowfile" "\ @@ -25628,7 +25732,7 @@ ;;;*** ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" -;;;;;; (20405 16851)) +;;;;;; (20402 36105)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ @@ -25676,8 +25780,8 @@ ;;;*** -;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20330 -;;;;;; 4833)) +;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/shr.el (autoload 'shr-insert-document "shr" "\ @@ -25690,7 +25794,7 @@ ;;;*** ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) -;;;;;; "sieve" "gnus/sieve.el" (20229 56251)) +;;;;;; "sieve" "gnus/sieve.el" (20355 10021)) ;;; Generated autoloads from gnus/sieve.el (autoload 'sieve-manage "sieve" "\ @@ -25711,7 +25815,7 @@ ;;;*** ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload 'sieve-mode "sieve-mode" "\ @@ -25727,7 +25831,7 @@ ;;;*** ;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from progmodes/simula.el (autoload 'simula-mode "simula" "\ @@ -25776,7 +25880,7 @@ ;;;*** ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new -;;;;;; define-skeleton) "skeleton" "skeleton.el" (20405 42390)) +;;;;;; define-skeleton) "skeleton" "skeleton.el" (20406 8611)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter-function 'identity "\ @@ -25888,7 +25992,7 @@ ;;;*** ;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff) -;;;;;; "smerge-mode" "vc/smerge-mode.el" (20389 6410)) +;;;;;; "smerge-mode" "vc/smerge-mode.el" (20415 23587)) ;;; Generated autoloads from vc/smerge-mode.el (autoload 'smerge-ediff "smerge-mode" "\ @@ -25916,7 +26020,7 @@ ;;;*** ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/smiley.el (autoload 'smiley-region "smiley" "\ @@ -25934,7 +26038,7 @@ ;;;*** ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" -;;;;;; "mail/smtpmail.el" (20405 16851)) +;;;;;; "mail/smtpmail.el" (20402 11562)) ;;; Generated autoloads from mail/smtpmail.el (autoload 'smtpmail-send-it "smtpmail" "\ @@ -25949,7 +26053,7 @@ ;;;*** -;;;### (autoloads (snake) "snake" "play/snake.el" (20229 56251)) +;;;### (autoloads (snake) "snake" "play/snake.el" (20355 10021)) ;;; Generated autoloads from play/snake.el (autoload 'snake "snake" "\ @@ -25973,7 +26077,7 @@ ;;;*** ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/snmp-mode.el (autoload 'snmp-mode "snmp-mode" "\ @@ -26002,8 +26106,8 @@ ;;;*** -;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from calendar/solar.el (autoload 'sunrise-sunset "solar" "\ @@ -26018,8 +26122,8 @@ ;;;*** -;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from play/solitaire.el (autoload 'solitaire "solitaire" "\ @@ -26096,7 +26200,7 @@ ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields ;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs -;;;;;; sort-lines sort-subr) "sort" "sort.el" (20325 60273)) +;;;;;; sort-lines sort-subr) "sort" "sort.el" (20355 10021)) ;;; Generated autoloads from sort.el (put 'sort-fold-case 'safe-local-variable 'booleanp) @@ -26240,8 +26344,8 @@ ;;;*** -;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from gnus/spam.el (autoload 'spam-initialize "spam" "\ @@ -26257,7 +26361,7 @@ ;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file ;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" -;;;;;; "gnus/spam-report.el" (20229 56251)) +;;;;;; "gnus/spam-report.el" (20355 10021)) ;;; Generated autoloads from gnus/spam-report.el (autoload 'spam-report-process-queue "spam-report" "\ @@ -26300,7 +26404,7 @@ ;;;*** ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" -;;;;;; "speedbar.el" (20400 16870)) +;;;;;; "speedbar.el" (20399 35365)) ;;; Generated autoloads from speedbar.el (defalias 'speedbar 'speedbar-frame-mode) @@ -26324,8 +26428,8 @@ ;;;*** -;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from play/spook.el (autoload 'spook "spook" "\ @@ -26344,7 +26448,7 @@ ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect ;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el" -;;;;;; (20304 58723)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/sql.el (autoload 'sql-add-product-keywords "sql" "\ @@ -26840,7 +26944,7 @@ ;;;*** ;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from cedet/srecode/srt-mode.el (autoload 'srecode-template-mode "srecode/srt-mode" "\ @@ -26853,7 +26957,7 @@ ;;;*** ;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from gnus/starttls.el (autoload 'starttls-open-stream "starttls" "\ @@ -26880,8 +26984,8 @@ ;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes ;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke ;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke -;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20229 -;;;;;; 56251)) +;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from strokes.el (autoload 'strokes-global-set-stroke "strokes" "\ @@ -26995,7 +27099,7 @@ ;;;*** ;;;### (autoloads (studlify-buffer studlify-word studlify-region) -;;;;;; "studly" "play/studly.el" (19764 44456)) +;;;;;; "studly" "play/studly.el" (20355 10021)) ;;; Generated autoloads from play/studly.el (autoload 'studlify-region "studly" "\ @@ -27016,7 +27120,7 @@ ;;;*** ;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/subword.el (autoload 'subword-mode "subword" "\ @@ -27072,7 +27176,7 @@ ;;;*** ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" -;;;;;; (20273 59945)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/supercite.el (autoload 'sc-cite-original "supercite" "\ @@ -27104,8 +27208,8 @@ ;;;*** -;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from t-mouse.el (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") @@ -27133,7 +27237,7 @@ ;;;*** -;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20229 56251)) +;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20355 10021)) ;;; Generated autoloads from tabify.el (autoload 'untabify "tabify" "\ @@ -27168,7 +27272,7 @@ ;;;;;; table-recognize table-insert-row-column table-insert-column ;;;;;; table-insert-row table-insert table-point-left-cell-hook ;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) -;;;;;; "table" "textmodes/table.el" (20355 835)) +;;;;;; "table" "textmodes/table.el" (20355 10021)) ;;; Generated autoloads from textmodes/table.el (defvar table-cell-map-hook nil "\ @@ -27756,7 +27860,7 @@ ;;;*** -;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20229 56251)) +;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20355 10021)) ;;; Generated autoloads from talk.el (autoload 'talk-connect "talk" "\ @@ -27771,7 +27875,7 @@ ;;;*** -;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20389 6410)) +;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20387 44199)) ;;; Generated autoloads from tar-mode.el (autoload 'tar-mode "tar-mode" "\ @@ -27795,7 +27899,7 @@ ;;;*** ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" -;;;;;; "progmodes/tcl.el" (20355 835)) +;;;;;; "progmodes/tcl.el" (20355 10021)) ;;; Generated autoloads from progmodes/tcl.el (autoload 'tcl-mode "tcl" "\ @@ -27843,7 +27947,7 @@ ;;;*** -;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20229 56251)) +;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20355 10021)) ;;; Generated autoloads from net/telnet.el (autoload 'telnet "telnet" "\ @@ -27869,7 +27973,7 @@ ;;;*** ;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el" -;;;;;; (20397 10470)) +;;;;;; (20397 18394)) ;;; Generated autoloads from term.el (autoload 'make-term "term" "\ @@ -27911,8 +28015,8 @@ ;;;*** -;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from terminal.el (autoload 'terminal-emulator "terminal" "\ @@ -27949,7 +28053,7 @@ ;;;*** ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload 'testcover-this-defun "testcover" "\ @@ -27959,7 +28063,7 @@ ;;;*** -;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20229 56251)) +;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20355 10021)) ;;; Generated autoloads from play/tetris.el (autoload 'tetris "tetris" "\ @@ -27990,7 +28094,7 @@ ;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command ;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp ;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" -;;;;;; (20370 4296)) +;;;;;; (20364 45187)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -28292,7 +28396,7 @@ ;;;*** ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) -;;;;;; "texinfmt" "textmodes/texinfmt.el" (20355 835)) +;;;;;; "texinfmt" "textmodes/texinfmt.el" (20355 10021)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload 'texinfo-format-buffer "texinfmt" "\ @@ -28332,7 +28436,7 @@ ;;;*** ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) -;;;;;; "texinfo" "textmodes/texinfo.el" (20229 56251)) +;;;;;; "texinfo" "textmodes/texinfo.el" (20355 10021)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote (purecopy "``") "\ @@ -28418,7 +28522,7 @@ ;;;### (autoloads (thai-composition-function thai-compose-buffer ;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el" -;;;;;; (20273 59945)) +;;;;;; (20355 10021)) ;;; Generated autoloads from language/thai-util.el (autoload 'thai-compose-region "thai-util" "\ @@ -28447,7 +28551,7 @@ ;;;### (autoloads (list-at-point number-at-point symbol-at-point ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) -;;;;;; "thingatpt" "thingatpt.el" (20229 56251)) +;;;;;; "thingatpt" "thingatpt.el" (20416 44451)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ @@ -28510,7 +28614,7 @@ ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked ;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from thumbs.el (autoload 'thumbs-find-thumb "thumbs" "\ @@ -28549,7 +28653,7 @@ ;;;;;; tibetan-decompose-string tibetan-decompose-region tibetan-compose-region ;;;;;; tibetan-compose-string tibetan-transcription-to-tibetan tibetan-tibetan-to-transcription ;;;;;; tibetan-char-p) "tibet-util" "language/tibet-util.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from language/tibet-util.el (autoload 'tibetan-char-p "tibet-util" "\ @@ -28623,7 +28727,7 @@ ;;;*** ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" -;;;;;; (20373 62846)) +;;;;;; (20373 11301)) ;;; Generated autoloads from textmodes/tildify.el (autoload 'tildify-region "tildify" "\ @@ -28648,7 +28752,7 @@ ;;;### (autoloads (emacs-init-time emacs-uptime display-time-world ;;;;;; display-time-mode display-time display-time-day-and-date) -;;;;;; "time" "time.el" (20389 6410)) +;;;;;; "time" "time.el" (20387 44199)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -28714,7 +28818,7 @@ ;;;;;; time-to-day-in-year date-leap-year-p days-between date-to-day ;;;;;; time-add time-subtract time-since days-to-time time-less-p ;;;;;; seconds-to-time date-to-time) "time-date" "calendar/time-date.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from calendar/time-date.el (autoload 'date-to-time "time-date" "\ @@ -28828,7 +28932,7 @@ ;;;*** ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" -;;;;;; "time-stamp.el" (20229 56251)) +;;;;;; "time-stamp.el" (20355 10021)) ;;; Generated autoloads from time-stamp.el (put 'time-stamp-format 'safe-local-variable 'stringp) (put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p) @@ -28872,7 +28976,7 @@ ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" -;;;;;; (20304 58723)) +;;;;;; (20355 10021)) ;;; Generated autoloads from calendar/timeclock.el (autoload 'timeclock-modeline-display "timeclock" "\ @@ -28972,7 +29076,7 @@ ;;;*** ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" -;;;;;; "international/titdic-cnv.el" (20288 9499)) +;;;;;; "international/titdic-cnv.el" (20355 10021)) ;;; Generated autoloads from international/titdic-cnv.el (autoload 'titdic-convert "titdic-cnv" "\ @@ -28995,7 +29099,7 @@ ;;;*** ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" -;;;;;; "tmm.el" (20356 48455)) +;;;;;; "tmm.el" (20356 55829)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) @@ -29035,7 +29139,7 @@ ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities ;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) -;;;;;; "todo-mode" "calendar/todo-mode.el" (20229 56251)) +;;;;;; "todo-mode" "calendar/todo-mode.el" (20355 10021)) ;;; Generated autoloads from calendar/todo-mode.el (autoload 'todo-add-category "todo-mode" "\ @@ -29095,7 +29199,7 @@ ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu ;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame) -;;;;;; "tool-bar" "tool-bar.el" (20280 8018)) +;;;;;; "tool-bar" "tool-bar.el" (20355 10021)) ;;; Generated autoloads from tool-bar.el (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ @@ -29166,7 +29270,7 @@ ;;;*** ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" -;;;;;; (20400 16870)) +;;;;;; (20399 35365)) ;;; Generated autoloads from emulation/tpu-edt.el (defvar tpu-edt-mode nil "\ @@ -29196,7 +29300,7 @@ ;;;*** ;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emulation/tpu-mapper.el (autoload 'tpu-mapper "tpu-mapper" "\ @@ -29230,7 +29334,7 @@ ;;;*** -;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20229 56251)) +;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload 'tq-create "tq" "\ @@ -29244,7 +29348,7 @@ ;;;*** ;;;### (autoloads (trace-function-background trace-function trace-buffer) -;;;;;; "trace" "emacs-lisp/trace.el" (20229 56251)) +;;;;;; "trace" "emacs-lisp/trace.el" (20355 10021)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer (purecopy "*trace-output*") "\ @@ -29281,7 +29385,7 @@ ;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion ;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers ;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp" -;;;;;; "net/tramp.el" (20373 62846)) +;;;;;; "net/tramp.el" (20373 11301)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -29414,7 +29518,7 @@ ;;;*** ;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from net/tramp-ftp.el (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ @@ -29424,8 +29528,8 @@ ;;;*** -;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20370 -;;;;;; 4296)) +;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20369 +;;;;;; 14251)) ;;; Generated autoloads from tutorial.el (autoload 'help-with-tutorial "tutorial" "\ @@ -29450,7 +29554,7 @@ ;;;*** ;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el" -;;;;;; (19764 44456)) +;;;;;; (20355 10021)) ;;; Generated autoloads from language/tv-util.el (autoload 'tai-viet-composition-function "tv-util" "\ @@ -29461,7 +29565,7 @@ ;;;*** ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" -;;;;;; "textmodes/two-column.el" (20370 4296)) +;;;;;; "textmodes/two-column.el" (20364 31990)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -29512,7 +29616,7 @@ ;;;;;; type-break type-break-mode type-break-keystroke-threshold ;;;;;; type-break-good-break-interval type-break-good-rest-interval ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -29694,7 +29798,7 @@ ;;;*** -;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20229 56251)) +;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20355 10021)) ;;; Generated autoloads from mail/uce.el (autoload 'uce-reply-to-uce "uce" "\ @@ -29712,7 +29816,7 @@ ;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string ;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region ;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize" -;;;;;; "international/ucs-normalize.el" (20229 56251)) +;;;;;; "international/ucs-normalize.el" (20355 10021)) ;;; Generated autoloads from international/ucs-normalize.el (autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ @@ -29778,7 +29882,7 @@ ;;;*** ;;;### (autoloads (ununderline-region underline-region) "underline" -;;;;;; "textmodes/underline.el" (20229 56251)) +;;;;;; "textmodes/underline.el" (20355 10021)) ;;; Generated autoloads from textmodes/underline.el (autoload 'underline-region "underline" "\ @@ -29799,7 +29903,7 @@ ;;;*** ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" -;;;;;; (20370 4296)) +;;;;;; (20369 14251)) ;;; Generated autoloads from mail/unrmail.el (autoload 'batch-unrmail "unrmail" "\ @@ -29818,8 +29922,8 @@ ;;;*** -;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload 'unsafep "unsafep" "\ @@ -29832,7 +29936,7 @@ ;;;*** ;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url" -;;;;;; "url/url.el" (20395 5351)) +;;;;;; "url/url.el" (20394 17446)) ;;; Generated autoloads from url/url.el (autoload 'url-retrieve "url" "\ @@ -29880,7 +29984,7 @@ ;;;*** ;;;### (autoloads (url-register-auth-scheme url-get-authentication) -;;;;;; "url-auth" "url/url-auth.el" (20239 35035)) +;;;;;; "url-auth" "url/url-auth.el" (20355 10021)) ;;; Generated autoloads from url/url-auth.el (autoload 'url-get-authentication "url-auth" "\ @@ -29922,7 +30026,7 @@ ;;;*** ;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache) -;;;;;; "url-cache" "url/url-cache.el" (20272 35721)) +;;;;;; "url-cache" "url/url-cache.el" (20355 10021)) ;;; Generated autoloads from url/url-cache.el (autoload 'url-store-in-cache "url-cache" "\ @@ -29943,7 +30047,7 @@ ;;;*** -;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20229 56251)) +;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20355 10021)) ;;; Generated autoloads from url/url-cid.el (autoload 'url-cid "url-cid" "\ @@ -29954,7 +30058,7 @@ ;;;*** ;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" -;;;;;; "url/url-dav.el" (20355 835)) +;;;;;; "url/url-dav.el" (20355 10021)) ;;; Generated autoloads from url/url-dav.el (autoload 'url-dav-supported-p "url-dav" "\ @@ -29969,8 +30073,8 @@ ;;;*** -;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from url/url-file.el (autoload 'url-file "url-file" "\ @@ -29981,7 +30085,7 @@ ;;;*** ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" -;;;;;; "url/url-gw.el" (20229 56251)) +;;;;;; "url/url-gw.el" (20355 10021)) ;;; Generated autoloads from url/url-gw.el (autoload 'url-gateway-nslookup-host "url-gw" "\ @@ -30001,7 +30105,7 @@ ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file ;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ @@ -30056,7 +30160,7 @@ ;;;*** ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p -;;;;;; url-http) "url-http" "url/url-http.el" (20395 5351)) +;;;;;; url-http) "url-http" "url/url-http.el" (20415 53309)) ;;; Generated autoloads from url/url-http.el (autoload 'url-http "url-http" "\ @@ -30125,7 +30229,7 @@ ;;;*** -;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20229 56251)) +;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20355 10021)) ;;; Generated autoloads from url/url-irc.el (autoload 'url-irc "url-irc" "\ @@ -30136,7 +30240,7 @@ ;;;*** ;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20355 -;;;;;; 835)) +;;;;;; 10021)) ;;; Generated autoloads from url/url-ldap.el (autoload 'url-ldap "url-ldap" "\ @@ -30150,7 +30254,7 @@ ;;;*** ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from url/url-mailto.el (autoload 'url-mail "url-mailto" "\ @@ -30166,7 +30270,7 @@ ;;;*** ;;;### (autoloads (url-data url-generic-emulator-loader url-info -;;;;;; url-man) "url-misc" "url/url-misc.el" (20229 56251)) +;;;;;; url-man) "url-misc" "url/url-misc.el" (20355 10021)) ;;; Generated autoloads from url/url-misc.el (autoload 'url-man "url-misc" "\ @@ -30198,7 +30302,7 @@ ;;;*** ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from url/url-news.el (autoload 'url-news "url-news" "\ @@ -30215,7 +30319,7 @@ ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable ;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from url/url-ns.el (autoload 'isPlainHostName "url-ns" "\ @@ -30256,7 +30360,7 @@ ;;;*** ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" -;;;;;; "url/url-parse.el" (20395 46900)) +;;;;;; "url/url-parse.el" (20395 38306)) ;;; Generated autoloads from url/url-parse.el (autoload 'url-recreate-url "url-parse" "\ @@ -30308,7 +30412,7 @@ ;;;*** ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from url/url-privacy.el (autoload 'url-setup-privacy-info "url-privacy" "\ @@ -30319,7 +30423,7 @@ ;;;*** ;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el" -;;;;;; (20339 13356)) +;;;;;; (20355 10021)) ;;; Generated autoloads from url/url-queue.el (autoload 'url-queue-retrieve "url-queue" "\ @@ -30339,8 +30443,8 @@ ;;;;;; url-percentage url-display-percentage url-pretty-length url-strip-leading-spaces ;;;;;; url-eat-trailing-space url-get-normalized-date url-lazy-message ;;;;;; url-normalize-url url-insert-entities-in-string url-parse-args -;;;;;; url-debug url-debug) "url-util" "url/url-util.el" (20405 -;;;;;; 16851)) +;;;;;; url-debug url-debug) "url-util" "url/url-util.el" (20402 +;;;;;; 11562)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -30502,7 +30606,7 @@ ;;;*** ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) -;;;;;; "userlock" "userlock.el" (20229 56251)) +;;;;;; "userlock" "userlock.el" (20355 10021)) ;;; Generated autoloads from userlock.el (autoload 'ask-user-about-lock "userlock" "\ @@ -30532,7 +30636,7 @@ ;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion ;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion) -;;;;;; "utf-7" "international/utf-7.el" (20229 56251)) +;;;;;; "utf-7" "international/utf-7.el" (20355 10021)) ;;; Generated autoloads from international/utf-7.el (autoload 'utf-7-post-read-conversion "utf-7" "\ @@ -30557,7 +30661,7 @@ ;;;*** -;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20229 56251)) +;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20355 10021)) ;;; Generated autoloads from gnus/utf7.el (autoload 'utf7-encode "utf7" "\ @@ -30569,7 +30673,7 @@ ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal ;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from mail/uudecode.el (autoload 'uudecode-decode-region-external "uudecode" "\ @@ -30599,8 +30703,8 @@ ;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers ;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff ;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook -;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20376 -;;;;;; 45624)) +;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20421 +;;;;;; 62373)) ;;; Generated autoloads from vc/vc.el (defvar vc-checkout-hook nil "\ @@ -30878,7 +30982,7 @@ ;;;*** ;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el" -;;;;;; (20356 48455)) +;;;;;; (20356 55829)) ;;; Generated autoloads from vc/vc-annotate.el (autoload 'vc-annotate "vc-annotate" "\ @@ -30915,7 +31019,7 @@ ;;;*** -;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20376 46117)) +;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20377 8374)) ;;; Generated autoloads from vc/vc-arch.el (defun vc-arch-registered (file) (if (vc-find-root file "{arch}/=tagging-method") @@ -30925,7 +31029,7 @@ ;;;*** -;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20405 42046)) +;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20406 55122)) ;;; Generated autoloads from vc/vc-bzr.el (defconst vc-bzr-admin-dirname ".bzr" "\ @@ -30941,7 +31045,7 @@ ;;;*** -;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20376 45957)) +;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20377 8374)) ;;; Generated autoloads from vc/vc-cvs.el (defun vc-cvs-registered (f) "Return non-nil if file F is registered with CVS." @@ -30952,7 +31056,7 @@ ;;;*** -;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20376 45841)) +;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20377 8374)) ;;; Generated autoloads from vc/vc-dir.el (autoload 'vc-dir "vc-dir" "\ @@ -30977,7 +31081,7 @@ ;;;*** ;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el" -;;;;;; (20370 4296)) +;;;;;; (20364 45187)) ;;; Generated autoloads from vc/vc-dispatcher.el (autoload 'vc-do-command "vc-dispatcher" "\ @@ -31000,7 +31104,7 @@ ;;;*** -;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20379 60745)) +;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20378 29222)) ;;; Generated autoloads from vc/vc-git.el (defun vc-git-registered (file) "Return non-nil if FILE is registered with git." @@ -31011,7 +31115,7 @@ ;;;*** -;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20376 44541)) +;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20377 8374)) ;;; Generated autoloads from vc/vc-hg.el (defun vc-hg-registered (file) "Return non-nil if FILE is registered with hg." @@ -31022,7 +31126,7 @@ ;;;*** -;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20376 41989)) +;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20377 8374)) ;;; Generated autoloads from vc/vc-mtn.el (defconst vc-mtn-admin-dir "_MTN" "\ @@ -31039,7 +31143,7 @@ ;;;*** ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el" -;;;;;; (20296 30097)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/vc-rcs.el (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -31053,7 +31157,7 @@ ;;;*** ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el" -;;;;;; (20296 30097)) +;;;;;; (20355 10021)) ;;; Generated autoloads from vc/vc-sccs.el (defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ @@ -31070,7 +31174,7 @@ ;;;*** -;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20296 30097)) +;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20355 10021)) ;;; Generated autoloads from vc/vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -31084,7 +31188,7 @@ ;;;*** ;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from progmodes/vera-mode.el (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) @@ -31142,7 +31246,7 @@ ;;;*** ;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el" -;;;;;; (20387 12783)) +;;;;;; (20420 41510)) ;;; Generated autoloads from progmodes/verilog-mode.el (autoload 'verilog-mode "verilog-mode" "\ @@ -31281,7 +31385,7 @@ ;;;*** ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" -;;;;;; (20355 835)) +;;;;;; (20419 20644)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload 'vhdl-mode "vhdl-mode" "\ @@ -31359,8 +31463,10 @@ with a comment in between. `--CR' comments out code on that line. Re-hitting CR comments out following lines. - `C-c c' comments out a region if not commented out, - uncomments a region if already commented out. + `C-c C-c' comments out a region if not commented out, + uncomments a region if already commented out. Option + `comment-style' defines where the comment characters + should be placed (beginning of line, indent, etc.). You are prompted for comments after object definitions (i.e. signals, variables, constants, ports) and after subprogram and process @@ -31381,7 +31487,8 @@ `TAB' indents a line if at the beginning of the line. The amount of indentation is specified by option `vhdl-basic-offset'. `C-c C-i C-l' always indents the current line (is bound to `TAB' if option - `vhdl-intelligent-tab' is nil). + `vhdl-intelligent-tab' is nil). If a region is active, `TAB' indents + the entire region. Indentation can be done for a group of lines (`C-c C-i C-g'), a region (`M-C-\\') or the entire buffer (menu). Argument and port lists are @@ -31395,6 +31502,10 @@ Syntax-based indentation can be very slow in large files. Option `vhdl-indent-syntax-based' allows to use faster but simpler indentation. + Option `vhdl-indent-comment-like-next-code-line' controls whether + comment lines are indented like the preceding or like the following code + line. + ALIGNMENT: The alignment functions align operators, keywords, and inline comments @@ -31523,12 +31634,12 @@ STRUCTURAL COMPOSITION: - Enables simple structural composition. `C-c C-c C-n' creates a skeleton + Enables simple structural composition. `C-c C-m C-n' creates a skeleton for a new component. Subcomponents (i.e. component declaration and instantiation) can be automatically placed from a previously read port - (`C-c C-c C-p') or directly from the hierarchy browser (`P'). Finally, + (`C-c C-m C-p') or directly from the hierarchy browser (`P'). Finally, all subcomponents can be automatically connected using internal signals - and ports (`C-c C-c C-w') following these rules: + and ports (`C-c C-m C-w') following these rules: - subcomponent actual ports with same name are considered to be connected by a signal (internal signal or port) - signals that are only inputs to subcomponents are considered as @@ -31549,25 +31660,25 @@ Component declarations can be placed in a components package (option `vhdl-use-components-package') which can be automatically generated for - an entire directory or project (`C-c C-c M-p'). The VHDL'93 direct + an entire directory or project (`C-c C-m M-p'). The VHDL'93 direct component instantiation is also supported (option `vhdl-use-direct-instantiation'). -| Configuration declarations can automatically be generated either from -| the menu (`C-c C-c C-f') (for the architecture the cursor is in) or from -| the speedbar menu (for the architecture under the cursor). The -| configurations can optionally be hierarchical (i.e. include all -| component levels of a hierarchical design, option -| `vhdl-compose-configuration-hierarchical') or include subconfigurations -| (option `vhdl-compose-configuration-use-subconfiguration'). For -| subcomponents in hierarchical configurations, the most-recently-analyzed -| (mra) architecture is selected. If another architecture is desired, it -| can be marked as most-recently-analyzed (speedbar menu) before -| generating the configuration. -| -| Note: Configurations of subcomponents (i.e. hierarchical configuration -| declarations) are currently not considered when displaying -| configurations in speedbar. + Configuration declarations can automatically be generated either from + the menu (`C-c C-m C-f') (for the architecture the cursor is in) or from + the speedbar menu (for the architecture under the cursor). The + configurations can optionally be hierarchical (i.e. include all + component levels of a hierarchical design, option + `vhdl-compose-configuration-hierarchical') or include subconfigurations + (option `vhdl-compose-configuration-use-subconfiguration'). For + subcomponents in hierarchical configurations, the most-recently-analyzed + (mra) architecture is selected. If another architecture is desired, it + can be marked as most-recently-analyzed (speedbar menu) before + generating the configuration. + + Note: Configurations of subcomponents (i.e. hierarchical configuration + declarations) are currently not considered when displaying + configurations in speedbar. See the options group `vhdl-compose' for all relevant user options. @@ -31599,11 +31710,13 @@ The Makefile's default target \"all\" compiles the entire design, the target \"clean\" removes it and the target \"library\" creates the - library directory if not existent. The Makefile also includes a target - for each primary library unit which allows selective compilation of this - unit, its secondary units and its subhierarchy (example: compilation of - a design specified by a configuration). User specific parts can be - inserted into a Makefile with option `vhdl-makefile-generation-hook'. + library directory if not existent. These target names can be customized + by option `vhdl-makefile-default-targets'. The Makefile also includes a + target for each primary library unit which allows selective compilation + of this unit, its secondary units and its subhierarchy (example: + compilation of a design specified by a configuration). User specific + parts can be inserted into a Makefile with option + `vhdl-makefile-generation-hook'. Limitations: - Only library units and dependencies within the current library are @@ -31649,7 +31762,7 @@ VHDL STANDARDS: The VHDL standards to be used are specified in option `vhdl-standard'. - Available standards are: VHDL'87/'93, VHDL-AMS, and Math Packages. + Available standards are: VHDL'87/'93(02), VHDL-AMS, and Math Packages. KEYWORD CASE: @@ -31725,6 +31838,9 @@ - Out parameters of procedures are considered to be read. Use option `vhdl-entity-file-name' to specify the entity file name (used to obtain the port names). + Use option `vhdl-array-index-record-field-in-sensitivity-list' to + specify whether to include array indices and record fields in + sensitivity lists. CODE FIXING: @@ -31798,16 +31914,17 @@ to above mailing lists by sending an email to . VHDL Mode is officially distributed at -URL `http://opensource.ethz.ch/emacs/vhdl-mode.html' +http://www.iis.ee.ethz.ch/~zimmi/emacs/vhdl-mode.html where the latest version can be found. Known problems: --------------- -- Indentation bug in simultaneous if- and case-statements (VHDL-AMS). - XEmacs: Incorrect start-up when automatically opening speedbar. - XEmacs: Indentation in XEmacs 21.4 (and higher). +- Indentation incorrect for new 'postponed' VHDL keyword. +- Indentation incorrect for 'protected body' construct. The VHDL Mode Authors @@ -31822,7 +31939,7 @@ ;;;*** -;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20103 44376)) +;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20355 10021)) ;;; Generated autoloads from emulation/vi.el (autoload 'vi-mode "vi" "\ @@ -31877,7 +31994,7 @@ ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion ;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer ;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" -;;;;;; "language/viet-util.el" (20229 56251)) +;;;;;; "language/viet-util.el" (20355 10021)) ;;; Generated autoloads from language/viet-util.el (autoload 'viet-encode-viscii-char "viet-util" "\ @@ -31925,7 +32042,7 @@ ;;;;;; view-mode view-buffer-other-frame view-buffer-other-window ;;;;;; view-buffer view-file-other-frame view-file-other-window ;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting) -;;;;;; "view" "view.el" (20325 60273)) +;;;;;; "view" "view.el" (20355 10021)) ;;; Generated autoloads from view.el (defvar view-remove-frame-by-deleting t "\ @@ -32179,8 +32296,8 @@ ;;;*** -;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from emulation/vip.el (autoload 'vip-setup "vip" "\ @@ -32196,7 +32313,7 @@ ;;;*** ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" -;;;;;; (20355 835)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emulation/viper.el (autoload 'toggle-viper-mode "viper" "\ @@ -32213,7 +32330,7 @@ ;;;*** ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -32303,7 +32420,7 @@ ;;;*** ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" -;;;;;; (20229 56251)) +;;;;;; (20355 10021)) ;;; Generated autoloads from wdired.el (autoload 'wdired-change-to-wdired-mode "wdired" "\ @@ -32319,7 +32436,7 @@ ;;;*** -;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20355 835)) +;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20355 10021)) ;;; Generated autoloads from net/webjump.el (autoload 'webjump "webjump" "\ @@ -32336,7 +32453,7 @@ ;;;*** ;;;### (autoloads (which-function-mode which-func-mode) "which-func" -;;;;;; "progmodes/which-func.el" (20379 60745)) +;;;;;; "progmodes/which-func.el" (20412 47398)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -32372,7 +32489,7 @@ ;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region ;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options ;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode -;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20229 56251)) +;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20421 62373)) ;;; Generated autoloads from whitespace.el (autoload 'whitespace-mode "whitespace" "\ @@ -32771,7 +32888,7 @@ ;;;*** ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse -;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20273 59945)) +;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20355 10021)) ;;; Generated autoloads from wid-browse.el (autoload 'widget-browse-at "wid-browse" "\ @@ -32801,7 +32918,7 @@ ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create ;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20373 -;;;;;; 62846)) +;;;;;; 11301)) ;;; Generated autoloads from wid-edit.el (autoload 'widgetp "wid-edit" "\ @@ -32844,8 +32961,8 @@ ;;;*** ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right -;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20255 -;;;;;; 22932)) +;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from windmove.el (autoload 'windmove-left "windmove" "\ @@ -32898,7 +33015,7 @@ ;;;*** ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" -;;;;;; (20239 35035)) +;;;;;; (20355 10021)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ @@ -32917,7 +33034,7 @@ ;;;*** ;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file -;;;;;; woman woman-locale) "woman" "woman.el" (20373 62846)) +;;;;;; woman woman-locale) "woman" "woman.el" (20370 35109)) ;;; Generated autoloads from woman.el (defvar woman-locale nil "\ @@ -32966,7 +33083,7 @@ ;;;*** ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" -;;;;;; (20325 60273)) +;;;;;; (20355 10021)) ;;; Generated autoloads from emulation/ws-mode.el (autoload 'wordstar-mode "ws-mode" "\ @@ -33078,7 +33195,7 @@ ;;;*** -;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20373 62846)) +;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20374 32165)) ;;; Generated autoloads from net/xesam.el (autoload 'xesam-search "xesam" "\ @@ -33098,7 +33215,7 @@ ;;;*** ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" -;;;;;; (20379 60745)) +;;;;;; (20378 29222)) ;;; Generated autoloads from xml.el (autoload 'xml-parse-file "xml" "\ @@ -33124,7 +33241,7 @@ ;;;*** ;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok" -;;;;;; "nxml/xmltok.el" (20229 56251)) +;;;;;; "nxml/xmltok.el" (20355 10021)) ;;; Generated autoloads from nxml/xmltok.el (autoload 'xmltok-get-declared-encoding-position "xmltok" "\ @@ -33142,8 +33259,8 @@ ;;;*** -;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20229 -;;;;;; 56251)) +;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20355 +;;;;;; 10021)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ @@ -33173,7 +33290,7 @@ ;;;*** ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" -;;;;;; "gnus/yenc.el" (20229 56251)) +;;;;;; "gnus/yenc.el" (20355 10021)) ;;; Generated autoloads from gnus/yenc.el (autoload 'yenc-decode-region "yenc" "\ @@ -33189,7 +33306,7 @@ ;;;*** ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism -;;;;;; yow) "yow" "play/yow.el" (20370 4296)) +;;;;;; yow) "yow" "play/yow.el" (20364 42504)) ;;; Generated autoloads from play/yow.el (autoload 'yow "yow" "\ @@ -33215,7 +33332,7 @@ ;;;*** -;;;### (autoloads (zone) "zone" "play/zone.el" (20395 5351)) +;;;### (autoloads (zone) "zone" "play/zone.el" (20392 31071)) ;;; Generated autoloads from play/zone.el (autoload 'zone "zone" "\ @@ -33300,55 +33417,54 @@ ;;;;;; "cedet/srecode/loaddefs.el" "cedet/srecode/map.el" "cedet/srecode/mode.el" ;;;;;; "cedet/srecode/semantic.el" "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" ;;;;;; "cedet/srecode/table.el" "cedet/srecode/template.el" "cedet/srecode/texi.el" -;;;;;; "cus-dep.el" "cus-load.el" "dframe.el" "dired-aux.el" "dired-x.el" -;;;;;; "dos-fns.el" "dos-vars.el" "dos-w32.el" "dynamic-setting.el" -;;;;;; "emacs-lisp/authors.el" "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" -;;;;;; "emacs-lisp/byte-opt.el" "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" -;;;;;; "emacs-lisp/cl-loaddefs.el" "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" -;;;;;; "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-custom.el" -;;;;;; "emacs-lisp/eieio-datadebug.el" "emacs-lisp/eieio-opt.el" -;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" -;;;;;; "emacs-lisp/gulp.el" "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" -;;;;;; "emacs-lisp/regi.el" "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" -;;;;;; "emacs-lisp/tcover-unsafep.el" "emulation/cua-gmrk.el" "emulation/cua-rect.el" -;;;;;; "emulation/edt-lk201.el" "emulation/edt-mapper.el" "emulation/edt-pc.el" -;;;;;; "emulation/edt-vt100.el" "emulation/tpu-extras.el" "emulation/viper-cmd.el" -;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el" -;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el" -;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el" -;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el" -;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" -;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" -;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" -;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" -;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el" -;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-groups.el" -;;;;;; "eshell/esh-io.el" "eshell/esh-module.el" "eshell/esh-opt.el" -;;;;;; "eshell/esh-proc.el" "eshell/esh-util.el" "eshell/esh-var.el" -;;;;;; "ezimage.el" "finder-inf.el" "foldout.el" "format-spec.el" -;;;;;; "fringe.el" "generic-x.el" "gnus/compface.el" "gnus/gnus-async.el" -;;;;;; "gnus/gnus-bcklg.el" "gnus/gnus-cite.el" "gnus/gnus-cus.el" -;;;;;; "gnus/gnus-demon.el" "gnus/gnus-dup.el" "gnus/gnus-eform.el" -;;;;;; "gnus/gnus-ems.el" "gnus/gnus-int.el" "gnus/gnus-logic.el" -;;;;;; "gnus/gnus-mh.el" "gnus/gnus-salt.el" "gnus/gnus-score.el" -;;;;;; "gnus/gnus-setup.el" "gnus/gnus-srvr.el" "gnus/gnus-topic.el" -;;;;;; "gnus/gnus-undo.el" "gnus/gnus-util.el" "gnus/gnus-uu.el" -;;;;;; "gnus/gnus-vm.el" "gnus/gssapi.el" "gnus/ietf-drums.el" "gnus/legacy-gnus-agent.el" -;;;;;; "gnus/mail-parse.el" "gnus/mail-prsvr.el" "gnus/mail-source.el" -;;;;;; "gnus/mailcap.el" "gnus/messcompat.el" "gnus/mm-bodies.el" -;;;;;; "gnus/mm-decode.el" "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el" -;;;;;; "gnus/mml-smime.el" "gnus/nnagent.el" "gnus/nnbabyl.el" "gnus/nndir.el" -;;;;;; "gnus/nndraft.el" "gnus/nneething.el" "gnus/nngateway.el" -;;;;;; "gnus/nnheader.el" "gnus/nnimap.el" "gnus/nnir.el" "gnus/nnmail.el" -;;;;;; "gnus/nnmaildir.el" "gnus/nnmairix.el" "gnus/nnmbox.el" "gnus/nnmh.el" -;;;;;; "gnus/nnnil.el" "gnus/nnoo.el" "gnus/nnregistry.el" "gnus/nnrss.el" -;;;;;; "gnus/nnspool.el" "gnus/nntp.el" "gnus/nnvirtual.el" "gnus/nnweb.el" -;;;;;; "gnus/registry.el" "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el" -;;;;;; "gnus/rfc2104.el" "gnus/rfc2231.el" "gnus/rtree.el" "gnus/shr-color.el" -;;;;;; "gnus/sieve-manage.el" "gnus/smime.el" "gnus/spam-stat.el" -;;;;;; "gnus/spam-wash.el" "hex-util.el" "hfy-cmap.el" "ibuf-ext.el" -;;;;;; "international/cp51932.el" "international/eucjp-ms.el" "international/fontset.el" -;;;;;; "international/iso-ascii.el" "international/ja-dic-cnv.el" +;;;;;; "cus-dep.el" "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el" +;;;;;; "dos-vars.el" "dos-w32.el" "dynamic-setting.el" "emacs-lisp/authors.el" +;;;;;; "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" +;;;;;; "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-loaddefs.el" +;;;;;; "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" "emacs-lisp/cust-print.el" +;;;;;; "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-custom.el" "emacs-lisp/eieio-datadebug.el" +;;;;;; "emacs-lisp/eieio-opt.el" "emacs-lisp/eieio-speedbar.el" +;;;;;; "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" "emacs-lisp/gulp.el" +;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/regi.el" +;;;;;; "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" "emacs-lisp/tcover-unsafep.el" +;;;;;; "emulation/cua-gmrk.el" "emulation/cua-rect.el" "emulation/edt-lk201.el" +;;;;;; "emulation/edt-mapper.el" "emulation/edt-pc.el" "emulation/edt-vt100.el" +;;;;;; "emulation/tpu-extras.el" "emulation/viper-cmd.el" "emulation/viper-ex.el" +;;;;;; "emulation/viper-init.el" "emulation/viper-keym.el" "emulation/viper-macs.el" +;;;;;; "emulation/viper-mous.el" "emulation/viper-util.el" "erc/erc-backend.el" +;;;;;; "erc/erc-goodies.el" "erc/erc-ibuffer.el" "erc/erc-lang.el" +;;;;;; "eshell/em-alias.el" "eshell/em-banner.el" "eshell/em-basic.el" +;;;;;; "eshell/em-cmpl.el" "eshell/em-dirs.el" "eshell/em-glob.el" +;;;;;; "eshell/em-hist.el" "eshell/em-ls.el" "eshell/em-pred.el" +;;;;;; "eshell/em-prompt.el" "eshell/em-rebind.el" "eshell/em-script.el" +;;;;;; "eshell/em-smart.el" "eshell/em-term.el" "eshell/em-unix.el" +;;;;;; "eshell/em-xtra.el" "eshell/esh-arg.el" "eshell/esh-cmd.el" +;;;;;; "eshell/esh-ext.el" "eshell/esh-groups.el" "eshell/esh-io.el" +;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el" +;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el" +;;;;;; "format-spec.el" "fringe.el" "generic-x.el" "gnus/compface.el" +;;;;;; "gnus/gnus-async.el" "gnus/gnus-bcklg.el" "gnus/gnus-cite.el" +;;;;;; "gnus/gnus-cus.el" "gnus/gnus-demon.el" "gnus/gnus-dup.el" +;;;;;; "gnus/gnus-eform.el" "gnus/gnus-ems.el" "gnus/gnus-int.el" +;;;;;; "gnus/gnus-logic.el" "gnus/gnus-mh.el" "gnus/gnus-salt.el" +;;;;;; "gnus/gnus-score.el" "gnus/gnus-setup.el" "gnus/gnus-srvr.el" +;;;;;; "gnus/gnus-topic.el" "gnus/gnus-undo.el" "gnus/gnus-util.el" +;;;;;; "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/gssapi.el" "gnus/ietf-drums.el" +;;;;;; "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el" "gnus/mail-prsvr.el" +;;;;;; "gnus/mail-source.el" "gnus/mailcap.el" "gnus/messcompat.el" +;;;;;; "gnus/mm-bodies.el" "gnus/mm-decode.el" "gnus/mm-util.el" +;;;;;; "gnus/mm-view.el" "gnus/mml-sec.el" "gnus/mml-smime.el" "gnus/nnagent.el" +;;;;;; "gnus/nnbabyl.el" "gnus/nndir.el" "gnus/nndraft.el" "gnus/nneething.el" +;;;;;; "gnus/nngateway.el" "gnus/nnheader.el" "gnus/nnimap.el" "gnus/nnir.el" +;;;;;; "gnus/nnmail.el" "gnus/nnmaildir.el" "gnus/nnmairix.el" "gnus/nnmbox.el" +;;;;;; "gnus/nnmh.el" "gnus/nnnil.el" "gnus/nnoo.el" "gnus/nnregistry.el" +;;;;;; "gnus/nnrss.el" "gnus/nnspool.el" "gnus/nntp.el" "gnus/nnvirtual.el" +;;;;;; "gnus/nnweb.el" "gnus/registry.el" "gnus/rfc1843.el" "gnus/rfc2045.el" +;;;;;; "gnus/rfc2047.el" "gnus/rfc2104.el" "gnus/rfc2231.el" "gnus/rtree.el" +;;;;;; "gnus/shr-color.el" "gnus/sieve-manage.el" "gnus/smime.el" +;;;;;; "gnus/spam-stat.el" "gnus/spam-wash.el" "hex-util.el" "hfy-cmap.el" +;;;;;; "ibuf-ext.el" "international/cp51932.el" "international/eucjp-ms.el" +;;;;;; "international/fontset.el" "international/iso-ascii.el" "international/ja-dic-cnv.el" ;;;;;; "international/ja-dic-utl.el" "international/ogonek.el" "international/uni-bidi.el" ;;;;;; "international/uni-category.el" "international/uni-combining.el" ;;;;;; "international/uni-comment.el" "international/uni-decimal.el" @@ -33427,7 +33543,7 @@ ;;;;;; "vc/ediff-ptch.el" "vc/ediff-vers.el" "vc/ediff-wind.el" ;;;;;; "vc/pcvs-info.el" "vc/pcvs-parse.el" "vc/pcvs-util.el" "vc/vc-dav.el" ;;;;;; "vcursor.el" "vt-control.el" "vt100-led.el" "w32-fns.el" -;;;;;; "w32-vars.el" "x-dnd.el") (20405 43528 205053)) +;;;;;; "w32-vars.el" "x-dnd.el") (20424 38645 32667)) ;;;*** ------------------------------------------------------------ revno: 108442 fixes bug(s): http://debbugs.gnu.org/11598 author: Andrew Beals committer: Glenn Morris branch nick: trunk timestamp: Fri 2012-06-01 00:10:49 -0700 message: * etc/spook.lines: Additions. (tiny change) diff: === modified file 'etc/ChangeLog' --- etc/ChangeLog 2012-05-31 05:08:37 +0000 +++ etc/ChangeLog 2012-06-01 07:10:49 +0000 @@ -1,3 +1,7 @@ +2012-06-01 Andrew Beals (tiny change) + + * spook.lines: Additions. (Bug#11598) + 2012-05-31 Paul Eggert * PROBLEMS: Remove obsolete '#define static' cruft. === modified file 'etc/spook.lines' Binary files etc/spook.lines 2006-05-21 22:06:18 +0000 and etc/spook.lines 2012-06-01 07:10:49 +0000 differ ------------------------------------------------------------ revno: 108441 committer: Dmitry Antipov branch nick: trunk timestamp: Fri 2012-06-01 07:41:03 +0400 message: For a 'struct window', replace some Lisp_Object fields to bitfields where appropriate, remove unused fields. * window.h (struct window): Remove unused 'last_mark_x' and 'last_mark_y' fields. Rename 'mini_p' field to 'mini', change it's type from Lisp_Object to bitfield. Change type of 'force_start', 'optional_new_start', 'last_had_star', 'update_mode_line' and 'start_at_line_beg' fields from Lisp_Object to bitfield. Adjust users accordingly. diff: === modified file 'src/ChangeLog' --- src/ChangeLog 2012-05-31 07:22:33 +0000 +++ src/ChangeLog 2012-06-01 03:41:03 +0000 @@ -1,3 +1,14 @@ +2012-06-01 Dmitry Antipov + + For a 'struct window', replace some Lisp_Object fields to + bitfields where appropriate, remove unused fields. + * window.h (struct window): Remove unused 'last_mark_x' and + 'last_mark_y' fields. Rename 'mini_p' field to 'mini', + change it's type from Lisp_Object to bitfield. + Change type of 'force_start', 'optional_new_start', + 'last_had_star', 'update_mode_line' and 'start_at_line_beg' + fields from Lisp_Object to bitfield. Adjust users accordingly. + 2012-05-31 Paul Eggert Pacify gcc -Wdouble-precision when using Xaw. === modified file 'src/fileio.c' --- src/fileio.c 2012-05-25 18:19:24 +0000 +++ src/fileio.c 2012-06-01 03:41:03 +0000 @@ -3735,7 +3735,7 @@ /* If display currently starts at beginning of line, keep it that way. */ if (XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer) - XWINDOW (selected_window)->start_at_line_beg = Fbolp (); + XWINDOW (selected_window)->start_at_line_beg = !NILP (Fbolp ()); replace_handled = 1; } @@ -3892,7 +3892,7 @@ /* If display currently starts at beginning of line, keep it that way. */ if (XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer) - XWINDOW (selected_window)->start_at_line_beg = Fbolp (); + XWINDOW (selected_window)->start_at_line_beg = !NILP (Fbolp ()); /* Replace the chars that we need to replace, and update INSERTED to equal the number of bytes === modified file 'src/frame.c' --- src/frame.c 2012-04-09 22:54:59 +0000 +++ src/frame.c 2012-06-01 03:41:03 +0000 @@ -331,7 +331,7 @@ mini_window = make_window (); XWINDOW (root_window)->next = mini_window; XWINDOW (mini_window)->prev = root_window; - XWINDOW (mini_window)->mini_p = Qt; + XWINDOW (mini_window)->mini = 1; XWINDOW (mini_window)->frame = frame; f->minibuffer_window = mini_window; } @@ -480,7 +480,7 @@ as nil. */ mini_window = f->minibuffer_window = f->root_window; - XWINDOW (mini_window)->mini_p = Qt; + XWINDOW (mini_window)->mini = 1; XWINDOW (mini_window)->next = Qnil; XWINDOW (mini_window)->prev = Qnil; XWINDOW (mini_window)->frame = frame; === modified file 'src/keyboard.c' --- src/keyboard.c 2012-05-25 18:19:24 +0000 +++ src/keyboard.c 2012-06-01 03:41:03 +0000 @@ -1484,10 +1484,10 @@ from that position. But also throw away beg_unchanged and end_unchanged information in that case, so that redisplay will update the whole window properly. */ - if (!NILP (XWINDOW (selected_window)->force_start)) + if (XWINDOW (selected_window)->force_start) { struct buffer *b; - XWINDOW (selected_window)->force_start = Qnil; + XWINDOW (selected_window)->force_start = 0; b = XBUFFER (XWINDOW (selected_window)->buffer); BUF_BEG_UNCHANGED (b) = BUF_END_UNCHANGED (b) = 0; } === modified file 'src/window.c' --- src/window.c 2012-05-25 18:19:24 +0000 +++ src/window.c 2012-06-01 03:41:03 +0000 @@ -1393,10 +1393,10 @@ CHECK_NUMBER_COERCE_MARKER (pos); set_marker_restricted (w->start, pos, w->buffer); /* this is not right, but much easier than doing what is right. */ - w->start_at_line_beg = Qnil; + w->start_at_line_beg = 0; if (NILP (noforce)) - w->force_start = Qt; - w->update_mode_line = Qt; + w->force_start = 1; + w->update_mode_line = 1; XSETFASTINT (w->last_modified, 0); XSETFASTINT (w->last_overlay_modified, 0); if (!EQ (window, selected_window)) @@ -2472,7 +2472,7 @@ if (EQ (w->buffer, obj)) { mark_window_display_accurate (window, 0); - w->update_mode_line = Qt; + w->update_mode_line = 1; XBUFFER (obj)->prevent_redisplay_optimizations_p = 1; ++update_mode_lines; best_window = window; @@ -2771,12 +2771,11 @@ set_marker_both (w->start, w->buffer, pos.bufpos, pos.bytepos); w->window_end_valid = Qnil; - w->start_at_line_beg = ((pos.bytepos == BEGV_BYTE - || FETCH_BYTE (pos.bytepos - 1) == '\n') ? Qt - : Qnil); + w->start_at_line_beg = (pos.bytepos == BEGV_BYTE + || FETCH_BYTE (pos.bytepos - 1) == '\n'); /* We need to do this, so that the window-scroll-functions get called. */ - w->optional_new_start = Qt; + w->optional_new_start = 1; set_buffer_internal (obuf); } @@ -3006,8 +3005,8 @@ set_marker_restricted (w->start, make_number (b->last_window_start), buffer); - w->start_at_line_beg = Qnil; - w->force_start = Qnil; + w->start_at_line_beg = 0; + w->force_start = 0; XSETFASTINT (w->last_modified, 0); XSETFASTINT (w->last_overlay_modified, 0); } @@ -3143,7 +3142,7 @@ { struct window *w = XWINDOW (object); mark_window_display_accurate (object, 0); - w->update_mode_line = Qt; + w->update_mode_line = 1; if (BUFFERP (w->buffer)) XBUFFER (w->buffer)->prevent_redisplay_optimizations_p = 1; ++update_mode_lines; @@ -3275,7 +3274,8 @@ w = allocate_window (); /* Initialize all Lisp data. */ - w->frame = w->mini_p = Qnil; + w->frame = Qnil; + w->mini = 0; w->next = w->prev = w->hchild = w->vchild = w->parent = Qnil; XSETFASTINT (w->left_col, 0); XSETFASTINT (w->top_line, 0); @@ -3288,7 +3288,7 @@ w->buffer = Qnil; w->start = Fmake_marker (); w->pointm = Fmake_marker (); - w->force_start = w->optional_new_start = Qnil; + w->force_start = w->optional_new_start = 0; XSETFASTINT (w->hscroll, 0); XSETFASTINT (w->min_hscroll, 0); XSETFASTINT (w->use_time, 0); @@ -3296,17 +3296,18 @@ XSETFASTINT (w->sequence_number, sequence_number); w->temslot = w->last_modified = w->last_overlay_modified = Qnil; XSETFASTINT (w->last_point, 0); - w->last_had_star = w->vertical_scroll_bar = Qnil; + w->last_had_star = 0; + w->vertical_scroll_bar = Qnil; w->left_margin_cols = w->right_margin_cols = Qnil; w->left_fringe_width = w->right_fringe_width = Qnil; w->fringes_outside_margins = Qnil; w->scroll_bar_width = Qnil; w->vertical_scroll_bar_type = Qt; - w->last_mark_x = w->last_mark_y = Qnil; XSETFASTINT (w->window_end_pos, 0); XSETFASTINT (w->window_end_vpos, 0); - w->window_end_valid = w->update_mode_line = Qnil; - w->start_at_line_beg = w->display_table = w->dedicated = Qnil; + w->window_end_valid = w->display_table = Qnil; + w->update_mode_line = w->start_at_line_beg = 0; + w->dedicated = Qnil; w->base_line_number = w->base_line_pos = w->region_showing = Qnil; w->column_number_displayed = w->redisplay_end_trigger = Qnil; w->combination_limit = w->window_parameters = Qnil; @@ -4305,13 +4306,13 @@ spos = min (XINT (Fline_end_position (Qnil)) + 1, ZV); set_marker_restricted (w->start, make_number (spos), w->buffer); - w->start_at_line_beg = Qt; - w->update_mode_line = Qt; + w->start_at_line_beg = 1; + w->update_mode_line = 1; XSETFASTINT (w->last_modified, 0); XSETFASTINT (w->last_overlay_modified, 0); /* Set force_start so that redisplay_window will run the window-scroll-functions. */ - w->force_start = Qt; + w->force_start = 1; return; } } @@ -4451,14 +4452,13 @@ set_marker_restricted (w->start, make_number (pos), w->buffer); bytepos = XMARKER (w->start)->bytepos; - w->start_at_line_beg = ((pos == BEGV || FETCH_BYTE (bytepos - 1) == '\n') - ? Qt : Qnil); - w->update_mode_line = Qt; + w->start_at_line_beg = (pos == BEGV || FETCH_BYTE (bytepos - 1) == '\n'); + w->update_mode_line = 1; XSETFASTINT (w->last_modified, 0); XSETFASTINT (w->last_overlay_modified, 0); /* Set force_start so that redisplay_window will run the window-scroll-functions. */ - w->force_start = Qt; + w->force_start = 1; } /* The rest of this function uses current_y in a nonstandard way, @@ -4651,13 +4651,13 @@ max (0, min (scroll_margin, XINT (w->total_lines) / 4)); set_marker_restricted_both (w->start, w->buffer, pos, pos_byte); - w->start_at_line_beg = bolp; - w->update_mode_line = Qt; + w->start_at_line_beg = !NILP (bolp); + w->update_mode_line = 1; XSETFASTINT (w->last_modified, 0); XSETFASTINT (w->last_overlay_modified, 0); /* Set force_start so that redisplay_window will run the window-scroll-functions. */ - w->force_start = Qt; + w->force_start = 1; if (!NILP (Vscroll_preserve_screen_position) && (whole || !EQ (Vscroll_preserve_screen_position, Qt))) @@ -5201,12 +5201,10 @@ set_marker_both (w->start, w->buffer, charpos, bytepos); w->window_end_valid = Qnil; - w->optional_new_start = Qt; + w->optional_new_start = 1; - if (bytepos == BEGV_BYTE || FETCH_BYTE (bytepos - 1) == '\n') - w->start_at_line_beg = Qt; - else - w->start_at_line_beg = Qnil; + w->start_at_line_beg = (bytepos == BEGV_BYTE || + FETCH_BYTE (bytepos - 1) == '\n'); set_buffer_internal (obuf); return Qnil; @@ -5257,8 +5255,8 @@ int height = window_internal_height (w); Fvertical_motion (make_number (- (height / 2)), window); set_marker_both (w->start, w->buffer, PT, PT_BYTE); - w->start_at_line_beg = Fbolp (); - w->force_start = Qt; + w->start_at_line_beg = !NILP (Fbolp ()); + w->force_start = 1; } else Fgoto_char (w->start); @@ -5607,7 +5605,7 @@ /* If saved buffer is alive, install it. */ { w->buffer = p->buffer; - w->start_at_line_beg = p->start_at_line_beg; + w->start_at_line_beg = !NILP (p->start_at_line_beg); set_marker_restricted (w->start, p->start, w->buffer); set_marker_restricted (w->pointm, p->pointm, w->buffer); Fset_marker (BVAR (XBUFFER (w->buffer), mark), @@ -5632,7 +5630,7 @@ set_marker_restricted_both (w->pointm, w->buffer, BUF_PT (XBUFFER (w->buffer)), BUF_PT_BYTE (XBUFFER (w->buffer))); - w->start_at_line_beg = Qt; + w->start_at_line_beg = 1; } else if (STRINGP (auto_buffer_name = Fwindow_parameter (window, Qauto_buffer_name)) @@ -5641,7 +5639,7 @@ { set_marker_restricted (w->start, make_number (0), w->buffer); set_marker_restricted (w->pointm, make_number (0), w->buffer); - w->start_at_line_beg = Qt; + w->start_at_line_beg = 1; } else /* Window has no live buffer, get one. */ @@ -5655,7 +5653,7 @@ range. */ set_marker_restricted (w->start, make_number (0), w->buffer); set_marker_restricted (w->pointm, make_number (0), w->buffer); - w->start_at_line_beg = Qt; + w->start_at_line_beg = 1; if (!NILP (w->dedicated)) /* Record this window as dead. */ dead_windows = Fcons (window, dead_windows); @@ -5956,7 +5954,7 @@ = !NILP (Vwindow_point_insertion_type); p->start = Fcopy_marker (w->start, Qnil); - p->start_at_line_beg = w->start_at_line_beg; + p->start_at_line_beg = w->start_at_line_beg ? Qt : Qnil; tem = BVAR (XBUFFER (w->buffer), mark); p->mark = Fcopy_marker (tem, Qnil); === modified file 'src/window.h' --- src/window.h 2012-05-24 06:13:51 +0000 +++ src/window.h 2012-06-01 03:41:03 +0000 @@ -94,9 +94,6 @@ /* The frame this window is on. */ Lisp_Object frame; - /* t if this window is a minibuffer window. */ - Lisp_Object mini_p; - /* Following (to right or down) and preceding (to left or up) child at same level of tree. */ Lisp_Object next, prev; @@ -144,15 +141,6 @@ each one can have its own value of point. */ Lisp_Object pointm; - /* Non-nil means next redisplay must use the value of start - set up for it in advance. Set by scrolling commands. */ - Lisp_Object force_start; - /* Non-nil means we have explicitly changed the value of start, - but that the next redisplay is not obliged to use the new value. - This is used in Fdelete_other_windows to force a call to - Vwindow_scroll_functions; also by Frecenter with argument. */ - Lisp_Object optional_new_start; - /* Number of columns display within the window is scrolled to the left. */ Lisp_Object hscroll; /* Minimum hscroll for automatic hscrolling. This is the value @@ -176,9 +164,6 @@ Lisp_Object last_overlay_modified; /* Value of point at that time. */ Lisp_Object last_point; - /* Non-nil if the buffer was "modified" when the window - was last updated. */ - Lisp_Object last_had_star; /* This window's vertical scroll bar. This field is only for use by the window-system-dependent code which implements the @@ -206,11 +191,6 @@ no scroll bar. A value of t means use frame value. */ Lisp_Object vertical_scroll_bar_type; - /* Frame coords of mark as of last time display completed */ - /* May be nil if mark does not exist or was not on frame */ - Lisp_Object last_mark_x; - Lisp_Object last_mark_y; - /* Z - the buffer position of the last glyph in the current matrix of W. Only valid if WINDOW_END_VALID is not nil. */ Lisp_Object window_end_pos; @@ -223,18 +203,13 @@ did not get onto the frame. */ Lisp_Object window_end_valid; - /* Non-nil means must regenerate mode line of this window */ - Lisp_Object update_mode_line; - - /* Non-nil means current value of `start' - was the beginning of a line when it was chosen. */ - Lisp_Object start_at_line_beg; - /* Display-table to use for displaying chars in this window. Nil means use the buffer's own display-table. */ Lisp_Object display_table; - /* Non-nil means window is marked as dedicated. */ + /* Non-nil usually means window is marked as dedicated. + Note Lisp code may set this to something beyond Qnil + and Qt, so bitfield can't be used here. */ Lisp_Object dedicated; /* Line number and position of a line somewhere above the top of the @@ -302,6 +277,30 @@ /* This is handy for undrawing the cursor. */ int phys_cursor_ascent, phys_cursor_height; + /* Non-zero if this window is a minibuffer window. */ + unsigned mini : 1; + + /* Non-zero means must regenerate mode line of this window */ + unsigned update_mode_line : 1; + + /* Non-nil if the buffer was "modified" when the window + was last updated. */ + unsigned last_had_star : 1; + + /* Non-zero means current value of `start' + was the beginning of a line when it was chosen. */ + unsigned start_at_line_beg : 1; + + /* Non-zero means next redisplay must use the value of start + set up for it in advance. Set by scrolling commands. */ + unsigned force_start : 1; + + /* Non-zero means we have explicitly changed the value of start, + but that the next redisplay is not obliged to use the new value. + This is used in Fdelete_other_windows to force a call to + Vwindow_scroll_functions; also by Frecenter with argument. */ + unsigned optional_new_start : 1; + /* Non-zero means the cursor is currently displayed. This can be set to zero by functions overpainting the cursor image. */ unsigned phys_cursor_on_p : 1; @@ -337,7 +336,7 @@ /* 1 if W is a minibuffer window. */ -#define MINI_WINDOW_P(W) (!NILP ((W)->mini_p)) +#define MINI_WINDOW_P(W) ((W)->mini) /* General window layout: === modified file 'src/xdisp.c' --- src/xdisp.c 2012-05-31 06:06:42 +0000 +++ src/xdisp.c 2012-06-01 03:41:03 +0000 @@ -11169,7 +11169,7 @@ || update_mode_lines || ((BUF_SAVE_MODIFF (XBUFFER (w->buffer)) < BUF_MODIFF (XBUFFER (w->buffer))) - != !NILP (w->last_had_star)) + != w->last_had_star) || ((!NILP (Vtransient_mark_mode) && !NILP (BVAR (XBUFFER (w->buffer), mark_active))) != !NILP (w->region_showing))) @@ -11221,11 +11221,11 @@ else /* On a terminal screen, the menu bar is an ordinary screen line, and this makes it get updated. */ - w->update_mode_line = Qt; + w->update_mode_line = 1; #else /* ! (USE_X_TOOLKIT || HAVE_NTGUI || HAVE_NS || USE_GTK) */ /* In the non-toolkit version, the menu bar is an ordinary screen line, and this makes it get updated. */ - w->update_mode_line = Qt; + w->update_mode_line = 1; #endif /* ! (USE_X_TOOLKIT || HAVE_NTGUI || HAVE_NS || USE_GTK) */ unbind_to (count, Qnil); @@ -11363,11 +11363,11 @@ the rest of the redisplay algorithm is about the same as windows_or_buffers_changed anyway. */ if (windows_or_buffers_changed - || !NILP (w->update_mode_line) + || w->update_mode_line || update_mode_lines || ((BUF_SAVE_MODIFF (XBUFFER (w->buffer)) < BUF_MODIFF (XBUFFER (w->buffer))) - != !NILP (w->last_had_star)) + != w->last_had_star) || ((!NILP (Vtransient_mark_mode) && !NILP (BVAR (XBUFFER (w->buffer), mark_active))) != !NILP (w->region_showing))) @@ -11418,7 +11418,7 @@ BLOCK_INPUT; f->tool_bar_items = new_tool_bar; f->n_tool_bar_items = new_n_tool_bar; - w->update_mode_line = Qt; + w->update_mode_line = 1; UNBLOCK_INPUT; } @@ -12967,9 +12967,9 @@ update_mode_lines++; /* Detect case that we need to write or remove a star in the mode line. */ - if ((SAVE_MODIFF < MODIFF) != !NILP (w->last_had_star)) + if ((SAVE_MODIFF < MODIFF) != w->last_had_star) { - w->update_mode_line = Qt; + w->update_mode_line = 1; if (buffer_shared > 1) update_mode_lines++; } @@ -12986,7 +12986,7 @@ && XFASTINT (w->last_modified) >= MODIFF && XFASTINT (w->last_overlay_modified) >= OVERLAY_MODIFF) && (XFASTINT (w->column_number_displayed) != current_column ())) - w->update_mode_line = Qt; + w->update_mode_line = 1; unbind_to (count1, Qnil); @@ -13089,7 +13089,7 @@ tlendpos = this_line_end_pos; if (!consider_all_windows_p && CHARPOS (tlbufpos) > 0 - && NILP (w->update_mode_line) + && !w->update_mode_line && !current_buffer->clip_changed && !current_buffer->prevent_redisplay_optimizations_p && FRAME_VISIBLE_P (XFRAME (w->frame)) @@ -13097,8 +13097,8 @@ /* Make sure recorded data applies to current buffer, etc. */ && this_line_buffer == current_buffer && current_buffer == XBUFFER (w->buffer) - && NILP (w->force_start) - && NILP (w->optional_new_start) + && !w->force_start + && !w->optional_new_start /* Point must be on the line that we have info recorded about. */ && PT >= CHARPOS (tlbufpos) && PT <= Z - CHARPOS (tlendpos) @@ -13633,7 +13633,7 @@ w->last_overlay_modified = make_number (accurate_p ? BUF_OVERLAY_MODIFF (b) : 0); w->last_had_star - = BUF_MODIFF (b) > BUF_SAVE_MODIFF (b) ? Qt : Qnil; + = BUF_MODIFF (b) > BUF_SAVE_MODIFF (b); if (accurate_p) { @@ -13662,7 +13662,7 @@ if (accurate_p) { w->window_end_valid = w->buffer; - w->update_mode_line = Qnil; + w->update_mode_line = 0; } } @@ -15291,7 +15291,7 @@ reconsider_clip_changes (w, buffer); /* Has the mode line to be updated? */ - update_mode_line = (!NILP (w->update_mode_line) + update_mode_line = (w->update_mode_line || update_mode_lines || buffer->clip_changed || buffer->prevent_redisplay_optimizations_p); @@ -15463,32 +15463,31 @@ /* If someone specified a new starting point but did not insist, check whether it can be used. */ - if (!NILP (w->optional_new_start) + if (w->optional_new_start && CHARPOS (startp) >= BEGV && CHARPOS (startp) <= ZV) { - w->optional_new_start = Qnil; + w->optional_new_start = 0; start_display (&it, w, startp); move_it_to (&it, PT, 0, it.last_visible_y, -1, MOVE_TO_POS | MOVE_TO_X | MOVE_TO_Y); if (IT_CHARPOS (it) == PT) - w->force_start = Qt; + w->force_start = 1; /* IT may overshoot PT if text at PT is invisible. */ else if (IT_CHARPOS (it) > PT && CHARPOS (startp) <= PT) - w->force_start = Qt; + w->force_start = 1; } force_start: /* Handle case where place to start displaying has been specified, unless the specified location is outside the accessible range. */ - if (!NILP (w->force_start) - || w->frozen_window_start_p) + if (w->force_start || w->frozen_window_start_p) { /* We set this later on if we have to adjust point. */ int new_vpos = -1; - w->force_start = Qnil; + w->force_start = 0; w->vscroll = 0; w->window_end_valid = Qnil; @@ -15507,7 +15506,7 @@ || ! NILP (Vwindow_scroll_functions)) { update_mode_line = 1; - w->update_mode_line = Qt; + w->update_mode_line = 1; startp = run_window_scroll_functions (window, startp); } @@ -15525,7 +15524,7 @@ the scroll margin (bug#148) -- cyd */ if (!try_window (window, startp, 0)) { - w->force_start = Qt; + w->force_start = 1; clear_glyph_matrix (w->desired_matrix); goto need_larger_matrices; } @@ -15604,7 +15603,7 @@ } /* If current starting point was originally the beginning of a line but no longer is, find a new starting point. */ - else if (!NILP (w->start_at_line_beg) + else if (w->start_at_line_beg && !(CHARPOS (startp) <= BEGV || FETCH_BYTE (BYTEPOS (startp) - 1) == '\n')) { @@ -15651,7 +15650,7 @@ new window start, since that would change the position under the mouse, resulting in an unwanted mouse-movement rather than a simple mouse-click. */ - if (NILP (w->start_at_line_beg) + if (!w->start_at_line_beg && NILP (do_mouse_tracking) && CHARPOS (startp) > BEGV && CHARPOS (startp) > BEG + beg_unchanged @@ -15671,7 +15670,7 @@ See bug#9324. */ && pos_visible_p (w, PT, &d1, &d2, &d3, &d4, &d5, &d6)) { - w->force_start = Qt; + w->force_start = 1; SET_TEXT_POS_FROM_MARKER (startp, w->start); goto force_start; } @@ -15732,7 +15731,7 @@ if (!update_mode_line) { update_mode_line = 1; - w->update_mode_line = Qt; + w->update_mode_line = 1; } /* Try to scroll by specified few lines. */ @@ -15987,9 +15986,8 @@ done: SET_TEXT_POS_FROM_MARKER (startp, w->start); - w->start_at_line_beg = ((CHARPOS (startp) == BEGV - || FETCH_BYTE (BYTEPOS (startp) - 1) == '\n') - ? Qt : Qnil); + w->start_at_line_beg = (CHARPOS (startp) == BEGV + || FETCH_BYTE (BYTEPOS (startp) - 1) == '\n'); /* Display the mode line, if we must. */ if ((update_mode_line @@ -16206,7 +16204,7 @@ /* If bottom moved off end of frame, change mode line percentage. */ if (XFASTINT (w->window_end_pos) <= 0 && Z != IT_CHARPOS (it)) - w->update_mode_line = Qt; + w->update_mode_line = 1; /* Set window_end_pos to the offset of the last character displayed on the window from the end of current_buffer. Set === modified file 'src/xfns.c' --- src/xfns.c 2012-05-31 05:08:37 +0000 +++ src/xfns.c 2012-06-01 03:41:03 +0000 @@ -1207,7 +1207,7 @@ FRAME_EXTERNAL_MENU_BAR (f) = 1; if (FRAME_X_P (f) && f->output_data.x->menubar_widget == 0) /* Make sure next redisplay shows the menu bar. */ - XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt; + XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = 1; } else {