commit 0245cc374015a67f5c17fec1342c8a35cbd41779 (HEAD, refs/remotes/origin/master) Author: Martin Rudalics Date: Thu Jul 2 09:03:45 2015 +0200 Improve accessibility of window dividers. (Bug#20183) * lisp/faces.el (window-divider) (window-divider-first-pixel, window-divider-last-pixel): Change membership from `frames' to `window-divider' customization group. * lisp/frame.el (window-divider): New customization group. (window-divider-mode): New minor mode. (window-divider-default-bottom-width) (window-divider-default-right-width): New options. (frame--window-divider-previous-mode): New variable. (frame-window-divider-width-valid-p) (frame--window-divider-mode-apply) (frame--window-divider-mode-set-and-apply): New functions. * lisp/menu-bar.el (menu-bar-options-save): Save window-divider-mode settings. (menu-bar-window-divider-customize) (menu-bar-bottom-and-right-window-divider) (menu-bar-right-window-divider, menu-bar-bottom-window-divider) (menu-bar-no-window-divider): New functions. (menu-bar-showhide-window-divider-menu): New variable. (menu-bar-showhide-menu): Show/hide window divider menu. * lisp/mouse.el (mouse-split-window-vertically) (mouse-split-window-horizontally): Replace `error' by `user-error'. Bind `window-combination-resize' to nil. (top-level): Add/reorder mouse key bindings on mode- and vertical-line. diff --git a/lisp/faces.el b/lisp/faces.el index 9857a7b..511b354 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2506,7 +2506,7 @@ is used for the inner part while the first pixel line/column is drawn with the `window-divider-first-pixel' face and the last pixel line/column with the `window-divider-last-pixel' face." :version "24.4" - :group 'frames + :group 'window-divider :group 'basic-faces) (defface window-divider-first-pixel @@ -2517,7 +2517,7 @@ line/column is drawn with the foreground of this face. If you do not want to accentuate the first pixel line/column, set this to the same as `window-divider' face." :version "24.4" - :group 'frames + :group 'window-divider :group 'basic-faces) (defface window-divider-last-pixel @@ -2528,7 +2528,7 @@ line/column is drawn with the foreground of this face. If you do not want to accentuate the last pixel line/column, set this to the same as `window-divider' face." :version "24.4" - :group 'frames + :group 'window-divider :group 'basic-faces) (defface minibuffer-prompt diff --git a/lisp/frame.el b/lisp/frame.el index 077687e..ffa01b4 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1749,6 +1749,134 @@ left untouched. FRAME nil or omitted means use the selected frame." 'delete-frame-functions "22.1") +;;; Window dividers. +(defgroup window-divider nil + "Window dividers." + :version "25.1" + :group 'frames + :group 'windows) + +(defvar frame--window-divider-previous-mode nil + "Previous value of `window-divider-mode'. +This is the value seen when `window-divider-mode' was switched +off the last time. It's reused when `window-divider-mode' is +switched on again.") + +(defcustom window-divider-mode nil + "Specify whether to display window dividers and where. +Possible values are nil (no dividers), `bottom-only' (dividers on +the bottom of each window only), `right-only' (dividers on the +right of each window only), and t (dividers on the bottom and on +the right of each window)." + :type '(choice (const :tag "None (nil)" nil) + (const :tag "Bottom only" bottom-only) + (const :tag "Right only" right-only) + (const :tag "Bottom and right" t)) + :initialize 'custom-initialize-default + :set (lambda (_symbol value) + (frame--window-divider-mode-set-and-apply value)) + :group 'window-divider + :version "25.1") + +(define-minor-mode window-divider-mode + "Display dividers between windows (Window Divider mode). +With a prefix argument ARG, enable Window Divider mode if ARG is +positive, and disable it otherwise. If called from Lisp, enable +the mode if ARG is omitted or nil. + +The option `window-divider-default-width' allows to customize the +width of dividers displayed by this mode." + :group 'window-divider + :global t + :variable (window-divider-mode + . (lambda (value) + (frame--window-divider-mode-set-and-apply + (and value + (or frame--window-divider-previous-mode + (default-value 'window-divider-mode) + 'right-only)))))) + +(defun frame-window-divider-width-valid-p (value) + "Return non-nil if VALUE is a positive number." + (and (numberp value) (> value 0))) + +(defcustom window-divider-default-bottom-width 6 + "Default width of dividers on bottom of windows. +The value must be a positive integer and takes effect when bottom +dividers are displayed by `window-divider-mode'. + +To adjust bottom dividers for frames individually, use the frame +parameter `bottom-divider-width'." + :type '(restricted-sexp + :tag "Default bottom divider width" + :match-alternatives (frame-window-divider-width-valid-p)) + :group 'window-divider + :initialize 'custom-initialize-default + :set (lambda (symbol value) + (set-default symbol value) + (when window-divider-mode + (frame--window-divider-mode-apply))) + :version "25.1") + +(defcustom window-divider-default-right-width 6 + "Default width of dividers on the right of windows. +The value must be a positive integer and takes effect when right +dividers are displayed by `window-divider-mode'. + +To adjust right dividers for frames individually, use the frame +parameter `right-divider-width'." + :type '(restricted-sexp + :tag "Default right divider width" + :match-alternatives (frame-window-divider-width-valid-p)) + :group 'window-divider + :initialize 'custom-initialize-default + :set (lambda (symbol value) + (set-default symbol value) + (when window-divider-mode + (frame--window-divider-mode-apply))) + :version "25.1") + +(defun frame--window-divider-mode-apply () + "Apply window divider widths." + (let ((bottom (if (memq window-divider-mode '(bottom-only t)) + window-divider-default-bottom-width + 0)) + (right (if (memq window-divider-mode '(right-only t)) + window-divider-default-right-width + 0))) + (modify-all-frames-parameters + (list (cons 'bottom-divider-width bottom) + (cons 'right-divider-width right))) + (setq default-frame-alist + (assq-delete-all + 'bottom-divider-width default-frame-alist)) + (setq default-frame-alist + (assq-delete-all + 'right-divider-width default-frame-alist)) + (when (> bottom 0) + (setq default-frame-alist + (cons + (cons 'bottom-divider-width bottom) + default-frame-alist))) + (when (> right 0) + (setq default-frame-alist + (cons + (cons 'right-divider-width right) + default-frame-alist))))) + +(defun frame--window-divider-mode-set-and-apply (value) + "Set window divider mode to VALUE and apply widths." + (unless value + ;; Remember current mode. + (setq frame--window-divider-previous-mode window-divider-mode)) + (set-default 'window-divider-mode value) + ;; Pacify customize rigmarole. + (put 'window-divider-mode 'customized-value + (if (memq value '(nil t)) + (list value) + (list (list 'quote value)))) + (frame--window-divider-mode-apply)) + ;; Blinking cursor (defgroup cursor nil diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 22a0b8f..5a69084 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -683,7 +683,7 @@ by \"Save Options\" in Custom buffers.") (dolist (elt '(scroll-bar-mode debug-on-quit debug-on-error ;; Somehow this works, when tool-bar and menu-bar don't. - tooltip-mode + tooltip-mode window-divider-mode save-place uniquify-buffer-name-style fringe-mode indicate-empty-lines indicate-buffer-boundaries case-fold-search font-use-system-font @@ -711,6 +711,92 @@ by \"Save Options\" in Custom buffers.") ;; The "Show/Hide" submenu of menu "Options" +(defun menu-bar-window-divider-customize () + "Show customization buffer for `window-divider' group." + (interactive) + (customize-group 'window-divider)) + +(defun menu-bar-bottom-and-right-window-divider () + "Display dividers on the bottom and right of each window." + (interactive) + (customize-set-variable 'window-divider-mode t)) + +(defun menu-bar-right-window-divider () + "Display dividers only on the right of each window." + (interactive) + (customize-set-variable 'window-divider-mode 'right-only)) + +(defun menu-bar-bottom-window-divider () + "Display dividers only at the bottom of each window." + (interactive) + (customize-set-variable 'window-divider-mode 'bottom-only)) + +(defun menu-bar-no-window-divider () + "Do not display window dividers." + (interactive) + (customize-set-variable 'window-divider-mode nil)) + +;; For the radio buttons below we check whether the respective dividers +;; are displayed on the selected frame. This is not fully congruent +;; with `window-divder-mode' but makes the menu entries work also when +;; dividers are displayed by manipulating frame parameters directly. +(defvar menu-bar-showhide-window-divider-menu + (let ((menu (make-sparse-keymap "Window Divider"))) + (bindings--define-key menu [customize] + '(menu-item "Customize" menu-bar-window-divider-customize + :help "Customize window dividers" + :visible (memq (window-system) '(x w32)))) + + (bindings--define-key menu [bottom-and-right] + '(menu-item "Bottom and Right" + menu-bar-bottom-and-right-window-divider + :help "Display window divider on the bottom and right of each window" + :visible (memq (window-system) '(x w32)) + :button (:radio + . (and (frame-window-divider-width-valid-p + (cdr (assq 'bottom-divider-width + (frame-parameters)))) + (frame-window-divider-width-valid-p + (cdr (assq 'right-divider-width + (frame-parameters)))))))) + (bindings--define-key menu [right-only] + '(menu-item "Right Only" + menu-bar-right-window-divider + :help "Display window divider on the right of each window only" + :visible (memq (window-system) '(x w32)) + :button (:radio + . (and (not (frame-window-divider-width-valid-p + (cdr (assq 'bottom-divider-width + (frame-parameters))))) + (frame-window-divider-width-valid-p + (cdr (assq 'right-divider-width + (frame-parameters)))))))) + (bindings--define-key menu [bottom-only] + '(menu-item "Bottom Only" + menu-bar-bottom-window-divider + :help "Display window divider on the bottom of each window only" + :visible (memq (window-system) '(x w32)) + :button (:radio + . (and (frame-window-divider-width-valid-p + (cdr (assq 'bottom-divider-width + (frame-parameters)))) + (not (frame-window-divider-width-valid-p + (cdr (assq 'right-divider-width + (frame-parameters))))))))) + (bindings--define-key menu [no-divider] + '(menu-item "None" + menu-bar-no-window-divider + :help "Do not display window dividers" + :visible (memq (window-system) '(x w32)) + :button (:radio + . (and (not (frame-window-divider-width-valid-p + (cdr (assq 'bottom-divider-width + (frame-parameters))))) + (not (frame-window-divider-width-valid-p + (cdr (assq 'right-divider-width + (frame-parameters))))))))) + menu)) + (defun menu-bar-showhide-fringe-ind-customize () "Show customization buffer for `indicate-buffer-boundaries'." (interactive) @@ -1072,6 +1158,10 @@ mail status in mode line")) (frame-visible-p (symbol-value 'speedbar-frame)))))) + (bindings--define-key menu [showhide-window-divider] + `(menu-item "Window Divider" ,menu-bar-showhide-window-divider-menu + :visible (memq (window-system) '(x w32)))) + (bindings--define-key menu [showhide-fringe] `(menu-item "Fringe" ,menu-bar-showhide-fringe-menu :visible (display-graphic-p))) diff --git a/lisp/mouse.el b/lisp/mouse.el index 9bb00cb..221d30b 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -338,9 +338,12 @@ This command must be bound to a mouse click." (first-line window-min-height) (last-line (- (window-height) window-min-height))) (if (< last-line first-line) - (error "Window too short to split") - (split-window-vertically - (min (max new-height first-line) last-line)))))) + (user-error "Window too short to split") + ;; Bind `window-combination-resize' to nil so we are sure to get + ;; the split right at the line clicked on. + (let (window-combination-resize) + (split-window-vertically + (min (max new-height first-line) last-line))))))) (defun mouse-split-window-horizontally (click) "Select Emacs window mouse is on, then split it horizontally in half. @@ -354,9 +357,12 @@ This command must be bound to a mouse click." (first-col window-min-width) (last-col (- (window-width) window-min-width))) (if (< last-col first-col) - (error "Window too narrow to split") - (split-window-horizontally - (min (max new-width first-col) last-col)))))) + (user-error "Window too narrow to split") + ;; Bind `window-combination-resize' to nil so we are sure to get + ;; the split right at the column clicked on. + (let (window-combination-resize) + (split-window-horizontally + (min (max new-width first-col) last-col))))))) (defun mouse-drag-line (start-event line) "Drag a mode line, header line, or vertical line with the mouse. @@ -1915,20 +1921,25 @@ choose a font." ;; vertical-line prevents Emacs from signaling an error when the mouse ;; button is released after dragging these lines, on non-toolkit ;; versions. -(global-set-key [mode-line mouse-1] 'mouse-select-window) -(global-set-key [mode-line drag-mouse-1] 'mouse-select-window) -(global-set-key [mode-line down-mouse-1] 'mouse-drag-mode-line) (global-set-key [header-line down-mouse-1] 'mouse-drag-header-line) (global-set-key [header-line mouse-1] 'mouse-select-window) +;; (global-set-key [mode-line drag-mouse-1] 'mouse-select-window) +(global-set-key [mode-line down-mouse-1] 'mouse-drag-mode-line) +(global-set-key [mode-line mouse-1] 'mouse-select-window) (global-set-key [mode-line mouse-2] 'mouse-delete-other-windows) (global-set-key [mode-line mouse-3] 'mouse-delete-window) (global-set-key [mode-line C-mouse-2] 'mouse-split-window-horizontally) (global-set-key [vertical-scroll-bar C-mouse-2] 'mouse-split-window-vertically) -(global-set-key [vertical-line C-mouse-2] 'mouse-split-window-vertically) +(global-set-key [horizontal-scroll-bar C-mouse-2] 'mouse-split-window-horizontally) (global-set-key [vertical-line down-mouse-1] 'mouse-drag-vertical-line) +(global-set-key [vertical-line mouse-1] 'mouse-select-window) +(global-set-key [vertical-line C-mouse-2] 'mouse-split-window-vertically) (global-set-key [right-divider down-mouse-1] 'mouse-drag-vertical-line) +(global-set-key [right-divider mouse-1] 'ignore) +(global-set-key [right-divider C-mouse-2] 'mouse-split-window-vertically) (global-set-key [bottom-divider down-mouse-1] 'mouse-drag-mode-line) -(global-set-key [vertical-line mouse-1] 'mouse-select-window) +(global-set-key [bottom-divider mouse-1] 'ignore) +(global-set-key [bottom-divider C-mouse-2] 'mouse-split-window-horizontally) (provide 'mouse) commit bb35a21c0e8a4b82ac04fa26a53f6ca394afbb24 Author: Paul Eggert Date: Wed Jul 1 22:24:51 2015 -0700 Don't display ‘’ as `' under X in en_GB The curved quote setup code invokes (char-displayable-p ?‘), but this isn’t reliable until after the X frame replaces the terminal frame (Bug#20926). * lisp/international/mule-cmds.el (set-locale-environment): Move curved quote setup code from here ... * lisp/startup.el (command-line): ... to here, after creating the X frame. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 248c89c..59fc37d 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2731,14 +2731,6 @@ See also `locale-charset-language-names', `locale-language-names', (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8))) - ;; If curved quotes don't work, display ASCII approximations. - (unless frame - (dolist (char-repl '((?‘ . [?\`]) (?’ . [?\']) (?“ . [?\"]) (?” . [?\"]))) - (when (not (char-displayable-p (car char-repl))) - (or standard-display-table - (setq standard-display-table (make-display-table))) - (aset standard-display-table (car char-repl) (cdr char-repl))))) - ;; Default to A4 paper if we're not in a C, POSIX or US locale. ;; (See comments in Flocale_info.) (unless frame diff --git a/lisp/startup.el b/lisp/startup.el index ab5a3a4..4f1e315 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1017,6 +1017,14 @@ please check its value") '("no" "off" "false" "0"))))) (setq no-blinking-cursor t)) + ;; If curved quotes don't work, display ASCII approximations. + (unless noninteractive + (dolist (char-repl '((?‘ . [?\`]) (?’ . [?\']) (?“ . [?\"]) (?” . [?\"]))) + (when (not (char-displayable-p (car char-repl))) + (or standard-display-table + (setq standard-display-table (make-display-table))) + (aset standard-display-table (car char-repl) (cdr char-repl))))) + ;; Re-evaluate predefined variables whose initial value depends on ;; the runtime context. (mapc 'custom-reevaluate-setting commit 145f28f814cc1d75cbabd91496d7b49c73f67994 Author: Nicolas Richard Date: Tue Jun 30 09:31:03 2015 +0200 * lisp/emacs-lisp/seq.el (seq-difference): Fix typo in docstring diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 68d40b9..9eed36e 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -279,7 +279,7 @@ Equality is defined by TESTFN if non-nil or by `equal' if nil." '())) (defun seq-difference (seq1 seq2 &optional testfn) - "Return a list of th elements that appear in SEQ1 but not in SEQ2. + "Return a list of the elements that appear in SEQ1 but not in SEQ2. Equality is defined by TESTFN if non-nil or by `equal' if nil." (seq-reduce (lambda (acc elt) (if (not (seq-contains-p seq2 elt testfn)) commit 2f020e82195d6870b45d24d0c46af6d92b31deca Author: Nicolas Richard Date: Tue Jun 30 09:18:27 2015 +0200 Add argument to reverse the meaning of ido-restrict-to-matches * lisp/ido.el (ido-restrict-to-matches): Add an optional argument to reverse the meaning (Bug#15631). ; * etc/NEWS: Mention the change. diff --git a/etc/NEWS b/etc/NEWS index 758d358..38a872d 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -398,6 +398,9 @@ If you need your objects to be named, do it by inheriting from `eieio-named'. *** New command `ido-bury-buffer-at-head' bound to C-S-b Bury the buffer at the head of `ido-matches', analogous to how C-k kills the buffer at head. +*** A prefix argument to `ido-restrict-to-matches' will reverse its +meaning, and the list is restricted to those elements that do not +match the current input. ** Minibuffer diff --git a/lisp/ido.el b/lisp/ido.el index 5995fcd..1f12fbf 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -322,6 +322,7 @@ ;;; Code: (defvar recentf-list) +(require 'seq) ;;;; Options @@ -3180,11 +3181,19 @@ for first matching file." (if (> i 0) (setq ido-cur-list (ido-chop ido-cur-list (nth i ido-matches))))))) -(defun ido-restrict-to-matches () - "Set current item list to the currently matched items." - (interactive) +(defun ido-restrict-to-matches (&optional removep) + "Set current item list to the currently matched items. + +When argument REMOVEP is non-nil, the currently matched items are +instead removed from the current item list." + (interactive "P") (when ido-matches - (setq ido-cur-list ido-matches + (setq ido-cur-list (if removep + ;; An important feature is to preserve the + ;; order of the elements. + (seq-difference ido-cur-list ido-matches) + ido-matches) + ido-matches ido-cur-list ido-text-init "" ido-rescan nil ido-exit 'keep) commit 7d5a7a43f1f6630b269fa7f7dc13e9c80181a709 Author: Eli Zaretskii Date: Wed Jul 1 19:33:56 2015 +0300 Be more tolerant to fonts named "Foobar-12" * src/frame.c (x_set_font): If font_spec_from_name returns nil, don't barf; instead, request a new fontset to be generated. This avoids unnecessarily rejecting fonts named against XLFD rules. See http://lists.gnu.org/archive/html/help-emacs-windows/2015-06/msg00001.html, for the description of the original problem. * lisp/faces.el (set-face-attribute): Don't be fooled too easily by a hyphen in a font's name. diff --git a/lisp/faces.el b/lisp/faces.el index ac6486e..9857a7b 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -753,7 +753,7 @@ is specified, `:italic' is ignored." (setq args (purecopy args)) (let ((where (if (null frame) 0 frame)) (spec args) - family foundry) + family foundry orig-family orig-foundry) ;; If we set the new-frame defaults, this face is modified outside Custom. (if (memq where '(0 t)) (put (or (get face 'face-alias) face) 'face-modified t)) @@ -769,9 +769,16 @@ is specified, `:italic' is ignored." (when (or family foundry) (when (and (stringp family) (string-match "\\([^-]*\\)-\\([^-]*\\)" family)) + (setq orig-foundry foundry + orig-family family) (unless foundry (setq foundry (match-string 1 family))) - (setq family (match-string 2 family))) + (setq family (match-string 2 family)) + ;; Reject bogus "families" that are all-digits -- those are some + ;; weird font names, like Foobar-12, that end in a number. + (when (string-match "\\`[0-9]*\\'" family) + (setq family orig-family) + (setq foundry orig-foundry))) (when (or (stringp family) (eq family 'unspecified)) (internal-set-lisp-face-attribute face :family (purecopy family) where)) diff --git a/src/frame.c b/src/frame.c index e3ad82f..9e69598 100644 --- a/src/frame.c +++ b/src/frame.c @@ -3607,10 +3607,12 @@ x_set_font (struct frame *f, Lisp_Object arg, Lisp_Object oldval) Lisp_Object ascii_font = fontset_ascii (fontset); Lisp_Object spec = font_spec_from_name (ascii_font); - if (NILP (spec)) - signal_error ("Invalid font name", ascii_font); - - if (! font_match_p (spec, font_object)) + /* SPEC might be nil because ASCII_FONT's name doesn't parse + according to stupid XLFD rules, which, for example, + disallow font names that include a dash followed by a + number. So in those cases we simply request x_new_font + below to generate a new fontset. */ + if (NILP (spec) || ! font_match_p (spec, font_object)) fontset = -1; } } commit 4c66103fb3ee13c39ba53659f00b2c569307f3e8 Author: Eli Zaretskii Date: Wed Jul 1 19:27:13 2015 +0300 Fix value of posn-at-pont in R2L lines * src/keyboard.c (Fposn_at_x_y, Fposn_at_point): Allow X pixel coordinate of -1, for a newline in a right-to-left line that overflowed into the left fringe. diff --git a/src/keyboard.c b/src/keyboard.c index 8ea7b53..c5a392f 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -10795,7 +10795,11 @@ The return value is similar to a mouse click position: The `posn-' functions access elements of such lists. */) (Lisp_Object x, Lisp_Object y, Lisp_Object frame_or_window, Lisp_Object whole) { - CHECK_NATNUM (x); + CHECK_NUMBER (x); + /* We allow X of -1, for the newline in a R2L line that overflowed + into the left fringe. */ + if (XINT (x) != -1) + CHECK_NATNUM (x); CHECK_NATNUM (y); if (NILP (frame_or_window)) @@ -10843,8 +10847,9 @@ The `posn-' functions access elements of such lists. */) Lisp_Object x = XCAR (tem); Lisp_Object y = XCAR (XCDR (tem)); - /* Point invisible due to hscrolling? */ - if (XINT (x) < 0) + /* Point invisible due to hscrolling? X can be -1 when a + newline in a R2L line overflows into the left fringe. */ + if (XINT (x) < -1) return Qnil; tem = Fposn_at_x_y (x, y, window, Qnil); } commit 87464d637a698f65e2bbdd18fa4a464f804cc5fc Author: Stefan Monnier Date: Wed Jul 1 09:31:25 2015 -0400 (cl--copy-slot-descriptor): Copy the `props' alist as well * lisp/emacs-lisp/cl-preloaded.el (cl--copy-slot-descriptor-1): Rename from cl--copy-slot-descriptor. (cl--copy-slot-descriptor): New function. Copy the alist (bug#20914). diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index ed0639b..60f6542 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el @@ -195,7 +195,7 @@ (:constructor nil) (:constructor cl--make-slot-descriptor (name &optional initform type props)) - (:copier cl--copy-slot-descriptor)) + (:copier cl--copy-slot-descriptor-1)) ;; FIXME: This is actually not used yet, for circularity reasons! "Descriptor of structure slot." name ;Attribute name (symbol). @@ -205,6 +205,11 @@ ;; :documentation, :protection, :custom, :label, :group, :printer. (props nil :type alist)) +(defun cl--copy-slot-descriptor (slot) + (let ((new (cl--copy-slot-descriptor-1 slot))) + (cl-callf copy-alist (cl--slot-descriptor-props new)) + new)) + (cl-defstruct (cl--class (:constructor nil) (:copier nil)) commit 3d759f4f6f2a20abbc05225a55d35c5daf093ff6 Author: Glenn Morris Date: Wed Jul 1 06:22:13 2015 -0400 ; Auto-commit of loaddefs files. diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 0559f4c..1bcd190 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -238,8 +238,8 @@ old-style time formats for entries are supported. ;;;*** -;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (21853 45243 -;;;;;; 381515 341000)) +;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (21895 57521 +;;;;;; 590301 332000)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action 'warn "\ @@ -477,7 +477,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;*** -;;;### (autoloads nil "allout" "allout.el" (21855 576 477946 398000)) +;;;### (autoloads nil "allout" "allout.el" (21907 48688 645360 195000)) ;;; Generated autoloads from allout.el (push (purecopy '(allout 2 3)) package--builtin-versions) @@ -1015,8 +1015,8 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. ;;;*** -;;;### (autoloads nil "appt" "calendar/appt.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "appt" "calendar/appt.el" (21880 42526 275119 +;;;;;; 615000)) ;;; Generated autoloads from calendar/appt.el (autoload 'appt-add "appt" "\ @@ -1037,8 +1037,7 @@ ARG is positive, otherwise off. ;;;*** -;;;### (autoloads nil "apropos" "apropos.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "apropos" "apropos.el" (21905 6960 85493 11000)) ;;; Generated autoloads from apropos.el (autoload 'apropos-read-pattern "apropos" "\ @@ -1153,8 +1152,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads nil "arc-mode" "arc-mode.el" (21862 60209 608658 -;;;;;; 477000)) +;;;### (autoloads nil "arc-mode" "arc-mode.el" (21878 48426 204093 +;;;;;; 508000)) ;;; Generated autoloads from arc-mode.el (autoload 'archive-mode "arc-mode" "\ @@ -1245,8 +1244,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads nil "artist" "textmodes/artist.el" (21852 24382 -;;;;;; 57264 475000)) +;;;### (autoloads nil "artist" "textmodes/artist.el" (21906 58826 +;;;;;; 78640 200000)) ;;; Generated autoloads from textmodes/artist.el (push (purecopy '(artist 1 2 6)) package--builtin-versions) @@ -1604,8 +1603,8 @@ insert a template for the file depending on the mode of the buffer. ;;;*** -;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (21853 -;;;;;; 45243 381515 341000)) +;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (21906 +;;;;;; 58854 98640 200000)) ;;; Generated autoloads from emacs-lisp/autoload.el (put 'generated-autoload-file 'safe-local-variable 'stringp) @@ -2742,8 +2741,8 @@ Like `bug-reference-mode', but only buttonize in comments and strings. ;;;*** -;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (21855 -;;;;;; 576 747949 136000)) +;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (21888 +;;;;;; 49772 464181 796000)) ;;; 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) @@ -3007,8 +3006,8 @@ See the documentation for `calculator-mode' for more information. ;;;*** -;;;### (autoloads nil "calendar" "calendar/calendar.el" (21852 24381 -;;;;;; 457257 198000)) +;;;### (autoloads nil "calendar" "calendar/calendar.el" (21887 28943 +;;;;;; 471667 16000)) ;;; Generated autoloads from calendar/calendar.el (autoload 'calendar "calendar" "\ @@ -3719,10 +3718,10 @@ Add the warnings that closure conversion would encounter. ;;;*** -;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (21695 35516 -;;;;;; 595262 313000)) +;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (21906 27825 +;;;;;; 297852 407000)) ;;; Generated autoloads from progmodes/cfengine.el -(push (purecopy '(cfengine 1 3)) package--builtin-versions) +(push (purecopy '(cfengine 1 4)) package--builtin-versions) (autoload 'cfengine3-mode "cfengine" "\ Major mode for editing CFEngine3 input. @@ -3749,6 +3748,30 @@ Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents. ;;;*** +;;;### (autoloads nil "character-fold" "character-fold.el" (21907 +;;;;;; 48688 653360 195000)) +;;; Generated autoloads from character-fold.el + +(defvar character-fold-search t "\ +Non-nil if searches should fold similar characters. +This means some characters will match entire groups of characters. +For instance, \" will match all variants of double quotes, and +the letter a will match all of its accented versions (and then +some).") + +(autoload 'character-fold-to-regexp "character-fold" "\ +Return a regexp matching anything that character-folds into STRING. +If `character-fold-search' is nil, `regexp-quote' string. +Otherwise, any character in STRING that has an entry in +`character-fold-table' is replaced with that entry (which is a +regexp) and other characters are `regexp-quote'd. +If LAX is non-nil, any single whitespace character is allowed to +match any number of times. + +\(fn STRING &optional LAX)" nil nil) + +;;;*** + ;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21841 54062 ;;;;;; 162628 940000)) ;;; Generated autoloads from emacs-lisp/chart.el @@ -3757,7 +3780,7 @@ Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents. ;;;*** ;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el" -;;;;;; (21855 576 747949 136000)) +;;;;;; (21888 49792 712181 796000)) ;;; Generated autoloads from emacs-lisp/check-declare.el (autoload 'check-declare-file "check-declare" "\ @@ -3774,8 +3797,8 @@ Returns non-nil if any false statements are found. ;;;*** -;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (21862 -;;;;;; 60209 647465 565000)) +;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (21880 +;;;;;; 42635 728365 616000)) ;;; Generated autoloads from emacs-lisp/checkdoc.el (push (purecopy '(checkdoc 0 6 2)) package--builtin-versions) (put 'checkdoc-force-docstrings-flag 'safe-local-variable #'booleanp) @@ -3788,7 +3811,7 @@ Returns non-nil if any false statements are found. (put 'checkdoc-symbol-words 'safe-local-variable #'checkdoc-list-of-strings-p) (autoload 'checkdoc-list-of-strings-p "checkdoc" "\ - +Return t when OBJ is a list of strings. \(fn OBJ)" nil nil) (put 'checkdoc-proper-noun-regexp 'safe-local-variable 'stringp) @@ -3839,6 +3862,11 @@ otherwise stop after the first error. \(fn &optional TAKE-NOTES)" t nil) +(autoload 'checkdoc-file "checkdoc" "\ +Check FILE for document, comment, error style, and rogue spaces. + +\(fn FILE)" nil nil) + (autoload 'checkdoc-start "checkdoc" "\ Start scanning the current buffer for documentation string style errors. Only documentation strings are checked. @@ -3973,6 +4001,11 @@ checking of documentation strings. \(fn &optional ARG)" t nil) +(autoload 'checkdoc-package-keywords "checkdoc" "\ +Find package keywords that aren't in `finder-known-keywords'. + +\(fn)" t nil) + ;;;*** ;;;### (autoloads nil "china-util" "language/china-util.el" (21670 @@ -4053,8 +4086,8 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (21855 -;;;;;; 576 767950 442000)) +;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (21901 +;;;;;; 9907 369083 895000)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload 'common-lisp-indent-function "cl-indent" "\ @@ -4137,8 +4170,8 @@ instead. ;;;*** -;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (21843 55159 -;;;;;; 639401 629000)) +;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (21903 51634 +;;;;;; 278370 580000)) ;;; Generated autoloads from emacs-lisp/cl-lib.el (push (purecopy '(cl-lib 1 0)) package--builtin-versions) @@ -4177,8 +4210,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (21887 31417 144735 +;;;;;; 656000)) ;;; Generated autoloads from cmuscheme.el (autoload 'run-scheme "cmuscheme" "\ @@ -4318,8 +4351,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads nil "compare-w" "vc/compare-w.el" (21855 577 527945 -;;;;;; 248000)) +;;;### (autoloads nil "compare-w" "vc/compare-w.el" (21872 61770 +;;;;;; 310089 300000)) ;;; Generated autoloads from vc/compare-w.el (autoload 'compare-windows "compare-w" "\ @@ -4355,8 +4388,8 @@ on third call it again advances points to the next difference and so on. ;;;*** -;;;### (autoloads nil "compile" "progmodes/compile.el" (21850 34915 -;;;;;; 107315 406000)) +;;;### (autoloads nil "compile" "progmodes/compile.el" (21907 48688 +;;;;;; 769360 195000)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -5445,8 +5478,8 @@ The format is suitable for use with `easy-menu-define'. ;;;*** -;;;### (autoloads nil "cus-theme" "cus-theme.el" (21862 60209 618658 -;;;;;; 448000)) +;;;### (autoloads nil "cus-theme" "cus-theme.el" (21891 60465 839679 +;;;;;; 523000)) ;;; Generated autoloads from cus-theme.el (autoload 'customize-create-theme "cus-theme" "\ @@ -5889,8 +5922,8 @@ point regardless of any selection. ;;;*** -;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (21703 29629 -;;;;;; 608890 826000)) +;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (21887 19078 +;;;;;; 977447 760000)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload 'define-derived-mode "derived" "\ @@ -5958,8 +5991,8 @@ the first time the mode is used. ;;;*** -;;;### (autoloads nil "descr-text" "descr-text.el" (21862 60209 618658 -;;;;;; 448000)) +;;;### (autoloads nil "descr-text" "descr-text.el" (21891 60465 839679 +;;;;;; 523000)) ;;; Generated autoloads from descr-text.el (autoload 'describe-text-properties "descr-text" "\ @@ -6250,8 +6283,8 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** -;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (21855 -;;;;;; 576 517945 858000)) +;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (21880 +;;;;;; 42532 420045 615000)) ;;; Generated autoloads from calendar/diary-lib.el (autoload 'diary "diary-lib" "\ @@ -6385,7 +6418,7 @@ Optional arguments are passed to `dig-invoke'. ;;;*** -;;;### (autoloads nil "dired" "dired.el" (21855 576 727950 398000)) +;;;### (autoloads nil "dired" "dired.el" (21874 51372 526324 856000)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6410,10 +6443,16 @@ The directory name must be absolute, but need not be fully expanded.") \"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it. Optional second argument SWITCHES specifies the `ls' options used. \(Interactively, use a prefix argument to be able to specify SWITCHES.) -Dired displays a list of files in DIRNAME (which may also have -shell wildcards appended to select certain files). If DIRNAME is a cons, -its first element is taken as the directory name and the rest as an explicit -list of files to make directory entries for. + +If DIRNAME is a string, Dired displays a list of files in DIRNAME (which +may also have shell wildcards appended to select certain files). + +If DIRNAME is a cons, its first element is taken as the directory name +and the rest as an explicit list of files to make directory entries for. +In this case, SWITCHES are applied to each of the files separately, and +therefore switches that control the order of the files in the produced +listing have no effect. + \\You can flag files for deletion with \\[dired-flag-file-deletion] and then delete them by typing \\[dired-do-flagged-delete]. Type \\[describe-mode] after entering Dired for more info. @@ -6820,8 +6859,8 @@ Switch to *dungeon* buffer and start game. ;;;*** -;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (21732 -;;;;;; 29888 498897 471000)) +;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (21907 +;;;;;; 48688 657360 195000)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) @@ -7938,8 +7977,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (21861 5946 -;;;;;; 771514 868000)) +;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (21870 54319 +;;;;;; 247944 919000)) ;;; Generated autoloads from vc/ediff-help.el (autoload 'ediff-customize "ediff-help" "\ @@ -8086,8 +8125,8 @@ BUFFER is put back into its original major mode. ;;;*** -;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21862 60482 -;;;;;; 430808 412000)) +;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21891 60664 +;;;;;; 847679 523000)) ;;; Generated autoloads from emacs-lisp/eieio.el (push (purecopy '(eieio 1 4)) package--builtin-versions) @@ -8110,8 +8149,8 @@ It creates an autoload function for CNAME's constructor. ;;;*** -;;;### (autoloads nil "elec-pair" "elec-pair.el" (21811 32939 170488 -;;;;;; 968000)) +;;;### (autoloads nil "elec-pair" "elec-pair.el" (21888 48869 288181 +;;;;;; 796000)) ;;; Generated autoloads from elec-pair.el (defvar electric-pair-text-pairs '((34 . 34)) "\ @@ -8691,7 +8730,7 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "epg" "epg.el" (21802 17960 412629 175000)) +;;;### (autoloads nil "epg" "epg.el" (21890 39605 414073 663000)) ;;; Generated autoloads from epg.el (push (purecopy '(epg 1 0 0)) package--builtin-versions) @@ -8723,7 +8762,7 @@ Look at CONFIG and try to expand GROUP. ;;;*** -;;;### (autoloads nil "erc" "erc/erc.el" (21862 60209 688658 322000)) +;;;### (autoloads nil "erc" "erc/erc.el" (21907 48688 693360 195000)) ;;; Generated autoloads from erc/erc.el (push (purecopy '(erc 5 3)) package--builtin-versions) @@ -9230,8 +9269,8 @@ Add a file to `erc-xdcc-files'. ;;;*** -;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (21843 54898 597238 -;;;;;; 876000)) +;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (21870 18240 719373 +;;;;;; 247000)) ;;; Generated autoloads from emacs-lisp/ert.el (autoload 'ert-deftest "ert" "\ @@ -9360,8 +9399,8 @@ corresponding to a successful execution. ;;;*** -;;;### (autoloads nil "etags" "progmodes/etags.el" (21866 57262 677944 -;;;;;; 752000)) +;;;### (autoloads nil "etags" "progmodes/etags.el" (21907 48688 773360 +;;;;;; 195000)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -10039,8 +10078,8 @@ Display the bookmarks. ;;;*** -;;;### (autoloads nil "executable" "progmodes/executable.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "executable" "progmodes/executable.el" (21880 +;;;;;; 39991 389803 616000)) ;;; Generated autoloads from progmodes/executable.el (autoload 'executable-command-find-posix-p "executable" "\ @@ -10066,12 +10105,6 @@ executable. \(fn INTERPRETER &optional ARGUMENT NO-QUERY-FLAG INSERT-FLAG)" t nil) -(autoload 'executable-self-display "executable" "\ -Turn a text file into a self-displaying Un*x command. -The magic number of such a command displays all lines but itself. - -\(fn)" t nil) - (autoload 'executable-make-buffer-file-executable-if-script-p "executable" "\ Make file executable according to umask if not already executable. If file already has any execute bits set at all, do not change existing @@ -10130,8 +10163,8 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads nil "f90" "progmodes/f90.el" (21862 60209 828658 -;;;;;; 75000)) +;;;### (autoloads nil "f90" "progmodes/f90.el" (21880 42136 781803 +;;;;;; 616000)) ;;; Generated autoloads from progmodes/f90.el (autoload 'f90-mode "f90" "\ @@ -10198,8 +10231,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "face-remap" "face-remap.el" (21855 576 807944 -;;;;;; 863000)) +;;;### (autoloads nil "face-remap" "face-remap.el" (21888 47150 706945 +;;;;;; 440000)) ;;; Generated autoloads from face-remap.el (autoload 'face-remap-add-relative "face-remap" "\ @@ -10550,8 +10583,7 @@ Otherwise, signal a `file-notify-error'. ;;;*** -;;;### (autoloads nil "files-x" "files-x.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "files-x" "files-x.el" (21880 40973 57803 616000)) ;;; Generated autoloads from files-x.el (autoload 'add-file-local-variable "files-x" "\ @@ -10781,8 +10813,8 @@ Visit the file you click on in another window. ;;;*** -;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (21700 -;;;;;; 53432 444919 658000)) +;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (21895 +;;;;;; 57521 598301 332000)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload 'find-library "find-func" "\ @@ -10923,6 +10955,18 @@ Set mark before moving, if the buffer already existed. \(fn KEY)" t nil) +(autoload 'find-function-on-key-other-window "find-func" "\ +Find, in the other window, the function that KEY invokes. +See `find-function-on-key'. + +\(fn KEY)" t nil) + +(autoload 'find-function-on-key-other-frame "find-func" "\ +Find, in the other frame, the function that KEY invokes. +See `find-function-on-key'. + +\(fn KEY)" t nil) + (autoload 'find-function-at-point "find-func" "\ Find directly the function at point in the other window. @@ -10961,7 +11005,7 @@ Change the filter on a `find-lisp-find-dired' buffer to REGEXP. ;;;*** -;;;### (autoloads nil "finder" "finder.el" (21862 60209 708661 34000)) +;;;### (autoloads nil "finder" "finder.el" (21874 386 410923 336000)) ;;; Generated autoloads from finder.el (push (purecopy '(finder 1 0)) package--builtin-versions) @@ -11021,8 +11065,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flymake" "progmodes/flymake.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "flymake" "progmodes/flymake.el" (21907 48688 +;;;;;; 777360 195000)) ;;; Generated autoloads from progmodes/flymake.el (push (purecopy '(flymake 0 3)) package--builtin-versions) @@ -11945,8 +11989,8 @@ CLEAN is obsolete and ignored. ;;;*** -;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (21864 15535 -;;;;;; 27945 734000)) +;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (21870 54319 +;;;;;; 237944 669000)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -12697,8 +12741,8 @@ Retrieve MAIL-ADDRESS gravatar and returns it. ;;;*** -;;;### (autoloads nil "grep" "progmodes/grep.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "grep" "progmodes/grep.el" (21903 51634 290370 +;;;;;; 580000)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -13291,8 +13335,8 @@ different regions. With numeric argument ARG, behaves like ;;;*** -;;;### (autoloads nil "help-fns" "help-fns.el" (21862 60209 718658 -;;;;;; 824000)) +;;;### (autoloads nil "help-fns" "help-fns.el" (21891 60465 919679 +;;;;;; 523000)) ;;; Generated autoloads from help-fns.el (autoload 'describe-function "help-fns" "\ @@ -13393,8 +13437,8 @@ gives the window that lists the options.") ;;;*** -;;;### (autoloads nil "help-mode" "help-mode.el" (21862 60209 718658 -;;;;;; 824000)) +;;;### (autoloads nil "help-mode" "help-mode.el" (21891 60465 919679 +;;;;;; 523000)) ;;; Generated autoloads from help-mode.el (autoload 'help-mode "help-mode" "\ @@ -15594,8 +15638,8 @@ Convert old Emacs Devanagari characters to UCS. ;;;*** -;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (21887 31404 +;;;;;; 272735 656000)) ;;; Generated autoloads from progmodes/inf-lisp.el (autoload 'inferior-lisp "inf-lisp" "\ @@ -15613,7 +15657,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;*** -;;;### (autoloads nil "info" "info.el" (21862 60209 738095 873000)) +;;;### (autoloads nil "info" "info.el" (21887 28748 899667 16000)) ;;; Generated autoloads from info.el (defcustom Info-default-directory-list (let* ((config-dir (file-name-as-directory (or (and (featurep 'ns) (let ((dir (expand-file-name "../info" data-directory))) (if (file-directory-p dir) dir))) configure-info-directory))) (prefixes (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/"))) (suffixes '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" "emacs/" "lib/" "lib/emacs/")) (standard-info-dirs (apply #'nconc (mapcar (lambda (pfx) (let ((dirs (mapcar (lambda (sfx) (concat pfx sfx "info/")) suffixes))) (prune-directory-list dirs))) prefixes))) (dirs (if (member config-dir standard-info-dirs) (nconc standard-info-dirs (list config-dir)) (cons config-dir standard-info-dirs)))) (if (not (eq system-type 'windows-nt)) dirs (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (cond ((file-exists-p dir1) (append dirs (list dir1))) ((file-exists-p dir2) (append dirs (list dir2))) (t dirs))))) "\ @@ -16906,10 +16950,10 @@ A major mode to edit GNU ld script files ;;;*** -;;;### (autoloads nil "let-alist" "let-alist.el" (21670 32331 385639 -;;;;;; 720000)) -;;; Generated autoloads from let-alist.el -(push (purecopy '(let-alist 1 0 3)) package--builtin-versions) +;;;### (autoloads nil "let-alist" "emacs-lisp/let-alist.el" (21890 +;;;;;; 39605 402073 663000)) +;;; Generated autoloads from emacs-lisp/let-alist.el +(push (purecopy '(let-alist 1 0 4)) package--builtin-versions) (autoload 'let-alist "let-alist" "\ Let-bind dotted symbols to their cdrs in ALIST and execute BODY. @@ -17218,7 +17262,8 @@ for further customization of the printer command. ;;;*** -;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21855 577 57945 485000)) +;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21907 48688 729360 +;;;;;; 195000)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -17253,7 +17298,7 @@ A major mode to edit m4 macro files. ;;;*** -;;;### (autoloads nil "macros" "macros.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "macros" "macros.el" (21887 28847 979667 16000)) ;;; Generated autoloads from macros.el (autoload 'name-last-kbd-macro "macros" "\ @@ -17595,8 +17640,8 @@ The mail client is taken to be the handler of mailto URLs. ;;;*** -;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (21907 +;;;;;; 48688 777360 195000)) ;;; Generated autoloads from progmodes/make-mode.el (autoload 'makefile-mode "make-mode" "\ @@ -17781,6 +17826,13 @@ Default bookmark handler for Man buffers. ;;;*** +;;;### (autoloads nil "map" "emacs-lisp/map.el" (21895 57521 614301 +;;;;;; 332000)) +;;; Generated autoloads from emacs-lisp/map.el +(push (purecopy '(map 1 0)) package--builtin-versions) + +;;;*** + ;;;### (autoloads nil "master" "master.el" (21670 32331 385639 720000)) ;;; Generated autoloads from master.el (push (purecopy '(master 1 0 2)) package--builtin-versions) @@ -18065,8 +18117,8 @@ redisplayed as output is inserted. ;;;*** -;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (21895 57521 622301 +;;;;;; 332000)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload 'mh-smail "mh-comp" "\ @@ -18617,8 +18669,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (21862 60209 -;;;;;; 618658 448000)) +;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (21891 60465 +;;;;;; 823679 523000)) ;;; Generated autoloads from cedet/mode-local.el (put 'define-overloadable-function 'doc-string-elt 3) @@ -18685,8 +18737,8 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text. ;;;*** -;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21906 58825 986640 +;;;;;; 200000)) ;;; Generated autoloads from mouse-drag.el (autoload 'mouse-drag-throw "mouse-drag" "\ @@ -18911,8 +18963,8 @@ The default is 20. If LIMIT is negative, do not limit the listing. ;;;*** -;;;### (autoloads nil "mule-util" "international/mule-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "mule-util" "international/mule-util.el" (21893 +;;;;;; 15793 483985 415000)) ;;; Generated autoloads from international/mule-util.el (defsubst string-to-list (string) "\ @@ -19041,6 +19093,20 @@ per-character basis, this may not be accurate. \(fn CHAR)" nil nil) +(autoload 'filepos-to-bufferpos "mule-util" "\ +Try to return the buffer position corresponding to a particular file position. +The file position is given as a (0-based) BYTE count. +The function presumes the file is encoded with CODING-SYSTEM, which defaults +to `buffer-file-coding-system'. +QUALITY can be: + `approximate', in which case we may cut some corners to avoid + excessive work. + `exact', in which case we may end up re-(en/de)coding a large + part of the file/buffer. + nil, in which case we may return nil rather than an approximation. + +\(fn BYTE &optional QUALITY CODING-SYSTEM)" nil nil) + ;;;*** ;;;### (autoloads nil "net-utils" "net/net-utils.el" (21826 50071 @@ -19313,8 +19379,8 @@ running already. ;;;*** -;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21888 +;;;;;; 41565 443258 439000)) ;;; Generated autoloads from net/newst-treeview.el (autoload 'newsticker-treeview "newst-treeview" "\ @@ -19511,8 +19577,8 @@ the variable `nxml-enabled-unicode-blocks'. ;;;*** -;;;### (autoloads nil "octave" "progmodes/octave.el" (21695 35516 -;;;;;; 595262 313000)) +;;;### (autoloads nil "octave" "progmodes/octave.el" (21888 47234 +;;;;;; 298945 440000)) ;;; Generated autoloads from progmodes/octave.el (autoload 'octave-mode "octave" "\ @@ -20271,8 +20337,8 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "package" "emacs-lisp/package.el" (21865 36399 -;;;;;; 18126 278000)) +;;;### (autoloads nil "package" "emacs-lisp/package.el" (21907 48688 +;;;;;; 661360 195000)) ;;; Generated autoloads from emacs-lisp/package.el (push (purecopy '(package 1 0 1)) package--builtin-versions) @@ -20495,8 +20561,8 @@ Check if KEY is in the cache. ;;;*** -;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (21862 60209 -;;;;;; 658658 512000)) +;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (21888 49775 +;;;;;; 904181 796000)) ;;; Generated autoloads from emacs-lisp/pcase.el (autoload 'pcase "pcase" "\ @@ -20505,11 +20571,12 @@ CASES is a list of elements of the form (PATTERN CODE...). Patterns can take the following forms: _ matches anything. - SELFQUOTING matches itself. This includes keywords, numbers, and strings. SYMBOL matches anything and binds it to SYMBOL. (or PAT...) matches if any of the patterns matches. (and PAT...) matches if all the patterns match. 'VAL matches if the object is `equal' to VAL + ATOM is a shorthand for 'ATOM. + ATOM can be a keyword, an integer, or a string. (pred FUN) matches if FUN applied to the object returns non-nil. (guard BOOLEXP) matches if BOOLEXP evaluates to non-nil. (let PAT EXP) matches if EXP matches PAT. @@ -20890,8 +20957,8 @@ Global menu used by PCL-CVS.") ;;;*** -;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (21887 +;;;;;; 19055 813447 760000)) ;;; Generated autoloads from progmodes/perl-mode.el (put 'perl-indent-level 'safe-local-variable 'integerp) (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) @@ -21033,6 +21100,21 @@ they are not by default assigned to keys. ;;;*** +;;;### (autoloads nil "pinentry" "net/pinentry.el" (21890 39605 414073 +;;;;;; 663000)) +;;; Generated autoloads from net/pinentry.el +(push (purecopy '(pinentry 0 1)) package--builtin-versions) + +(autoload 'pinentry-start "pinentry" "\ +Start a Pinentry service. + +Once the environment is properly set, subsequent invocations of +the gpg command will interact with Emacs for passphrase input. + +\(fn)" t nil) + +;;;*** + ;;;### (autoloads nil "plstore" "gnus/plstore.el" (21786 29744 368212 ;;;;;; 633000)) ;;; Generated autoloads from gnus/plstore.el @@ -22771,8 +22853,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (21743 -;;;;;; 190 195328 729000)) +;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (21887 +;;;;;; 63409 948052 707000)) ;;; 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)))) @@ -23517,8 +23599,8 @@ Major mode for editing Ruby code. ;;;*** -;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (21906 58826 62640 +;;;;;; 200000)) ;;; Generated autoloads from ruler-mode.el (push (purecopy '(ruler-mode 1 6)) package--builtin-versions) @@ -24377,14 +24459,14 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** -;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (21843 54898 597238 -;;;;;; 876000)) +;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (21906 58825 966640 +;;;;;; 200000)) ;;; Generated autoloads from emacs-lisp/seq.el -(push (purecopy '(seq 1 7)) package--builtin-versions) +(push (purecopy '(seq 1 8)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "server" "server.el" (21857 42300 487735 894000)) +;;;### (autoloads nil "server" "server.el" (21906 27825 297852 407000)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -24561,8 +24643,8 @@ To work around that, do: ;;;*** -;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (21862 -;;;;;; 60209 888659 15000)) +;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (21880 +;;;;;; 3758 862057 0)) ;;; Generated autoloads from progmodes/sh-script.el (push (purecopy '(sh-script 2 0 6)) package--builtin-versions) (put 'sh-shell 'safe-local-variable 'symbolp) @@ -24714,7 +24796,7 @@ Set up file shadowing. ;;;*** -;;;### (autoloads nil "shell" "shell.el" (21678 26426 225333 737000)) +;;;### (autoloads nil "shell" "shell.el" (21896 48221 754207 816000)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ @@ -25946,7 +26028,7 @@ Run vsql as an inferior process. ;;;*** ;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el" -;;;;;; (21670 32330 885624 725000)) +;;;;;; (21891 60465 835679 523000)) ;;; Generated autoloads from cedet/srecode/srt-mode.el (autoload 'srecode-template-mode "srecode/srt-mode" "\ @@ -27368,8 +27450,8 @@ Major mode to edit DocTeX files. ;;;*** -;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (21862 60209 -;;;;;; 928657 362000)) +;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (21907 48688 +;;;;;; 825360 195000)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload 'texinfo-format-buffer "texinfmt" "\ @@ -27521,8 +27603,8 @@ Compose Thai characters in the current buffer. ;;;*** -;;;### (autoloads nil "thingatpt" "thingatpt.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "thingatpt" "thingatpt.el" (21882 2522 257758 +;;;;;; 815000)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ @@ -27761,7 +27843,7 @@ variable will be set to the representation. ;;;*** -;;;### (autoloads nil "time" "time.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "time" "time.el" (21907 48688 857360 195000)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -28079,7 +28161,7 @@ relative only to the time worked today, and not to past time. ;;;*** ;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el" -;;;;;; (21670 32331 385639 720000)) +;;;;;; (21874 379 470923 336000)) ;;; Generated autoloads from international/titdic-cnv.el (autoload 'titdic-convert "titdic-cnv" "\ @@ -28101,7 +28183,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** -;;;### (autoloads nil "tmm" "tmm.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "tmm" "tmm.el" (21907 48688 873360 195000)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) @@ -28143,8 +28225,8 @@ Its value should be an event that has a binding in MENU. ;;;*** -;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (21855 -;;;;;; 576 567563 758000)) +;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (21893 +;;;;;; 15793 471985 415000)) ;;; Generated autoloads from calendar/todo-mode.el (autoload 'todo-show "todo-mode" "\ @@ -28342,7 +28424,7 @@ the output buffer or changing the window configuration. ;;;*** -;;;### (autoloads nil "tramp" "net/tramp.el" (21865 36399 47685 802000)) +;;;### (autoloads nil "tramp" "net/tramp.el" (21869 33455 50802 161000)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -29988,8 +30070,8 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-git" "vc/vc-git.el" (21850 34915 127238 -;;;;;; 802000)) +;;;### (autoloads nil "vc-git" "vc/vc-git.el" (21888 48854 948181 +;;;;;; 796000)) ;;; Generated autoloads from vc/vc-git.el (defun vc-git-registered (file) "Return non-nil if FILE is registered with git." @@ -30028,8 +30110,8 @@ Name of the monotone directory's format file.") ;;;*** -;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (21826 49714 91236 -;;;;;; 252000)) +;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (21896 48221 810207 +;;;;;; 816000)) ;;; Generated autoloads from vc/vc-rcs.el (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -30075,8 +30157,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (21744 21055 525326 -;;;;;; 515000)) +;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (21903 51634 294370 +;;;;;; 580000)) ;;; Generated autoloads from vc/vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -30288,8 +30370,8 @@ Key bindings specific to `verilog-mode-map' are: ;;;*** -;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (21866 -;;;;;; 57262 717944 751000)) +;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (21907 +;;;;;; 48688 801360 195000)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload 'vhdl-mode "vhdl-mode" "\ @@ -31162,8 +31244,8 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. ;;;*** -;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (21884 +;;;;;; 813 562651 696000)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -31717,8 +31799,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "wid-edit" "wid-edit.el" (21862 60209 928657 -;;;;;; 362000)) +;;;### (autoloads nil "wid-edit" "wid-edit.el" (21891 60465 939679 +;;;;;; 523000)) ;;; Generated autoloads from wid-edit.el (autoload 'widgetp "wid-edit" "\ @@ -31960,8 +32042,8 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT. ;;;*** -;;;### (autoloads nil "xref" "progmodes/xref.el" (21861 5946 771514 -;;;;;; 868000)) +;;;### (autoloads nil "xref" "progmodes/xref.el" (21903 51634 290370 +;;;;;; 580000)) ;;; Generated autoloads from progmodes/xref.el (autoload 'xref-pop-marker-stack "xref" "\ @@ -32185,23 +32267,31 @@ Zone out, completely. ;;;;;; "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el" "gnus/rfc2231.el" ;;;;;; "gnus/rtree.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/fontset.el" "international/iso-ascii.el" "international/ja-dic-cnv.el" -;;;;;; "international/ja-dic-utl.el" "international/ogonek.el" "kermit.el" -;;;;;; "language/hanja-util.el" "language/thai-word.el" "ldefs-boot.el" -;;;;;; "leim/quail/arabic.el" "leim/quail/croatian.el" "leim/quail/cyril-jis.el" -;;;;;; "leim/quail/cyrillic.el" "leim/quail/czech.el" "leim/quail/ethiopic.el" -;;;;;; "leim/quail/georgian.el" "leim/quail/greek.el" "leim/quail/hanja-jis.el" -;;;;;; "leim/quail/hanja.el" "leim/quail/hanja3.el" "leim/quail/hebrew.el" -;;;;;; "leim/quail/indian.el" "leim/quail/ipa-praat.el" "leim/quail/ipa.el" -;;;;;; "leim/quail/japanese.el" "leim/quail/lao.el" "leim/quail/latin-alt.el" -;;;;;; "leim/quail/latin-ltx.el" "leim/quail/latin-post.el" "leim/quail/latin-pre.el" -;;;;;; "leim/quail/lrt.el" "leim/quail/persian.el" "leim/quail/py-punct.el" -;;;;;; "leim/quail/pypunct-b5.el" "leim/quail/rfc1345.el" "leim/quail/sgml-input.el" -;;;;;; "leim/quail/sisheng.el" "leim/quail/slovak.el" "leim/quail/symbol-ksc.el" -;;;;;; "leim/quail/thai.el" "leim/quail/tibetan.el" "leim/quail/viqr.el" -;;;;;; "leim/quail/vntelex.el" "leim/quail/vnvni.el" "leim/quail/welsh.el" -;;;;;; "loadup.el" "mail/blessmail.el" "mail/mailheader.el" "mail/mspools.el" -;;;;;; "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el" +;;;;;; "international/charscript.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-brackets.el" "international/uni-category.el" +;;;;;; "international/uni-combining.el" "international/uni-comment.el" +;;;;;; "international/uni-decimal.el" "international/uni-decomposition.el" +;;;;;; "international/uni-digit.el" "international/uni-lowercase.el" +;;;;;; "international/uni-mirrored.el" "international/uni-name.el" +;;;;;; "international/uni-numeric.el" "international/uni-old-name.el" +;;;;;; "international/uni-titlecase.el" "international/uni-uppercase.el" +;;;;;; "kermit.el" "language/hanja-util.el" "language/thai-word.el" +;;;;;; "ldefs-boot.el" "leim/quail/arabic.el" "leim/quail/croatian.el" +;;;;;; "leim/quail/cyril-jis.el" "leim/quail/cyrillic.el" "leim/quail/czech.el" +;;;;;; "leim/quail/ethiopic.el" "leim/quail/georgian.el" "leim/quail/greek.el" +;;;;;; "leim/quail/hanja-jis.el" "leim/quail/hanja.el" "leim/quail/hanja3.el" +;;;;;; "leim/quail/hebrew.el" "leim/quail/indian.el" "leim/quail/ipa-praat.el" +;;;;;; "leim/quail/ipa.el" "leim/quail/japanese.el" "leim/quail/lao.el" +;;;;;; "leim/quail/latin-alt.el" "leim/quail/latin-ltx.el" "leim/quail/latin-post.el" +;;;;;; "leim/quail/latin-pre.el" "leim/quail/lrt.el" "leim/quail/persian.el" +;;;;;; "leim/quail/py-punct.el" "leim/quail/pypunct-b5.el" "leim/quail/rfc1345.el" +;;;;;; "leim/quail/sgml-input.el" "leim/quail/sisheng.el" "leim/quail/slovak.el" +;;;;;; "leim/quail/symbol-ksc.el" "leim/quail/thai.el" "leim/quail/tibetan.el" +;;;;;; "leim/quail/viqr.el" "leim/quail/vntelex.el" "leim/quail/vnvni.el" +;;;;;; "leim/quail/welsh.el" "loadup.el" "mail/blessmail.el" "mail/mailheader.el" +;;;;;; "mail/mspools.el" "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el" ;;;;;; "mail/rmailedit.el" "mail/rmailkwd.el" "mail/rmailmm.el" ;;;;;; "mail/rmailmsc.el" "mail/rmailsort.el" "mail/rmailsum.el" ;;;;;; "mail/undigest.el" "mh-e/mh-acros.el" "mh-e/mh-alias.el" @@ -32276,7 +32366,7 @@ Zone out, completely. ;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" ;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vc/vc-filewise.el" "vcursor.el" ;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el" -;;;;;; "x-dnd.el") (21868 12847 464673 840000)) +;;;;;; "x-dnd.el") (21907 48688 857360 195000)) ;;;***