diff options
| author | John Wiegley <johnw@newartisans.com> | 2015-12-29 21:40:28 -0800 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2015-12-29 21:40:28 -0800 |
| commit | 9f2f14a0725211b13a744573344636b57b9c98b9 (patch) | |
| tree | 7190e0fb3d4aa06018d8cf997f06b806fb09a9c8 /lisp | |
| parent | d259328fb87db8cc67d52771efcfa653e52c5b71 (diff) | |
| parent | e823c34072bf045800d91e12c7ddb61fa23c6e30 (diff) | |
| download | emacs-9f2f14a0725211b13a744573344636b57b9c98b9.tar.gz | |
Merge emacs-25 into master (using imerge)
Diffstat (limited to 'lisp')
233 files changed, 4252 insertions, 3198 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 6d7dc8af40d..77c5023b0ba 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -823,7 +823,7 @@ Returns list of symbols and documentation found." (lambda (symbol) (setq f (apropos-safe-documentation symbol) v (get symbol 'variable-documentation)) - (if (integerp v) (setq v)) + (if (integerp v) (setq v nil)) (setq f (apropos-documentation-internal f) v (apropos-documentation-internal v)) (setq sf (apropos-score-doc f) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 18b8161f1db..17fa43a6d1e 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1997-1999, 2001-2015 Free Software Foundation, Inc. -;; Author: Anders Lindgren <andersl@andersl.com> +;; Author: Anders Lindgren ;; Keywords: convenience ;; Created: 1997-06-01 ;; Date: 1999-11-30 diff --git a/lisp/calendar/cal-html.el b/lisp/calendar/cal-html.el index 4bddc384895..8c46e3ade74 100644 --- a/lisp/calendar/cal-html.el +++ b/lisp/calendar/cal-html.el @@ -32,6 +32,7 @@ ;;; Code: (require 'calendar) +(require 'diary-lib) (defgroup calendar-html nil @@ -358,12 +359,12 @@ of holidays, rather than diary entries." ;; Monthly calendar ;;------------------------------------------------------------ -(autoload 'diary-list-entries "diary-lib") - (defun cal-html-list-diary-entries (d1 d2) "Generate a list of all diary-entries from absolute date D1 to D2." - (diary-list-entries (calendar-gregorian-from-absolute d1) - (1+ (- d2 d1)) t)) + (if (with-demoted-errors "Not adding diary entries: %S" + (diary-check-diary-file)) + (diary-list-entries (calendar-gregorian-from-absolute d1) + (1+ (- d2 d1)) t))) (defun cal-html-insert-agenda-days (month year diary-list holiday-list) "Insert HTML commands for a range of days in monthly calendars. diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 6c1b4c258e9..4c659bfa29c 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -881,11 +881,11 @@ is a list of expressions that can involve the keywords `month', `day', and `year' (all numbers in string form), and `monthname' and `dayname' \(both alphabetic strings). For example, a typical American form would be - '(month \"/\" day \"/\" (substring year -2)) + (month \"/\" day \"/\" (substring year -2)) whereas - '((format \"%9s, %9s %2s, %4s\" dayname monthname day year)) + ((format \"%9s, %9s %2s, %4s\" dayname monthname day year)) would give the usual American style in fixed-length fields. The variables `calendar-iso-date-display-form', `calendar-european-date-display-form', and @@ -1184,8 +1184,8 @@ A negative year is interpreted as BC; -1 being 1 BC, and so on." (defsubst calendar-day-number (date) "Return the day number within the year of the date DATE. -For example, (calendar-day-number '(1 1 1987)) returns the value 1, -while (calendar-day-number '(12 31 1980)) returns 366." +For example, (calendar-day-number \\='(1 1 1987)) returns the value 1, +while (calendar-day-number \\='(12 31 1980)) returns 366." (let* ((month (calendar-extract-month date)) (day (calendar-extract-day date)) (year (calendar-extract-year date)) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 7382abf67fc..0720d8266a0 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -909,13 +909,15 @@ This is recursive; that is, included files may include other files." (append diary-entries-list (diary-list-entries original-date number t))))) (display-warning - :error + 'diary (format-message "Can't read included diary file %s\n" - diary-file))) + diary-file) + :error)) (display-warning - :error + 'diary (format-message "Can't find included diary file %s\n" - diary-file))))) + diary-file) + :error)))) (goto-char (point-min))) (defun diary-include-other-diary-files () @@ -1190,7 +1192,7 @@ ensure that all relevant variables are set. \(setq diary-mail-days 3 diary-file \"/path/to/diary.file\" - calendar-date-style 'european + calendar-date-style \\='european diary-mail-addr \"user@host.name\") \(diary-mail-entries) @@ -1410,11 +1412,12 @@ marks. This is intended to deal with deleted diary entries." (eval (car (read-from-string sexp))) (error (display-warning - :error + 'diary (format "Bad diary sexp at line %d in %s:\n%s\n\ Error: %s\n" (count-lines (point-min) (point)) - diary-file sexp err)) + diary-file sexp err) + :error) nil)))))) (cond ((stringp result) result) ((and (consp result) diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index 307ab4deb82..3e7289bb030 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el @@ -346,9 +346,10 @@ The holidays are those in the list `calendar-holidays'." (eval p) (error (display-warning - :error + 'holidays (format "Bad holiday list item: %s\nError: %s\n" - p err)) + p err) + :error) nil)))) (setq res (append h res)))) 'calendar-date-compare))) diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 0955e72aa04..ca6669d0c40 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -321,18 +321,29 @@ other sexp entries are enumerated in any case." "Return a new buffer containing the unfolded contents of a buffer. Folding is the iCalendar way of wrapping long lines. In the created buffer all occurrences of CR LF BLANK are replaced by the -empty string. Argument FOLDED-ICAL-BUFFER is the unfolded input +empty string. Argument FOLDED-ICAL-BUFFER is the folded input buffer." (let ((unfolded-buffer (get-buffer-create " *icalendar-work*"))) (save-current-buffer (set-buffer unfolded-buffer) (erase-buffer) (insert-buffer-substring folded-ical-buffer) + (icalendar--clean-up-line-endings) (goto-char (point-min)) (while (re-search-forward "\r?\n[ \t]" nil t) (replace-match "" nil nil))) unfolded-buffer)) +(defun icalendar--clean-up-line-endings () + "Replace DOS- and MAC-like line endings with unix line endings. +All occurrences of (CR LF) and (LF CF) are replaced with LF in +the current buffer. This is necessary in buffers which contain a +mix of different line endings." + (save-excursion + (goto-char (point-min)) + (while (re-search-forward "\r\n\\|\n\r" nil t) + (replace-match "\n" nil nil)))) + (defsubst icalendar--rris (regexp rep string &optional fixedcase literal) "Replace regular expression in string. Pass arguments REGEXP REP STRING FIXEDCASE LITERAL to @@ -1296,8 +1307,8 @@ Returns an alist." "Return a VALARM block. Argument ADVANCE-TIME is a number giving the time when the alarm fires (minutes before the respective event). Argument ALARM-SPEC -is a list which must be one of '(audio), '(display) or -'(email (ADDRESS1 ...)), see `icalendar-export-alarms'. Argument +is a list which must be one of (audio), (display) or +(email (ADDRESS1 ...)), see `icalendar-export-alarms'. Argument SUMMARY is a string which contains a short description for the alarm." (let* ((action (car alarm-spec)) diff --git a/lisp/cedet/cedet-global.el b/lisp/cedet/cedet-global.el index 3ceed5d3b54..77ffef037f1 100644 --- a/lisp/cedet/cedet-global.el +++ b/lisp/cedet/cedet-global.el @@ -104,7 +104,8 @@ SCOPE is the scope of the search, such as 'project or 'subdirs." (defun cedet-gnu-global-expand-filename (filename) "Expand the FILENAME with GNU Global. -Return a fully qualified filename." +Return a list of absolute filenames or nil if none found. +Signal an error if Gnu global not available." (interactive "sFile: ") (let ((ans (with-current-buffer (cedet-gnu-global-call (list "-Pa" filename)) (goto-char (point-min)) diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index 76ec3567c63..2a522bcccd8 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el @@ -81,12 +81,12 @@ "Whether a new source file should be automatically added to a target. Whenever a new file is encountered in a directory controlled by a project file, all targets are queried to see if it should be added. -If the value is 'always, then the new file is added to the first -target encountered. If the value is 'multi-ask, then if more than one +If the value is `always', then the new file is added to the first +target encountered. If the value is `multi-ask', then if more than one target wants the file, the user is asked. If only one target wants the file, then it is automatically added to that target. If the -value is 'ask, then the user is always asked, unless there is no -target willing to take the file. 'never means never perform the check." +value is `ask', then the user is always asked, unless there is no +target willing to take the file. `never' means never perform the check." :group 'ede :type '(choice (const always) (const multi-ask) diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el index 4ba823adeee..81a1a6adf2e 100644 --- a/lisp/cedet/ede/files.el +++ b/lisp/cedet/ede/files.el @@ -304,7 +304,7 @@ Do this whenever a new project is created, as opposed to loaded." ;; instead so that -P can be obsoleted. (defun ede-directory-project-p (dir &optional force) "Return a project description object if DIR is in a project. -Optional argument FORCE means to ignore a hash-hit of 'nomatch. +Optional argument FORCE means to ignore a hash-hit of `nomatch'. This depends on an up to date `ede-project-class-files' variable. Any directory that contains the file .ede-ignore will always return nil. diff --git a/lisp/cedet/ede/locate.el b/lisp/cedet/ede/locate.el index a076c46513c..cee2f8ec419 100644 --- a/lisp/cedet/ede/locate.el +++ b/lisp/cedet/ede/locate.el @@ -100,9 +100,9 @@ based on `ede-locate-setup-options'." (defclass ede-locate-base () ((root :initarg :root :documentation - "The root of these locat searches.") + "The root of these locate searches.") (file :documentation - "The last file search for with EDE locate.") + "The last file searched for with EDE locate.") (lastanswer :documentation "The last answer provided by the locator.") (hash :documentation @@ -245,10 +245,8 @@ variable `cedet-global-command'.") newroot)) (cl-defmethod ede-locate-file-in-project-impl ((loc ede-locate-global) - filesubstring) - "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT. -Searches are done under the current root of the EDE project -that created this EDE locate object." + filesubstring) + "Locate occurrences of FILESUBSTRING in LOC, using Gnu Global." (require 'cedet-global) (let ((default-directory (oref loc root))) (cedet-gnu-global-expand-filename filesubstring))) diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index b5995ffa397..48e73c20923 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -627,7 +627,8 @@ SYMBOL is a function that can be overridden." (beginning-of-line) (forward-line -1)) (let ((inhibit-read-only t)) - (insert (overload-docstring-extension symbol) "\n") + (insert (substitute-command-keys (overload-docstring-extension symbol)) + "\n") ;; NOTE TO SELF: ;; LIST ALL LOADED OVERRIDES FOR SYMBOL HERE ))) @@ -641,7 +642,8 @@ SYMBOL is a function that can be overridden." (fetch-overload symbol))) modes) - (insert (overload-docstring-extension symbol) "\n\n") + (insert (substitute-command-keys (overload-docstring-extension symbol)) + "\n\n") (insert (format-message "default function: `%s'\n" default)) (if override (insert (format-message "\noverride in buffer `%s': `%s'\n" @@ -872,24 +874,6 @@ invoked interactively." (when (setq mode (intern-soft mode)) (mode-local-describe-bindings-1 mode (called-interactively-p 'any)))) -;; ;;; find-func support (Emacs 21.4, or perhaps 22.1) -;; ;; -;; (condition-case nil -;; ;; Try to get find-func so we can modify it. -;; (require 'find-func) -;; (error nil)) - -;; (when (boundp 'find-function-regexp) -;; (unless (string-match "ine-overload" find-function-regexp) -;; (if (string-match "(def\\\\(" find-function-regexp) -;; (let ((end (match-end 0)) -;; ) -;; (setq find-function-regexp -;; (concat (substring find-function-regexp 0 end) -;; "ine-overload\\|ine-mode-local-override\\|" -;; "ine-child-mode\\|" -;; (substring find-function-regexp end))))))) - ;;; edebug support ;; (defun mode-local-setup-edebug-specs () diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 290cd907beb..a9af84af3d4 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -1191,7 +1191,7 @@ This function can be used by `completion-at-point-functions'." (defun semantic-analyze-notc-completion-at-point-function () "Return possible analysis completions at point. The completions provided are via `semantic-analyze-possible-completions', -but with the 'no-tc option passed in, which means constraints based +but with the `no-tc' option passed in, which means constraints based on what is being assigned to are ignored. This function can be used by `completion-at-point-functions'." (when (semantic-active-p) @@ -1207,7 +1207,7 @@ This function can be used by `completion-at-point-functions'." (defun semantic-analyze-nolongprefix-completion-at-point-function () "Return possible analysis completions at point. The completions provided are via `semantic-analyze-possible-completions', -but with the 'no-tc and 'no-longprefix option passed in, which means +but with the `no-tc' and `no-longprefix' option passed in, which means constraints resulting in a long multi-symbol dereference are ignored. This function can be used by `completion-at-point-functions'." (when (semantic-active-p) diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 1c25c7b0808..d5af635d14c 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -1513,7 +1513,7 @@ Override function for `semantic-tag-protection'." (define-mode-local-override semantic-find-tags-included c-mode (&optional table) - "Find all tags in TABLE that are of the 'include class. + "Find all tags in TABLE that are of the `include' class. TABLE is a tag table. See `semantic-something-to-tag-table'. For C++, we also have to search namespaces for include tags." (let ((tags (semantic-find-tags-by-class 'include table)) @@ -1948,7 +1948,7 @@ For types with a :parent, create faux namespaces to put TAG into." (define-mode-local-override semanticdb-find-table-for-include c-mode (includetag &optional table) "For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object -INCLUDETAG is a semantic TAG of class 'include. +INCLUDETAG is a semantic TAG of class `include'. TABLE is a semanticdb table that identifies where INCLUDETAG came from. TABLE is optional if INCLUDETAG has an overlay of :filename attribute. diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el index 293f535d60b..e5ce4cf233c 100644 --- a/lisp/cedet/semantic/db-find.el +++ b/lisp/cedet/semantic/db-find.el @@ -316,7 +316,7 @@ Default action as described in `semanticdb-find-translate-path'." ;;;###autoload (define-overloadable-function semanticdb-find-table-for-include (includetag &optional table) "For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object -INCLUDETAG is a semantic TAG of class 'include. +INCLUDETAG is a semantic TAG of class `include'. TABLE is a semanticdb table that identifies where INCLUDETAG came from. TABLE is optional if INCLUDETAG has an overlay of :filename attribute." ) @@ -854,7 +854,7 @@ This makes it appear more like the results of a `semantic-find-' call. Optional FIND-FILE-MATCH loads all files associated with RESULTS into buffers. This has the side effect of enabling `semantic-tag-buffer' to return a value. -If FIND-FILE-MATCH is 'name, then only the filename is stored +If FIND-FILE-MATCH is `name', then only the filename is stored in each tag instead of loading each file into a buffer. If the input RESULTS are not going to be used again, and if FIND-FILE-MATCH is nil, you can use `semanticdb-fast-strip-find-results' diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el index 3ceb3510ad2..65718a0532e 100644 --- a/lisp/cedet/semantic/doc.el +++ b/lisp/cedet/semantic/doc.el @@ -41,7 +41,7 @@ some documentation in a comment preceding TAG's definition which we can look for. When appropriate, this can be overridden by a language specific enhancement. Optional argument NOSNARF means to only return the lexical analyzer token for it. -If nosnarf if 'lex, then only return the lex token." +If NOSNARF is `lex', then only return the lex token." (if (not tag) (setq tag (semantic-current-tag))) (save-excursion (when (semantic-tag-with-position-p tag) @@ -66,7 +66,7 @@ If nosnarf if 'lex, then only return the lex token." If TAG is nil. use the tag under point. Searches the space between TAG and the preceding tag for a comment, and converts the comment into clean documentation. -Optional argument NOSNARF with a value of 'lex means to return +Optional argument NOSNARF with a value of `lex' means to return just the lexical token and not the string." (if (not tag) (setq tag (semantic-current-tag))) (save-excursion @@ -92,7 +92,7 @@ just the lexical token and not the string." "Snarf up the comment at POINT for `semantic-documentation-for-tag'. Attempt to strip out comment syntactic sugar. Argument NOSNARF means don't modify the found text. -If NOSNARF is 'lex, then return the lex token." +If NOSNARF is `lex', then return the lex token." (let* ((semantic-ignore-comments nil) (semantic-lex-analyzer #'semantic-comment-lexer)) (if (memq nosnarf '(lex flex)) ;; keep `flex' for compatibility diff --git a/lisp/cedet/semantic/find.el b/lisp/cedet/semantic/find.el index fdd5f5290f1..5450ac953f6 100644 --- a/lisp/cedet/semantic/find.el +++ b/lisp/cedet/semantic/find.el @@ -378,11 +378,11 @@ See `semantic-tag-protected-p' for details on which tags are returned." ;;;###autoload (define-overloadable-function semantic-find-tags-included (&optional table) - "Find all tags in TABLE that are of the 'include class. + "Find all tags in TABLE that are of the `include' class. TABLE is a tag table. See `semantic-something-to-tag-table'.") (defun semantic-find-tags-included-default (&optional table) - "Find all tags in TABLE that are of the 'include class. + "Find all tags in TABLE that are of the `include' class. TABLE is a tag table. See `semantic-something-to-tag-table'. By default, just call `semantic-find-tags-by-class'." (semantic-find-tags-by-class 'include table)) diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index d8ba6f275f3..fed50fb5dfa 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -171,7 +171,7 @@ That is remove the unsupported :help stuff." NAME specifies a special name that can be searched for later to recover the cached data with `semantic-get-cache-data'. LIFESPAN indicates how long the data cache will be remembered. -The default LIFESPAN is 'end-of-command. +The default LIFESPAN is `end-of-command'. Possible Lifespans are: `end-of-command' - Remove the cache at the end of the currently executing command. @@ -193,7 +193,7 @@ Possible Lifespans are: )) (defun semantic-cache-data-post-command-hook () - "Flush `semantic-cache-data-overlays' based 'lifespan property. + "Flush `semantic-cache-data-overlays' based `lifespan' property. Remove self from `post-command-hook' if it is empty." (let ((newcache nil) (oldcache semantic-cache-data-overlays)) diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el index 7738e06ff88..c8645c2b7d3 100644 --- a/lisp/cedet/semantic/lex.el +++ b/lisp/cedet/semantic/lex.el @@ -1815,13 +1815,13 @@ to keep comments as part of the token stream.") (make-variable-buffer-local 'semantic-ignore-comments) (defvar semantic-flex-enable-newlines nil - "When flexing, report 'newlines as syntactic elements. + "When flexing, report newlines as syntactic elements. Useful for languages where the newline is a special case terminator. Only set this on a per mode basis, not globally.") (make-variable-buffer-local 'semantic-flex-enable-newlines) (defvar semantic-flex-enable-whitespace nil - "When flexing, report 'whitespace as syntactic elements. + "When flexing, report whitespace as syntactic elements. Useful for languages where the syntax is whitespace dependent. Only set this on a per mode basis, not globally.") (make-variable-buffer-local 'semantic-flex-enable-whitespace) diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el index 587d084701d..22826635986 100644 --- a/lisp/cedet/semantic/sort.el +++ b/lisp/cedet/semantic/sort.el @@ -453,7 +453,7 @@ has some sort of label defining a parent. The parent return will be a string. The default behavior, if not overridden with -`tag-member-parent' gets the 'parent extra +`tag-member-parent' gets the `parent' extra specifier of TAG. If this function is overridden, use diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el index 89e8b40632d..04684035ac0 100644 --- a/lisp/cedet/semantic/symref.el +++ b/lisp/cedet/semantic/symref.el @@ -101,7 +101,7 @@ If no tools are supported, then 'grep is assumed.") (defun semantic-symref-calculate-rootdir () "Calculate the root directory for a symref search. -Start with and EDE project, or use the default directory." +Start with an EDE project, or use the default directory." (let* ((rootproj (when (and (featurep 'ede) ede-minor-mode) (ede-toplevel))) (rootdirbase (if rootproj @@ -162,7 +162,7 @@ ARGS are the initialization arguments to pass to the created class." ;;;###autoload (defun semantic-symref-find-references-by-name (name &optional scope tool-return) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'. @@ -186,7 +186,7 @@ to perform the search. This was added for use by a test harness." ;;;###autoload (defun semantic-symref-find-tags-by-name (name &optional scope) "Find a list of tags by NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -206,7 +206,7 @@ Returns an object of class `semantic-symref-result'." ;;;###autoload (defun semantic-symref-find-tags-by-regexp (name &optional scope) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -226,7 +226,7 @@ Returns an object of class `semantic-symref-result'." ;;;###autoload (defun semantic-symref-find-tags-by-completion (name &optional scope) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -246,7 +246,7 @@ Returns an object of class `semantic-symref-result'." ;;;###autoload (defun semantic-symref-find-file-references-by-name (name &optional scope) "Find a list of references to NAME in the current project. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." @@ -267,7 +267,7 @@ Returns an object of class `semantic-symref-result'." (defun semantic-symref-find-text (text &optional scope) "Find a list of occurrences of TEXT in the current project. TEXT is a regexp formatted for use with egrep. -Optional SCOPE specifies which file set to search. Defaults to 'project. +Optional SCOPE specifies which file set to search. Defaults to `project'. Refers to `semantic-symref-tool', to determine the reference tool to use for the current buffer. Returns an object of class `semantic-symref-result'." diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index 34fc8ba92ce..f53f5d201be 100644 --- a/lisp/cedet/semantic/tag.el +++ b/lisp/cedet/semantic/tag.el @@ -375,7 +375,7 @@ Optional argument IGNORABLE-ATTRIBUTES is passed down to (defun semantic-tag-of-type-p (tag type) "Compare TAG's type against TYPE. Non nil if equivalent. -TYPE can be a string, or a tag of class 'type. +TYPE can be a string, or a tag of class `type'. This can be complex since some tags might have a :type that is a tag, while other tags might just have a string. This function will also be return true of TAG's type is compared directly to the declaration of a @@ -462,12 +462,12 @@ pairs eliminated: "Create a generic semantic tag. NAME is a string representing the name of this tag. CLASS is the symbol that represents the class of tag this is, -such as 'variable, or 'function. +such as `variable', or `function'. ATTRIBUTES is a list of additional attributes belonging to this tag." (list name class (semantic-tag-make-plist attributes) nil nil)) (defsubst semantic-tag-new-variable (name type &optional default-value &rest attributes) - "Create a semantic tag of class 'variable. + "Create a semantic tag of class `variable'. NAME is the name of this variable. TYPE is a string or semantic tag representing the type of this variable. Optional DEFAULT-VALUE is a string representing the default value of this @@ -479,7 +479,7 @@ tag." attributes)) (defsubst semantic-tag-new-function (name type arg-list &rest attributes) - "Create a semantic tag of class 'function. + "Create a semantic tag of class `function'. NAME is the name of this function. TYPE is a string or semantic tag representing the type of this function. ARG-LIST is a list of strings or semantic tags representing the @@ -491,7 +491,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-type (name type members parents &rest attributes) - "Create a semantic tag of class 'type. + "Create a semantic tag of class `type'. NAME is the name of this type. TYPE is a string or semantic tag representing the type of this type. MEMBERS is a list of strings or semantic tags representing the @@ -516,7 +516,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-include (name system-flag &rest attributes) - "Create a semantic tag of class 'include. + "Create a semantic tag of class `include'. NAME is the name of this include. SYSTEM-FLAG represents that we were able to identify this include as belonging to the system, as opposed to belonging to the local project. @@ -526,7 +526,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-package (name detail &rest attributes) - "Create a semantic tag of class 'package. + "Create a semantic tag of class `package'. NAME is the name of this package. DETAIL is extra information about this package, such as a location where it can be found. @@ -536,7 +536,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." attributes)) (defsubst semantic-tag-new-code (name detail &rest attributes) - "Create a semantic tag of class 'code. + "Create a semantic tag of class `code'. NAME is a name for this code. DETAIL is extra information about the code. ATTRIBUTES is a list of additional attributes belonging to this tag." @@ -823,7 +823,7 @@ in SUPERS." (defun semantic-tag-type-superclass-protection (tag parentstring) "Return the inheritance protection in TAG from PARENTSTRING. PARENTSTRING is the name of the parent being inherited. -The return protection is a symbol, 'public, 'protection, and 'private." +The return protection is a symbol, `public', `protection', and `private'." (let ((supers (semantic-tag-get-attribute tag :superclasses))) (cond ((stringp supers) 'public) @@ -946,7 +946,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag." The returned value is a tag of the class that `semantic-tag-alias-class' returns for TAG. The default is to return the value of the :definition attribute. -Return nil if TAG is not of class 'alias." +Return nil if TAG is not of class `alias'." (when (semantic-tag-of-class-p tag 'alias) (:override (semantic-tag-get-attribute tag :definition)))) @@ -958,8 +958,8 @@ Return nil if TAG is not of class 'alias." "Return a list of components for TAG. A Component is a part of TAG which itself may be a TAG. Examples include the elements of a structure in a -tag of class 'type, or the list of arguments to a -tag of class 'function." +tag of class `type', or the list of arguments to a +tag of class `function'." ) (defun semantic-tag-components-default (tag) diff --git a/lisp/character-fold.el b/lisp/character-fold.el index 0e156c50dde..1e49fe2f0e5 100644 --- a/lisp/character-fold.el +++ b/lisp/character-fold.el @@ -22,65 +22,79 @@ ;;; Code: +(eval-and-compile (put 'character-fold-table 'char-table-extra-slots 1)) (defconst character-fold-table (eval-when-compile - (let* ((equiv (make-char-table 'character-fold-table)) - (table (unicode-property-table-internal 'decomposition)) - (func (char-table-extra-slot table 1))) + (let ((equiv (make-char-table 'character-fold-table)) + (equiv-multi (make-char-table 'character-fold-table)) + (table (unicode-property-table-internal 'decomposition))) + (set-char-table-extra-slot equiv 0 equiv-multi) + ;; Ensure the table is populated. - (map-char-table - (lambda (i v) (when (consp i) (funcall func (car i) v table))) - table) + (let ((func (char-table-extra-slot table 1))) + (map-char-table (lambda (char v) + (when (consp char) + (funcall func (car char) v table))) + table)) ;; Compile a list of all complex characters that each simple ;; character should match. + ;; In summary this loop does 3 things: + ;; - A complex character might be allowed to match its decomp. + ;; - The decomp is allowed to match the complex character. + ;; - A single char of the decomp might be allowed to match the + ;; character. + ;; Some examples in the comments below. (map-char-table - (lambda (i dec) - (when (consp dec) - ;; Discard a possible formatting tag. - (when (symbolp (car dec)) - (setq dec (cdr dec))) + (lambda (char decomp) + (when (consp decomp) ;; Skip trivial cases like ?a decomposing to (?a). - (unless (or (and (eq i (car dec)) - (not (cdr dec)))) - (let ((d dec) - (fold-decomp t) - k found) - (while (and d (not found)) - (setq k (pop d)) - ;; Is k a number or letter, per unicode standard? - (setq found (memq (get-char-code-property k 'general-category) - '(Lu Ll Lt Lm Lo Nd Nl No)))) - (if found - ;; Check if the decomposition has more than one letter, - ;; because then we don't want the first letter to match - ;; the decomposition. - (dolist (k d) - (when (and fold-decomp - (memq (get-char-code-property k 'general-category) - '(Lu Ll Lt Lm Lo Nd Nl No))) - (setq fold-decomp nil))) - ;; If there's no number or letter on the - ;; decomposition, take the first character in it. - (setq found (car-safe dec))) - ;; Finally, we only fold multi-char decomposition if at - ;; least one of the chars is non-spacing (combining). - (when fold-decomp - (setq fold-decomp nil) - (dolist (k dec) - (when (and (not fold-decomp) - (> (get-char-code-property k 'canonical-combining-class) 0)) - (setq fold-decomp t)))) - ;; Add i to the list of characters that k can - ;; represent. Also possibly add its decomposition, so we can - ;; match multi-char representations like (format "a%c" 769) - (when (and found (not (eq i k))) - (let ((chars (cons (char-to-string i) (aref equiv k)))) - (aset equiv k - (if fold-decomp - (cons (apply #'string dec) chars) - chars)))))))) + (unless (and (not (cdr decomp)) + (eq char (car decomp))) + (if (symbolp (car decomp)) + ;; Discard a possible formatting tag. + (setq decomp (cdr decomp)) + ;; If there's no formatting tag, ensure that char matches + ;; its decomp exactly. This is because we want 'ä' to + ;; match 'ä', but we don't want '¹' to match '1'. + (aset equiv char + (cons (apply #'string decomp) + (aref equiv char)))) + + ;; Allow the entire decomp to match char. If decomp has + ;; multiple characters, this is done by adding an entry + ;; to the alist of the first character in decomp. This + ;; allows 'ff' to match 'ff', 'ä' to match 'ä', and '1' to + ;; match '¹'. + (let ((make-decomp-match-char + (lambda (decomp char) + (if (cdr decomp) + (aset equiv-multi (car decomp) + (cons (cons (apply #'string (cdr decomp)) + (regexp-quote (string char))) + (aref equiv-multi (car decomp)))) + (aset equiv (car decomp) + (cons (char-to-string char) + (aref equiv (car decomp)))))))) + (funcall make-decomp-match-char decomp char) + ;; Do it again, without the non-spacing characters. + ;; This allows 'a' to match 'ä'. + (let ((simpler-decomp nil) + (found-one nil)) + (dolist (c decomp) + (if (> (get-char-code-property c 'canonical-combining-class) 0) + (setq found-one t) + (push c simpler-decomp))) + (when (and simpler-decomp found-one) + (funcall make-decomp-match-char simpler-decomp char) + ;; Finally, if the decomp only had one spacing + ;; character, we allow this character to match the + ;; decomp. This is to let 'a' match 'ä'. + (unless (cdr simpler-decomp) + (aset equiv (car simpler-decomp) + (cons (apply #'string decomp) + (aref equiv (car simpler-decomp))))))))))) table) ;; Add some manual entries. @@ -93,13 +107,34 @@ ;; Convert the lists of characters we compiled into regexps. (map-char-table - (lambda (i v) (let ((re (regexp-opt (cons (char-to-string i) v)))) - (if (consp i) - (set-char-table-range equiv i re) - (aset equiv i re)))) + (lambda (char dec-list) + (let ((re (regexp-opt (cons (char-to-string char) dec-list)))) + (if (consp char) + (set-char-table-range equiv char re) + (aset equiv char re)))) equiv) equiv)) - "Used for folding characters of the same group during search.") + "Used for folding characters of the same group during search. +This is a char-table with the `character-fold-table' subtype. + +Let us refer to the character in question by char-x. +Each entry is either nil (meaning char-x only matches literally) +or a regexp. This regexp should match anything that char-x can +match by itself \(including char-x). For instance, the default +regexp for the ?+ character is \"[+⁺₊﬩﹢＋]\". + +This table also has one extra slot which is also a char-table. +Each entry in the extra slot is an alist used for multi-character +matching (which may be nil). The elements of the alist should +have the form (SUFFIX . OTHER-REGEXP). If the characters after +char-x are equal to SUFFIX, then this combination of char-x + +SUFFIX is allowed to match OTHER-REGEXP. This is in addition to +char-x being allowed to match REGEXP. +For instance, the default alist for ?f includes: + \((\"fl\" . \"ffl\") (\"fi\" . \"ffi\") + (\"i\" . \"fi\") (\"f\" . \"ff\")) + +Exceptionally for the space character (32), ALIST is ignored.") (defun character-fold--make-space-string (n) "Return a string that matches N spaces." @@ -109,35 +144,80 @@ (make-list n (or (aref character-fold-table ?\s) " "))))) ;;;###autoload -(defun character-fold-to-regexp (string &optional _lax) +(defun character-fold-to-regexp (string &optional _lax from) "Return a regexp matching anything that character-folds into STRING. 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." +regexp) and other characters are `regexp-quote'd. + +If the resulting regexp would be too long for Emacs to handle, +just return the result of calling `regexp-quote' on STRING. + +FROM is for internal use. It specifies an index in the STRING +from which to start." (let* ((spaces 0) - (chars (mapcar #'identity string)) - (out chars)) - ;; When the user types a space, we want to match the table entry, - ;; but we also want the ?\s to be visible to `search-spaces-regexp'. - ;; See commit message for a longer description. - (while chars - (let ((c (car chars))) - (setcar chars - (cond - ((eq c ?\s) - (setq spaces (1+ spaces)) - nil) - ((> spaces 0) - (prog1 (concat (character-fold--make-space-string spaces) - (or (aref character-fold-table c) - (regexp-quote (string c)))) - (setq spaces 0))) - (t (or (aref character-fold-table c) - (regexp-quote (string c)))))) - (setq chars (cdr chars)))) - (concat (apply #'concat out) - (when (> spaces 0) - (character-fold--make-space-string spaces))))) + (multi-char-table (char-table-extra-slot character-fold-table 0)) + (i (or from 0)) + (end (length string)) + (out nil)) + ;; When the user types a space, we want to match the table entry + ;; for ?\s, which is generally a regexp like "[ ...]". However, + ;; the `search-spaces-regexp' variable doesn't "see" spaces inside + ;; these regexp constructs, so we need to use "\\( \\|[ ...]\\)" + ;; instead (to manually expose a space). Furthermore, the lax + ;; search engine acts on a bunch of spaces, not on individual + ;; spaces, so if the string contains sequential spaces like " ", we + ;; need to keep them grouped together like this: "\\( \\|[ ...][ ...]\\)". + (while (< i end) + (pcase (aref string i) + (`?\s (setq spaces (1+ spaces))) + (c (when (> spaces 0) + (push (character-fold--make-space-string spaces) out) + (setq spaces 0)) + (let ((regexp (or (aref character-fold-table c) + (regexp-quote (string c)))) + ;; Long string. The regexp would probably be too long. + (alist (unless (> end 50) + (aref multi-char-table c)))) + (push (let ((matched-entries nil) + (max-length 0)) + (dolist (entry alist) + (let* ((suffix (car entry)) + (len-suf (length suffix))) + (when (eq (compare-strings suffix 0 nil + string (1+ i) (+ i 1 len-suf) + nil) + t) + (push (cons len-suf (cdr entry)) matched-entries) + (setq max-length (max max-length len-suf))))) + ;; If no suffixes matched, just go on. + (if (not matched-entries) + regexp +;;; If N suffixes match, we "branch" out into N+1 executions for the +;;; length of the longest match. This means "fix" will match "fix" but +;;; not "fⅸ", but it's necessary to keep the regexp size from scaling +;;; exponentially. See https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html + (let ((subs (substring string (1+ i) (+ i 1 max-length)))) + ;; `i' is still going to inc by 1 below. + (setq i (+ i max-length)) + (concat + "\\(?:" + (mapconcat (lambda (entry) + (let ((length (car entry)) + (suffix-regexp (cdr entry))) + (concat suffix-regexp + (character-fold-to-regexp subs nil length)))) + `((0 . ,regexp) . ,matched-entries) "\\|") + "\\)")))) + out)))) + (setq i (1+ i))) + (when (> spaces 0) + (push (character-fold--make-space-string spaces) out)) + (let ((regexp (apply #'concat (nreverse out)))) + ;; Limited by `MAX_BUF_SIZE' in `regex.c'. + (if (> (length regexp) 5000) + (regexp-quote string) + regexp)))) ;;; Commands provided for completeness. diff --git a/lisp/desktop.el b/lisp/desktop.el index e95a8c9288b..5a709b9d5b6 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -519,8 +519,8 @@ code like (defun foo-restore-desktop-buffer ... - (add-to-list 'desktop-buffer-mode-handlers - '(foo-mode . foo-restore-desktop-buffer)) + (add-to-list \\='desktop-buffer-mode-handlers + \\='(foo-mode . foo-restore-desktop-buffer)) The major mode function must either be autoloaded, or of the form \"foobar-mode\" and defined in library \"foobar\", so that desktop @@ -586,8 +586,8 @@ code like (defun foo-desktop-restore ... - (add-to-list 'desktop-minor-mode-handlers - '(foo-mode . foo-desktop-restore)) + (add-to-list \\='desktop-minor-mode-handlers + \\='(foo-mode . foo-desktop-restore)) The minor mode function must either be autoloaded, or of the form \"foobar-mode\" and defined in library \"foobar\", so that desktop diff --git a/lisp/dframe.el b/lisp/dframe.el index d8ddbc8f08f..b5df1bcb7bd 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -420,7 +420,7 @@ CREATE-HOOK is a hook to run after creating a frame." (defun dframe-reposition-frame (new-frame parent-frame location) "Move NEW-FRAME to be relative to PARENT-FRAME. -LOCATION can be one of 'random, 'left, 'right, 'left-right, or 'top-bottom." +LOCATION can be one of `random', `left', `right', `left-right', or `top-bottom'." (if (featurep 'xemacs) (dframe-reposition-frame-xemacs new-frame parent-frame location) (dframe-reposition-frame-emacs new-frame parent-frame location))) @@ -431,7 +431,7 @@ LOCATION can be one of 'random, 'left, 'right, 'left-right, or 'top-bottom." (defun dframe-reposition-frame-emacs (new-frame parent-frame location) "Move NEW-FRAME to be relative to PARENT-FRAME. -LOCATION can be one of 'random, 'left-right, 'top-bottom, or +LOCATION can be one of `random', `left-right', `top-bottom', or a cons cell indicating a position of the form (LEFT . TOP)." ;; Position dframe. ;; Do no positioning if not on a windowing system, @@ -514,7 +514,7 @@ a cons cell indicating a position of the form (LEFT . TOP)." (defun dframe-reposition-frame-xemacs (_new-frame _parent-frame _location) "Move NEW-FRAME to be relative to PARENT-FRAME. -LOCATION can be one of 'random, 'left-right, or 'top-bottom." +LOCATION can be one of `random', `left-right', or `top-bottom'." ;; Not yet implemented ) diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 4ee830023fc..d13bc2ff4ff 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -1629,7 +1629,7 @@ COMPILE argument of `ad-activate' was supplied as nil." Only proper subtrees are considered, for example, if TREE is (1 (2 (3)) 4) then the subtrees will be 1 (2 (3)) 2 (3) 3 4, dotted structures are allowed too. Once a qualifying subtree has been found its subtrees will -not be considered anymore. (ad-substitute-tree 'atom 'identity tree) +not be considered anymore. (ad-substitute-tree \\='atom \\='identity tree) generates a copy of TREE." (cond ((consp tReE) (cons (if (funcall sUbTrEe-TeSt (car tReE)) @@ -2419,7 +2419,7 @@ as if they had been supplied to a function with TARGET-ARGLIST directly. Excess source arguments will be neglected, missing source arguments will be supplied as nil. Returns a `funcall' or `apply' form with the second element being `function' which has to be replaced by an actual function argument. -Example: (ad-map-arglists '(a &rest args) '(w x y z)) will return +Example: (ad-map-arglists \\='(a &rest args) \\='(w x y z)) will return (funcall ad--addoit-function a (car args) (car (cdr args)) (nth 2 args))." (let* ((parsed-source-arglist (ad-parse-arglist source-arglist)) (source-reqopt-args (append (nth 0 parsed-source-arglist) diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el index 99a329b021e..9dcebb2bf42 100644 --- a/lisp/emacs-lisp/avl-tree.el +++ b/lisp/emacs-lisp/avl-tree.el @@ -561,7 +561,7 @@ Note that if you don't care about the order in which FUNCTION is applied, just that the resulting list is in the correct order, then - (avl-tree-mapf function 'cons tree (not reverse)) + (avl-tree-mapf function \\='cons tree (not reverse)) is more efficient." (nreverse (avl-tree-mapf fun 'cons tree reverse))) diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index dc61e156130..12bd8dae08c 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -43,7 +43,7 @@ (defun backquote-list*-function (first &rest list) "Like `list' but the last argument is the tail of the new list. -For example (backquote-list* 'a 'b 'c) => (a b . c)" +For example (backquote-list* \\='a \\='b \\='c) => (a b . c)" ;; The recursive solution is much nicer: ;; (if list (cons first (apply 'backquote-list*-function list)) first)) ;; but Emacs is not very good at efficiently processing recursion. @@ -60,7 +60,7 @@ For example (backquote-list* 'a 'b 'c) => (a b . c)" (defmacro backquote-list*-macro (first &rest list) "Like `list' but the last argument is the tail of the new list. -For example (backquote-list* 'a 'b 'c) => (a b . c)" +For example (backquote-list* \\='a \\='b \\='c) => (a b . c)" ;; The recursive solution is much nicer: ;; (if list (list 'cons first (cons 'backquote-list*-macro list)) first)) ;; but Emacs is not very good at efficiently processing such things. diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index db200f3c504..b5b618e87d7 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -265,8 +265,8 @@ This option is enabled by default because it reduces Emacs memory usage." (defcustom byte-optimize-log nil "If non-nil, the byte-compiler will log its optimizations. -If this is 'source, then only source-level optimizations will be logged. -If it is 'byte, then only byte-level optimizations will be logged. +If this is `source', then only source-level optimizations will be logged. +If it is `byte', then only byte-level optimizations will be logged. The information is logged to `byte-compile-log-buffer'." :group 'bytecomp :type '(choice (const :tag "none" nil) @@ -456,10 +456,20 @@ Return the compile-time value of FORM." (byte-compile-recurse-toplevel (macroexp-progn body) (lambda (form) - (setf result - (byte-compile-eval - (byte-compile-top-level - (byte-compile-preprocess form)))))) + ;; Insulate the following variables + ;; against changes made in the + ;; subsidiary compilation. This + ;; prevents spurious warning + ;; messages: "not defined at runtime" + ;; etc. + (let ((byte-compile-unresolved-functions + byte-compile-unresolved-functions) + (byte-compile-new-defuns + byte-compile-new-defuns)) + (setf result + (byte-compile-eval + (byte-compile-top-level + (byte-compile-preprocess form))))))) (list 'quote result)))) (eval-and-compile . ,(lambda (&rest body) (byte-compile-recurse-toplevel @@ -503,6 +513,11 @@ defined with incorrect args.") Used for warnings about calling a function that is defined during compilation but won't necessarily be defined when the compiled file is loaded.") +(defvar byte-compile-new-defuns nil + "List of (runtime) functions defined in this compilation run. +This variable is used to qualify `byte-compile-noruntime-functions' when +outputting warnings about functions not being defined at runtime.") + ;; Variables for lexical binding (defvar byte-compile--lexical-environment nil "The current lexical environment.") @@ -1503,8 +1518,9 @@ extra args." ;; Separate the functions that will not be available at runtime ;; from the truly unresolved ones. (dolist (f byte-compile-unresolved-functions) - (setq f (car f)) - (if (fboundp f) (push f noruntime) (push f unresolved))) + (setq f (car f)) + (when (not (memq f byte-compile-new-defuns)) + (if (fboundp f) (push f noruntime) (push f unresolved)))) ;; Complain about the no-run-time functions (byte-compile-print-syms "the function `%s' might not be defined at runtime." @@ -1691,7 +1707,7 @@ Any other non-nil value of ARG means to ask the user. If optional argument LOAD is non-nil, loads the file after compiling. If compilation is needed, this functions returns the result of -`byte-compile-file'; otherwise it returns 'no-byte-compile." +`byte-compile-file'; otherwise it returns `no-byte-compile'." (interactive (let ((file buffer-file-name) (file-name nil) @@ -1961,6 +1977,8 @@ With argument ARG, insert value in current buffer after the form." ;; compiled. A: Yes! b-c-u-f might contain dross from a ;; previous byte-compile. (setq byte-compile-unresolved-functions nil) + (setq byte-compile-noruntime-functions nil) + (setq byte-compile-new-defuns nil) ;; Compile the forms from the input buffer. (while (progn @@ -2287,8 +2305,7 @@ list that represents a doc string reference. ;; byte-compile-warn-about-unresolved-functions. (if (memq funsym byte-compile-noruntime-functions) (setq byte-compile-noruntime-functions - (delq funsym byte-compile-noruntime-functions) - byte-compile-noruntime-functions) + (delq funsym byte-compile-noruntime-functions)) (setq byte-compile-unresolved-functions (delq (assq funsym byte-compile-unresolved-functions) byte-compile-unresolved-functions))))) @@ -2346,8 +2363,21 @@ list that represents a doc string reference. (defun byte-compile-file-form-require (form) (let ((args (mapcar 'eval (cdr form))) (hist-orig load-history) - hist-new) + hist-new prov-cons) (apply 'require args) + + ;; Record the functions defined by the require in `byte-compile-new-defuns'. + (setq hist-new load-history) + (setq prov-cons (cons 'provide (car args))) + (while (and hist-new + (not (member prov-cons (car hist-new)))) + (setq hist-new (cdr hist-new))) + (when hist-new + (dolist (x (car hist-new)) + (when (and (consp x) + (memq (car x) '(defun t))) + (push (cdr x) byte-compile-new-defuns)))) + (when (byte-compile-warning-enabled-p 'cl-functions) ;; Detect (require 'cl) in a way that works even if cl is already loaded. (if (member (car args) '("cl" cl)) @@ -2403,6 +2433,7 @@ not to take responsibility for the actual compilation of the code." (byte-compile-current-form name)) ; For warnings. (byte-compile-set-symbol-position name) + (push name byte-compile-new-defuns) ;; When a function or macro is defined, add it to the call tree so that ;; we can tell when functions are not used. (if byte-compile-generate-call-tree @@ -3710,16 +3741,25 @@ discarding." (byte-defop-compiler-1 quote) (defun byte-compile-setq (form) - (let ((args (cdr form))) - (if args - (while args - (byte-compile-form (car (cdr args))) - (or byte-compile--for-effect (cdr (cdr args)) - (byte-compile-out 'byte-dup 0)) - (byte-compile-variable-set (car args)) - (setq args (cdr (cdr args)))) - ;; (setq), with no arguments. - (byte-compile-form nil byte-compile--for-effect)) + (let* ((args (cdr form)) + (len (length args))) + (if (= (logand len 1) 1) + (progn + (byte-compile-log-warning + (format "missing value for `%S' at end of setq" (car (last args))) + nil :error) + (byte-compile-form + `(signal 'wrong-number-of-arguments '(setq ,len)) + byte-compile--for-effect)) + (if args + (while args + (byte-compile-form (car (cdr args))) + (or byte-compile--for-effect (cdr (cdr args)) + (byte-compile-out 'byte-dup 0)) + (byte-compile-variable-set (car args)) + (setq args (cdr (cdr args)))) + ;; (setq), with no arguments. + (byte-compile-form nil byte-compile--for-effect))) (setq byte-compile--for-effect nil))) (defun byte-compile-setq-default (form) @@ -3973,8 +4013,13 @@ that suppresses all warnings during execution of BODY." (setq byte-compile--for-effect nil))) (defun byte-compile-funcall (form) - (mapc 'byte-compile-form (cdr form)) - (byte-compile-out 'byte-call (length (cdr (cdr form))))) + (if (cdr form) + (progn + (mapc 'byte-compile-form (cdr form)) + (byte-compile-out 'byte-call (length (cdr (cdr form))))) + (byte-compile-log-warning "`funcall' called with no arguments" nil :error) + (byte-compile-form '(signal 'wrong-number-of-arguments '(funcall 0)) + byte-compile--for-effect))) ;; let binding diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index efa9a3da011..355913acbed 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -473,25 +473,28 @@ places where they originally did not directly appear." :fun-body ,(cconv--convert-function () body env form))) (`(setq . ,forms) ; setq special form - (let ((prognlist ())) - (while forms - (let* ((sym (pop forms)) - (sym-new (or (cdr (assq sym env)) sym)) - (value (cconv-convert (pop forms) env extend))) - (push (pcase sym-new - ((pred symbolp) `(setq ,sym-new ,value)) - (`(car-safe ,iexp) `(setcar ,iexp ,value)) - ;; This "should never happen", but for variables which are - ;; mutated+captured+unused, we may end up trying to `setq' - ;; on a closed-over variable, so just drop the setq. - (_ ;; (byte-compile-report-error - ;; (format "Internal error in cconv of (setq %s ..)" - ;; sym-new)) - value)) - prognlist))) - (if (cdr prognlist) - `(progn . ,(nreverse prognlist)) - (car prognlist)))) + (if (= (logand (length forms) 1) 1) + ;; With an odd number of args, let bytecomp.el handle the error. + form + (let ((prognlist ())) + (while forms + (let* ((sym (pop forms)) + (sym-new (or (cdr (assq sym env)) sym)) + (value (cconv-convert (pop forms) env extend))) + (push (pcase sym-new + ((pred symbolp) `(setq ,sym-new ,value)) + (`(car-safe ,iexp) `(setcar ,iexp ,value)) + ;; This "should never happen", but for variables which are + ;; mutated+captured+unused, we may end up trying to `setq' + ;; on a closed-over variable, so just drop the setq. + (_ ;; (byte-compile-report-error + ;; (format "Internal error in cconv of (setq %s ..)" + ;; sym-new)) + value)) + prognlist))) + (if (cdr prognlist) + `(progn . ,(nreverse prognlist)) + (car prognlist))))) (`(,(and (or `funcall `apply) callsym) ,fun . ,args) ;; These are not special forms but we treat them separately for the needs diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el index 06601252a4c..c0a42038e94 100644 --- a/lisp/emacs-lisp/chart.el +++ b/lisp/emacs-lisp/chart.el @@ -479,7 +479,7 @@ See `chart-sort-matchlist' for more details." (defun chart-sort-matchlist (namelst numlst pred) "Sort NAMELST and NUMLST (both sequence objects) based on predicate PRED. -PRED should be the equivalent of '<, except it must expect two +PRED should be the equivalent of `<', except it must expect two cons cells of the form (NAME . NUM). See `sort' for more details." ;; 1 - create 1 list of cons cells (let ((newlist nil) @@ -571,7 +571,7 @@ R1 and R2 are dotted pairs. Colorize it with FACE." (defun chart-bar-quickie (dir title namelst nametitle numlst numtitle &optional max sort-pred) "Wash over the complex EIEIO stuff and create a nice bar chart. -Create it going in direction DIR ['horizontal 'vertical] with TITLE +Create it going in direction DIR [`horizontal' `vertical'] with TITLE using a name sequence NAMELST labeled NAMETITLE with values NUMLST labeled NUMTITLE. Optional arguments: diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index bf1a21acaf1..88d5f323f86 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -270,6 +270,7 @@ made in the style guide relating to order." (defcustom checkdoc-package-keywords-flag nil "Non-nil means warn if this file's package keywords are not recognized. Currently, all recognized keywords must be on `finder-known-keywords'." + :version "25.1" :type 'boolean) (define-obsolete-variable-alias 'checkdoc-style-hooks diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 9e6102c7300..78f580cbfd0 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -797,10 +797,10 @@ methods.") ;;; Define some pre-defined generic functions, used internally. -(define-error 'cl-no-method "No method for %S") -(define-error 'cl-no-next-method "No next method for %S" 'cl-no-method) -(define-error 'cl-no-primary-method "No primary method for %S" 'cl-no-method) -(define-error 'cl-no-applicable-method "No applicable method for %S" +(define-error 'cl-no-method "No method") +(define-error 'cl-no-next-method "No next method" 'cl-no-method) +(define-error 'cl-no-primary-method "No primary method" 'cl-no-method) +(define-error 'cl-no-applicable-method "No applicable method" 'cl-no-method) (cl-defgeneric cl-no-next-method (generic method &rest args) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 80f0cd73cee..c8aad3aafc8 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -298,9 +298,10 @@ FORM is of the form (ARGS . BODY)." (if (stringp (car header)) (pop header)) ;; Be careful with make-symbol and (back)quote, ;; see bug#12884. - (let ((print-gensym nil) (print-quoted t)) - (format "%S" (cons 'fn (cl--make-usage-args - orig-args))))) + (help--docstring-quote + (let ((print-gensym nil) (print-quoted t)) + (format "%S" (cons 'fn (cl--make-usage-args + orig-args)))))) header))) ;; FIXME: we'd want to choose an arg name for the &rest param ;; and pass that as `expr' to cl--do-arglist, but that ends up @@ -2829,8 +2830,8 @@ is a shorthand for (NAME NAME)." (defun cl-struct-sequence-type (struct-type) "Return the sequence used to build STRUCT-TYPE. -STRUCT-TYPE is a symbol naming a struct type. Return 'vector or -'list, or nil if STRUCT-TYPE is not a struct type. " +STRUCT-TYPE is a symbol naming a struct type. Return `vector' or +`list', or nil if STRUCT-TYPE is not a struct type. " (declare (side-effect-free t) (pure t)) (cl--struct-class-type (cl--struct-get-class struct-type))) @@ -2884,7 +2885,7 @@ Of course, we really can't know that for sure, so it's just a heuristic." (put 'real 'cl-deftype-satisfies #'numberp) (put 'fixnum 'cl-deftype-satisfies #'integerp) (put 'base-char 'cl-deftype-satisfies #'characterp) -(put 'character 'cl-deftype-satisfies #'integerp) +(put 'character 'cl-deftype-satisfies #'natnump) ;;;###autoload diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el index 03480b2756b..4fc271b34ce 100644 --- a/lisp/emacs-lisp/cl-preloaded.el +++ b/lisp/emacs-lisp/cl-preloaded.el @@ -3,6 +3,7 @@ ;; Copyright (C) 2015 Free Software Foundation, Inc ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> +;; Package: emacs ;; This file is part of GNU Emacs. diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 56f95111ab8..321895de4e1 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -148,7 +148,7 @@ BODY contains code to execute each time the mode is enabled or disabled. For example, you could write (define-minor-mode foo-mode \"If enabled, foo on you!\" - :lighter \" Foo\" :require 'foo :global t :group 'hassle :version \"27.5\" + :lighter \" Foo\" :require \\='foo :global t :group \\='hassle :version \"27.5\" ...BODY CODE...)" (declare (doc-string 2) (debug (&define name string-or-null-p @@ -502,7 +502,7 @@ Valid keywords and arguments are: :inherit Parent keymap. :group Ignored. :suppress Non-nil to call `suppress-keymap' on keymap, - 'nodigits to suppress digits as prefix arguments." + `nodigits' to suppress digits as prefix arguments." (let (inherit dense suppress) (while args (let ((key (pop args)) diff --git a/lisp/emacs-lisp/eieio-compat.el b/lisp/emacs-lisp/eieio-compat.el index e48e2d2af83..9f1b8951a1c 100644 --- a/lisp/emacs-lisp/eieio-compat.el +++ b/lisp/emacs-lisp/eieio-compat.el @@ -4,6 +4,7 @@ ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Keywords: OO, lisp +;; Package: eieio ;; This file is part of GNU Emacs. diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 21c1f1be394..02ae41b9c6b 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -187,7 +187,7 @@ 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...)" +[:tags \\='(TAG...)] BODY...)" (declare (debug (&define :name test name sexp [&optional stringp] [&rest keywordp sexp] def-body)) @@ -374,9 +374,9 @@ Returns nil." Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES, and aborts the current test as failed if it doesn't." (let ((signaled-conditions (get (car condition) 'error-conditions)) - (handled-conditions (cl-etypecase type - (list type) - (symbol (list type))))) + (handled-conditions (pcase-exhaustive type + ((pred listp) type) + ((pred symbolp) (list type))))) (cl-assert signaled-conditions) (unless (cl-intersection signaled-conditions handled-conditions) (ert-fail (append @@ -466,18 +466,18 @@ Errors during evaluation are caught and handled like nil." (defun ert--explain-format-atom (x) "Format the atom X for `ert--explain-equal'." - (cl-typecase x - (character (list x (format "#x%x" x) (format "?%c" x))) - (fixnum (list x (format "#x%x" x))) - (t x))) + (pcase x + ((pred characterp) (list x (format "#x%x" x) (format "?%c" x))) + ((pred integerp) (list x (format "#x%x" x))) + (_ x))) (defun ert--explain-equal-rec (a b) "Return a programmer-readable explanation of why A and B are not `equal'. Returns nil if they are." (if (not (equal (type-of a) (type-of b))) `(different-types ,a ,b) - (cl-etypecase a - (cons + (pcase-exhaustive a + ((pred consp) (let ((a-proper-p (ert--proper-list-p a)) (b-proper-p (ert--proper-list-p b))) (if (not (eql (not a-proper-p) (not b-proper-p))) @@ -502,24 +502,26 @@ Returns nil if they are." `(cdr ,cdr-x) (cl-assert (equal a b) t) nil)))))))) - (array (if (not (equal (length a) (length b))) - `(arrays-of-different-length ,(length a) ,(length b) - ,a ,b - ,@(unless (char-table-p a) - `(first-mismatch-at - ,(cl-mismatch a b :test 'equal)))) - (cl-loop for i from 0 - for ai across a - for bi across b - for xi = (ert--explain-equal-rec ai bi) - do (when xi (cl-return `(array-elt ,i ,xi))) - finally (cl-assert (equal a b) t)))) - (atom (if (not (equal a b)) - (if (and (symbolp a) (symbolp b) (string= a b)) - `(different-symbols-with-the-same-name ,a ,b) - `(different-atoms ,(ert--explain-format-atom a) - ,(ert--explain-format-atom b))) - nil))))) + ((pred arrayp) + (if (not (equal (length a) (length b))) + `(arrays-of-different-length ,(length a) ,(length b) + ,a ,b + ,@(unless (char-table-p a) + `(first-mismatch-at + ,(cl-mismatch a b :test 'equal)))) + (cl-loop for i from 0 + for ai across a + for bi across b + for xi = (ert--explain-equal-rec ai bi) + do (when xi (cl-return `(array-elt ,i ,xi))) + finally (cl-assert (equal a b) t)))) + ((pred atom) + (if (not (equal a b)) + (if (and (symbolp a) (symbolp b) (string= a b)) + `(different-symbols-with-the-same-name ,a ,b) + `(different-atoms ,(ert--explain-format-atom a) + ,(ert--explain-format-atom b))) + nil))))) (defun ert--explain-equal (a b) "Explainer function for `equal'." @@ -694,23 +696,20 @@ and is displayed in front of the value of MESSAGE-FORM." (print-level 8) (print-length 50)) (dolist (frame backtrace) - (cl-ecase (car frame) - ((nil) + (pcase-exhaustive frame + (`(nil ,special-operator . ,arg-forms) ;; Special operator. - (cl-destructuring-bind (special-operator &rest arg-forms) - (cdr frame) - (insert - (format " %S\n" (cons special-operator arg-forms))))) - ((t) + (insert + (format " %S\n" (cons special-operator arg-forms)))) + (`(t ,fn . ,args) ;; Function call. - (cl-destructuring-bind (fn &rest args) (cdr frame) - (insert (format " %S(" fn)) - (cl-loop for firstp = t then nil - for arg in args do - (unless firstp - (insert " ")) - (insert (format "%S" arg))) - (insert ")\n"))))))) + (insert (format " %S(" fn)) + (cl-loop for firstp = t then nil + for arg in args do + (unless firstp + (insert " ")) + (insert (format "%S" arg))) + (insert ")\n")))))) ;; A container for the state of the execution of a single test and ;; environment data needed during its execution. @@ -894,33 +893,32 @@ t -- Always matches. RESULT." ;; It would be easy to add `member' and `eql' types etc., but I ;; haven't bothered yet. - (cl-etypecase result-type - ((member nil) nil) - ((member t) t) - ((member :failed) (ert-test-failed-p result)) - ((member :passed) (ert-test-passed-p result)) - ((member :skipped) (ert-test-skipped-p result)) - (cons - (cl-destructuring-bind (operator &rest operands) result-type - (cl-ecase operator - (and - (cl-case (length operands) - (0 t) - (t - (and (ert-test-result-type-p result (car operands)) - (ert-test-result-type-p result `(and ,@(cdr operands))))))) - (or - (cl-case (length operands) - (0 nil) - (t - (or (ert-test-result-type-p result (car operands)) - (ert-test-result-type-p result `(or ,@(cdr operands))))))) - (not - (cl-assert (eql (length operands) 1)) - (not (ert-test-result-type-p result (car operands)))) - (satisfies - (cl-assert (eql (length operands) 1)) - (funcall (car operands) result))))))) + (pcase-exhaustive result-type + ('nil nil) + ('t t) + (:failed (ert-test-failed-p result)) + (:passed (ert-test-passed-p result)) + (:skipped (ert-test-skipped-p result)) + (`(,operator . ,operands) + (cl-ecase operator + (and + (cl-case (length operands) + (0 t) + (t + (and (ert-test-result-type-p result (car operands)) + (ert-test-result-type-p result `(and ,@(cdr operands))))))) + (or + (cl-case (length operands) + (0 nil) + (t + (or (ert-test-result-type-p result (car operands)) + (ert-test-result-type-p result `(or ,@(cdr operands))))))) + (not + (cl-assert (eql (length operands) 1)) + (not (ert-test-result-type-p result (car operands)))) + (satisfies + (cl-assert (eql (length operands) 1)) + (funcall (car operands) result)))))) (defun ert-test-result-expected-p (test result) "Return non-nil if TEST's expected result type matches RESULT." @@ -961,95 +959,96 @@ as (satisfies ...), strings, :new, etc. make use of UNIVERSE. Selectors that do not, such as (member ...), just return the set implied by them without checking whether it is really contained in UNIVERSE." - ;; This code needs to match the etypecase in + ;; This code needs to match the cases in ;; `ert-insert-human-readable-selector'. - (cl-etypecase selector - ((member nil) nil) - ((member t) (cl-etypecase universe - (list universe) - ((member t) (ert-select-tests "" universe)))) - ((member :new) (ert-select-tests - `(satisfies ,(lambda (test) - (null (ert-test-most-recent-result test)))) - universe)) - ((member :failed) (ert-select-tests - `(satisfies ,(lambda (test) - (ert-test-result-type-p - (ert-test-most-recent-result test) - ':failed))) - universe)) - ((member :passed) (ert-select-tests - `(satisfies ,(lambda (test) - (ert-test-result-type-p - (ert-test-most-recent-result test) - ':passed))) - universe)) - ((member :expected) (ert-select-tests - `(satisfies - ,(lambda (test) - (ert-test-result-expected-p - test - (ert-test-most-recent-result test)))) - universe)) - ((member :unexpected) (ert-select-tests `(not :expected) universe)) - (string - (cl-etypecase universe - ((member t) (mapcar #'ert-get-test - (apropos-internal selector #'ert-test-boundp))) - (list (cl-remove-if-not (lambda (test) - (and (ert-test-name test) - (string-match selector - (symbol-name - (ert-test-name test))))) - universe)))) - (ert-test (list selector)) - (symbol + (pcase-exhaustive selector + ('nil nil) + ('t (pcase-exhaustive universe + ((pred listp) universe) + (`t (ert-select-tests "" universe)))) + (:new (ert-select-tests + `(satisfies ,(lambda (test) + (null (ert-test-most-recent-result test)))) + universe)) + (:failed (ert-select-tests + `(satisfies ,(lambda (test) + (ert-test-result-type-p + (ert-test-most-recent-result test) + ':failed))) + universe)) + (:passed (ert-select-tests + `(satisfies ,(lambda (test) + (ert-test-result-type-p + (ert-test-most-recent-result test) + ':passed))) + universe)) + (:expected (ert-select-tests + `(satisfies + ,(lambda (test) + (ert-test-result-expected-p + test + (ert-test-most-recent-result test)))) + universe)) + (:unexpected (ert-select-tests `(not :expected) universe)) + ((pred stringp) + (pcase-exhaustive universe + (`t (mapcar #'ert-get-test + (apropos-internal selector #'ert-test-boundp))) + ((pred listp) + (cl-remove-if-not (lambda (test) + (and (ert-test-name test) + (string-match selector + (symbol-name + (ert-test-name test))))) + universe)))) + ((pred ert-test-p) (list selector)) + ((pred symbolp) (cl-assert (ert-test-boundp selector)) (list (ert-get-test selector))) - (cons - (cl-destructuring-bind (operator &rest operands) selector - (cl-ecase operator - (member - (mapcar (lambda (purported-test) - (cl-etypecase purported-test - (symbol (cl-assert (ert-test-boundp purported-test)) - (ert-get-test purported-test)) - (ert-test purported-test))) - operands)) - (eql - (cl-assert (eql (length operands) 1)) - (ert-select-tests `(member ,@operands) universe)) - (and - ;; Do these definitions of AND, NOT and OR satisfy de - ;; Morgan's laws? Should they? - (cl-case (length operands) - (0 (ert-select-tests 't universe)) - (t (ert-select-tests `(and ,@(cdr operands)) - (ert-select-tests (car operands) - universe))))) - (not - (cl-assert (eql (length operands) 1)) - (let ((all-tests (ert-select-tests 't universe))) - (cl-set-difference all-tests - (ert-select-tests (car operands) - all-tests)))) - (or - (cl-case (length operands) - (0 (ert-select-tests 'nil universe)) - (t (cl-union (ert-select-tests (car operands) universe) - (ert-select-tests `(or ,@(cdr operands)) - universe))))) - (tag - (cl-assert (eql (length operands) 1)) - (let ((tag (car operands))) - (ert-select-tests `(satisfies - ,(lambda (test) - (member tag (ert-test-tags test)))) - universe))) - (satisfies - (cl-assert (eql (length operands) 1)) - (cl-remove-if-not (car operands) - (ert-select-tests 't universe)))))))) + (`(,operator . ,operands) + (cl-ecase operator + (member + (mapcar (lambda (purported-test) + (pcase-exhaustive purported-test + ((pred symbolp) + (cl-assert (ert-test-boundp purported-test)) + (ert-get-test purported-test)) + ((pred ert-test-p) purported-test))) + operands)) + (eql + (cl-assert (eql (length operands) 1)) + (ert-select-tests `(member ,@operands) universe)) + (and + ;; Do these definitions of AND, NOT and OR satisfy de + ;; Morgan's laws? Should they? + (cl-case (length operands) + (0 (ert-select-tests 't universe)) + (t (ert-select-tests `(and ,@(cdr operands)) + (ert-select-tests (car operands) + universe))))) + (not + (cl-assert (eql (length operands) 1)) + (let ((all-tests (ert-select-tests 't universe))) + (cl-set-difference all-tests + (ert-select-tests (car operands) + all-tests)))) + (or + (cl-case (length operands) + (0 (ert-select-tests 'nil universe)) + (t (cl-union (ert-select-tests (car operands) universe) + (ert-select-tests `(or ,@(cdr operands)) + universe))))) + (tag + (cl-assert (eql (length operands) 1)) + (let ((tag (car operands))) + (ert-select-tests `(satisfies + ,(lambda (test) + (member tag (ert-test-tags test)))) + universe))) + (satisfies + (cl-assert (eql (length operands) 1)) + (cl-remove-if-not (car operands) + (ert-select-tests 't universe))))))) (defun ert--insert-human-readable-selector (selector) "Insert a human-readable presentation of SELECTOR into the current buffer." @@ -1058,26 +1057,24 @@ contained in UNIVERSE." ;; `most-recent-result' slots of test case objects in (eql ...) or ;; (member ...) selectors. (cl-labels ((rec (selector) - ;; This code needs to match the etypecase in + ;; This code needs to match the cases in ;; `ert-select-tests'. - (cl-etypecase selector - ((or (member nil t - :new :failed :passed - :expected :unexpected) - string - symbol) + (pcase-exhaustive selector + ((or + ;; 'nil 't :new :failed :passed :expected :unexpected + (pred stringp) + (pred symbolp)) selector) - (ert-test + ((pred ert-test-p) (if (ert-test-name selector) (make-symbol (format "<%S>" (ert-test-name selector))) (make-symbol "<unnamed test>"))) - (cons - (cl-destructuring-bind (operator &rest operands) selector - (cl-ecase operator - ((member eql and not or) - `(,operator ,@(mapcar #'rec operands))) - ((member tag satisfies) - selector))))))) + (`(,operator . ,operands) + (pcase operator + ((or 'member 'eql 'and 'not 'or) + `(,operator ,@(mapcar #'rec operands))) + ((or 'tag 'satisfies) + selector)))))) (insert (format "%S" (rec selector))))) diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el index 94fe6c3d441..1fea38c49c1 100644 --- a/lisp/emacs-lisp/gv.el +++ b/lisp/emacs-lisp/gv.el @@ -260,6 +260,8 @@ The return value is the last VAL in the list. \(fn PLACE VAL PLACE VAL ...)" (declare (debug (&rest [gv-place form]))) + (if (/= (logand (length args) 1) 0) + (signal 'wrong-number-of-arguments (list 'setf (length args)))) (if (and args (null (cddr args))) (let ((place (pop args)) (val (car args))) @@ -534,7 +536,7 @@ This macro only makes sense when used in a place." "Return a reference to PLACE. This is like the `&' operator of the C language. Note: this only works reliably with lexical binding mode, except for very -simple PLACEs such as (function-symbol 'foo) which will also work in dynamic +simple PLACEs such as (function-symbol \\='foo) which will also work in dynamic binding mode." (let ((code (gv-letplace (getter setter) place diff --git a/lisp/emacs-lisp/let-alist.el b/lisp/emacs-lisp/let-alist.el index 0b5dedea9d2..0b647a028ca 100644 --- a/lisp/emacs-lisp/let-alist.el +++ b/lisp/emacs-lisp/let-alist.el @@ -120,10 +120,10 @@ For instance, the following code essentially expands to - (let ((.title (cdr (assq 'title alist))) - (.body (cdr (assq 'body alist))) - (.site (cdr (assq 'site alist))) - (.site.contents (cdr (assq 'contents (cdr (assq 'site alist)))))) + (let ((.title (cdr (assq \\='title alist))) + (.body (cdr (assq \\='body alist))) + (.site (cdr (assq \\='site alist))) + (.site.contents (cdr (assq \\='contents (cdr (assq \\='site alist)))))) (if (and .title .body) .body .site diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 9ce0dfd49e8..3448b72c3f1 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -106,8 +106,10 @@ "define-global-minor-mode" "define-globalized-minor-mode" "define-derived-mode" "define-generic-mode" + "ert-deftest" "cl-defun" "cl-defsubst" "cl-defmacro" - "cl-define-compiler-macro" + "cl-define-compiler-macro" "cl-defgeneric" + "cl-defmethod" ;; CL. "define-compiler-macro" "define-modify-macro" "defsetf" "define-setf-expander" @@ -270,7 +272,7 @@ This will generate compile-time constants from BINDINGS." "define-derived-mode" "define-minor-mode" "define-generic-mode" "define-global-minor-mode" "define-globalized-minor-mode" "define-skeleton" - "define-widget")) + "define-widget" "ert-deftest")) (el-vdefs '("defconst" "defcustom" "defvaralias" "defvar-local" "defface")) (el-tdefs '("defgroup" "deftheme")) diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index 2cd34e12810..a1bc38ce2bf 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el @@ -279,7 +279,7 @@ a special meaning: whereas a depth of -100 means that the advice should be outermost. If PLACE is a symbol, its `default-value' will be affected. -Use (local 'SYMBOL) if you want to apply FUNCTION to SYMBOL buffer-locally. +Use (local \\='SYMBOL) if you want to apply FUNCTION to SYMBOL buffer-locally. Use (var VAR) if you want to apply FUNCTION to the (lexical) VAR. If one of FUNCTION or OLDFUN is interactive, then the resulting function @@ -289,7 +289,10 @@ is also interactive. There are 3 cases: argument (the interactive spec of OLDFUN, which it can pass to `advice-eval-interactive-spec') and return the list of arguments to use. - Else, use the interactive spec of FUNCTION and ignore the one of OLDFUN." - (declare (debug t)) ;;(indent 2) + (declare + ;;(indent 2) + (debug (form [&or symbolp ("local" form) ("var" sexp) gv-place] + form &optional form))) `(advice--add-function ,where (gv-ref ,(advice--normalize-place place)) ,function ,props)) @@ -311,7 +314,8 @@ is also interactive. There are 3 cases: If FUNCTION was not added to PLACE, do nothing. Instead of FUNCTION being the actual function, it can also be the `name' of the piece of advice." - (declare (debug t)) + (declare (debug ([&or symbolp ("local" form) ("var" sexp) gv-place] + form))) (gv-letplace (getter setter) (advice--normalize-place place) (macroexp-let2 nil new `(advice--remove-function ,getter ,function) `(unless (eq ,new ,getter) ,(funcall setter new))))) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index fdad84a117a..97b89975469 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -5,7 +5,7 @@ ;; Author: Tom Tromey <tromey@redhat.com> ;; Daniel Hackney <dan@haxney.org> ;; Created: 10 Mar 2007 -;; Version: 1.0.1 +;; Version: 1.1.0 ;; Keywords: tools ;; Package-Requires: ((tabulated-list "1.0")) @@ -24,14 +24,6 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. -;;; Change Log: - -;; 2 Apr 2007 - now using ChangeLog file -;; 15 Mar 2007 - updated documentation -;; 14 Mar 2007 - Changed how obsolete packages are handled -;; 13 Mar 2007 - Wrote package-install-from-buffer -;; 12 Mar 2007 - Wrote package-menu mode - ;;; Commentary: ;; The idea behind package.el is to be able to download packages and @@ -69,6 +61,7 @@ ;; * Download. Fetching the package from ELPA. ;; * Install. Untar the package, or write the .el file, into ;; ~/.emacs.d/elpa/ directory. +;; * Autoload generation. ;; * Byte compile. Currently this phase is done during install, ;; but we may change this. ;; * Activate. Evaluate the autoloads for the package to make it @@ -127,14 +120,9 @@ ;; - "installed" instead of a blank in the status column ;; - tramp needs its files to be compiled in a certain order. ;; how to handle this? fix tramp? -;; - on emacs 21 we don't kill the -autoloads.el buffer. what about 22? ;; - maybe we need separate .elc directories for various emacs versions ;; and also emacs-vs-xemacs. That way conditional compilation can ;; work. But would this break anything? -;; - should store the package's keywords in archive-contents, then -;; let the users filter the package-menu by keyword. See -;; finder-by-keyword. (We could also let people view the -;; Commentary, but it isn't clear how useful this is.) ;; - William Xu suggests being able to open a package file without ;; installing it ;; - Interface with desktop.el so that restarting after an install @@ -145,15 +133,9 @@ ;; private data dir, aka ".../etc". Or, maybe data-directory ;; needs to be a list (though this would be less nice) ;; a few packages want this, eg sokoban -;; - package menu needs: -;; ability to know which packages are built-in & thus not deletable -;; it can sometimes print odd results, like 0.3 available but 0.4 active -;; why is that? -;; - Allow multiple versions on the server...? -;; [ why bother? ] -;; - Don't install a package which will invalidate dependencies overall -;; - Allow something like (or (>= emacs 21.0) (>= xemacs 21.5)) -;; [ currently thinking, why bother.. KISS ] +;; - Allow multiple versions on the server, so that if a user doesn't +;; meet the requirements for the most recent version they can still +;; install an older one. ;; - Allow optional package dependencies ;; then if we require 'bbdb', bbdb-specific lisp in lisp/bbdb ;; and just don't compile to add to load path ...? @@ -235,7 +217,7 @@ of it available such that: This variable has three possible values: nil: no packages are hidden; - `archive': only criteria (a) is used; + `archive': only criterion (a) is used; t: both criteria are used. This variable has no effect if `package-menu--hide-packages' is @@ -253,7 +235,7 @@ Each element has the form (ARCHIVE-ID . PRIORITY). When installing packages, the package with the highest version number from the archive with the highest priority is -selected. When higher versions are available from archives with +selected. When higher versions are available from archives with lower priorities, the user has to select those manually. Archives not in this list have the priority 0. @@ -665,8 +647,30 @@ PKG-DESC is a `package-desc' object." (defvar Info-directory-list) (declare-function info-initialize "info" ()) -(defun package-activate-1 (pkg-desc &optional reload) +(defun package--load-files-for-activation (pkg-desc reload) + "Load files for activating a package given by PKG-DESC. +Load the autoloads file, and ensure `load-path' is setup. If +RELOAD is non-nil, also load all files in the package that +correspond to previously loaded files." + (let* ((loaded-files-list (when reload + (package--list-loaded-files (package-desc-dir pkg-desc))))) + ;; Add to load path, add autoloads, and activate the package. + (package--activate-autoloads-and-load-path pkg-desc) + ;; Call `load' on all files in `package-desc-dir' already present in + ;; `load-history'. This is done so that macros in these files are updated + ;; to their new definitions. If another package is being installed which + ;; depends on this new definition, not doing this update would cause + ;; compilation errors and break the installation. + (with-demoted-errors "Error in package--load-files-for-activation: %s" + (mapc (lambda (feature) (load feature nil t)) + ;; Skip autoloads file since we already evaluated it above. + (remove (file-truename (package--autoloads-file-name pkg-desc)) + loaded-files-list))))) + +(defun package-activate-1 (pkg-desc &optional reload deps) "Activate package given by PKG-DESC, even if it was already active. +If DEPS is non-nil, also activate its dependencies (unless they +are already activated). If RELOAD is non-nil, also `load' any files inside the package which correspond to previously loaded files (those returned by `package--list-loaded-files')." @@ -675,20 +679,15 @@ correspond to previously loaded files (those returned by (unless pkg-dir (error "Internal error: unable to find directory for `%s'" (package-desc-full-name pkg-desc))) - (let* ((loaded-files-list (when reload - (package--list-loaded-files pkg-dir)))) - ;; Add to load path, add autoloads, and activate the package. - (package--activate-autoloads-and-load-path pkg-desc) - ;; Call `load' on all files in `pkg-dir' already present in - ;; `load-history'. This is done so that macros in these files are updated - ;; to their new definitions. If another package is being installed which - ;; depends on this new definition, not doing this update would cause - ;; compilation errors and break the installation. - (with-demoted-errors "Error in package-activate-1: %s" - (mapc (lambda (feature) (load feature nil t)) - ;; Skip autoloads file since we already evaluated it above. - (remove (file-truename (package--autoloads-file-name pkg-desc)) - loaded-files-list)))) + ;; Activate its dependencies recursively. + ;; FIXME: This doesn't check whether the activated version is the + ;; required version. + (when deps + (dolist (req (package-desc-reqs pkg-desc)) + (unless (package-activate (car req)) + (error "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" + name (car req) (package-version-join (cadr req)))))) + (package--load-files-for-activation pkg-desc reload) ;; Add info node. (when (file-exists-p (expand-file-name "dir" pkg-dir)) ;; FIXME: not the friendliest, but simple. @@ -740,7 +739,7 @@ DIR, sorted by most recently loaded last." ;; one was already activated. It also loads a features of this ;; package which were already loaded. (defun package-activate (package &optional force) - "Activate package PACKAGE. + "Activate the package named PACKAGE. If FORCE is true, (re-)activate it if it's already activated. Newer versions are always activated, regardless of FORCE." (let ((pkg-descs (cdr (assq package package-alist)))) @@ -760,19 +759,7 @@ Newer versions are always activated, regardless of FORCE." ((and (memq package package-activated-list) (not force)) t) ;; Otherwise, proceed with activation. - (t - (let* ((pkg-vec (car pkg-descs)) - (fail (catch 'dep-failure - ;; Activate its dependencies recursively. - (dolist (req (package-desc-reqs pkg-vec)) - (unless (package-activate (car req)) - (throw 'dep-failure req)))))) - (if fail - (warn "Unable to activate package `%s'. -Required package `%s-%s' is unavailable" - package (car fail) (package-version-join (cadr fail))) - ;; If all goes well, activate the package itself. - (package-activate-1 pkg-vec force))))))) + (t (package-activate-1 (car pkg-descs) nil 'deps))))) ;;; Installation -- Local operations @@ -843,13 +830,21 @@ untar into a directory named DIR; otherwise, signal an error." (package--make-autoloads-and-stuff pkg-desc pkg-dir) ;; Update package-alist. (let ((new-desc (package-load-descriptor pkg-dir))) - ;; FIXME: Check that `new-desc' matches `desc'! + (unless (equal (package-desc-full-name new-desc) + (package-desc-full-name pkg-desc)) + (error "The retrieved package (`%s') doesn't match what the archive offered (`%s')" + (package-desc-full-name new-desc) (package-desc-full-name pkg-desc))) + ;; Activation has to be done before compilation, so that if we're + ;; upgrading and macros have changed we load the new definitions + ;; before compiling. + (package-activate-1 new-desc :reload :deps) ;; FIXME: Compilation should be done as a separate, optional, step. ;; E.g. for multi-package installs, we should first install all packages ;; and then compile them. - (package--compile new-desc)) - ;; Try to activate it. - (package-activate name 'force) + (package--compile new-desc) + ;; After compilation, load again any files loaded by + ;; `activate-1', so that we use the byte-compiled definitions. + (package--load-files-for-activation new-desc :reload)) pkg-dir)) (defun package-generate-description-file (pkg-desc pkg-file) @@ -932,11 +927,12 @@ untar into a directory named DIR; otherwise, signal an error." ;;;; Compilation (defvar warning-minimum-level) (defun package--compile (pkg-desc) - "Byte-compile installed package PKG-DESC." + "Byte-compile installed package PKG-DESC. +This assumes that `pkg-desc' has already been activated with +`package-activate-1'." (let ((warning-minimum-level :error) (save-silently inhibit-message) (load-path load-path)) - (package--activate-autoloads-and-load-path pkg-desc) (byte-recompile-directory (package-desc-dir pkg-desc) 0 t))) ;;;; Inferring package from current buffer @@ -1142,46 +1138,50 @@ Point is after the headers when BODY runs. FILE, if provided, is added to URL. URL can be a local file name, which must be absolute. ASYNC, if non-nil, runs the request asynchronously. -ERROR-FORM is run only if an error occurs. If NOERROR is -non-nil, don't propagate errors caused by the connection or by -BODY (does not apply to errors signaled by ERROR-FORM). +ERROR-FORM is run only if a connection error occurs. If NOERROR +is non-nil, don't propagate connection errors (does not apply to +errors signaled by ERROR-FORM or by BODY). \(fn URL &key ASYNC FILE ERROR-FORM NOERROR &rest BODY)" (declare (indent defun) (debug t)) (while (keywordp (car body)) (setq body (cdr (cdr body)))) - (macroexp-let2* nil ((url-1 url)) - `(cl-macrolet ((wrap-errors (&rest bodyforms) - (let ((err (make-symbol "err"))) - `(condition-case ,err - ,(macroexp-progn bodyforms) - ,(list 'error ',error-form - (list 'unless ',noerror - `(signal (car ,err) (cdr ,err)))))))) + (macroexp-let2* nil ((url-1 url) + (noerror-1 noerror)) + `(cl-macrolet ((unless-error (body-2 &rest before-body) + (let ((err (make-symbol "err"))) + `(with-temp-buffer + (when (condition-case ,err + (progn ,@before-body t) + ,(list 'error ',error-form + (list 'unless ',noerror-1 + `(signal (car ,err) (cdr ,err))))) + ,@body-2))))) (if (string-match-p "\\`https?:" ,url-1) (let* ((url (concat ,url-1 ,file)) (callback (lambda (status) (let ((b (current-buffer))) - (unwind-protect (wrap-errors - (when-let ((er (plist-get status :error))) - (error "Error retrieving: %s %S" url er)) - (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) - (error "Error retrieving: %s %S" url "incomprehensible buffer")) - (with-temp-buffer - (url-insert-buffer-contents b url) - (kill-buffer b) - (goto-char (point-min)) - ,@body))))))) + (require 'url-handlers) + (unless-error ,body + (when-let ((er (plist-get status :error))) + (error "Error retrieving: %s %S" url er)) + (with-current-buffer b + (goto-char (point-min)) + (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) + (error "Error retrieving: %s %S" url "incomprehensible buffer"))) + (url-insert-buffer-contents b url) + (kill-buffer b) + (goto-char (point-min))))))) (if ,async - (wrap-errors (url-retrieve url callback nil 'silent)) - (with-current-buffer (wrap-errors (url-retrieve-synchronously url 'silent)) - (funcall callback nil)))) - (wrap-errors (with-temp-buffer - (let ((url (expand-file-name ,file ,url-1))) - (unless (file-name-absolute-p url) - (error "Location %s is not a url nor an absolute file name" url)) - (insert-file-contents url)) - ,@body)))))) + (unless-error nil (url-retrieve url callback nil 'silent)) + (unless-error ,body (url-insert-file-contents url)))) + (unless-error ,body + (let ((url (expand-file-name ,file ,url-1))) + (unless (file-name-absolute-p url) + (error "Location %s is not a url nor an absolute file name" url)) + (insert-file-contents url))))))) + +(define-error 'bad-signature "Failed to verify signature") (defun package--check-signature-content (content string &optional sig-file) "Check signature CONTENT against STRING. @@ -1193,7 +1193,7 @@ errors." (condition-case error (epg-verify-string context content string) (error (package--display-verify-error context sig-file) - (signal (car error) (cdr error)))) + (signal 'bad-signature error))) (let (good-signatures had-fatal-error) ;; The .sig file may contain multiple signatures. Success if one ;; of the signatures is good. @@ -1209,10 +1209,10 @@ errors." (setq had-fatal-error t)))) (when (and (null good-signatures) had-fatal-error) (package--display-verify-error context sig-file) - (error "Failed to verify signature %s" sig-file)) + (signal 'bad-signature (list sig-file))) good-signatures))) -(defun package--check-signature (location file &optional string async callback) +(defun package--check-signature (location file &optional string async callback unwind) "Check signature of the current buffer. Download the signature file from LOCATION by appending \".sig\" to FILE. @@ -1221,18 +1221,35 @@ STRING is the string to verify, it defaults to `buffer-string'. If ASYNC is non-nil, the download of the signature file is done asynchronously. -If the signature is verified and CALLBACK was provided, CALLBACK -is `funcall'ed with the list of good signatures as argument (the -list can be empty). If the signatures file is not found, -CALLBACK is called with no arguments." +If the signature does not verify, signal an error. +If the signature is verified and CALLBACK was provided, `funcall' +CALLBACK with the list of good signatures as argument (the list +can be empty). +If no signatures file is found, and `package-check-signature' is +`allow-unsigned', call CALLBACK with a nil argument. +Otherwise, an error is signaled. + +UNWIND, if provided, is a function to be called after everything +else, even if an error is signaled." (let ((sig-file (concat file ".sig")) (string (or string (buffer-string)))) (package--with-response-buffer location :file sig-file :async async :noerror t - :error-form (when callback (funcall callback nil)) - (let ((sig (package--check-signature-content (buffer-substring (point) (point-max)) string sig-file))) - (when callback (funcall callback sig)) - sig)))) + ;; Connection error is assumed to mean "no sig-file". + :error-form (let ((allow-unsigned (eq package-check-signature 'allow-unsigned))) + (when (and callback allow-unsigned) + (funcall callback nil)) + (when unwind (funcall unwind)) + (unless allow-unsigned + (error "Unsigned file `%s' at %s" file location))) + ;; OTOH, an error here means "bad signature", which we never + ;; suppress. (Bug#22089) + (unwind-protect + (let ((sig (package--check-signature-content (buffer-substring (point) (point-max)) + string sig-file))) + (when callback (funcall callback sig)) + sig) + (when unwind (funcall unwind)))))) ;;; Packages on Archives ;; The following variables store information about packages available @@ -1495,19 +1512,12 @@ similar to an entry in `package-alist'. Save the cached copy to location file content async ;; This function will be called after signature checking. (lambda (&optional good-sigs) - (unless (or good-sigs (eq package-check-signature 'allow-unsigned)) - ;; Even if the sig fails, this download is done, so - ;; remove it from the in-progress list. - (package--update-downloads-in-progress archive) - (error "Unsigned archive `%s'" name)) - ;; Either everything worked or we don't mind not signing. - ;; Write out the archives file. (write-region content nil local-file nil 'silent) ;; Write out good signatures into archive-contents.signed file. (when good-sigs (write-region (mapconcat #'epg-signature-to-string good-sigs "\n") - nil (concat local-file ".signed") nil 'silent)) - (package--update-downloads-in-progress archive)))))))) + nil (concat local-file ".signed") nil 'silent))) + (lambda () (package--update-downloads-in-progress archive)))))))) (defun package--download-and-read-archives (&optional async) "Download descriptions of all `package-archives' and read them. @@ -1789,11 +1799,6 @@ if all the in-between dependencies are also in PACKAGE-LIST." location file content nil ;; This function will be called after signature checking. (lambda (&optional good-sigs) - (unless (or good-sigs (eq package-check-signature 'allow-unsigned)) - ;; Even if the sig fails, this download is done, so - ;; remove it from the in-progress list. - (error "Unsigned package: `%s'" - (package-desc-name pkg-desc))) ;; Signature checked, unpack now. (with-temp-buffer (insert content) (let ((save-silently t)) diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index bf6550dfa3d..c87c2314be3 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -865,8 +865,10 @@ Otherwise, it defers to REST which is a list of branches of the form (def-edebug-spec pcase-QPAT + ;; Cf. edebug spec for `backquote-form' in edebug.el. (&or ("," pcase-PAT) - (pcase-QPAT . pcase-QPAT) + (pcase-QPAT [&rest [¬ ","] pcase-QPAT] + . [&or nil pcase-QPAT]) (vector &rest pcase-QPAT) sexp)) diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el index 738bdddcddf..c9c002bc8fa 100644 --- a/lisp/emacs-lisp/smie.el +++ b/lisp/emacs-lisp/smie.el @@ -717,9 +717,10 @@ Possible return values: (goto-char pos) (throw 'return (list t epos - (buffer-substring-no-properties - epos - (+ epos (if (< (point) epos) -1 1)))))))) + (unless (= (point) epos) + (buffer-substring-no-properties + epos + (+ epos (if (< (point) epos) -1 1))))))))) (if (eq pos (point)) ;; We did not move, so let's abort the loop. (throw 'return (list t (point)))))) @@ -809,7 +810,12 @@ Possible return values: nil: we skipped over an identifier, matched parentheses, ..." (smie-next-sexp (indirect-function smie-backward-token-function) - (indirect-function #'backward-sexp) + (lambda (n) + (if (bobp) + ;; Arguably backward-sexp should signal this error for us. + (signal 'scan-error + (list "Beginning of buffer" (point) (point))) + (backward-sexp n))) (indirect-function #'smie-op-left) (indirect-function #'smie-op-right) halfsexp)) diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el index 8d5e6cf9b5b..b4911102a72 100644 --- a/lisp/emulation/keypad.el +++ b/lisp/emulation/keypad.el @@ -199,15 +199,15 @@ keys are bound. Setup Binding ------------------------------------------------------------- - 'prefix Command prefix argument, i.e. M-0 .. M-9 and M-- - 'S-cursor Bind shifted keypad keys to the shifted cursor movement keys. - 'cursor Bind keypad keys to the cursor movement keys. - 'numeric Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg) - 'none Removes all bindings for keypad keys in function-key-map; - this enables any user-defined bindings for the keypad keys - in the global and local keymaps. + `prefix' Command prefix argument, i.e. M-0 .. M-9 and M-- + `S-cursor' Bind shifted keypad keys to the shifted cursor movement keys. + `cursor' Bind keypad keys to the cursor movement keys. + `numeric' Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg) + `none' Removes all bindings for keypad keys in function-key-map; + this enables any user-defined bindings for the keypad keys + in the global and local keymaps. -If SETUP is 'numeric and the optional fourth argument DECIMAL is non-nil, +If SETUP is `numeric' and the optional fourth argument DECIMAL is non-nil, the decimal key on the keypad is mapped to DECIMAL instead of `.'" (let* ((i 0) (var (cond diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el index 272556d3bae..e26994cd130 100644 --- a/lisp/emulation/viper-keym.el +++ b/lisp/emulation/viper-keym.el @@ -497,7 +497,7 @@ Useful in some modes, such as Gnus, MH, etc.") "Override some vi-state or insert-state bindings in the current buffer. The effect is seen in the current buffer only. Useful for customizing mailer buffers, gnus, etc. -STATE is 'vi-state, 'insert-state, or 'emacs-state +STATE is `vi-state', `insert-state', or `emacs-state'. ALIST is of the form ((key . func) (key . func) ...) Normally, this would be called from a hook to a major mode or on a per buffer basis. diff --git a/lisp/epg.el b/lisp/epg.el index 71a83c3c670..88829e532de 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -1339,8 +1339,8 @@ callback data (if any)." (defun epg-list-keys (context &optional name mode) "Return a list of epg-key objects matched with NAME. -If MODE is nil or 'public, only public keyring should be searched. -If MODE is t or 'secret, only secret keyring should be searched. +If MODE is nil or `public', only public keyring should be searched. +If MODE is t or `secret', only secret keyring should be searched. Otherwise, only public keyring should be searched and the key signatures should be included. NAME is either a string or a list of strings." @@ -1680,8 +1680,8 @@ which will return a list of `epg-signature' object." "Initiate a sign operation on PLAIN. PLAIN is a data object. -If optional 3rd argument MODE is t or 'detached, it makes a detached signature. -If it is nil or 'normal, it makes a normal signature. +If optional 3rd argument MODE is t or `detached', it makes a detached signature. +If it is nil or `normal', it makes a normal signature. Otherwise, it makes a cleartext signature. If you use this function, you will need to wait for the completion of @@ -1724,8 +1724,8 @@ If you are unsure, use synchronous version of this function (defun epg-sign-file (context plain signature &optional mode) "Sign a file PLAIN and store the result to a file SIGNATURE. If SIGNATURE is nil, it returns the result as a string. -If optional 3rd argument MODE is t or 'detached, it makes a detached signature. -If it is nil or 'normal, it makes a normal signature. +If optional 3rd argument MODE is t or `detached', it makes a detached signature. +If it is nil or `normal', it makes a normal signature. Otherwise, it makes a cleartext signature." (unwind-protect (progn @@ -1745,8 +1745,8 @@ Otherwise, it makes a cleartext signature." (defun epg-sign-string (context plain &optional mode) "Sign a string PLAIN and return the output as string. -If optional 3rd argument MODE is t or 'detached, it makes a detached signature. -If it is nil or 'normal, it makes a normal signature. +If optional 3rd argument MODE is t or `detached', it makes a detached signature. +If it is nil or `normal', it makes a normal signature. Otherwise, it makes a cleartext signature." (let ((input-file (unless (or (eq (epg-context-protocol context) 'CMS) diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 1ef2fac1627..e07dc90fcdc 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el @@ -370,7 +370,7 @@ This overrides `erc-server-coding-system' depending on the current target as returned by `erc-default-target'. Example: If you know that the channel #linux-ru uses the coding-system -`cyrillic-koi8', then add '(\"#linux-ru\" . cyrillic-koi8) to the +`cyrillic-koi8', then add (\"#linux-ru\" . cyrillic-koi8) to the alist." :group 'erc-server :type '(repeat (cons (string :tag "Target") @@ -493,9 +493,19 @@ The current buffer is given by BUFFER." 4 erc-server-send-ping-interval #'erc-server-send-ping buffer)) - (setq erc-server-ping-timer-alist (cons (cons buffer - erc-server-ping-handler) - erc-server-ping-timer-alist))))) + + ;; I check the timer alist for an existing timer. If one exists, + ;; I get rid of it + (let ((timer-tuple (assq buffer erc-server-ping-timer-alist))) + (if timer-tuple + ;; this buffer already has a timer. Cancel it and set the new one + (progn + (erc-cancel-timer (cdr timer-tuple)) + (setf (cdr (assq buffer erc-server-ping-timer-alist)) erc-server-ping-handler)) + + ;; no existing timer for this buffer. Add new one + (add-to-list 'erc-server-ping-timer-alist + (cons buffer erc-server-ping-handler))))))) (defun erc-server-process-alive (&optional buffer) "Return non-nil when BUFFER has an `erc-server-process' open or running." @@ -571,6 +581,11 @@ Make sure you are in an ERC buffer when running this." (erc-open erc-session-server erc-session-port erc-server-current-nick erc-session-user-full-name t erc-session-password))))) +(defun erc-server-delayed-reconnect (event buffer) + (if (buffer-live-p buffer) + (with-current-buffer buffer + (erc-server-reconnect)))) + (defun erc-server-filter-function (process string) "The process filter for the ERC server." (with-current-buffer (process-buffer process) @@ -604,31 +619,29 @@ Make sure you are in an ERC buffer when running this." (defsubst erc-server-reconnect-p (event) "Return non-nil if ERC should attempt to reconnect automatically. EVENT is the message received from the closed connection process." - (and (not erc-server-quitting) ;; user issued an explicit quit, give up now - (or erc-server-reconnecting ;; user issued explicit reconnect - ;; otherwise go through the full spectrum of checks: - (and erc-server-auto-reconnect - (not erc-server-banned) - ;; make sure we don't infinitely try to reconnect, unless the - ;; user wants that - (or (eq erc-server-reconnect-attempts t) - (and (integerp erc-server-reconnect-attempts) - (< erc-server-reconnect-count - erc-server-reconnect-attempts))) - (or erc-server-timed-out - (not (string-match "^deleted" event))) - ;; open-network-stream-nowait error for connection refused - (not (string-match "^failed with code 111" event)))))) + (or erc-server-reconnecting + (and erc-server-auto-reconnect + (not erc-server-banned) + (not erc-server-error-occurred) + ;; make sure we don't infinitely try to reconnect, unless the + ;; user wants that + (or (eq erc-server-reconnect-attempts t) + (and (integerp erc-server-reconnect-attempts) + (< erc-server-reconnect-count + erc-server-reconnect-attempts))) + (or erc-server-timed-out + (not (string-match "^deleted" event))) + ;; open-network-stream-nowait error for connection refused + (if (string-match "^failed with code 111" event) 'nonblocking t)))) (defun erc-process-sentinel-2 (event buffer) "Called when `erc-process-sentinel-1' has detected an unexpected disconnect." (if (not (buffer-live-p buffer)) (erc-update-mode-line) (with-current-buffer buffer - (let ((reconnect-p (erc-server-reconnect-p event))) - (erc-display-message nil 'error (current-buffer) - (if reconnect-p 'disconnected - 'disconnected-noreconnect)) + (let ((reconnect-p (erc-server-reconnect-p event)) message delay) + (setq message (if reconnect-p 'disconnected 'disconnected-noreconnect)) + (erc-display-message nil 'error (current-buffer) message) (if (not reconnect-p) ;; terminate, do not reconnect (progn @@ -640,21 +653,16 @@ EVENT is the message received from the closed connection process." ;; reconnect (condition-case err (progn - (setq erc-server-reconnecting nil) - (setq erc-server-reconnect-count (1+ erc-server-reconnect-count)) - (erc-server-reconnect)) - (error (when (buffer-live-p buffer) - (set-buffer buffer) - (unless (integerp erc-server-reconnect-attempts) - (message "%s ... %s" - "Reconnecting until we succeed" - "kill the ERC server buffer to stop")) - (if (numberp erc-server-reconnect-timeout) - (run-at-time erc-server-reconnect-timeout nil - #'erc-process-sentinel-2 - event buffer) - (error (concat "`erc-server-reconnect-timeout'" - " must be a number"))))))))))) + (setq erc-server-reconnecting nil + erc-server-reconnect-count (1+ erc-server-reconnect-count)) + (setq delay erc-server-reconnect-timeout) + (run-at-time delay nil + #'erc-server-delayed-reconnect event buffer)) + (error (unless (integerp erc-server-reconnect-attempts) + (message "%s ... %s" + "Reconnecting until we succeed" + "kill the ERC server buffer to stop")) + (erc-server-delayed-reconnect event buffer)))))))) (defun erc-process-sentinel-1 (event buffer) "Called when `erc-process-sentinel' has decided that we're disconnecting. @@ -693,6 +701,9 @@ Conditionally try to reconnect and take appropriate action." (setq erc-server-ping-handler nil))) (run-hook-with-args 'erc-disconnected-hook (erc-current-nick) (system-name) "") + (dolist (buf (erc-buffer-filter (lambda () (boundp 'erc-channel-users)) cproc)) + (with-current-buffer buf + (setq erc-channel-users (make-hash-table :test 'equal)))) ;; Remove the prompt (goto-char (or (marker-position erc-input-marker) (point-max))) (forward-line 0) @@ -795,7 +806,9 @@ protection algorithm." (defun erc-server-send-ping (buf) "Send a ping to the IRC server buffer in BUF. Additionally, detect whether the IRC process has hung." - (if (buffer-live-p buf) + (if (and (buffer-live-p buf) + (with-current-buffer buf + erc-server-last-received-time)) (with-current-buffer buf (if (and erc-server-send-ping-timeout (> diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 0e4c70944bb..d6f4b12ebbf 100644 --- a/lisp/erc/erc-button.el +++ b/lisp/erc/erc-button.el @@ -165,11 +165,11 @@ REGEXP is the string matching text around the button or a symbol entries in lists or alists are considered to be nicks or other complete words. Therefore they are enclosed in \\< and \\> while searching. REGEXP can also be the quoted symbol - 'nicknames, which matches the nickname of any user on the + \\='nicknames, which matches the nickname of any user on the current server. BUTTON is the number of the regexp grouping actually matching the - button, This is ignored if REGEXP is 'nicknames. + button, This is ignored if REGEXP is \\='nicknames. FORM is a lisp expression which must eval to true for the button to be added, @@ -180,7 +180,7 @@ CALLBACK is the function to call when the user push this button. PAR is a number of a regexp grouping whose text will be passed to CALLBACK. There can be several PAR arguments. If REGEXP is - 'nicknames, these are ignored, and CALLBACK will be called with + \\='nicknames, these are ignored, and CALLBACK will be called with the nickname matched as the argument." :group 'erc-button :version "24.1" ; remove finger (bug#4443) diff --git a/lisp/erc/erc-join.el b/lisp/erc/erc-join.el index 4c99898bc41..c1ce14ab016 100644 --- a/lisp/erc/erc-join.el +++ b/lisp/erc/erc-join.el @@ -156,7 +156,13 @@ This function is run from `erc-nickserv-identified-hook'." (dolist (l erc-autojoin-channels-alist) (when (string-match (car l) server) (dolist (chan (cdr l)) - (erc-server-join-channel server chan))))) + (let ((buffer (erc-get-buffer chan))) + ;; Only auto-join the channels that we aren't already in + ;; using a different nick. + (when (or (not buffer) + (not (with-current-buffer buffer + (erc-server-process-alive)))) + (erc-server-join-channel server chan))))))) ;; Return nil to avoid stomping on any other hook funcs. nil) @@ -170,7 +176,7 @@ This function is run from `erc-nickserv-identified-hook'." (password (if (functionp secret) (funcall secret) secret))) - (erc-server-send (concat "join " channel + (erc-server-send (concat "JOIN " channel (if password (concat " " password) ""))))) diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el index f022284450a..4ac13aab070 100644 --- a/lisp/erc/erc-log.el +++ b/lisp/erc/erc-log.el @@ -270,9 +270,12 @@ The current buffer is given by BUFFER." (setq buffer-file-name nil) (erc-set-write-file-functions '(erc-save-buffer-in-logs)) (when erc-log-insert-log-on-open - (ignore-errors (insert-file-contents (erc-current-logfile)) - (move-marker erc-last-saved-position - (1- (point-max)))))))) + (ignore-errors + (save-excursion + (goto-char (point-min)) + (insert-file-contents (erc-current-logfile))) + (move-marker erc-last-saved-position + (1- (point-max)))))))) (defun erc-log-disable-logging (buffer) "Disable logging in BUFFER." diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el index 0622b18ca7f..ec3266fa1bd 100644 --- a/lisp/erc/erc-match.el +++ b/lisp/erc/erc-match.el @@ -191,7 +191,7 @@ use for the logged message." "Flag specifying when matched message logging should happen. When nil, don't log any matched messages. When t, log messages. -When 'away, log messages only when away." +When `away', log messages only when away." :group 'erc-match :type '(choice (const nil) (const away) diff --git a/lisp/erc/erc-ring.el b/lisp/erc/erc-ring.el index de988cc8275..77528eae88c 100644 --- a/lisp/erc/erc-ring.el +++ b/lisp/erc/erc-ring.el @@ -58,7 +58,7 @@ be recalled using M-p and M-n." (defvar erc-input-ring-index nil "Position in the input ring for erc. -If nil, the input line is blank and the user is conceptually 'after' +If nil, the input line is blank and the user is conceptually after the most recently added item in the ring. If an integer, the input line is non-blank and displays the item from the ring indexed by this variable.") @@ -148,4 +148,3 @@ containing a password." ;; Local Variables: ;; indent-tabs-mode: nil ;; End: - diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index 2ebc1f22c09..5af1663378f 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el @@ -101,7 +101,7 @@ disconnected from `erc-modified-channels-alist'." (defcustom erc-track-exclude-types '("NICK" "333" "353") "List of message types to be ignored. -This list could look like '(\"JOIN\" \"PART\"). +This list could look like (\"JOIN\" \"PART\"). By default, exclude changes of nicknames (NICK), display of who set the channel topic (333), and listing of users on the current @@ -210,7 +210,7 @@ If you would like to ignore changes in certain channels where there are no faces corresponding to your `erc-track-faces-priority-list', set this variable. You can set a list of channel name strings, so those will be ignored while all other channels will be tracked as normal. -Other options are 'all, to apply this to all channels or nil, to disable +Other options are `all', to apply this to all channels or nil, to disable this feature. Note: If you have a lot of faces listed in `erc-track-faces-priority-list', @@ -326,7 +326,7 @@ when there are no more active channels." leastactive - find buffer with least unseen messages mostactive - find buffer with most unseen messages. -If set to 'importance, the importance is determined by position +If set to `importance', the importance is determined by position in `erc-track-faces-priority-list', where first is most important." :group 'erc-track diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index cd8e427f72b..49ba4ccf8cb 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -629,7 +629,7 @@ See also: `erc-get-channel-user-list'." (defvar erc-channel-modes nil "List of strings representing channel modes. -E.g. '(\"i\" \"m\" \"s\" \"b Quake!*@*\") +E.g. (\"i\" \"m\" \"s\" \"b Quake!*@*\") \(not sure the ban list will be here, but why not)") (make-variable-buffer-local 'erc-channel-modes) @@ -1967,7 +1967,9 @@ Returns the buffer for the given server or channel." (erc-update-modules) (set-buffer buffer) (setq old-point (point)) - (erc-mode) + (let ((old-recon-count erc-server-reconnect-count)) + (erc-mode) + (setq erc-server-reconnect-count old-recon-count)) (setq erc-server-announced-name server-announced-name) (setq erc-server-connected connected-p) ;; connection parameters @@ -2027,7 +2029,8 @@ Returns the buffer for the given server or channel." (auth-source-search :host server :max 1 :user nick - :port port + ;; secrets.el wouldn’t accept a number + :port (if (numberp port) (number-to-string port) port) :require '(:secret))) :secret))) (if (functionp secret) @@ -2208,6 +2211,7 @@ Arguments are the same as for `erc'." The process will be given the name NAME, its target buffer will be BUFFER. HOST and PORT specify the connection target." (open-network-stream name buffer host port + :nowait t :type 'tls)) ;;; Displaying error messages @@ -2421,9 +2425,9 @@ If STRING is nil, the function does nothing." "Display STRING in the ERC BUFFER. All screen output must be done through this function. If BUFFER is nil or omitted, the default ERC buffer for the `erc-session-server' is used. -The BUFFER can be an actual buffer, a list of buffers, 'all or 'active. -If BUFFER = 'all, the string is displayed in all the ERC buffers for the -current session. 'active means the current active buffer +The BUFFER can be an actual buffer, a list of buffers, `all' or `active'. +If BUFFER = `all', the string is displayed in all the ERC buffers for the +current session. `active' means the current active buffer \(`erc-active-buffer'). If the buffer can't be resolved, the current buffer is used. `erc-display-line-1' is used to display STRING. @@ -3251,7 +3255,7 @@ LINE has the format \"USER ACTION\"." (put 'erc-cmd-ME 'do-not-parse-args t) (defun erc-cmd-ME\'S (line) - "Do a /ME command, but add the string \" 's\" to the beginning." + "Do a /ME command, but add the string \" \\='s\" to the beginning." (erc-cmd-ME (concat " 's" line))) (put 'erc-cmd-ME\'S 'do-not-parse-args t) @@ -5032,7 +5036,7 @@ See also `erc-remove-current-channel-member'." (defun erc-update-channel-topic (channel topic &optional modify) "Find a buffer for CHANNEL and set the TOPIC for it. -If optional MODIFY is 'append or 'prepend, then append or prepend the +If optional MODIFY is `append' or `prepend', then append or prepend the TOPIC string to the current topic." (erc-with-buffer (channel) (cond ((eq modify 'append) @@ -5195,7 +5199,7 @@ person who changed the modes." (t (setq erc-channel-user-limit nil)))))) (defun erc-update-channel-key (channel onoff key) - "Update CHANNEL's key to KEY if ONOFF is 'on or to nil if it's 'off." + "Update CHANNEL's key to KEY if ONOFF is `on' or to nil if it's `off'." (erc-with-buffer (channel) (cond ((eq onoff 'on) (setq erc-channel-key key)) @@ -6709,7 +6713,7 @@ or `erc-kill-buffer-hook' if any other buffer." (cond ((eq (erc-server-buffer) (current-buffer)) (run-hooks 'erc-kill-server-hook)) - ((erc-channel-p (erc-default-target)) + ((erc-channel-p (or (erc-default-target) (buffer-name))) (run-hooks 'erc-kill-channel-hook)) (t (run-hooks 'erc-kill-buffer-hook))))) @@ -6737,7 +6741,7 @@ This function should be on `erc-kill-channel-hook'." (text-property-not-all (point-min) (point-max) 'erc-parsed nil)) (defun erc-restore-text-properties () - "Restore the property 'erc-parsed for the region." + "Restore the property `erc-parsed' for the region." (let ((parsed-posn (erc-find-parsed-property))) (put-text-property (point-min) (point-max) diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 535e169bcb3..72c8a239ff3 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -284,7 +284,7 @@ command line.") (defvar eshell-command-arguments nil) (defvar eshell-in-pipeline-p nil "Internal Eshell variable, non-nil inside a pipeline. -Has the value 'first, 'last for the first/last commands in the pipeline, +Has the value `first', `last' for the first/last commands in the pipeline, otherwise t.") (defvar eshell-in-subcommand-p nil) (defvar eshell-last-arguments nil) @@ -670,8 +670,8 @@ For an external command, it means an exit code of 0." "Separate TERMS using SEPARATOR. If REVERSED is non-nil, the list of separated term groups will be returned in reverse order. If LAST-TERMS-SYM is a symbol, its value -will be set to a list of all the separator operators found (or '(list -nil)' if none)." +will be set to a list of all the separator operators found (or (nil) +if none)." (let ((sub-terms (list t)) (eshell-sep-terms (list t)) subchains) diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index f645702ac2b..e99a316889a 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el @@ -678,8 +678,8 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable. (defun eshell-file-attributes (file &optional id-format) "Return the attributes of FILE, playing tricks if it's over ange-ftp. The optional argument ID-FORMAT specifies the preferred uid and -gid format. Valid values are 'string and 'integer, defaulting to -'integer. See `file-attributes'." +gid format. Valid values are `string' and `integer', defaulting to +`integer'. See `file-attributes'." (let* ((file (expand-file-name file)) entry) (if (string-equal (file-remote-p file 'method) "ftp") diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 3d5894309df..885c15f4e5c 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -637,8 +637,8 @@ color. The function should accept a single argument, the color name." (defun list-colors-duplicates (&optional list) "Return a list of colors with grouped duplicate colors. If a color has no duplicates, then the element of the returned list -has the form '(COLOR-NAME). The element of the returned list with -duplicate colors has the form '(COLOR-NAME DUPLICATE-COLOR-NAME ...). +has the form (COLOR-NAME). The element of the returned list with +duplicate colors has the form (COLOR-NAME DUPLICATE-COLOR-NAME ...). This function uses the predicate `facemenu-color-equal' to compare color names. If the optional argument LIST is non-nil, it should be a list of colors to display. Otherwise, this function uses diff --git a/lisp/faces.el b/lisp/faces.el index f96df057cbd..ecd34a5280e 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -276,7 +276,7 @@ If FRAME is omitted or nil, use the selected frame." (defun face-list-p (face-or-list) "True if FACE-OR-LIST is a list of faces. Return nil if FACE-OR-LIST is a non-nil atom, or a cons cell whose car -is either 'foreground-color, 'background-color, or a keyword." +is either `foreground-color', `background-color', or a keyword." ;; The logic of merge_face_ref (xfaces.c) is recreated here. (and (listp face-or-list) (not (memq (car face-or-list) @@ -1971,7 +1971,9 @@ unnamed faces (e.g, `foreground-color')." (get-char-property (point) 'font-lock-face)) (get-char-property (point) 'face))) (found nil)) - (dolist (face (if (listp faces) faces (list faces))) + (dolist (face (if (face-list-p faces) + faces + (list faces))) (cond (found) ((and face (symbolp face)) (let ((value (face-attribute-specified-or diff --git a/lisp/files.el b/lisp/files.el index fdda9b2a77e..ea09c2a9fa4 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -740,20 +740,27 @@ The path separator is colon in GNU and GNU-like systems." (error "No such directory found via CDPATH environment variable")))) (defsubst directory-name-p (name) - "Return non-nil if NAME ends with a slash character." - (and (> (length name) 0) - (char-equal (aref name (1- (length name))) ?/))) - -(defun directory-files-recursively (dir match &optional include-directories) - "Return all files under DIR that have file names matching MATCH (a regexp). + "Return non-nil if NAME ends with a directory separator character." + (let ((len (length name)) + (lastc ?.)) + (if (> len 0) + (setq lastc (aref name (1- len)))) + (or (= lastc ?/) + (and (memq system-type '(windows-nt ms-dos)) + (= lastc ?\\))))) + +(defun directory-files-recursively (dir regexp &optional include-directories) + "Return list of all files under DIR that have file names matching REGEXP. This function works recursively. Files are returned in \"depth first\" -and alphabetical order. -If INCLUDE-DIRECTORIES, also include directories that have matching names." +order, and files from each directory are sorted in alphabetical order. +Each file name appears in the returned list in its absolute form. +Optional argument INCLUDE-DIRECTORIES non-nil means also include in the +output directories whose names match REGEXP." (let ((result nil) (files nil) ;; When DIR is "/", remote file names like "/method:" could ;; also be offered. We shall suppress them. - (tramp-mode (and tramp-mode (file-remote-p dir)))) + (tramp-mode (and tramp-mode (file-remote-p (expand-file-name dir))))) (dolist (file (sort (file-name-all-completions "" dir) 'string<)) (unless (member file '("./" "../")) @@ -764,19 +771,23 @@ If INCLUDE-DIRECTORIES, also include directories that have matching names." (unless (file-symlink-p full-file) (setq result (nconc result (directory-files-recursively - full-file match include-directories)))) + full-file regexp include-directories)))) (when (and include-directories - (string-match match leaf)) + (string-match regexp leaf)) (setq result (nconc result (list full-file))))) - (when (string-match match file) + (when (string-match regexp file) (push (expand-file-name file dir) files))))) (nconc result (nreverse files)))) +(defvar module-file-suffix) + (defun load-file (file) "Load the Lisp file named FILE." - ;; This is a case where .elc makes a lot of sense. + ;; This is a case where .elc and .so/.dll make a lot of sense. (interactive (list (let ((completion-ignored-extensions - (remove ".elc" completion-ignored-extensions))) + (remove module-file-suffix + (remove ".elc" + completion-ignored-extensions)))) (read-file-name "Load file: " nil nil 'lambda)))) (load (expand-file-name file) nil nil t)) @@ -787,8 +798,8 @@ return nil. PATH should be a list of directories to look in, like the lists in `exec-path' or `load-path'. If SUFFIXES is non-nil, it should be a list of suffixes to append to -file name when searching. If SUFFIXES is nil, it is equivalent to '(\"\"). -Use '(\"/\") to disable PATH search, but still try the suffixes in SUFFIXES. +file name when searching. If SUFFIXES is nil, it is equivalent to (\"\"). +Use (\"/\") to disable PATH search, but still try the suffixes in SUFFIXES. If non-nil, PREDICATE is used instead of `file-readable-p'. This function will normally skip directories, so if you want it to find @@ -1012,6 +1023,7 @@ Return nil if COMMAND is not found anywhere in `exec-path'." (defun load-library (library) "Load the Emacs Lisp library named LIBRARY. +LIBRARY should be a string. This is an interface to the function `load'. LIBRARY is searched for in `load-path', both with and without `load-suffixes' (as well as `load-file-rep-suffixes'). @@ -1019,10 +1031,11 @@ well as `load-file-rep-suffixes'). See Info node `(emacs)Lisp Libraries' for more details. See `load-file' for a different interface to `load'." (interactive - (list (completing-read "Load library: " - (apply-partially 'locate-file-completion-table - load-path - (get-load-suffixes))))) + (let (completion-ignored-extensions) + (list (completing-read "Load library: " + (apply-partially 'locate-file-completion-table + load-path + (get-load-suffixes)))))) (load library)) (defun file-remote-p (file &optional identification connected) @@ -1418,8 +1431,10 @@ return value, which may be passed as the REQUIRE-MATCH arg to (defmacro minibuffer-with-setup-hook (fun &rest body) "Temporarily add FUN to `minibuffer-setup-hook' while executing BODY. -FUN can also be (:append FUN1), in which case FUN1 is appended to -`minibuffer-setup-hook'. + +By default, FUN is prepended to `minibuffer-setup-hook'. But if FUN is of +the form `(:append FUN1)', FUN1 will be appended to `minibuffer-setup-hook' +instead of prepending it. BODY should use the minibuffer at most once. Recursive uses of the minibuffer are unaffected (FUN is not @@ -3407,7 +3422,7 @@ local variables, but directory-local variables may still be applied." (unless hack-local-variables--warned-lexical (setq hack-local-variables--warned-lexical t) (display-warning - :warning + 'files (format-message "%s: `lexical-binding' at end of file unreliable" (file-name-nondirectory @@ -3871,7 +3886,7 @@ This does nothing if either `enable-local-variables' or (if (eq (car elt) 'coding) (unless hack-dir-local-variables--warned-coding (setq hack-dir-local-variables--warned-coding t) - (display-warning :warning + (display-warning 'files "Coding cannot be specified by dir-locals")) (unless (memq (car elt) '(eval mode)) (setq dir-local-variables-alist @@ -6242,7 +6257,7 @@ invokes the program specified by `directory-free-space-program' and `directory-free-space-args'. If the system call or program is unsuccessful, or if DIR is a remote directory, this function returns nil." - (unless (file-remote-p dir) + (unless (file-remote-p (expand-file-name dir)) ;; Try to find the number of free blocks. Non-Posix systems don't ;; always have df, but might have an equivalent system call. (if (fboundp 'file-system-info) @@ -6884,7 +6899,7 @@ as in \"og+rX-w\"." (defun read-file-modes (&optional prompt orig-file) "Read file modes in octal or symbolic notation and return its numeric value. -PROMPT is used as the prompt, default to `File modes (octal or symbolic): '. +PROMPT is used as the prompt, default to \"File modes (octal or symbolic): \". ORIG-FILE is the name of a file on whose mode bits to base returned permissions if what user types requests to add, remove, or set permissions based on existing mode bits, as in \"og+rX-w\"." diff --git a/lisp/filesets.el b/lisp/filesets.el index 28d0cd85582..ad3b4db4956 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el @@ -140,7 +140,7 @@ put \"(setq filesets-menu-ensure-use-cached VALUE)\" into your startup file -- before loading filesets.el. So, when should you think about setting this value to t? If filesets.el -is loaded before user customizations. Thus, if (require 'filesets) +is loaded before user customizations. Thus, if (require \\='filesets) precedes the `custom-set-variables' command or, for XEmacs, if init.el is loaded before custom.el, set this variable to t.") diff --git a/lisp/find-file.el b/lisp/find-file.el index 5c2c5064453..f6e6daf9ed1 100644 --- a/lisp/find-file.el +++ b/lisp/find-file.el @@ -222,7 +222,7 @@ may not exist. A typical format is - '(\".\" \"/usr/include\" \"$PROJECT/*/include\") + (\".\" \"/usr/include\" \"$PROJECT/*/include\") Environment variables can be inserted between slashes (`/'). They will be replaced by their definition. If a variable does diff --git a/lisp/finder.el b/lisp/finder.el index 715dd9499fa..c40e04a9147 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -238,7 +238,7 @@ from; the default is `load-path'." ;; The idea here is that eg calc.el gets to define ;; the description of the calc package. ;; This does not work for eg nxml-mode.el. - ((eq base-name package) + ((or (eq base-name package) version) (setq desc (cdr entry)) (aset desc 0 version) (aset desc 2 summary))) diff --git a/lisp/follow.el b/lisp/follow.el index 938c59e8506..71e8824947d 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -3,8 +3,8 @@ ;; Copyright (C) 1995-1997, 1999, 2001-2015 Free Software Foundation, ;; Inc. -;; Author: Anders Lindgren <andersl@andersl.com> -;; Maintainer: emacs-devel@gnu.org (Anders' email bounces, Sep 2005) +;; Author: Anders Lindgren +;; Maintainer: emacs-devel@gnu.org ;; Created: 1995-05-25 ;; Keywords: display, window, minor-mode, convenience @@ -421,7 +421,21 @@ Keys specific to Follow mode: (progn (add-hook 'compilation-filter-hook 'follow-align-compilation-windows t t) (add-hook 'post-command-hook 'follow-post-command-hook t) - (add-hook 'window-size-change-functions 'follow-window-size-change t)) + (add-hook 'window-size-change-functions 'follow-window-size-change t) + (add-hook 'after-change-functions 'follow-after-change nil t) + (add-hook 'isearch-update-post-hook 'follow-post-command-hook nil t) + (add-hook 'replace-update-post-hook 'follow-post-command-hook nil t) + (add-hook 'ispell-update-post-hook 'follow-post-command-hook nil t) + + (setq window-group-start-function 'follow-window-start) + (setq window-group-end-function 'follow-window-end) + (setq set-window-group-start-function 'follow-set-window-start) + (setq recenter-window-group-function 'follow-recenter) + (setq pos-visible-in-window-group-p-function + 'follow-pos-visible-in-window-p) + (setq selected-window-group-function 'follow-all-followers) + (setq move-to-window-group-line-function 'follow-move-to-window-line)) + ;; Remove globally-installed hook functions only if there is no ;; other Follow mode buffer. (let ((buffers (buffer-list)) @@ -432,6 +446,19 @@ Keys specific to Follow mode: (unless following (remove-hook 'post-command-hook 'follow-post-command-hook) (remove-hook 'window-size-change-functions 'follow-window-size-change))) + + (kill-local-variable 'move-to-window-group-line-function) + (kill-local-variable 'selected-window-group-function) + (kill-local-variable 'pos-visible-in-window-group-p-function) + (kill-local-variable 'recenter-window-group-function) + (kill-local-variable 'set-window-group-start-function) + (kill-local-variable 'window-group-end-function) + (kill-local-variable 'window-group-start-function) + + (remove-hook 'ispell-update-post-hook 'follow-post-command-hook t) + (remove-hook 'replace-update-post-hook 'follow-post-command-hook t) + (remove-hook 'isearch-update-post-hook 'follow-post-command-hook t) + (remove-hook 'after-change-functions 'follow-after-change t) (remove-hook 'compilation-filter-hook 'follow-align-compilation-windows t))) (defun follow-find-file-hook () @@ -865,10 +892,10 @@ Note that this handles the case when the cache has been set to nil." (let ((orig-win (selected-window)) win-start-end) (dolist (w windows) - (select-window w) + (select-window w 'norecord) (push (cons w (cons (window-start) (follow-calc-win-end))) win-start-end)) - (select-window orig-win) + (select-window orig-win 'norecord) (setq follow-windows-start-end-cache (nreverse win-start-end))))) (defsubst follow-pos-visible (pos win win-start-end) @@ -1015,6 +1042,10 @@ Otherwise, return nil." ;; is nil. Start every window directly after the end of the previous ;; window, to make sure long lines are displayed correctly. +(defvar follow-start-end-invalid t + "When non-nil, indicates `follow-windows-start-end-cache' is invalid.") +(make-variable-buffer-local 'follow-start-end-invalid) + (defun follow-redisplay (&optional windows win preserve-win) "Reposition the WINDOWS around WIN. Should point be too close to the roof we redisplay everything @@ -1047,7 +1078,8 @@ repositioning the other windows." (dolist (w windows) (unless (and preserve-win (eq w win)) (set-window-start w start)) - (setq start (car (follow-calc-win-end w)))))) + (setq start (car (follow-calc-win-end w)))) + (setq follow-start-end-invalid nil))) (defun follow-estimate-first-window-start (windows win start) "Estimate the position of the first window. @@ -1416,36 +1448,173 @@ non-first windows in Follow mode." "Redraw all windows in FRAME, when in Follow mode." ;; Below, we call `post-command-hook'. Avoid an infloop. (unless follow-inside-post-command-hook - (let ((buffers '()) - (orig-window (selected-window)) - (orig-buffer (current-buffer)) - (orig-frame (selected-frame)) - windows - buf) - (select-frame frame) - (unwind-protect - (walk-windows - (lambda (win) - (setq buf (window-buffer win)) - (unless (memq buf buffers) - (set-buffer buf) - (when follow-mode - (setq windows (follow-all-followers win)) - (if (not (memq orig-window windows)) - (follow-redisplay windows win) - ;; Make sure we're redrawing around the selected - ;; window. - (select-window orig-window) - (follow-post-command-hook) - (setq orig-window (selected-window))) - (setq buffers (cons buf buffers))))) - 'no-minibuf) - (select-frame orig-frame) - (set-buffer orig-buffer) - (select-window orig-window))))) + (save-current-buffer + (let ((orig-frame (selected-frame))) + (select-frame frame) + (let ((picked-window (selected-window)) ; Note: May change below. + (seen-buffers '())) + (unwind-protect + (walk-windows + (lambda (win) + (let ((buf (window-buffer win))) + (unless (memq buf seen-buffers) + (set-buffer buf) + (when follow-mode + (let ((windows (follow-all-followers win))) + (if (not (memq picked-window windows)) + (follow-redisplay windows win) + ;; Make sure we're redrawing around the selected + ;; window. + (select-window picked-window 'norecord) + (follow-post-command-hook) + (setq picked-window (selected-window)))) + (push buf seen-buffers))))) + 'no-minibuf) + (select-window picked-window 'norecord))) + (select-frame orig-frame))))) (add-hook 'window-scroll-functions 'follow-avoid-tail-recenter t) +;;; Low level window start and end. + +;; These routines are the Follow Mode versions of the low level +;; functions described on page "Window Start and End" of the elisp +;; manual, e.g. `window-group-start'. The aim is to be able to handle +;; Follow Mode windows by replacing `window-start' by +;; `window-group-start', etc. + +(defun follow-after-change (_beg _end _old-len) + "After change function: set `follow-start-end-invalid'." + (setq follow-start-end-invalid t)) + +(defun follow-window-start (&optional window) + "Return position at which display currently starts in the +Follow Mode group of windows which includes WINDOW. + +WINDOW must be a live window and defaults to the selected one. +This is updated by redisplay or by calling +`follow-set-window-start'." + (let ((windows (follow-all-followers window))) + (window-start (car windows)))) + +(defun follow-window-end (&optional window update) + "Return position at which display currently ends in the Follow + Mode group of windows which includes WINDOW. + + WINDOW must be a live window and defaults to the selected one. + This is updated by redisplay, when it runs to completion. + Simply changing the buffer text or setting `window-start' does + not update this value. + + Return nil if there is no recorded value. (This can happen if + the last redisplay of WINDOW was preempted, and did not + finish.) If UPDATE is non-nil, compute the up-to-date position + if it isn't already recorded." + (let* ((windows (follow-all-followers window)) + (last (car (last windows)))) + (when (and update follow-start-end-invalid) + (follow-redisplay windows (car windows))) + (window-end last update))) + +(defun follow-set-window-start (window pos &optional noforce) + "Make display in the Follow Mode group of windows which includes +WINDOW start at position POS in WINDOW's buffer. + +WINDOW must be a live window and defaults to the selected one. Return +POS. Optional third arg NOFORCE non-nil inhibits next redisplay from +overriding motion of point in order to display at this exact start." + (let ((windows (follow-all-followers window))) + (setq follow-start-end-invalid t) + (set-window-start (car windows) pos noforce))) + +(defun follow-pos-visible-in-window-p (&optional pos window partially) + "Return non-nil if position POS is currently on the frame in one of + the windows in the Follow Mode group which includes WINDOW. + +WINDOW must be a live window and defaults to the selected one. + +Return nil if that position is scrolled vertically out of view. If a +character is only partially visible, nil is returned, unless the +optional argument PARTIALLY is non-nil. If POS is only out of view +because of horizontal scrolling, return non-nil. If POS is t, it +specifies the position of the last visible glyph in WINDOW. POS +defaults to point in WINDOW; WINDOW defaults to the selected window. + +If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil, +the return value is a list of 2 or 6 elements (X Y [RTOP RBOT ROWH VPOS]), +where X and Y are the pixel coordinates relative to the top left corner +of the actual window containing it. The remaining elements are +omitted if the character after POS is fully visible; otherwise, RTOP +and RBOT are the number of pixels off-window at the top and bottom of +the screen line (\"row\") containing POS, ROWH is the visible height +of that row, and VPOS is the row number \(zero-based)." + (let* ((windows (follow-all-followers window)) + (last (car (last windows)))) + (when follow-start-end-invalid + (follow-redisplay windows (car windows))) + (let* ((cache (follow-windows-start-end windows)) + (last-elt (car (last cache))) + our-pos pertinent-elt) + (setq pertinent-elt + (if (eq pos t) + last-elt + (setq our-pos (or pos (point))) + (catch 'element + (while cache + (when (< our-pos (nth 2 (car cache))) + (throw 'element (car cache))) + (setq cache (cdr cache))) + last-elt))) + (pos-visible-in-window-p our-pos (car pertinent-elt) partially)))) + +(defun follow-move-to-window-line (arg) + "Position point relative to the Follow mode group containing the selected window. +ARG nil means position point at center of the window group. +Else, ARG specifies vertical position within the window group; +zero means top of the first window in the group, negative means + relative to bottom of the last window in the group." + (let* ((windows (follow-all-followers)) + (start-end (follow-windows-start-end windows)) + (rev-start-end (reverse start-end)) + (lines 0) + middle-window elt count) + (select-window + (cond + ((null arg) + (setq rev-start-end (nthcdr (/ (length windows) 2) rev-start-end)) + (prog1 (car (car rev-start-end)) + (while (setq rev-start-end (cdr rev-start-end)) + (setq elt (car rev-start-end) + count (count-screen-lines (cadr elt) (nth 2 elt) + nil (car elt)) + lines (+ lines count))))) + ((>= arg 0) + (while (and (cdr start-end) + (progn + (setq elt (car start-end) + count (count-screen-lines (cadr elt) (nth 2 elt) + nil (car elt))) + (>= arg count))) + (setq arg (- arg count) + lines (+ lines count) + start-end (cdr start-end))) + (car (car start-end))) + (t ; (< arg 0) + (while (and (cadr rev-start-end) + (progn + (setq elt (car rev-start-end) + count (count-lines (cadr elt) (nth 2 elt))) + (<= arg (- count)))) + (setq arg (+ arg count) + rev-start-end (cdr rev-start-end))) + (prog1 (car (car rev-start-end)) + (while (setq rev-start-end (cdr rev-start-end)) + (setq elt (car rev-start-end) + count (count-screen-lines (cadr elt) (nth 2 elt) + nil (car elt)) + lines (+ lines count))))))) + (+ lines (move-to-window-line arg)))) + ;;; Profile support ;; The following (non-evaluated) section can be used to diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 21cf3aec785..93d677c67e7 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -763,7 +763,7 @@ see the variables `c-font-lock-extra-types', `c++-font-lock-extra-types', (setq font-lock-removed-keywords-alist (delq cell font-lock-removed-keywords-alist))))))) -;; Written by Anders Lindgren <andersl@andersl.com>. +;; Written by Anders Lindgren ;; ;; Case study: ;; (I) The keywords are removed from a major mode. @@ -1065,7 +1065,8 @@ Called with two arguments BEG and END.") (defun font-lock-flush (&optional beg end) "Declare the region BEG...END's fontification as out-of-date. -If the region is not specified, it defaults to the whole buffer." +If the region is not specified, it defaults to the entire +accessible portion of the current buffer." (and font-lock-mode font-lock-fontified (funcall font-lock-flush-function @@ -1079,7 +1080,8 @@ Called with two arguments BEG and END.") (defun font-lock-ensure (&optional beg end) "Make sure the region BEG...END has been fontified. -If the region is not specified, it defaults to the whole buffer." +If the region is not specified, it defaults to the entire accessible +portion of the buffer." (font-lock-set-defaults) (funcall font-lock-ensure-function (or beg (point-min)) (or end (point-max)))) diff --git a/lisp/frame.el b/lisp/frame.el index f02406541a1..2584d09fb01 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -68,7 +68,7 @@ handles the corresponding kind of display.") You can set this in your init file; for example, (setq initial-frame-alist - '((top . 1) (left . 1) (width . 80) (height . 55))) + \\='((top . 1) (left . 1) (width . 80) (height . 55))) Parameters specified here supersede the values given in `default-frame-alist'. @@ -103,7 +103,7 @@ initial minibuffer frame. You can set this in your init file; for example, (setq minibuffer-frame-alist - '((top . 1) (left . 1) (width . 80) (height . 2))) + \\='((top . 1) (left . 1) (width . 80) (height . 2))) It is not necessary to include (minibuffer . only); that is appended when the minibuffer frame is created." @@ -911,7 +911,7 @@ if you want Emacs to examine the brightness for you. If you change this without using customize, you should use `frame-set-background-mode' to update existing frames; -e.g. (mapc 'frame-set-background-mode (frame-list))." +e.g. (mapc \\='frame-set-background-mode (frame-list))." :group 'faces :set #'(lambda (var value) (set-default var value) diff --git a/lisp/generic-x.el b/lisp/generic-x.el index 56e1761ae51..e5b4455d1f6 100644 --- a/lisp/generic-x.el +++ b/lisp/generic-x.el @@ -62,7 +62,7 @@ ;; Folding mode should use invisible text properties instead. -- Dave ;; Love] ;; -;; From Anders Lindgren <andersl@csd.uu.se> +;; From Anders Lindgren ;; ;; Problem summary: Wayne Adams has found a problem when using folding ;; mode in conjunction with font-lock for a mode defined in @@ -1315,7 +1315,7 @@ like an INI file. You can add this hook to `find-file-hook'." ;;; comment-start-skip "" ) ;; (set-syntax-table rul-generic-mode-syntax-table) - (setq font-lock-syntax-table rul-generic-mode-syntax-table)) + (setq-local font-lock-syntax-table rul-generic-mode-syntax-table)) ;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan (define-generic-mode rul-generic-mode diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 9d842c04f64..10d32d45070 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -919,13 +919,15 @@ while \(:host t) would find all host entries." prompt) (defun auth-source-ensure-strings (values) - (unless (listp values) - (setq values (list values))) - (mapcar (lambda (value) - (if (numberp value) - (format "%s" value) - value)) - values)) + (if (eq values t) + values + (unless (listp values) + (setq values (list values))) + (mapcar (lambda (value) + (if (numberp value) + (format "%s" value) + value)) + values))) ;;; Backend specific parsing: netrc/authinfo backend diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index b1a4933ebf1..9f272f42587 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1396,7 +1396,8 @@ if it is a string, only list groups matching REGEXP." (gnus-group-prepare-flat-list-dead (gnus-union not-in-list - (setq gnus-killed-list (sort gnus-killed-list 'string<))) + (setq gnus-killed-list (sort gnus-killed-list 'string<)) + :test 'equal) gnus-level-killed ?K regexp)) (gnus-group-set-mode-line) diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el index 37a5d6150db..cb95aac45e5 100644 --- a/lisp/gnus/gnus-mlspl.el +++ b/lisp/gnus/gnus-mlspl.el @@ -122,9 +122,9 @@ clauses will be generated. If CATCH-ALL is nil, no catch-all handling is performed, regardless of catch-all marks in group parameters. Otherwise, if there is no selected group whose SPLIT-REGEXP matches the empty string, nor is -there a selected group whose SPLIT-SPEC is 'catch-all, this fancy +there a selected group whose SPLIT-SPEC is `catch-all', this fancy split (say, a group name) will be appended to the returned SPLIT list, -as the last element of a '| SPLIT. +as the last element of a `|' SPLIT. For example, given the following group parameters: diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 933387da559..63ae2e628d1 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1372,18 +1372,25 @@ Return the modified alist." (if (fboundp 'union) (defalias 'gnus-union 'union) - (defun gnus-union (l1 l2) - "Set union of lists L1 and L2." + (defun gnus-union (l1 l2 &rest keys) + "Set union of lists L1 and L2. +If KEYS contains the `:test' and `equal' pair, use `equal' to compare +items in lists, otherwise use `eq'." (cond ((null l1) l2) ((null l2) l1) ((equal l1 l2) l1) (t (or (>= (length l1) (length l2)) (setq l1 (prog1 l2 (setq l2 l1)))) - (while l2 - (or (member (car l2) l1) - (push (car l2) l1)) - (pop l2)) + (if (eq 'equal (plist-get keys :test)) + (while l2 + (or (member (car l2) l1) + (push (car l2) l1)) + (pop l2)) + (while l2 + (or (memq (car l2) l1) + (push (car l2) l1)) + (pop l2))) l1)))) (declare-function gnus-add-text-properties "gnus" diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 1b693d77983..a6c82824e4e 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -865,7 +865,7 @@ It may also be a function. For e.g., if you wish to set the envelope sender address so that bounces go to the right place or to deal with listserv's usage of that address, you -might set this variable to '(\"-f\" \"you@some.where\")." +might set this variable to (\"-f\" \"you@some.where\")." :group 'message-sending :link '(custom-manual "(message)Mail Variables") :type '(choice (function) @@ -1114,7 +1114,7 @@ Note: Many newsgroups frown upon nontraditional reply styles. You probably want to set this variable only for specific groups, e.g. using `gnus-posting-styles': - (eval (set (make-local-variable 'message-cite-reply-position) 'above))" + (eval (set (make-local-variable \\='message-cite-reply-position) \\='above))" :version "24.1" :type '(choice (const :tag "Reply inline" traditional) (const :tag "Reply above" above) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 327b0e6e86f..be56d2398af 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -393,7 +393,7 @@ enables you to choose manually one of two types those mails include." (defcustom mm-inline-large-images nil "If t, then all images fit in the buffer. -If 'resize, try to resize the images so they fit." +If `resize', try to resize the images so they fit." :type '(radio (const :tag "Inline large images as they are." t) (const :tag "Resize large images." resize) diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index ab9145f8b1c..24d3a9e749e 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -1074,7 +1074,7 @@ can be encoded using a single one of the corresponding coding systems. It treats `mm-coding-system-priorities' as the list of preferred coding systems; a useful example setting for this list in Western -Europe would be '(iso-8859-1 iso-8859-15 utf-8), which would default +Europe would be (iso-8859-1 iso-8859-15 utf-8), which would default to the very standard Latin 1 coding system, and only move to coding systems that are less supported as is necessary to encode the characters that exist in the buffer. diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index 33eae1c166e..a2947c0a992 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el @@ -268,23 +268,6 @@ non-nil.") (max (1+ (- (cdr active) (car active))) 0) (car active) (cdr active) group))))))) -(deffoo nnml-retrieve-groups (groups &optional server) - (when nnml-get-new-mail - (if (nnmail-get-new-mail-per-group) - (dolist (group groups) - (nnml-request-scan group server)) - (nnml-request-scan nil server))) - (with-current-buffer nntp-server-buffer - (erase-buffer) - (dolist (group groups) - (let* ((entry (assoc group nnml-group-alist)) - (active (nth 1 entry))) - (if (consp active) - (insert (format "211 %d %d %d %s\n" - (max (1+ (- (cdr active) (car active))) 0) - (car active) (cdr active) group)))))) - 'group) - (deffoo nnml-request-scan (&optional group server) (setq nnml-article-file-alist nil) (nnml-possibly-change-directory group server) diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el index 6c48f0fc9a4..d7ed30d3749 100644 --- a/lisp/gnus/qp.el +++ b/lisp/gnus/qp.el @@ -143,7 +143,8 @@ encode lines starting with \"From\"." (and (boundp 'mm-use-ultra-safe-encoding) mm-use-ultra-safe-encoding))) (when (or fold mm-use-ultra-safe-encoding) - (let ((tab-width 1)) ; HTAB is one character. + (let ((tab-width 1) ; HTAB is one character. + (case-fold-search nil)) (goto-char (point-min)) (while (not (eobp)) ;; In ultra-safe mode, encode "From " at the beginning diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 4e0bfee5bf7..e750f51e0c4 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -763,8 +763,12 @@ it is displayed along with the global value." (let ((from (point)) (line-beg (line-beginning-position)) (print-rep - (let ((print-quoted t)) - (prin1-to-string val)))) + (let ((rep + (let ((print-quoted t)) + (prin1-to-string val)))) + (if (and (symbolp val) (not (booleanp val))) + (format-message "`%s'" rep) + rep)))) (if (< (+ (length print-rep) (point) (- line-beg)) 68) (insert print-rep) (terpri) @@ -997,7 +1001,10 @@ file-local variable.\n") ;;;###autoload (defun describe-symbol (symbol &optional buffer frame) "Display the full documentation of SYMBOL. -Will show the info of SYMBOL as a function, variable, and/or face." +Will show the info of SYMBOL as a function, variable, and/or face. +Optional arguments BUFFER and FRAME specify for which buffer and +frame to show the information about SYMBOL; they default to the +current buffer and the selected frame, respectively." (interactive (let* ((v-or-f (symbol-at-point)) (found (cl-some (lambda (x) (funcall (nth 1 x) v-or-f)) @@ -1040,15 +1047,17 @@ Will show the info of SYMBOL as a function, variable, and/or face." (let ((inhibit-read-only t) (name (caar docs)) ;Name of doc currently at BOB. (doc (cdr (cadr docs)))) ;Doc to add at BOB. - (insert doc) - (delete-region (point) (progn (skip-chars-backward " \t\n") (point))) - (insert "\n\n" - (eval-when-compile - (propertize "\n" 'face '(:height 0.1 :inverse-video t))) - "\n") - (when name - (insert (symbol-name symbol) - " is also a " name "." "\n\n"))) + (when doc + (insert doc) + (delete-region (point) + (progn (skip-chars-backward " \t\n") (point))) + (insert "\n\n" + (eval-when-compile + (propertize "\n" 'face '(:height 0.1 :inverse-video t))) + "\n") + (when name + (insert (symbol-name symbol) + " is also a " name "." "\n\n")))) (setq docs (cdr docs))) (unless single ;; Don't record the `describe-variable' item in the stack. diff --git a/lisp/help.el b/lisp/help.el index c558b652b7e..d6cfae44183 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1069,7 +1069,7 @@ is currently activated with completion." ;;; Automatic resizing of temporary buffers. (defcustom temp-buffer-max-height (lambda (buffer) - (if (eq (selected-window) (frame-root-window)) + (if (and (display-graphic-p) (eq (selected-window) (frame-root-window))) (/ (x-display-pixel-height) (frame-char-height) 2) (/ (- (frame-height) 2) 2))) "Maximum height of a window displaying a temporary buffer. @@ -1086,7 +1086,7 @@ function is called, the window to be resized is selected." (defcustom temp-buffer-max-width (lambda (buffer) - (if (eq (selected-window) (frame-root-window)) + (if (and (display-graphic-p) (eq (selected-window) (frame-root-window))) (/ (x-display-pixel-width) (frame-char-width) 2) (/ (- (frame-width) 2) 2))) "Maximum width of a window displaying a temporary buffer. diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 89b1204ad11..5bab906ee99 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -332,7 +332,7 @@ which can be called interactively, are: (See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns], any valid `font-lock-keywords' form is acceptable. When a file is loaded the patterns are read if `hi-lock-file-patterns-policy' is - 'ask and the user responds y to the prompt, or if + `ask' and the user responds y to the prompt, or if `hi-lock-file-patterns-policy' is bound to a function and that function returns t. diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index d00fae26793..3731be621e2 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el @@ -262,10 +262,10 @@ These functions will be called with the HTML buffer as the current buffer." :type '(hook)) (defcustom hfy-default-face-def nil - "Fallback `defface' specification for the face 'default, used when + "Fallback `defface' specification for the face `default', used when `hfy-display-class' has been set (the normal htmlfontify way of extracting potentially non-current face information doesn't necessarily work for -'default).\n +`default').\n Example: I customize this to:\n \((t :background \"black\" :foreground \"white\" :family \"misc-fixed\"))" :group 'htmlfontify @@ -410,23 +410,23 @@ calculating a face's attributes. This is useful when, for example, you are running Emacs on a tty or in batch mode, and want htmlfontify to have access to the face spec you would use if you were connected to an X display.\n Some valid class specification elements are:\n - '(class color) - '(class grayscale) - '(background dark) - '(background light) - '(type x-toolkit) - '(type tty) - '(type motif) - '(type lucid) + (class color) + (class grayscale) + (background dark) + (background light) + (type x-toolkit) + (type tty) + (type motif) + (type lucid) Multiple values for a tag may be combined, to indicate that any one or more of these values in the specification key constitutes a match, eg:\n -'((class color grayscale) (type tty)) would match any of:\n - '((class color)) - '((class grayscale)) - '((class color grayscale)) - '((class color foo)) - '((type tty)) - '((type tty) (class color))\n +((class color grayscale) (type tty)) would match any of:\n + ((class color)) + ((class grayscale)) + ((class color grayscale)) + ((class color foo)) + ((type tty)) + ((type tty) (class color))\n and so on." :type '(alist :key-type (symbol) :value-type (symbol)) :group 'htmlfontify @@ -881,10 +881,10 @@ specify - this matches Emacs's behavior when deciding on which face attributes to use, to the best of my understanding).\n If CLASS is nil, then you just get whatever `face-attr-construct' returns, ie the current specification in effect for FACE.\n -*NOTE*: This function forces any face that is not 'default and which has -no :inherit property to inherit from 'default (this is because 'default +*NOTE*: This function forces any face that is not `default' and which has +no :inherit property to inherit from `default' (this is because `default' is magical in that Emacs's fonts behave as if they inherit implicitly from -'default, but no such behavior exists in HTML/CSS).\n +`default', but no such behavior exists in HTML/CSS).\n See also `hfy-display-class' for details of valid values for CLASS." (let ((face-spec (if class diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 3253a636c48..517e80f7dff 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -129,7 +129,7 @@ own!): Thus, if you wanted to use these two formats, the appropriate value for this variable would be - '((mark \" \" name) + \\='((mark \" \" name) (mark modified read-only (name 16 16 :left) (size 6 -1 :right))) @@ -1355,23 +1355,36 @@ group." (message "%s buffers marked" count)) (ibuffer-redisplay t)) -(defun ibuffer-mark-forward (arg) - "Mark the buffer on this line, and move forward ARG lines. +(defsubst ibuffer-get-region-and-prefix () + (let ((arg (prefix-numeric-value current-prefix-arg))) + (if (use-region-p) (list (region-beginning) (region-end) arg) + (list nil nil arg)))) + +(defun ibuffer-mark-forward (start end arg) + "Mark the buffers in the region, or ARG buffers. If point is on a group name, this function operates on that group." - (interactive "p") - (ibuffer-mark-interactive arg ibuffer-marked-char)) + (interactive (ibuffer-get-region-and-prefix)) + (ibuffer-mark-region-or-n-with-char start end arg ibuffer-marked-char)) -(defun ibuffer-unmark-forward (arg) - "Unmark the buffer on this line, and move forward ARG lines. +(defun ibuffer-unmark-forward (start end arg) + "Unmark the buffers in the region, or ARG buffers. If point is on a group name, this function operates on that group." - (interactive "p") - (ibuffer-mark-interactive arg ?\s)) + (interactive (ibuffer-get-region-and-prefix)) + (ibuffer-mark-region-or-n-with-char start end arg ?\s)) (defun ibuffer-unmark-backward (arg) - "Unmark the buffer on this line, and move backward ARG lines. + "Unmark the ARG previous buffers. If point is on a group name, this function operates on that group." (interactive "p") - (ibuffer-unmark-forward (- arg))) + (ibuffer-unmark-forward nil nil (- arg))) + +(defun ibuffer-mark-region-or-n-with-char (start end arg mark-char) + (if (use-region-p) + (let ((cur (point)) (line-count (count-lines start end))) + (goto-char start) + (ibuffer-mark-interactive line-count mark-char) + (goto-char cur)) + (ibuffer-mark-interactive arg mark-char))) (defun ibuffer-mark-interactive (arg mark &optional movement) (ibuffer-assert-ibuffer-mode) @@ -1410,16 +1423,16 @@ If point is on a group name, this function operates on that group." (list (ibuffer-current-buffer) mark)))) -(defun ibuffer-mark-for-delete (arg) - "Mark the buffers on ARG lines forward for deletion. +(defun ibuffer-mark-for-delete (start end arg) + "Mark for deletion the buffers in the region, or ARG buffers. If point is on a group name, this function operates on that group." - (interactive "P") - (ibuffer-mark-interactive arg ibuffer-deletion-char 1)) + (interactive (ibuffer-get-region-and-prefix)) + (ibuffer-mark-region-or-n-with-char start end arg ibuffer-deletion-char)) (defun ibuffer-mark-for-delete-backwards (arg) - "Mark the buffers on ARG lines backward for deletion. + "Mark for deletion the ARG previous buffers. If point is on a group name, this function operates on that group." - (interactive "P") + (interactive "p") (ibuffer-mark-interactive arg ibuffer-deletion-char -1)) (defun ibuffer-current-buffer (&optional must-be-live) diff --git a/lisp/ido.el b/lisp/ido.el index 6ad354c58f2..e2a916534eb 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -742,8 +742,8 @@ not provide the normal completion. To show the completions, use \\[ido-toggle-i (defcustom ido-enter-matching-directory 'only "Additional methods to enter sub-directory of first/only matching item. -If value is 'first, enter first matching sub-directory when typing a slash. -If value is 'only, typing a slash only enters the sub-directory if it is +If value is `first', enter first matching sub-directory when typing a slash. +If value is `only', typing a slash only enters the sub-directory if it is the only matching item. If value is t, automatically enter a sub-directory when it is the only matching item, even without typing a slash." @@ -755,8 +755,8 @@ matching item, even without typing a slash." (defcustom ido-create-new-buffer 'prompt "Specify whether a new buffer is created if no buffer matches substring. -Choices are 'always to create new buffers unconditionally, 'prompt to -ask user whether to create buffer, or 'never to never create new buffer." +Choices are `always' to create new buffers unconditionally, `prompt' to +ask user whether to create buffer, or `never' to never create new buffer." :type '(choice (const always) (const prompt) (const never)) @@ -1605,8 +1605,8 @@ With ARG, turn Ido mode on if arg is positive, off otherwise. Turning on Ido mode will remap (via a minor-mode keymap) the default keybindings for the `find-file' and `switch-to-buffer' families of commands to the Ido versions of these functions. -However, if ARG arg equals 'files, remap only commands for files, or -if it equals 'buffers, remap only commands for buffer switching. +However, if ARG arg equals `files', remap only commands for files, or +if it equals `buffers', remap only commands for buffer switching. This function also adds a hook to the minibuffer." (interactive "P") (setq ido-mode @@ -3491,14 +3491,12 @@ This is to make them appear as if they were \"virtual buffers\"." ;; the file which the user might thought was still open. (unless recentf-mode (recentf-mode 1)) (setq ido-virtual-buffers nil) - (let ((bookmarks (and (boundp 'bookmark-alist) - bookmark-alist)) - name) + (let (name) (dolist (head (append recentf-list - (delq nil (mapcar (lambda (bookmark) - (cdr (assoc 'filename bookmark))) - bookmarks)))) + (and (fboundp 'bookmark-get-filename) + (delq nil (mapcar #'bookmark-get-filename + (bound-and-true-p bookmark-alist)))))) (setq name (file-name-nondirectory head)) ;; In case HEAD is a directory with trailing /. See bug#14552. (when (equal name "") @@ -3559,7 +3557,9 @@ it is put to the start of the list." (let* ((len (1- (length dir))) (non-essential t) (compl - (or (file-name-all-completions "" dir) + (or ;; We do not want to be disturbed by "File does not + ;; exist" errors. + (ignore-errors (file-name-all-completions "" dir)) ;; work around bug in ange-ftp. ;; /ftp:user@host: => nil ;; /ftp:user@host:./ => ok diff --git a/lisp/ielm.el b/lisp/ielm.el index b0354321656..2c5613af466 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -1,5 +1,4 @@ -;;; -*- lexical-binding: t -*- -;;; ielm.el --- interaction mode for Emacs Lisp +;;; ielm.el --- interaction mode for Emacs Lisp -*- lexical-binding: t -*- ;; Copyright (C) 1994, 2001-2015 Free Software Foundation, Inc. diff --git a/lisp/image-dired.el b/lisp/image-dired.el index c5efb338152..ae3921ccbad 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el @@ -1205,8 +1205,8 @@ comment." (defun image-dired-modify-mark-on-thumb-original-file (command) "Modify mark in dired buffer. -COMMAND is one of 'mark for marking file in dired, 'unmark for -unmarking file in dired or 'flag for flagging file for delete in +COMMAND is one of `mark' for marking file in dired, `unmark' for +unmarking file in dired or `flag' for flagging file for delete in dired." (let ((file-name (image-dired-original-file-name)) (dired-buf (image-dired-associated-dired-buffer))) diff --git a/lisp/image.el b/lisp/image.el index 295b79f161d..4ee22b580e6 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -154,7 +154,7 @@ compatibility with versions of Emacs that lack the variable (let* ((load-path (image-load-path-for-library \"mh-e\" \"mh-logo.xpm\")) (image-load-path (cons (car load-path) - (when (boundp 'image-load-path) + (when (boundp \\='image-load-path) image-load-path)))) (mh-tool-bar-folder-buttons-init))" (unless library (error "No library specified")) diff --git a/lisp/imenu.el b/lisp/imenu.el index 717ac633665..57db68626e1 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -509,7 +509,7 @@ If REVERSE is non-nil then the beginning is 100 and the end is 0." (defun imenu--split (list n) "Split LIST into sublists of max length N. -Example (imenu--split '(1 2 3 4 5 6 7 8) 3)-> '((1 2 3) (4 5 6) (7 8)) +Example (imenu--split \\='(1 2 3 4 5 6 7 8) 3) => ((1 2 3) (4 5 6) (7 8)) The returned list DOES NOT share structure with LIST." (let ((remain list) (result '()) diff --git a/lisp/indent.el b/lisp/indent.el index cba8f755f8f..cf3770f1f69 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -610,7 +610,7 @@ See also `indent-relative-maybe'." "List of tab stop positions used by `tab-to-tab-stop'. This should be nil, or a list of integers, ordered from smallest to largest. It implicitly extends to infinity through repetition of the last step. -For example, '(1 2 5) is equivalent to '(1 2 5 8 11 ...). If the list has +For example, (1 2 5) is equivalent to (1 2 5 8 11 ...). If the list has fewer than 2 elements, `tab-width' is used as the \"last step\". A value of nil means a tab stop every `tab-width' columns." :group 'indent diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index b575c2b7db3..c70a3eee0fb 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -55,7 +55,8 @@ string) (defvar truncate-string-ellipsis "..." ;"…" - "String to use to indicate truncation.") + "String to use to indicate truncation. +Serves as default value of ELLIPSIS argument to `truncate-string-to-width'.") ;;;###autoload (defun truncate-string-to-width (str end-column diff --git a/lisp/international/ucs-normalize.el b/lisp/international/ucs-normalize.el index 8839b00dfff..de3c54534bd 100644 --- a/lisp/international/ucs-normalize.el +++ b/lisp/international/ucs-normalize.el @@ -176,6 +176,13 @@ (setq decomposition-pair-to-composition nil) (defvar non-starter-decompositions nil) (setq non-starter-decompositions nil) + ;; This file needs to access these 2 Unicode properties, but when we + ;; compile it during bootstrap, charprop.el was not built yet, and + ;; therefore is not yet loaded into bootstrap-emacs, so + ;; char-code-property-alist is nil, and get-char-code-property + ;; always returns nil, something the code here doesn't like. + (define-char-code-property 'decomposition "uni-decomposition.el") + (define-char-code-property 'canonical-combining-class "uni-combining.el") (let ((char 0) ccc decomposition) (mapc (lambda (start-end) @@ -627,6 +634,10 @@ be decomposed." :pre-write-conversion 'ucs-normalize-hfs-nfd-pre-write-conversion ) +;; This is tested in dired.c:file_name_completion in order to reject +;; false positives due to comparison of encoded file names. +(coding-system-put 'utf-8-hfs 'decomposed-characters 't) + (provide 'ucs-normalize) ;; Local Variables: diff --git a/lisp/isearch.el b/lisp/isearch.el index 9f8ba8d8d7b..05dc2931d93 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -96,8 +96,12 @@ in Isearch mode is always downcased." (defcustom search-nonincremental-instead t "If non-nil, do a nonincremental search instead of exiting immediately. -Actually, `isearch-edit-string' is called to let you enter the search -string, and RET terminates editing and does a nonincremental search." +This affects the behavior of `isearch-exit' and any key bound to that +command: if this variable is nil, `isearch-exit' always exits the search; +if the value is non-nil, and the search string is empty, `isearch-exit' +starts a nonincremental search instead. (Actually, `isearch-edit-string' +is called to let you enter the search string, and RET terminates editing +and does a nonincremental search.)" :type 'boolean) (defcustom search-whitespace-regexp (purecopy "\\s-+") @@ -142,9 +146,11 @@ whenever point is in one of them." (defcustom isearch-hide-immediately t "If non-nil, re-hide an invisible match right away. This variable makes a difference when `search-invisible' is set to `open'. +If non-nil, invisible matches are re-hidden as soon as the match moves +off the invisible text surrounding the match. If nil then do not re-hide opened invisible text when the match moves. Whatever the value, all opened invisible text is hidden again after exiting -the search." +the search, with the exception of the last successful match, if any." :type 'boolean) (defcustom isearch-resume-in-command-history nil @@ -511,8 +517,6 @@ This is like `describe-bindings', but displays only Isearch keys." (define-key map "\M-r" 'isearch-toggle-regexp) (define-key map "\M-e" 'isearch-edit-string) - (put 'isearch-toggle-case-fold :advertised-binding "\M-sc") - (put 'isearch-toggle-regexp :advertised-binding "\M-sr") (put 'isearch-edit-string :advertised-binding "\M-se") (define-key map "\M-se" 'isearch-edit-string) @@ -770,7 +774,8 @@ as a regexp. See the command `isearch-forward' for more information. In incremental searches, a space or spaces normally matches any whitespace defined by the variable `search-whitespace-regexp'. To search for a literal space and nothing else, enter C-q SPC. -To toggle whitespace matching, use `isearch-toggle-lax-whitespace'." +To toggle whitespace matching, use `isearch-toggle-lax-whitespace'. +This command does not support character folding." (interactive "P\np") (isearch-mode t (null not-regexp) nil (not no-recursive-edit))) @@ -779,7 +784,9 @@ To toggle whitespace matching, use `isearch-toggle-lax-whitespace'." With a prefix argument, do a regular string search instead. Like ordinary incremental search except that your input is treated as a sequence of words without regard to how the words are separated. -See the command `isearch-forward' for more information." +See the command `isearch-forward' for more information. +This command does not support character folding, and lax space matching +has no effect on it." (interactive "P\np") (isearch-mode t nil nil (not no-recursive-edit) (null not-word))) @@ -788,7 +795,9 @@ See the command `isearch-forward' for more information." The prefix argument is currently unused. Like ordinary incremental search except that your input is treated as a symbol surrounded by symbol boundary constructs \\_< and \\_>. -See the command `isearch-forward' for more information." +See the command `isearch-forward' for more information. +This command does not support character folding, and lax space matching +has no effect on it." (interactive "P\np") (isearch-mode t nil nil (not no-recursive-edit) 'isearch-symbol-regexp)) @@ -803,7 +812,7 @@ See the command `isearch-forward' for more information." "Do incremental search backward for regular expression. With a prefix argument, do a regular string search instead. Like ordinary incremental search except that your input is treated -as a regexp. See the command `isearch-forward' for more information." +as a regexp. See the command `isearch-forward-regexp' for more information." (interactive "P\np") (isearch-mode nil (null not-regexp) nil (not no-recursive-edit))) @@ -952,7 +961,8 @@ used to set the value of `isearch-regexp-function'." (defun isearch-update () "This is called after every isearch command to update the display. -The last thing it does is to run `isearch-update-post-hook'." +The second last thing it does is to run `isearch-update-post-hook'. +The last thing is to trigger a new round of lazy highlighting." (unless (eq (current-buffer) isearch--current-buffer) (when (buffer-live-p isearch--current-buffer) (with-current-buffer isearch--current-buffer @@ -969,12 +979,10 @@ The last thing it does is to run `isearch-update-post-hook'." (null executing-kbd-macro)) (progn (if (not (input-pending-p)) - (if isearch-message-function - (funcall isearch-message-function) - (isearch-message))) + (funcall (or isearch-message-function #'isearch-message))) (if (and isearch-slow-terminal-mode (not (or isearch-small-window - (pos-visible-in-window-p)))) + (pos-visible-in-window-group-p)))) (let ((found-point (point))) (setq isearch-small-window t) (move-to-window-line 0) @@ -995,10 +1003,10 @@ The last thing it does is to run `isearch-update-post-hook'." (let ((current-scroll (window-hscroll)) visible-p) (set-window-hscroll (selected-window) isearch-start-hscroll) - (setq visible-p (pos-visible-in-window-p nil nil t)) + (setq visible-p (pos-visible-in-window-group-p nil nil t)) (if (or (not visible-p) ;; When point is not visible because of hscroll, - ;; pos-visible-in-window-p returns non-nil, but + ;; pos-visible-in-window-group-p returns non-nil, but ;; the X coordinate it returns is 1 pixel beyond ;; the last visible one. (>= (car visible-p) (window-body-width nil t))) @@ -1011,12 +1019,12 @@ The last thing it does is to run `isearch-update-post-hook'." (setq ;; quit-flag nil not for isearch-mode isearch-adjusted nil isearch-yank-flag nil) - (when isearch-lazy-highlight - (isearch-lazy-highlight-new-loop)) ;; We must prevent the point moving to the end of composition when a ;; part of the composition has just been searched. (setq disable-point-adjustment t) - (run-hooks 'isearch-update-post-hook)) + (run-hooks 'isearch-update-post-hook) + (when isearch-lazy-highlight + (isearch-lazy-highlight-new-loop))) (defun isearch-done (&optional nopush edit) "Exit Isearch mode. @@ -1049,7 +1057,7 @@ NOPUSH is t and EDIT is t." (setq minibuffer-message-timeout isearch-original-minibuffer-message-timeout) (isearch-dehighlight) (lazy-highlight-cleanup lazy-highlight-cleanup) - (let ((found-start (window-start)) + (let ((found-start (window-group-start)) (found-point (point))) (when isearch-window-configuration (set-window-configuration isearch-window-configuration) @@ -1059,7 +1067,7 @@ NOPUSH is t and EDIT is t." ;; This has an annoying side effect of clearing the last_modiff ;; field of the window, which can cause unwanted scrolling, ;; so don't do it unless truly necessary. - (set-window-start (selected-window) found-start t)))) + (set-window-group-start (selected-window) found-start t)))) (setq isearch-mode nil) (if isearch-input-method-local-p @@ -1207,6 +1215,14 @@ If MSG is non-nil, use variable `isearch-message', otherwise `isearch-string'." (length succ-msg) 0)))) +(defvar isearch-new-regexp-function nil + "Holds the next `isearch-regexp-function' inside `with-isearch-suspended'. +If this is set inside code wrapped by the macro +`with-isearch-suspended', then the value set will be used as the +`isearch-regexp-function' once isearch resumes.") +(define-obsolete-variable-alias 'isearch-new-word + 'isearch-new-regexp-function "25.1") + (defmacro with-isearch-suspended (&rest body) "Exit Isearch mode, run BODY, and reinvoke the pending search. You can update the global isearch variables by setting new values to @@ -1282,13 +1298,6 @@ You can update the global isearch variables by setting new values to (unwind-protect (progn ,@body) - ;; Set point at the start (end) of old match if forward (backward), - ;; so after exiting minibuffer isearch resumes at the start (end) - ;; of this match and can find it again. - (if (and old-other-end (eq old-point (point)) - (eq isearch-forward isearch-new-forward)) - (goto-char old-other-end)) - ;; Always resume isearching by restarting it. (isearch-mode isearch-forward isearch-regexp @@ -1301,7 +1310,17 @@ You can update the global isearch variables by setting new values to isearch-message isearch-new-message isearch-forward isearch-new-forward isearch-regexp-function isearch-new-regexp-function - isearch-case-fold-search isearch-new-case-fold)) + isearch-case-fold-search isearch-new-case-fold) + + ;; Restore the minibuffer message before moving point. + (funcall (or isearch-message-function #'isearch-message) nil t) + + ;; Set point at the start (end) of old match if forward (backward), + ;; so after exiting minibuffer isearch resumes at the start (end) + ;; of this match and can find it again. + (if (and old-other-end (eq old-point (point)) + (eq isearch-forward isearch-new-forward)) + (goto-char old-other-end))) ;; Empty isearch-string means use default. (when (= 0 (length isearch-string)) @@ -1490,14 +1509,15 @@ Use `isearch-exit' to quit without signaling." ;;; Toggles for `isearch-regexp-function' and `search-default-regexp-mode'. (defmacro isearch-define-mode-toggle (mode key function &optional docstring &rest body) "Define a command called `isearch-toggle-MODE' and bind it to `M-s KEY'. -The first line of the docstring is auto-generated, the remainder -may be provided in DOCSTRING. +The first line of the command's docstring is auto-generated, the +remainder may be provided in DOCSTRING. If FUNCTION is a symbol, this command first toggles the value of `isearch-regexp-function' between nil and FUNCTION. Also set the `isearch-message-prefix' property of FUNCTION. The command then executes BODY and updates the isearch prompt." (declare (indent defun)) - (let ((command-name (intern (format "isearch-toggle-%s" mode)))) + (let ((command-name (intern (format "isearch-toggle-%s" mode))) + (key (concat "\M-s" key))) `(progn (defun ,command-name () ,(format "Toggle %s searching on or off.%s" mode @@ -1511,17 +1531,21 @@ The command then executes BODY and updates the isearch prompt." ,@body (setq isearch-success t isearch-adjusted t) (isearch-update)) - (define-key isearch-mode-map ,(concat "\M-s" key) #',command-name) + (define-key isearch-mode-map ,key #',command-name) ,@(when (symbolp function) `((put ',function 'isearch-message-prefix ,(format "%s " mode)) + (put ',function :advertised-binding ,key) (cl-callf (lambda (types) (cons 'choice (cons '(const :tag ,(capitalize (format "%s search" mode)) ,function) (cdr types)))) (get 'search-default-regexp-mode 'custom-type))))))) -(isearch-define-mode-toggle word "w" word-search-regexp) -(isearch-define-mode-toggle symbol "_" isearch-symbol-regexp) -(isearch-define-mode-toggle character-fold "'" character-fold-to-regexp) +(isearch-define-mode-toggle word "w" word-search-regexp "\ +Turning on word search turns off regexp mode.") +(isearch-define-mode-toggle symbol "_" isearch-symbol-regexp "\ +Turning on symbol search turns off regexp mode.") +(isearch-define-mode-toggle character-fold "'" character-fold-to-regexp "\ +Turning on character-folding turns off regexp mode.") (put 'character-fold-to-regexp 'isearch-message-prefix "char-fold ") (isearch-define-mode-toggle regexp "r" nil nil @@ -1604,7 +1628,9 @@ Optional fourth argument is repeat count--search for successive occurrences. Relies on the function `word-search-regexp' to convert a sequence of words in STRING to a regexp used to search words without regard -to punctuation." +to punctuation. +This command does not support character folding, and lax space matching +has no effect on it." (interactive "sWord search backward: ") (re-search-backward (word-search-regexp string nil) bound noerror count)) @@ -1619,7 +1645,9 @@ Optional fourth argument is repeat count--search for successive occurrences. Relies on the function `word-search-regexp' to convert a sequence of words in STRING to a regexp used to search words without regard -to punctuation." +to punctuation. +This command does not support character folding, and lax space matching +has no effect on it." (interactive "sWord search: ") (re-search-forward (word-search-regexp string nil) bound noerror count)) @@ -1638,7 +1666,9 @@ Optional fourth argument is repeat count--search for successive occurrences. Relies on the function `word-search-regexp' to convert a sequence of words in STRING to a regexp used to search words without regard -to punctuation." +to punctuation. +This command does not support character folding, and lax space matching +has no effect on it." (interactive "sWord search backward: ") (re-search-backward (word-search-regexp string t) bound noerror count)) @@ -1657,7 +1687,9 @@ Optional fourth argument is repeat count--search for successive occurrences. Relies on the function `word-search-regexp' to convert a sequence of words in STRING to a regexp used to search words without regard -to punctuation." +to punctuation. +This command does not support character folding, and lax space matching +has no effect on it." (interactive "sWord search: ") (re-search-forward (word-search-regexp string t) bound noerror count)) @@ -1828,7 +1860,13 @@ characters in that string." isearch-regexp-lax-whitespace isearch-lax-whitespace) search-whitespace-regexp))) - (occur regexp nlines))) + (occur (if isearch-regexp-function + (propertize regexp + 'isearch-string isearch-string + 'isearch-regexp-function-descr + (isearch--describe-regexp-mode isearch-regexp-function)) + regexp) + nlines))) (declare-function hi-lock-read-face-name "hi-lock" ()) @@ -1895,6 +1933,8 @@ If search string is empty, just beep." (length isearch-string)))) isearch-message (mapconcat 'isearch-text-char-description isearch-string ""))) + ;; Do the following before moving point. + (funcall (or isearch-message-function #'isearch-message) nil t) ;; Use the isearch-other-end as new starting point to be able ;; to find the remaining part of the search string again. ;; This is like what `isearch-search-and-update' does, @@ -2071,6 +2111,8 @@ With argument, add COUNT copies of the character." (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string isearch-regexp)))) ;; Not regexp, not reverse, or no match at point. + ;; Do the following before moving point. + (funcall (or isearch-message-function #'isearch-message) nil t) (if (and isearch-other-end (not isearch-adjusted)) (goto-char (if isearch-forward isearch-other-end (min isearch-opoint @@ -2237,10 +2279,12 @@ Return nil if it's completely visible, or if point is visible, together with as much of the search string as will fit; the symbol `above' if we need to scroll the text downwards; the symbol `below', if upwards." - (let ((w-start (window-start)) - (w-end (window-end nil t)) - (w-L1 (save-excursion (move-to-window-line 1) (point))) - (w-L-1 (save-excursion (move-to-window-line -1) (point))) + (let ((w-start (window-group-start)) + (w-end (window-group-end nil t)) + (w-L1 (save-excursion + (save-selected-window (move-to-window-group-line 1) (point)))) + (w-L-1 (save-excursion + (save-selected-window (move-to-window-group-line -1) (point)))) start end) ; start and end of search string in buffer (if isearch-forward (setq end isearch-point start (or isearch-other-end isearch-point)) @@ -2267,15 +2311,15 @@ the bottom." (if above (progn (goto-char start) - (recenter 0) - (when (>= isearch-point (window-end nil t)) + (recenter-window-group 0) + (when (>= isearch-point (window-group-end nil t)) (goto-char isearch-point) - (recenter -1))) + (recenter-window-group -1))) (goto-char end) - (recenter -1) - (when (< isearch-point (window-start)) + (recenter-window-group -1) + (when (< isearch-point (window-group-start)) (goto-char isearch-point) - (recenter 0)))) + (recenter-window-group 0)))) (goto-char isearch-point)) (defvar isearch-pre-scroll-point nil) @@ -2422,6 +2466,7 @@ Search is updated accordingly." (isearch-ring-adjust1 advance) (if search-ring-update (progn + (funcall (or isearch-message-function #'isearch-message) nil t) (isearch-search) (isearch-push-state) (isearch-update)) @@ -2494,6 +2539,13 @@ If there is no completion possible, say so and continue searching." (defun isearch-message (&optional c-q-hack ellipsis) ;; Generate and print the message string. + + ;; N.B.: This function should always be called with point at the + ;; search point, because in certain (rare) circumstances, undesired + ;; scrolling can happen when point is elsewhere. These + ;; circumstances are when follow-mode is active, the search string + ;; spans two (or several) windows, and the message about to be + ;; displayed will cause the echo area to expand. (let ((cursor-in-echo-area ellipsis) (m isearch-message) (fail-pos (isearch-fail-pos t))) @@ -2623,16 +2675,23 @@ Can be changed via `isearch-search-fun-function' for special needs." (isearch-regexp isearch-regexp-lax-whitespace) (t isearch-lax-whitespace)) search-whitespace-regexp))) - (funcall - (if isearch-forward #'re-search-forward #'re-search-backward) - (cond (isearch-regexp-function - (let ((lax (isearch--lax-regexp-function-p))) - (if (functionp isearch-regexp-function) - (funcall isearch-regexp-function string lax) - (word-search-regexp string lax)))) - (isearch-regexp string) - (t (regexp-quote string))) - bound noerror count)))) + (condition-case er + (funcall + (if isearch-forward #'re-search-forward #'re-search-backward) + (cond (isearch-regexp-function + (let ((lax (isearch--lax-regexp-function-p))) + (if (functionp isearch-regexp-function) + (funcall isearch-regexp-function string lax) + (word-search-regexp string lax)))) + (isearch-regexp string) + (t (regexp-quote string))) + bound noerror count) + (search-failed + (signal (car er) + (let ((prefix (get isearch-regexp-function 'isearch-message-prefix))) + (if (and isearch-regexp-function (stringp prefix)) + (list (format "%s [using %ssearch]" string prefix)) + (cdr er))))))))) (defun isearch-search-string (string bound noerror) "Search for the first occurrence of STRING or its translation. @@ -2680,9 +2739,6 @@ update the match data, and return point." (defun isearch-search () ;; Do the search with the current search string. - (if isearch-message-function - (funcall isearch-message-function nil t) - (isearch-message nil t)) (if (and (eq isearch-case-fold-search t) search-upper-case) (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string isearch-regexp))) @@ -2980,6 +3036,7 @@ since they have special meaning in a regexp." (defvar isearch-lazy-highlight-timer nil) (defvar isearch-lazy-highlight-last-string nil) (defvar isearch-lazy-highlight-window nil) +(defvar isearch-lazy-highlight-window-group nil) (defvar isearch-lazy-highlight-window-start nil) (defvar isearch-lazy-highlight-window-end nil) (defvar isearch-lazy-highlight-case-fold-search nil) @@ -3021,8 +3078,8 @@ by other Emacs features." (sit-for 0) ;make sure (window-start) is credible (or (not (equal isearch-string isearch-lazy-highlight-last-string)) - (not (eq (selected-window) - isearch-lazy-highlight-window)) + (not (memq (selected-window) + isearch-lazy-highlight-window-group)) (not (eq isearch-lazy-highlight-case-fold-search isearch-case-fold-search)) (not (eq isearch-lazy-highlight-regexp @@ -3033,9 +3090,9 @@ by other Emacs features." isearch-lax-whitespace)) (not (eq isearch-lazy-highlight-regexp-lax-whitespace isearch-regexp-lax-whitespace)) - (not (= (window-start) + (not (= (window-group-start) isearch-lazy-highlight-window-start)) - (not (= (window-end) ; Window may have been split/joined. + (not (= (window-group-end) ; Window may have been split/joined. isearch-lazy-highlight-window-end)) (not (eq isearch-forward isearch-lazy-highlight-forward)) @@ -3043,7 +3100,7 @@ by other Emacs features." (not (equal isearch-error isearch-lazy-highlight-error)))) ;; something important did indeed change - (lazy-highlight-cleanup t) ;kill old loop & remove overlays + (lazy-highlight-cleanup t) ;kill old loop & remove overlays (setq isearch-lazy-highlight-error isearch-error) ;; It used to check for `(not isearch-error)' here, but actually ;; lazy-highlighting might find matches to highlight even when @@ -3051,8 +3108,9 @@ by other Emacs features." (setq isearch-lazy-highlight-start-limit beg isearch-lazy-highlight-end-limit end) (setq isearch-lazy-highlight-window (selected-window) - isearch-lazy-highlight-window-start (window-start) - isearch-lazy-highlight-window-end (window-end) + isearch-lazy-highlight-window-group (selected-window-group) + isearch-lazy-highlight-window-start (window-group-start) + isearch-lazy-highlight-window-end (window-group-end) ;; Start lazy-highlighting at the beginning of the found ;; match (`isearch-other-end'). If no match, use point. ;; One of the next two variables (depending on search direction) @@ -3070,10 +3128,10 @@ by other Emacs features." isearch-lazy-highlight-regexp-lax-whitespace isearch-regexp-lax-whitespace isearch-lazy-highlight-regexp-function isearch-regexp-function isearch-lazy-highlight-forward isearch-forward) - (unless (equal isearch-string "") - (setq isearch-lazy-highlight-timer - (run-with-idle-timer lazy-highlight-initial-delay nil - 'isearch-lazy-highlight-update))))) + (unless (equal isearch-string "") + (setq isearch-lazy-highlight-timer + (run-with-idle-timer lazy-highlight-initial-delay nil + 'isearch-lazy-highlight-update))))) (defun isearch-lazy-highlight-search () "Search ahead for the next or previous match, for lazy highlighting. @@ -3096,13 +3154,13 @@ Attempt to do the search exactly the way the pending Isearch would." (+ isearch-lazy-highlight-start ;; Extend bound to match whole string at point (1- (length isearch-lazy-highlight-last-string))) - (window-end))) + (window-group-end))) (max (or isearch-lazy-highlight-start-limit (point-min)) (if isearch-lazy-highlight-wrapped (- isearch-lazy-highlight-end ;; Extend bound to match whole string at point (1- (length isearch-lazy-highlight-last-string))) - (window-start)))))) + (window-group-start)))))) ;; Use a loop like in `isearch-search'. (while retry (setq success (isearch-search-string @@ -3126,7 +3184,7 @@ Attempt to do the search exactly the way the pending Isearch would." (with-local-quit (save-selected-window (if (and (window-live-p isearch-lazy-highlight-window) - (not (eq (selected-window) isearch-lazy-highlight-window))) + (not (memq (selected-window) isearch-lazy-highlight-window-group))) (select-window isearch-lazy-highlight-window)) (save-excursion (save-match-data @@ -3146,12 +3204,12 @@ Attempt to do the search exactly the way the pending Isearch would." (if isearch-lazy-highlight-forward (if (= mb (if isearch-lazy-highlight-wrapped isearch-lazy-highlight-start - (window-end))) + (window-group-end))) (setq found nil) (forward-char 1)) (if (= mb (if isearch-lazy-highlight-wrapped isearch-lazy-highlight-end - (window-start))) + (window-group-start))) (setq found nil) (forward-char -1))) @@ -3161,8 +3219,8 @@ Attempt to do the search exactly the way the pending Isearch would." ;; 1000 is higher than ediff's 100+, ;; but lower than isearch main overlay's 1001 (overlay-put ov 'priority 1000) - (overlay-put ov 'face lazy-highlight-face) - (overlay-put ov 'window (selected-window)))) + (overlay-put ov 'face lazy-highlight-face))) + ;(overlay-put ov 'window (selected-window)))) ;; Remember the current position of point for ;; the next call of `isearch-lazy-highlight-update' ;; when `lazy-highlight-max-at-a-time' is too small. @@ -3178,12 +3236,12 @@ Attempt to do the search exactly the way the pending Isearch would." (setq isearch-lazy-highlight-wrapped t) (if isearch-lazy-highlight-forward (progn - (setq isearch-lazy-highlight-end (window-start)) + (setq isearch-lazy-highlight-end (window-group-start)) (goto-char (max (or isearch-lazy-highlight-start-limit (point-min)) - (window-start)))) - (setq isearch-lazy-highlight-start (window-end)) + (window-group-start)))) + (setq isearch-lazy-highlight-start (window-group-end)) (goto-char (min (or isearch-lazy-highlight-end-limit (point-max)) - (window-end)))))))) + (window-group-end)))))))) (unless nomore (setq isearch-lazy-highlight-timer (run-at-time lazy-highlight-interval nil diff --git a/lisp/json.el b/lisp/json.el index 0214a3e3a4d..85827b5d9bf 100644 --- a/lisp/json.el +++ b/lisp/json.el @@ -149,7 +149,7 @@ respectively.") (null list)) (defun json-plist-p (list) - "Non-null if and only if LIST is a plist." + "Non-null if and only if LIST is a plist with keyword keys." (while (consp list) (setq list (if (and (keywordp (car list)) (consp (cdr list))) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 469105674b6..3d1f6d28898 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -3,7 +3,7 @@ ;;; Code: -;;;### (autoloads nil "5x5" "play/5x5.el" (22026 25907 631502 692000)) +;;;### (autoloads nil "5x5" "play/5x5.el" (22086 11930 122062 731000)) ;;; Generated autoloads from play/5x5.el (autoload '5x5 "5x5" "\ @@ -65,8 +65,8 @@ should return a grid vector array that is the new solution. ;;;*** -;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (22011 58553 -;;;;;; 865858 469000)) +;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (22086 11930 +;;;;;; 138062 731000)) ;;; Generated autoloads from progmodes/ada-mode.el (autoload 'ada-add-extensions "ada-mode" "\ @@ -85,8 +85,8 @@ Ada mode is the major mode for editing Ada code. ;;;*** -;;;### (autoloads nil "ada-stmt" "progmodes/ada-stmt.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "ada-stmt" "progmodes/ada-stmt.el" (22086 11930 +;;;;;; 138062 731000)) ;;; Generated autoloads from progmodes/ada-stmt.el (autoload 'ada-header "ada-stmt" "\ @@ -96,8 +96,8 @@ Insert a descriptive header at the top of the file. ;;;*** -;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (22011 58553 -;;;;;; 869858 469000)) +;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (22086 11930 +;;;;;; 138062 731000)) ;;; Generated autoloads from progmodes/ada-xref.el (autoload 'ada-find-file "ada-xref" "\ @@ -108,8 +108,8 @@ Completion is available. ;;;*** -;;;### (autoloads nil "add-log" "vc/add-log.el" (22011 58554 85858 -;;;;;; 469000)) +;;;### (autoloads nil "add-log" "vc/add-log.el" (22086 11930 366062 +;;;;;; 731000)) ;;; Generated autoloads from vc/add-log.el (put 'change-log-default-name 'safe-local-variable 'string-or-null-p) @@ -238,8 +238,8 @@ old-style time formats for entries are supported. ;;;*** -;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (22011 58553 -;;;;;; 345858 469000)) +;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (22092 27717 +;;;;;; 604268 464000)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action 'warn "\ @@ -374,7 +374,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...) ;;;*** -;;;### (autoloads nil "align" "align.el" (21998 46516 830024 649000)) +;;;### (autoloads nil "align" "align.el" (22086 11929 490062 731000)) ;;; Generated autoloads from align.el (autoload 'align "align" "\ @@ -477,7 +477,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;*** -;;;### (autoloads nil "allout" "allout.el" (22015 55603 653705 321000)) +;;;### (autoloads nil "allout" "allout.el" (22086 11929 494062 731000)) ;;; Generated autoloads from allout.el (push (purecopy '(allout 2 3)) package--builtin-versions) @@ -837,8 +837,8 @@ for details on preparing Emacs for automatic allout activation. ;;;*** -;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21998 -;;;;;; 46516 830024 649000)) +;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (22086 +;;;;;; 11929 490062 731000)) ;;; Generated autoloads from allout-widgets.el (push (purecopy '(allout-widgets 1 0)) package--builtin-versions) @@ -896,8 +896,8 @@ outline hot-spot navigation (see `allout-mode'). ;;;*** -;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (22011 58553 761858 -;;;;;; 469000)) +;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (22092 27717 960268 +;;;;;; 464000)) ;;; Generated autoloads from net/ange-ftp.el (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) @@ -918,8 +918,8 @@ directory, so that Emacs will know its current contents. ;;;*** -;;;### (autoloads nil "animate" "play/animate.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "animate" "play/animate.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from play/animate.el (autoload 'animate-string "animate" "\ @@ -951,8 +951,8 @@ the buffer *Birthday-Present-for-Name*. ;;;*** -;;;### (autoloads nil "ansi-color" "ansi-color.el" (21952 37178 110214 -;;;;;; 961000)) +;;;### (autoloads nil "ansi-color" "ansi-color.el" (22086 11929 494062 +;;;;;; 731000)) ;;; Generated autoloads from ansi-color.el (push (purecopy '(ansi-color 3 4 2)) package--builtin-versions) @@ -978,8 +978,8 @@ This is a good function to put in `comint-output-filter-functions'. ;;;*** -;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (22011 -;;;;;; 58553 873858 469000)) +;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (22086 +;;;;;; 11930 138062 731000)) ;;; Generated autoloads from progmodes/antlr-mode.el (push (purecopy '(antlr-mode 2 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" (21998 46516 878024 -;;;;;; 649000)) +;;;### (autoloads nil "appt" "calendar/appt.el" (22086 11929 526062 +;;;;;; 731000)) ;;; Generated autoloads from calendar/appt.el (autoload 'appt-add "appt" "\ @@ -1037,8 +1037,8 @@ ARG is positive, otherwise off. ;;;*** -;;;### (autoloads nil "apropos" "apropos.el" (21998 46516 834024 -;;;;;; 649000)) +;;;### (autoloads nil "apropos" "apropos.el" (22099 26170 362017 +;;;;;; 16000)) ;;; Generated autoloads from apropos.el (autoload 'apropos-read-pattern "apropos" "\ @@ -1153,8 +1153,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads nil "arc-mode" "arc-mode.el" (22085 50883 177731 -;;;;;; 271000)) +;;;### (autoloads nil "arc-mode" "arc-mode.el" (22086 11929 494062 +;;;;;; 731000)) ;;; Generated autoloads from arc-mode.el (autoload 'archive-mode "arc-mode" "\ @@ -1174,7 +1174,7 @@ archive. ;;;*** -;;;### (autoloads nil "array" "array.el" (21670 32330 885624 725000)) +;;;### (autoloads nil "array" "array.el" (22086 11929 494062 731000)) ;;; Generated autoloads from array.el (autoload 'array-mode "array" "\ @@ -1245,8 +1245,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads nil "artist" "textmodes/artist.el" (21906 58826 -;;;;;; 78640 200000)) +;;;### (autoloads nil "artist" "textmodes/artist.el" (22086 11930 +;;;;;; 310062 731000)) ;;; Generated autoloads from textmodes/artist.el (push (purecopy '(artist 1 2 6)) package--builtin-versions) @@ -1452,8 +1452,8 @@ Keymap summary ;;;*** -;;;### (autoloads nil "asm-mode" "progmodes/asm-mode.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "asm-mode" "progmodes/asm-mode.el" (22086 11930 +;;;;;; 142062 731000)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload 'asm-mode "asm-mode" "\ @@ -1480,8 +1480,8 @@ Special commands: ;;;*** -;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (22067 -;;;;;; 17342 158157 143000)) +;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (22086 +;;;;;; 11929 774062 731000)) ;;; Generated autoloads from gnus/auth-source.el (defvar auth-source-cache-expiry 7200 "\ @@ -1493,8 +1493,8 @@ let-binding.") ;;;*** -;;;### (autoloads nil "autoarg" "autoarg.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "autoarg" "autoarg.el" (22086 11929 494062 +;;;;;; 731000)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ @@ -1554,8 +1554,8 @@ This is similar to `autoarg-mode' but rebinds the keypad keys ;;;*** -;;;### (autoloads nil "autoconf" "progmodes/autoconf.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "autoconf" "progmodes/autoconf.el" (22086 11930 +;;;;;; 142062 731000)) ;;; Generated autoloads from progmodes/autoconf.el (autoload 'autoconf-mode "autoconf" "\ @@ -1565,8 +1565,8 @@ Major mode for editing Autoconf configure.ac files. ;;;*** -;;;### (autoloads nil "autoinsert" "autoinsert.el" (21980 16567 365544 -;;;;;; 893000)) +;;;### (autoloads nil "autoinsert" "autoinsert.el" (22086 11929 494062 +;;;;;; 731000)) ;;; Generated autoloads from autoinsert.el (autoload 'auto-insert "autoinsert" "\ @@ -1604,8 +1604,8 @@ insert a template for the file depending on the mode of the buffer. ;;;*** -;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (21935 -;;;;;; 28080 450075 956000)) +;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (22086 +;;;;;; 11929 634062 731000)) ;;; Generated autoloads from emacs-lisp/autoload.el (put 'generated-autoload-file 'safe-local-variable 'stringp) @@ -1656,8 +1656,8 @@ should be non-nil). ;;;*** -;;;### (autoloads nil "autorevert" "autorevert.el" (22065 61995 826407 -;;;;;; 852000)) +;;;### (autoloads nil "autorevert" "autorevert.el" (22089 51528 204929 +;;;;;; 316000)) ;;; Generated autoloads from autorevert.el (autoload 'auto-revert-mode "autorevert" "\ @@ -1745,7 +1745,7 @@ specifies in the mode line. ;;;*** -;;;### (autoloads nil "avoid" "avoid.el" (21955 13362 292569 401000)) +;;;### (autoloads nil "avoid" "avoid.el" (22086 11929 498062 731000)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1783,8 +1783,8 @@ definition of \"random distance\".) ;;;*** -;;;### (autoloads nil "bat-mode" "progmodes/bat-mode.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "bat-mode" "progmodes/bat-mode.el" (22086 11930 +;;;;;; 142062 731000)) ;;; Generated autoloads from progmodes/bat-mode.el (add-to-list 'auto-mode-alist '("\\.\\(bat\\|cmd\\)\\'" . bat-mode)) @@ -1802,8 +1802,8 @@ Run script using `bat-run' and `bat-run-args'. ;;;*** -;;;### (autoloads nil "battery" "battery.el" (22026 25907 487502 -;;;;;; 692000)) +;;;### (autoloads nil "battery" "battery.el" (22086 11929 498062 +;;;;;; 731000)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1838,8 +1838,8 @@ seconds. ;;;*** -;;;### (autoloads nil "benchmark" "emacs-lisp/benchmark.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "benchmark" "emacs-lisp/benchmark.el" (22086 +;;;;;; 11929 638062 731000)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload 'benchmark-run "benchmark" "\ @@ -1875,8 +1875,8 @@ For non-interactive use see also `benchmark-run' and ;;;*** -;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (22011 58554 -;;;;;; 41858 469000)) +;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (22092 27718 +;;;;;; 508268 464000)) ;;; Generated autoloads from textmodes/bibtex.el (autoload 'bibtex-initialize "bibtex" "\ @@ -1968,7 +1968,7 @@ A prefix arg negates the value of `bibtex-search-entry-globally'. ;;;*** ;;;### (autoloads nil "bibtex-style" "textmodes/bibtex-style.el" -;;;;;; (21670 32331 885635 586000)) +;;;;;; (22086 11930 310062 731000)) ;;; Generated autoloads from textmodes/bibtex-style.el (autoload 'bibtex-style-mode "bibtex-style" "\ @@ -1978,8 +1978,8 @@ Major mode for editing BibTeX style files. ;;;*** -;;;### (autoloads nil "binhex" "mail/binhex.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "binhex" "mail/binhex.el" (22086 11929 930062 +;;;;;; 731000)) ;;; Generated autoloads from mail/binhex.el (defconst binhex-begin-line "^:...............................................................$" "\ @@ -2003,8 +2003,8 @@ Binhex decode region between START and END. ;;;*** -;;;### (autoloads nil "blackbox" "play/blackbox.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "blackbox" "play/blackbox.el" (22086 11930 +;;;;;; 122062 731000)) ;;; Generated autoloads from play/blackbox.el (autoload 'blackbox "blackbox" "\ @@ -2123,8 +2123,8 @@ a reflection. ;;;*** -;;;### (autoloads nil "bookmark" "bookmark.el" (22081 53819 631137 -;;;;;; 351000)) +;;;### (autoloads nil "bookmark" "bookmark.el" (22086 11929 498062 +;;;;;; 731000)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-r-map "b" 'bookmark-jump) (define-key ctl-x-r-map "m" 'bookmark-set) @@ -2348,8 +2348,8 @@ Incremental search of bookmarks, hiding the non-matches as we go. ;;;*** -;;;### (autoloads nil "browse-url" "net/browse-url.el" (21993 28596 -;;;;;; 198597 473000)) +;;;### (autoloads nil "browse-url" "net/browse-url.el" (22086 11929 +;;;;;; 990062 731000)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function 'browse-url-default-browser "\ @@ -2689,7 +2689,7 @@ from `browse-url-elinks-wrapper'. ;;;*** -;;;### (autoloads nil "bs" "bs.el" (21998 46516 834024 649000)) +;;;### (autoloads nil "bs" "bs.el" (22086 11929 498062 731000)) ;;; Generated autoloads from bs.el (push (purecopy '(bs 1 17)) package--builtin-versions) @@ -2730,8 +2730,8 @@ name of buffer configuration. ;;;*** -;;;### (autoloads nil "bubbles" "play/bubbles.el" (22026 25907 631502 -;;;;;; 692000)) +;;;### (autoloads nil "bubbles" "play/bubbles.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from play/bubbles.el (autoload 'bubbles "bubbles" "\ @@ -2753,7 +2753,7 @@ columns on its right towards the left. ;;;*** ;;;### (autoloads nil "bug-reference" "progmodes/bug-reference.el" -;;;;;; (21980 16567 993544 893000)) +;;;;;; (22086 11930 142062 731000)) ;;; 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))))) @@ -2773,8 +2773,8 @@ Like `bug-reference-mode', but only buttonize in comments and strings. ;;;*** -;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (22067 -;;;;;; 17342 138157 143000)) +;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (22108 +;;;;;; 15942 526032 987000)) ;;; 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) @@ -2894,8 +2894,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (22086 +;;;;;; 11929 526062 731000)) ;;; Generated autoloads from calendar/cal-china.el (put 'calendar-chinese-time-zone 'risky-local-variable t) @@ -2904,8 +2904,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21990 52406 -;;;;;; 468500 385000)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (22086 11929 +;;;;;; 526062 731000)) ;;; Generated autoloads from calendar/cal-dst.el (put 'calendar-daylight-savings-starts 'risky-local-variable t) @@ -2916,8 +2916,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21993 -;;;;;; 28595 970597 473000)) +;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (22086 +;;;;;; 11929 526062 731000)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ @@ -2929,7 +2929,7 @@ from the cursor position. ;;;*** -;;;### (autoloads nil "calc" "calc/calc.el" (22073 59712 746803 451000)) +;;;### (autoloads nil "calc" "calc/calc.el" (22086 11929 522062 731000)) ;;; Generated autoloads from calc/calc.el (define-key ctl-x-map "*" 'calc-dispatch) @@ -3015,8 +3015,8 @@ See Info node `(calc)Defining Functions'. ;;;*** -;;;### (autoloads nil "calc-undo" "calc/calc-undo.el" (22073 59712 -;;;;;; 730803 451000)) +;;;### (autoloads nil "calc-undo" "calc/calc-undo.el" (22086 11929 +;;;;;; 518062 731000)) ;;; Generated autoloads from calc/calc-undo.el (autoload 'calc-undo "calc-undo" "\ @@ -3026,8 +3026,8 @@ See Info node `(calc)Defining Functions'. ;;;*** -;;;### (autoloads nil "calculator" "calculator.el" (22109 33223 416655 -;;;;;; 811000)) +;;;### (autoloads nil "calculator" "calculator.el" (22092 27717 520268 +;;;;;; 464000)) ;;; Generated autoloads from calculator.el (autoload 'calculator "calculator" "\ @@ -3038,8 +3038,8 @@ See the documentation for `calculator-mode' for more information. ;;;*** -;;;### (autoloads nil "calendar" "calendar/calendar.el" (22042 14122 -;;;;;; 205169 136000)) +;;;### (autoloads nil "calendar" "calendar/calendar.el" (22092 27717 +;;;;;; 540268 464000)) ;;; Generated autoloads from calendar/calendar.el (autoload 'calendar "calendar" "\ @@ -3082,8 +3082,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "canlock" "gnus/canlock.el" (21852 24381 567240 -;;;;;; 49000)) +;;;### (autoloads nil "canlock" "gnus/canlock.el" (22086 11929 774062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/canlock.el (autoload 'canlock-insert-header "canlock" "\ @@ -3100,8 +3100,8 @@ it fails. ;;;*** -;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (22084 -;;;;;; 30014 95762 3000)) +;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (22108 +;;;;;; 15942 570032 987000)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload 'c-guess-basic-syntax "cc-engine" "\ @@ -3111,8 +3111,8 @@ Return the syntactic context of the current line. ;;;*** -;;;### (autoloads nil "cc-guess" "progmodes/cc-guess.el" (21976 19510 -;;;;;; 84430 241000)) +;;;### (autoloads nil "cc-guess" "progmodes/cc-guess.el" (22086 11930 +;;;;;; 150062 731000)) ;;; Generated autoloads from progmodes/cc-guess.el (defvar c-guess-guessed-offsets-alist nil "\ @@ -3210,8 +3210,8 @@ the absolute file name of the file if STYLE-NAME is nil. ;;;*** -;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (22084 30014 -;;;;;; 99762 3000)) +;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (22101 42694 +;;;;;; 157526 804000)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload 'c-initialize-cc-mode "cc-mode" "\ @@ -3369,8 +3369,8 @@ Key bindings: ;;;*** -;;;### (autoloads nil "cc-styles" "progmodes/cc-styles.el" (21976 -;;;;;; 19510 104430 241000)) +;;;### (autoloads nil "cc-styles" "progmodes/cc-styles.el" (22086 +;;;;;; 11930 154062 731000)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload 'c-set-style "cc-styles" "\ @@ -3421,8 +3421,8 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (22011 58553 -;;;;;; 885858 469000)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (22086 11930 +;;;;;; 154062 731000)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -3430,8 +3430,8 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "ccl" "international/ccl.el" (22064 41137 985468 -;;;;;; 395000)) +;;;### (autoloads nil "ccl" "international/ccl.el" (22086 11929 874062 +;;;;;; 731000)) ;;; Generated autoloads from international/ccl.el (autoload 'ccl-compile "ccl" "\ @@ -3724,8 +3724,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program. ;;;*** -;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (22026 25907 -;;;;;; 559502 692000)) +;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (22102 63557 +;;;;;; 288509 103000)) ;;; Generated autoloads from emacs-lisp/cconv.el (autoload 'cconv-closure-convert "cconv" "\ @@ -3744,15 +3744,15 @@ Add the warnings that closure conversion would encounter. ;;;*** -;;;### (autoloads nil "cedet" "cedet/cedet.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "cedet" "cedet/cedet.el" (22086 11929 542062 +;;;;;; 731000)) ;;; Generated autoloads from cedet/cedet.el (push (purecopy '(cedet 2 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (22011 58553 -;;;;;; 889858 469000)) +;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (22086 11930 +;;;;;; 154062 731000)) ;;; Generated autoloads from progmodes/cfengine.el (push (purecopy '(cfengine 1 4)) package--builtin-versions) @@ -3781,8 +3781,8 @@ Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents. ;;;*** -;;;### (autoloads nil "character-fold" "character-fold.el" (22068 -;;;;;; 38191 905155 451000)) +;;;### (autoloads nil "character-fold" "character-fold.el" (22109 +;;;;;; 36809 195889 179000)) ;;; Generated autoloads from character-fold.el (autoload 'character-fold-to-regexp "character-fold" "\ @@ -3791,19 +3791,25 @@ 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. -\(fn STRING &optional LAX)" nil nil) +If the resulting regexp would be too long for Emacs to handle, +just return the result of calling `regexp-quote' on STRING. + +FROM is for internal use. It specifies an index in the STRING +from which to start. + +\(fn STRING &optional LAX FROM)" nil nil) ;;;*** -;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21998 46516 -;;;;;; 978024 649000)) +;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (22092 27717 +;;;;;; 628268 464000)) ;;; Generated autoloads from emacs-lisp/chart.el (push (purecopy '(chart 0 2)) package--builtin-versions) ;;;*** ;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el" -;;;;;; (22011 58553 361858 469000)) +;;;;;; (22086 11929 650062 731000)) ;;; Generated autoloads from emacs-lisp/check-declare.el (autoload 'check-declare-file "check-declare" "\ @@ -3820,8 +3826,8 @@ Returns non-nil if any false statements are found. ;;;*** -;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (22002 -;;;;;; 43570 516887 749000)) +;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (22104 +;;;;;; 18893 193441 487000)) ;;; 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) @@ -4031,8 +4037,8 @@ Find package keywords that aren't in `finder-known-keywords'. ;;;*** -;;;### (autoloads nil "china-util" "language/china-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "china-util" "language/china-util.el" (22086 +;;;;;; 11929 890062 731000)) ;;; Generated autoloads from language/china-util.el (autoload 'decode-hz-region "china-util" "\ @@ -4069,8 +4075,8 @@ Encode the text in the current buffer to HZ. ;;;*** -;;;### (autoloads nil "chistory" "chistory.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "chistory" "chistory.el" (22086 11929 582062 +;;;;;; 731000)) ;;; Generated autoloads from chistory.el (autoload 'repeat-matching-complex-command "chistory" "\ @@ -4109,8 +4115,8 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (21901 -;;;;;; 9907 369083 895000)) +;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (22086 +;;;;;; 11929 654062 731000)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload 'common-lisp-indent-function "cl-indent" "\ @@ -4193,8 +4199,8 @@ instead. ;;;*** -;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (21903 51634 -;;;;;; 278370 580000)) +;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (22086 11929 +;;;;;; 654062 731000)) ;;; Generated autoloads from emacs-lisp/cl-lib.el (push (purecopy '(cl-lib 1 0)) package--builtin-versions) @@ -4212,8 +4218,8 @@ a future Emacs interpreter will be able to use it.") ;;;*** -;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (22026 25907 -;;;;;; 631502 692000)) +;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (22086 11930 +;;;;;; 158062 731000)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload 'c-macro-expand "cmacexp" "\ @@ -4233,8 +4239,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (22011 58553 281858 -;;;;;; 469000)) +;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (22086 11929 582062 +;;;;;; 731000)) ;;; Generated autoloads from cmuscheme.el (autoload 'run-scheme "cmuscheme" "\ @@ -4254,7 +4260,7 @@ is run). ;;;*** -;;;### (autoloads nil "color" "color.el" (22055 26158 710447 352000)) +;;;### (autoloads nil "color" "color.el" (22086 11929 582062 731000)) ;;; Generated autoloads from color.el (autoload 'color-name-to-rgb "color" "\ @@ -4273,7 +4279,7 @@ If FRAME cannot display COLOR, return nil. ;;;*** -;;;### (autoloads nil "comint" "comint.el" (22011 58553 293858 469000)) +;;;### (autoloads nil "comint" "comint.el" (22086 11929 586062 731000)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ @@ -4374,8 +4380,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads nil "compare-w" "vc/compare-w.el" (21872 61770 -;;;;;; 310089 300000)) +;;;### (autoloads nil "compare-w" "vc/compare-w.el" (22086 11930 +;;;;;; 370062 731000)) ;;; Generated autoloads from vc/compare-w.el (autoload 'compare-windows "compare-w" "\ @@ -4411,8 +4417,8 @@ on third call it again advances points to the next difference and so on. ;;;*** -;;;### (autoloads nil "compile" "progmodes/compile.el" (22032 64681 -;;;;;; 370838 183000)) +;;;### (autoloads nil "compile" "progmodes/compile.el" (22099 26170 +;;;;;; 422017 16000)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4593,8 +4599,8 @@ This is the value of `next-error-function' in Compilation buffers. ;;;*** -;;;### (autoloads nil "completion" "completion.el" (21804 59688 154807 -;;;;;; 989000)) +;;;### (autoloads nil "completion" "completion.el" (22086 11929 586062 +;;;;;; 731000)) ;;; Generated autoloads from completion.el (defvar dynamic-completion-mode nil "\ @@ -4616,8 +4622,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (22026 -;;;;;; 25907 647502 692000)) +;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (22086 +;;;;;; 11930 314062 731000)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload 'conf-mode "conf-mode" "\ @@ -4772,8 +4778,8 @@ For details see `conf-mode'. Example: ;;;*** -;;;### (autoloads nil "cookie1" "play/cookie1.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "cookie1" "play/cookie1.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from play/cookie1.el (autoload 'cookie "cookie1" "\ @@ -4801,8 +4807,8 @@ and subsequent calls on the same file won't go to disk. ;;;*** -;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (22026 -;;;;;; 25907 575502 692000)) +;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (22086 +;;;;;; 11929 662062 731000)) ;;; Generated autoloads from emacs-lisp/copyright.el (put 'copyright-at-end-flag 'safe-local-variable 'booleanp) (put 'copyright-names-regexp 'safe-local-variable 'stringp) @@ -4840,8 +4846,8 @@ If FIX is non-nil, run `copyright-fix-years' instead. ;;;*** -;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (22011 -;;;;;; 58553 893858 469000)) +;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (22086 +;;;;;; 11930 162062 731000)) ;;; Generated autoloads from progmodes/cperl-mode.el (put 'cperl-indent-level 'safe-local-variable 'integerp) (put 'cperl-brace-offset 'safe-local-variable 'integerp) @@ -5039,8 +5045,8 @@ Run a `perldoc' on the word around point. ;;;*** -;;;### (autoloads nil "cpp" "progmodes/cpp.el" (21988 10682 33624 -;;;;;; 461000)) +;;;### (autoloads nil "cpp" "progmodes/cpp.el" (22092 27718 148268 +;;;;;; 464000)) ;;; Generated autoloads from progmodes/cpp.el (autoload 'cpp-highlight-buffer "cpp" "\ @@ -5058,8 +5064,8 @@ Edit display information for cpp conditionals. ;;;*** -;;;### (autoloads nil "crm" "emacs-lisp/crm.el" (21980 16567 501544 -;;;;;; 893000)) +;;;### (autoloads nil "crm" "emacs-lisp/crm.el" (22086 11929 662062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload 'completing-read-multiple "crm" "\ @@ -5085,8 +5091,8 @@ with empty strings removed. ;;;*** -;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (22038 17067 -;;;;;; 867243 731000)) +;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (22086 11930 +;;;;;; 314062 731000)) ;;; Generated autoloads from textmodes/css-mode.el (autoload 'css-mode "css-mode" "\ @@ -5102,8 +5108,8 @@ Major mode to edit \"Sassy CSS\" files. ;;;*** -;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21990 52406 -;;;;;; 528500 385000)) +;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (22086 11929 +;;;;;; 690062 731000)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ @@ -5148,8 +5154,8 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. ;;;*** -;;;### (autoloads nil "cua-rect" "emulation/cua-rect.el" (22087 6213 -;;;;;; 764351 952000)) +;;;### (autoloads nil "cua-rect" "emulation/cua-rect.el" (22087 9807 +;;;;;; 178279 951000)) ;;; Generated autoloads from emulation/cua-rect.el (autoload 'cua-rectangle-mark-mode "cua-rect" "\ @@ -5161,7 +5167,7 @@ Activates the region if needed. Only lasts until the region is deactivated. ;;;*** ;;;### (autoloads nil "cursor-sensor" "emacs-lisp/cursor-sensor.el" -;;;;;; (22069 62806 562804 836000)) +;;;;;; (22086 11929 662062 731000)) ;;; Generated autoloads from emacs-lisp/cursor-sensor.el (autoload 'cursor-intangible-mode "cursor-sensor" "\ @@ -5181,8 +5187,8 @@ entering the area covered by the text-property property or leaving it. ;;;*** -;;;### (autoloads nil "cus-edit" "cus-edit.el" (22087 6213 748351 -;;;;;; 952000)) +;;;### (autoloads nil "cus-edit" "cus-edit.el" (22086 11929 590062 +;;;;;; 731000)) ;;; Generated autoloads from cus-edit.el (defvar custom-browse-sort-alphabetically nil "\ @@ -5501,8 +5507,8 @@ The format is suitable for use with `easy-menu-define'. ;;;*** -;;;### (autoloads nil "cus-theme" "cus-theme.el" (21998 46516 910024 -;;;;;; 649000)) +;;;### (autoloads nil "cus-theme" "cus-theme.el" (22086 11929 590062 +;;;;;; 731000)) ;;; Generated autoloads from cus-theme.el (autoload 'customize-create-theme "cus-theme" "\ @@ -5535,8 +5541,8 @@ omitted, a buffer named *Custom Themes* is used. ;;;*** -;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (22026 25907 -;;;;;; 671502 692000)) +;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (22086 11930 +;;;;;; 370062 731000)) ;;; Generated autoloads from vc/cvs-status.el (autoload 'cvs-status-mode "cvs-status" "\ @@ -5546,8 +5552,8 @@ Mode used for cvs status output. ;;;*** -;;;### (autoloads nil "cwarn" "progmodes/cwarn.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "cwarn" "progmodes/cwarn.el" (22089 51528 280929 +;;;;;; 316000)) ;;; Generated autoloads from progmodes/cwarn.el (push (purecopy '(cwarn 1 3 1)) package--builtin-versions) @@ -5591,8 +5597,8 @@ See `cwarn-mode' for more information on Cwarn mode. ;;;*** -;;;### (autoloads nil "cyril-util" "language/cyril-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "cyril-util" "language/cyril-util.el" (22086 +;;;;;; 11929 890062 731000)) ;;; Generated autoloads from language/cyril-util.el (autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ @@ -5620,8 +5626,8 @@ If the argument is nil, we return the display table to its standard state. ;;;*** -;;;### (autoloads nil "dabbrev" "dabbrev.el" (22011 58553 321858 -;;;;;; 469000)) +;;;### (autoloads nil "dabbrev" "dabbrev.el" (22086 11929 590062 +;;;;;; 731000)) ;;; Generated autoloads from dabbrev.el (put 'dabbrev-case-fold-search 'risky-local-variable t) (put 'dabbrev-case-replace 'risky-local-variable t) @@ -5667,8 +5673,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. ;;;*** -;;;### (autoloads nil "data-debug" "cedet/data-debug.el" (21974 64192 -;;;;;; 556009 993000)) +;;;### (autoloads nil "data-debug" "cedet/data-debug.el" (22086 11929 +;;;;;; 542062 731000)) ;;; Generated autoloads from cedet/data-debug.el (autoload 'data-debug-new-buffer "data-debug" "\ @@ -5678,7 +5684,7 @@ Create a new data-debug buffer with NAME. ;;;*** -;;;### (autoloads nil "dbus" "net/dbus.el" (22011 58553 761858 469000)) +;;;### (autoloads nil "dbus" "net/dbus.el" (22086 11929 990062 731000)) ;;; Generated autoloads from net/dbus.el (autoload 'dbus-handle-event "dbus" "\ @@ -5691,8 +5697,8 @@ If the HANDLER returns a `dbus-error', it is propagated as return message. ;;;*** -;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (22011 58553 -;;;;;; 897858 469000)) +;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (22086 11930 +;;;;;; 162062 731000)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload 'dcl-mode "dcl-mode" "\ @@ -5818,8 +5824,8 @@ There is some minimal font-lock support (see vars ;;;*** -;;;### (autoloads nil "debug" "emacs-lisp/debug.el" (21918 44225 -;;;;;; 955204 84000)) +;;;### (autoloads nil "debug" "emacs-lisp/debug.el" (22086 11929 +;;;;;; 662062 731000)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger 'debug) @@ -5862,8 +5868,8 @@ To specify a nil argument interactively, exit with an empty minibuffer. ;;;*** -;;;### (autoloads nil "decipher" "play/decipher.el" (21948 40114 -;;;;;; 398686 453000)) +;;;### (autoloads nil "decipher" "play/decipher.el" (22086 11930 +;;;;;; 126062 731000)) ;;; Generated autoloads from play/decipher.el (autoload 'decipher "decipher" "\ @@ -5891,8 +5897,8 @@ The most useful commands are: ;;;*** -;;;### (autoloads nil "delim-col" "delim-col.el" (21980 16567 477544 -;;;;;; 893000)) +;;;### (autoloads nil "delim-col" "delim-col.el" (22086 11929 590062 +;;;;;; 731000)) ;;; Generated autoloads from delim-col.el (push (purecopy '(delim-col 2 1)) package--builtin-versions) @@ -5917,7 +5923,7 @@ START and END delimits the corners of text rectangle. ;;;*** -;;;### (autoloads nil "delsel" "delsel.el" (21973 43315 242113 285000)) +;;;### (autoloads nil "delsel" "delsel.el" (22086 11929 594062 731000)) ;;; Generated autoloads from delsel.el (defalias 'pending-delete-mode 'delete-selection-mode) @@ -5945,8 +5951,8 @@ point regardless of any selection. ;;;*** -;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (21978 61237 -;;;;;; 450488 269000)) +;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (22086 11929 +;;;;;; 666062 731000)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload 'define-derived-mode "derived" "\ @@ -6014,8 +6020,8 @@ the first time the mode is used. ;;;*** -;;;### (autoloads nil "descr-text" "descr-text.el" (21998 46516 914024 -;;;;;; 649000)) +;;;### (autoloads nil "descr-text" "descr-text.el" (22086 11929 594062 +;;;;;; 731000)) ;;; Generated autoloads from descr-text.el (autoload 'describe-text-properties "descr-text" "\ @@ -6064,8 +6070,8 @@ This function is meant to be used as a value of ;;;*** -;;;### (autoloads nil "desktop" "desktop.el" (22026 25907 555502 -;;;;;; 692000)) +;;;### (autoloads nil "desktop" "desktop.el" (22092 27717 592268 +;;;;;; 464000)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ @@ -6153,8 +6159,8 @@ code like (defun foo-restore-desktop-buffer ... - (add-to-list 'desktop-buffer-mode-handlers - '(foo-mode . foo-restore-desktop-buffer)) + (add-to-list \\='desktop-buffer-mode-handlers + \\='(foo-mode . foo-restore-desktop-buffer)) The major mode function must either be autoloaded, or of the form \"foobar-mode\" and defined in library \"foobar\", so that desktop @@ -6197,8 +6203,8 @@ code like (defun foo-desktop-restore ... - (add-to-list 'desktop-minor-mode-handlers - '(foo-mode . foo-desktop-restore)) + (add-to-list \\='desktop-minor-mode-handlers + \\='(foo-mode . foo-desktop-restore)) The minor mode function must either be autoloaded, or of the form \"foobar-mode\" and defined in library \"foobar\", so that desktop @@ -6274,8 +6280,8 @@ Revert to the last loaded desktop. ;;;*** -;;;### (autoloads nil "deuglify" "gnus/deuglify.el" (21855 576 877944 -;;;;;; 285000)) +;;;### (autoloads nil "deuglify" "gnus/deuglify.el" (22086 11929 +;;;;;; 774062 731000)) ;;; Generated autoloads from gnus/deuglify.el (autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ @@ -6307,8 +6313,8 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** -;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (22026 -;;;;;; 25907 547502 692000)) +;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (22092 +;;;;;; 27717 544268 464000)) ;;; Generated autoloads from calendar/diary-lib.el (autoload 'diary "diary-lib" "\ @@ -6334,7 +6340,7 @@ ensure that all relevant variables are set. \(setq diary-mail-days 3 diary-file \"/path/to/diary.file\" - calendar-date-style 'european + calendar-date-style \\='european diary-mail-addr \"user@host.name\") \(diary-mail-entries) @@ -6350,7 +6356,7 @@ Major mode for editing the diary file. ;;;*** -;;;### (autoloads nil "diff" "vc/diff.el" (21804 59688 284811 0)) +;;;### (autoloads nil "diff" "vc/diff.el" (22086 11930 370062 731000)) ;;; Generated autoloads from vc/diff.el (defvar diff-switches (purecopy "-u") "\ @@ -6398,8 +6404,8 @@ This requires the external program `diff' to be in your `exec-path'. ;;;*** -;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (22087 6213 816351 -;;;;;; 952000)) +;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (22087 9807 430279 +;;;;;; 951000)) ;;; Generated autoloads from vc/diff-mode.el (autoload 'diff-mode "diff-mode" "\ @@ -6431,7 +6437,7 @@ the mode if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "dig" "net/dig.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "dig" "net/dig.el" (22086 11929 990062 731000)) ;;; Generated autoloads from net/dig.el (autoload 'dig "dig" "\ @@ -6442,7 +6448,7 @@ Optional arguments are passed to `dig-invoke'. ;;;*** -;;;### (autoloads nil "dired" "dired.el" (22085 50883 181731 271000)) +;;;### (autoloads nil "dired" "dired.el" (22086 11929 598062 731000)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6568,8 +6574,8 @@ Keybindings: ;;;*** -;;;### (autoloads nil "dirtrack" "dirtrack.el" (21981 37426 531399 -;;;;;; 97000)) +;;;### (autoloads nil "dirtrack" "dirtrack.el" (22086 11929 598062 +;;;;;; 731000)) ;;; Generated autoloads from dirtrack.el (autoload 'dirtrack-mode "dirtrack" "\ @@ -6599,8 +6605,8 @@ from `default-directory'. ;;;*** -;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21993 28596 -;;;;;; 58597 473000)) +;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (22086 11929 +;;;;;; 666062 731000)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload 'disassemble "disass" "\ @@ -6614,8 +6620,8 @@ redefine OBJECT if it is a symbol. ;;;*** -;;;### (autoloads nil "disp-table" "disp-table.el" (21981 37426 535399 -;;;;;; 97000)) +;;;### (autoloads nil "disp-table" "disp-table.el" (22086 11929 598062 +;;;;;; 731000)) ;;; Generated autoloads from disp-table.el (autoload 'make-display-table "disp-table" "\ @@ -6736,8 +6742,8 @@ in `.emacs'. ;;;*** -;;;### (autoloads nil "dissociate" "play/dissociate.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "dissociate" "play/dissociate.el" (22086 11930 +;;;;;; 126062 731000)) ;;; Generated autoloads from play/dissociate.el (autoload 'dissociated-press "dissociate" "\ @@ -6753,7 +6759,7 @@ Default is 2. ;;;*** -;;;### (autoloads nil "dnd" "dnd.el" (22026 25907 555502 692000)) +;;;### (autoloads nil "dnd" "dnd.el" (22086 11929 598062 731000)) ;;; 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)) "\ @@ -6773,8 +6779,8 @@ if some action was made, or nil if the URL is ignored.") ;;;*** -;;;### (autoloads nil "dns-mode" "textmodes/dns-mode.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "dns-mode" "textmodes/dns-mode.el" (22086 11930 +;;;;;; 314062 731000)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload 'dns-mode "dns-mode" "\ @@ -6797,8 +6803,8 @@ Locate SOA record and increment the serial field. ;;;*** -;;;### (autoloads nil "doc-view" "doc-view.el" (22058 2348 742214 -;;;;;; 951000)) +;;;### (autoloads nil "doc-view" "doc-view.el" (22086 11929 598062 +;;;;;; 731000)) ;;; Generated autoloads from doc-view.el (autoload 'doc-view-mode-p "doc-view" "\ @@ -6844,8 +6850,8 @@ See the command `doc-view-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "doctor" "play/doctor.el" (22011 58553 865858 -;;;;;; 469000)) +;;;### (autoloads nil "doctor" "play/doctor.el" (22086 11930 126062 +;;;;;; 731000)) ;;; Generated autoloads from play/doctor.el (autoload 'doctor "doctor" "\ @@ -6855,7 +6861,7 @@ Switch to *doctor* buffer and start giving psychotherapy. ;;;*** -;;;### (autoloads nil "double" "double.el" (21953 58033 239058 929000)) +;;;### (autoloads nil "double" "double.el" (22086 11929 602062 731000)) ;;; Generated autoloads from double.el (autoload 'double-mode "double" "\ @@ -6871,8 +6877,8 @@ strings when pressed twice. See `double-map' for details. ;;;*** -;;;### (autoloads nil "dunnet" "play/dunnet.el" (21980 16567 965544 -;;;;;; 893000)) +;;;### (autoloads nil "dunnet" "play/dunnet.el" (22093 48588 576393 +;;;;;; 539000)) ;;; Generated autoloads from play/dunnet.el (push (purecopy '(dunnet 2 2)) package--builtin-versions) @@ -6883,8 +6889,8 @@ Switch to *dungeon* buffer and start game. ;;;*** -;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (22011 -;;;;;; 58553 361858 469000)) +;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (22092 +;;;;;; 27717 632268 464000)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) @@ -6954,7 +6960,7 @@ BODY contains code to execute each time the mode is enabled or disabled. For example, you could write (define-minor-mode foo-mode \"If enabled, foo on you!\" - :lighter \" Foo\" :require 'foo :global t :group 'hassle :version \"27.5\" + :lighter \" Foo\" :require \\='foo :global t :group \\='hassle :version \"27.5\" ...BODY CODE...) \(fn MODE DOC &optional INIT-VALUE LIGHTER KEYMAP &rest BODY)" nil t) @@ -7009,7 +7015,7 @@ Valid keywords and arguments are: :inherit Parent keymap. :group Ignored. :suppress Non-nil to call `suppress-keymap' on keymap, - 'nodigits to suppress digits as prefix arguments. + `nodigits' to suppress digits as prefix arguments. \(fn BS &optional NAME M ARGS)" nil nil) @@ -7028,8 +7034,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). ;;;*** -;;;### (autoloads nil "easymenu" "emacs-lisp/easymenu.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "easymenu" "emacs-lisp/easymenu.el" (22086 +;;;;;; 11929 666062 731000)) ;;; Generated autoloads from emacs-lisp/easymenu.el (autoload 'easy-menu-define "easymenu" "\ @@ -7167,8 +7173,8 @@ To implement dynamic menus, either call this from ;;;*** -;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (22011 58553 -;;;;;; 897858 469000)) +;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (22086 11930 +;;;;;; 166062 731000)) ;;; Generated autoloads from progmodes/ebnf2ps.el (push (purecopy '(ebnf2ps 4 4)) package--builtin-versions) @@ -7433,8 +7439,8 @@ See `ebnf-style-database' documentation. ;;;*** -;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21998 46517 -;;;;;; 206024 649000)) +;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (22086 11930 +;;;;;; 170062 731000)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload 'ebrowse-tree-mode "ebrowse" "\ @@ -7582,8 +7588,8 @@ Display statistics for a class tree. ;;;*** -;;;### (autoloads nil "ebuff-menu" "ebuff-menu.el" (21953 58033 239058 -;;;;;; 929000)) +;;;### (autoloads nil "ebuff-menu" "ebuff-menu.el" (22086 11929 602062 +;;;;;; 731000)) ;;; Generated autoloads from ebuff-menu.el (autoload 'electric-buffer-list "ebuff-menu" "\ @@ -7615,8 +7621,8 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. ;;;*** -;;;### (autoloads nil "echistory" "echistory.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "echistory" "echistory.el" (22086 11929 602062 +;;;;;; 731000)) ;;; Generated autoloads from echistory.el (autoload 'Electric-command-history-redo-expression "echistory" "\ @@ -7627,8 +7633,8 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** -;;;### (autoloads nil "ecomplete" "gnus/ecomplete.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "ecomplete" "gnus/ecomplete.el" (22086 11929 +;;;;;; 774062 731000)) ;;; Generated autoloads from gnus/ecomplete.el (autoload 'ecomplete-setup "ecomplete" "\ @@ -7638,7 +7644,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** -;;;### (autoloads nil "ede" "cedet/ede.el" (22040 58794 676259 771000)) +;;;### (autoloads nil "ede" "cedet/ede.el" (22092 27717 556268 464000)) ;;; Generated autoloads from cedet/ede.el (push (purecopy '(ede 1 2)) package--builtin-versions) @@ -7664,8 +7670,8 @@ an EDE controlled project. ;;;*** -;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (22022 28851 -;;;;;; 765037 303000)) +;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (22086 11929 +;;;;;; 670062 731000)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ @@ -7729,7 +7735,7 @@ Toggle edebugging of all forms. ;;;*** -;;;### (autoloads nil "ediff" "vc/ediff.el" (22011 58554 93858 469000)) +;;;### (autoloads nil "ediff" "vc/ediff.el" (22086 11930 378062 731000)) ;;; Generated autoloads from vc/ediff.el (push (purecopy '(ediff 2 81 4)) package--builtin-versions) @@ -8001,8 +8007,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (21870 54319 -;;;;;; 247944 919000)) +;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (22086 11930 +;;;;;; 370062 731000)) ;;; Generated autoloads from vc/ediff-help.el (autoload 'ediff-customize "ediff-help" "\ @@ -8012,8 +8018,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21993 28596 -;;;;;; 422597 473000)) +;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (22086 11930 +;;;;;; 374062 731000)) ;;; Generated autoloads from vc/ediff-mult.el (autoload 'ediff-show-registry "ediff-mult" "\ @@ -8025,8 +8031,8 @@ Display Ediff's registry. ;;;*** -;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (22026 25907 -;;;;;; 671502 692000)) +;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (22086 11930 +;;;;;; 374062 731000)) ;;; Generated autoloads from vc/ediff-util.el (autoload 'ediff-toggle-multiframe "ediff-util" "\ @@ -8045,8 +8051,8 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. ;;;*** -;;;### (autoloads nil "edmacro" "edmacro.el" (21976 19509 748430 -;;;;;; 241000)) +;;;### (autoloads nil "edmacro" "edmacro.el" (22086 11929 602062 +;;;;;; 731000)) ;;; Generated autoloads from edmacro.el (push (purecopy '(edmacro 2 1)) package--builtin-versions) @@ -8095,8 +8101,8 @@ or nil, use a compact 80-column format. ;;;*** -;;;### (autoloads nil "edt" "emulation/edt.el" (22011 58553 453858 -;;;;;; 469000)) +;;;### (autoloads nil "edt" "emulation/edt.el" (22086 11929 694062 +;;;;;; 731000)) ;;; Generated autoloads from emulation/edt.el (autoload 'edt-set-scroll-margins "edt" "\ @@ -8113,7 +8119,7 @@ Turn on EDT Emulation. ;;;*** -;;;### (autoloads nil "ehelp" "ehelp.el" (21953 58033 247058 929000)) +;;;### (autoloads nil "ehelp" "ehelp.el" (22086 11929 602062 731000)) ;;; Generated autoloads from ehelp.el (autoload 'with-electric-help "ehelp" "\ @@ -8149,15 +8155,15 @@ BUFFER is put back into its original major mode. ;;;*** -;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (22102 59970 -;;;;;; 680776 103000)) +;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (22086 11929 +;;;;;; 674062 731000)) ;;; Generated autoloads from emacs-lisp/eieio.el (push (purecopy '(eieio 1 4)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (22102 -;;;;;; 59970 668776 103000)) +;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (22086 +;;;;;; 11929 670062 731000)) ;;; Generated autoloads from emacs-lisp/eieio-core.el (push (purecopy '(eieio-core 1 4)) package--builtin-versions) @@ -8173,8 +8179,8 @@ It creates an autoload function for CNAME's constructor. ;;;*** -;;;### (autoloads nil "elec-pair" "elec-pair.el" (21888 48869 288181 -;;;;;; 796000)) +;;;### (autoloads nil "elec-pair" "elec-pair.el" (22086 11929 602062 +;;;;;; 731000)) ;;; Generated autoloads from elec-pair.el (defvar electric-pair-text-pairs '((34 . 34)) "\ @@ -8215,8 +8221,8 @@ Toggle `electric-pair-mode' only in this buffer. ;;;*** -;;;### (autoloads nil "elide-head" "elide-head.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "elide-head" "elide-head.el" (22086 11929 602062 +;;;;;; 731000)) ;;; Generated autoloads from elide-head.el (autoload 'elide-head "elide-head" "\ @@ -8231,8 +8237,8 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. ;;;*** -;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (22030 22952 -;;;;;; 921158 467000)) +;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (22086 11929 +;;;;;; 674062 731000)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload 'elint-file "elint" "\ @@ -8267,8 +8273,8 @@ optional prefix argument REINIT is non-nil. ;;;*** -;;;### (autoloads nil "elp" "emacs-lisp/elp.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "elp" "emacs-lisp/elp.el" (22086 11929 674062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload 'elp-instrument-function "elp" "\ @@ -8302,8 +8308,8 @@ displayed. ;;;*** -;;;### (autoloads nil "emacs-lock" "emacs-lock.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "emacs-lock" "emacs-lock.el" (22086 11929 690062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lock.el (autoload 'emacs-lock-mode "emacs-lock" "\ @@ -8330,8 +8336,8 @@ Other values are interpreted as usual. ;;;*** -;;;### (autoloads nil "emacsbug" "mail/emacsbug.el" (22030 22952 -;;;;;; 933158 467000)) +;;;### (autoloads nil "emacsbug" "mail/emacsbug.el" (22086 11929 +;;;;;; 934062 731000)) ;;; Generated autoloads from mail/emacsbug.el (autoload 'report-emacs-bug "emacsbug" "\ @@ -8344,8 +8350,8 @@ Prompts for bug subject. Leaves you in a mail buffer. ;;;*** -;;;### (autoloads nil "emerge" "vc/emerge.el" (21953 58033 507058 -;;;;;; 929000)) +;;;### (autoloads nil "emerge" "vc/emerge.el" (22086 11930 378062 +;;;;;; 731000)) ;;; Generated autoloads from vc/emerge.el (autoload 'emerge-files "emerge" "\ @@ -8405,8 +8411,8 @@ Emerge two RCS revisions of a file, with another revision as ancestor. ;;;*** -;;;### (autoloads nil "enriched" "textmodes/enriched.el" (21691 38459 -;;;;;; 74604 918000)) +;;;### (autoloads nil "enriched" "textmodes/enriched.el" (22086 11930 +;;;;;; 314062 731000)) ;;; Generated autoloads from textmodes/enriched.el (autoload 'enriched-mode "enriched" "\ @@ -8441,7 +8447,7 @@ Commands: ;;;*** -;;;### (autoloads nil "epa" "epa.el" (22093 44991 758016 539000)) +;;;### (autoloads nil "epa" "epa.el" (22086 11929 698062 731000)) ;;; Generated autoloads from epa.el (autoload 'epa-list-keys "epa" "\ @@ -8629,8 +8635,8 @@ Insert selected KEYS after the point. ;;;*** -;;;### (autoloads nil "epa-dired" "epa-dired.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "epa-dired" "epa-dired.el" (22086 11929 698062 +;;;;;; 731000)) ;;; Generated autoloads from epa-dired.el (autoload 'epa-dired-do-decrypt "epa-dired" "\ @@ -8655,8 +8661,8 @@ Encrypt marked files. ;;;*** -;;;### (autoloads nil "epa-file" "epa-file.el" (21964 28338 113695 -;;;;;; 749000)) +;;;### (autoloads nil "epa-file" "epa-file.el" (22086 11929 698062 +;;;;;; 731000)) ;;; Generated autoloads from epa-file.el (autoload 'epa-file-handler "epa-file" "\ @@ -8676,8 +8682,8 @@ Encrypt marked files. ;;;*** -;;;### (autoloads nil "epa-mail" "epa-mail.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "epa-mail" "epa-mail.el" (22086 11929 698062 +;;;;;; 731000)) ;;; Generated autoloads from epa-mail.el (autoload 'epa-mail-mode "epa-mail" "\ @@ -8754,7 +8760,7 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "epg" "epg.el" (22076 35900 86633 595000)) +;;;### (autoloads nil "epg" "epg.el" (22092 27717 648268 464000)) ;;; Generated autoloads from epg.el (push (purecopy '(epg 1 0 0)) package--builtin-versions) @@ -8765,8 +8771,8 @@ Return a context object. ;;;*** -;;;### (autoloads nil "epg-config" "epg-config.el" (21927 33969 780642 -;;;;;; 720000)) +;;;### (autoloads nil "epg-config" "epg-config.el" (22086 11929 698062 +;;;;;; 731000)) ;;; Generated autoloads from epg-config.el (autoload 'epg-configuration "epg-config" "\ @@ -8786,7 +8792,7 @@ Look at CONFIG and try to expand GROUP. ;;;*** -;;;### (autoloads nil "erc" "erc/erc.el" (22011 58553 477858 469000)) +;;;### (autoloads nil "erc" "erc/erc.el" (22093 48588 540393 539000)) ;;; Generated autoloads from erc/erc.el (push (purecopy '(erc 5 3)) package--builtin-versions) @@ -8835,36 +8841,36 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL. ;;;*** -;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (21989 -;;;;;; 31537 763825 721000)) +;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (22086 +;;;;;; 11929 706062 731000)) ;;; Generated autoloads from erc/erc-autoaway.el (autoload 'erc-autoaway-mode "erc-autoaway") ;;;*** -;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21998 46517 -;;;;;; 30024 649000)) +;;;### (autoloads nil "erc-button" "erc/erc-button.el" (22092 27717 +;;;;;; 652268 464000)) ;;; Generated autoloads from erc/erc-button.el (autoload 'erc-button-mode "erc-button" nil t) ;;;*** -;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (22086 11929 +;;;;;; 706062 731000)) ;;; Generated autoloads from erc/erc-capab.el (autoload 'erc-capab-identify-mode "erc-capab" nil t) ;;;*** -;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (22086 11929 +;;;;;; 706062 731000)) ;;; Generated autoloads from erc/erc-compat.el (autoload 'erc-define-minor-mode "erc-compat") ;;;*** -;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21998 46517 30024 -;;;;;; 649000)) +;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (22086 11929 706062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-dcc.el (autoload 'erc-dcc-mode "erc-dcc") @@ -8894,14 +8900,14 @@ that subcommand. ;;;*** ;;;### (autoloads nil "erc-desktop-notifications" "erc/erc-desktop-notifications.el" -;;;;;; (21670 32330 885624 725000)) +;;;;;; (22086 11929 706062 731000)) ;;; Generated autoloads from erc/erc-desktop-notifications.el (autoload 'erc-notifications-mode "erc-desktop-notifications" "" t) ;;;*** -;;;### (autoloads nil "erc-ezbounce" "erc/erc-ezbounce.el" (21855 -;;;;;; 576 787951 155000)) +;;;### (autoloads nil "erc-ezbounce" "erc/erc-ezbounce.el" (22086 +;;;;;; 11929 710062 731000)) ;;; Generated autoloads from erc/erc-ezbounce.el (autoload 'erc-cmd-ezb "erc-ezbounce" "\ @@ -8963,8 +8969,8 @@ Add EZBouncer convenience functions to ERC. ;;;*** -;;;### (autoloads nil "erc-fill" "erc/erc-fill.el" (21989 31537 771825 -;;;;;; 721000)) +;;;### (autoloads nil "erc-fill" "erc/erc-fill.el" (22086 11929 710062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-fill.el (autoload 'erc-fill-mode "erc-fill" nil t) @@ -8976,8 +8982,8 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'. ;;;*** -;;;### (autoloads nil "erc-identd" "erc/erc-identd.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-identd" "erc/erc-identd.el" (22086 11929 +;;;;;; 710062 731000)) ;;; Generated autoloads from erc/erc-identd.el (autoload 'erc-identd-mode "erc-identd") @@ -8998,8 +9004,8 @@ system. ;;;*** -;;;### (autoloads nil "erc-imenu" "erc/erc-imenu.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-imenu" "erc/erc-imenu.el" (22086 11929 +;;;;;; 710062 731000)) ;;; Generated autoloads from erc/erc-imenu.el (autoload 'erc-create-imenu-index "erc-imenu" "\ @@ -9009,22 +9015,22 @@ system. ;;;*** -;;;### (autoloads nil "erc-join" "erc/erc-join.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-join" "erc/erc-join.el" (22086 11929 710062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-join.el (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;*** -;;;### (autoloads nil "erc-list" "erc/erc-list.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-list" "erc/erc-list.el" (22086 11929 710062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-list.el (autoload 'erc-list-mode "erc-list") ;;;*** -;;;### (autoloads nil "erc-log" "erc/erc-log.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-log" "erc/erc-log.el" (22086 11929 710062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-log.el (autoload 'erc-log-mode "erc-log" nil t) @@ -9053,8 +9059,8 @@ You can save every individual message by putting this function on ;;;*** -;;;### (autoloads nil "erc-match" "erc/erc-match.el" (22011 58553 -;;;;;; 461858 469000)) +;;;### (autoloads nil "erc-match" "erc/erc-match.el" (22092 27717 +;;;;;; 652268 464000)) ;;; Generated autoloads from erc/erc-match.el (autoload 'erc-match-mode "erc-match") @@ -9100,15 +9106,15 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'. ;;;*** -;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (22086 11929 710062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-menu.el (autoload 'erc-menu-mode "erc-menu" nil t) ;;;*** -;;;### (autoloads nil "erc-netsplit" "erc/erc-netsplit.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "erc-netsplit" "erc/erc-netsplit.el" (22086 +;;;;;; 11929 710062 731000)) ;;; Generated autoloads from erc/erc-netsplit.el (autoload 'erc-netsplit-mode "erc-netsplit") @@ -9119,8 +9125,8 @@ Show who's gone. ;;;*** -;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (22011 -;;;;;; 58553 473858 469000)) +;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (22086 +;;;;;; 11929 710062 731000)) ;;; Generated autoloads from erc/erc-networks.el (autoload 'erc-determine-network "erc-networks" "\ @@ -9137,8 +9143,8 @@ Interactively select a server to connect to using `erc-server-alist'. ;;;*** -;;;### (autoloads nil "erc-notify" "erc/erc-notify.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-notify" "erc/erc-notify.el" (22086 11929 +;;;;;; 710062 731000)) ;;; Generated autoloads from erc/erc-notify.el (autoload 'erc-notify-mode "erc-notify" nil t) @@ -9156,36 +9162,36 @@ with args, toggle notify status of people. ;;;*** -;;;### (autoloads nil "erc-page" "erc/erc-page.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-page" "erc/erc-page.el" (22086 11929 710062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-page.el (autoload 'erc-page-mode "erc-page") ;;;*** -;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (22079 -;;;;;; 12092 327174 267000)) +;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (22086 +;;;;;; 11929 710062 731000)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;*** -;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (22086 11929 +;;;;;; 710062 731000)) ;;; Generated autoloads from erc/erc-replace.el (autoload 'erc-replace-mode "erc-replace") ;;;*** -;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (22092 27717 652268 +;;;;;; 464000)) ;;; Generated autoloads from erc/erc-ring.el (autoload 'erc-ring-mode "erc-ring" nil t) ;;;*** -;;;### (autoloads nil "erc-services" "erc/erc-services.el" (22011 -;;;;;; 58553 473858 469000)) +;;;### (autoloads nil "erc-services" "erc/erc-services.el" (22086 +;;;;;; 11929 710062 731000)) ;;; Generated autoloads from erc/erc-services.el (autoload 'erc-services-mode "erc-services" nil t) @@ -9202,15 +9208,15 @@ When called interactively, read the password using `read-passwd'. ;;;*** -;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (22086 11929 +;;;;;; 714062 731000)) ;;; Generated autoloads from erc/erc-sound.el (autoload 'erc-sound-mode "erc-sound") ;;;*** -;;;### (autoloads nil "erc-speedbar" "erc/erc-speedbar.el" (21980 -;;;;;; 16567 521544 893000)) +;;;### (autoloads nil "erc-speedbar" "erc/erc-speedbar.el" (22086 +;;;;;; 11929 714062 731000)) ;;; Generated autoloads from erc/erc-speedbar.el (autoload 'erc-speedbar-browser "erc-speedbar" "\ @@ -9221,22 +9227,22 @@ This will add a speedbar major display mode. ;;;*** -;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (21727 -;;;;;; 11963 635339 992000)) +;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (22086 +;;;;;; 11929 714062 731000)) ;;; Generated autoloads from erc/erc-spelling.el (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;*** -;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (21860 18496 -;;;;;; 27951 644000)) +;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (22086 11929 +;;;;;; 714062 731000)) ;;; Generated autoloads from erc/erc-stamp.el (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;*** -;;;### (autoloads nil "erc-track" "erc/erc-track.el" (21980 16567 -;;;;;; 521544 893000)) +;;;### (autoloads nil "erc-track" "erc/erc-track.el" (22092 27717 +;;;;;; 656268 464000)) ;;; Generated autoloads from erc/erc-track.el (defvar erc-track-minor-mode nil "\ @@ -9261,8 +9267,8 @@ keybindings will not do anything useful. ;;;*** -;;;### (autoloads nil "erc-truncate" "erc/erc-truncate.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "erc-truncate" "erc/erc-truncate.el" (22086 +;;;;;; 11929 714062 731000)) ;;; Generated autoloads from erc/erc-truncate.el (autoload 'erc-truncate-mode "erc-truncate" nil t) @@ -9281,8 +9287,8 @@ Meant to be used in hooks, like `erc-insert-post-hook'. ;;;*** -;;;### (autoloads nil "erc-xdcc" "erc/erc-xdcc.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "erc-xdcc" "erc/erc-xdcc.el" (22086 11929 714062 +;;;;;; 731000)) ;;; Generated autoloads from erc/erc-xdcc.el (autoload 'erc-xdcc-mode "erc-xdcc") @@ -9293,8 +9299,8 @@ Add a file to `erc-xdcc-files'. ;;;*** -;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (22063 20273 739891 -;;;;;; 395000)) +;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (22092 27717 632268 +;;;;;; 464000)) ;;; Generated autoloads from emacs-lisp/ert.el (autoload 'ert-deftest "ert" "\ @@ -9312,7 +9318,7 @@ 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 t) +\(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] BODY...)" nil t) (function-put 'ert-deftest 'doc-string-elt '3) @@ -9363,8 +9369,8 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test). ;;;*** -;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (22011 58553 -;;;;;; 393858 469000)) +;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (22086 11929 +;;;;;; 674062 731000)) ;;; Generated autoloads from emacs-lisp/ert-x.el (put 'ert-with-test-buffer 'lisp-indent-function 1) @@ -9376,8 +9382,8 @@ Kill all test buffers that are still live. ;;;*** -;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (22065 61995 -;;;;;; 862407 852000)) +;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (22086 11929 +;;;;;; 722062 731000)) ;;; Generated autoloads from eshell/esh-mode.el (autoload 'eshell-mode "esh-mode" "\ @@ -9387,8 +9393,8 @@ Emacs shell interactive mode. ;;;*** -;;;### (autoloads nil "eshell" "eshell/eshell.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "eshell" "eshell/eshell.el" (22086 11929 722062 +;;;;;; 731000)) ;;; Generated autoloads from eshell/eshell.el (push (purecopy '(eshell 2 4 2)) package--builtin-versions) @@ -9423,8 +9429,8 @@ corresponding to a successful execution. ;;;*** -;;;### (autoloads nil "etags" "progmodes/etags.el" (22087 6213 768351 -;;;;;; 952000)) +;;;### (autoloads nil "etags" "progmodes/etags.el" (22105 39773 947886 +;;;;;; 896000)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9734,10 +9740,15 @@ for \\[find-tag] (which see). \(fn)" t nil) +(autoload 'etags--xref-backend "etags" "\ + + +\(fn)" nil nil) + ;;;*** -;;;### (autoloads nil "ethio-util" "language/ethio-util.el" (21862 -;;;;;; 60209 768658 443000)) +;;;### (autoloads nil "ethio-util" "language/ethio-util.el" (22086 +;;;;;; 11929 894062 731000)) ;;; Generated autoloads from language/ethio-util.el (autoload 'setup-ethiopic-environment-internal "ethio-util" "\ @@ -9905,7 +9916,7 @@ With ARG, insert that many delimiters. ;;;*** -;;;### (autoloads nil "eudc" "net/eudc.el" (22026 25907 611502 692000)) +;;;### (autoloads nil "eudc" "net/eudc.el" (22099 965 90725 479000)) ;;; Generated autoloads from net/eudc.el (autoload 'eudc-set-server "eudc" "\ @@ -9959,8 +9970,8 @@ This does nothing except loading eudc by autoload side-effect. ;;;*** -;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (22026 25907 607502 -;;;;;; 692000)) +;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (22086 11929 990062 +;;;;;; 731000)) ;;; Generated autoloads from net/eudc-bob.el (autoload 'eudc-display-generic-binary "eudc-bob" "\ @@ -9995,8 +10006,8 @@ Display a button for the JPEG DATA. ;;;*** -;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (22026 25907 -;;;;;; 607502 692000)) +;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (22099 965 +;;;;;; 74725 479000)) ;;; Generated autoloads from net/eudc-export.el (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ @@ -10012,8 +10023,8 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. ;;;*** -;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (22026 -;;;;;; 25907 607502 692000)) +;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (22086 +;;;;;; 11929 990062 731000)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ @@ -10023,8 +10034,8 @@ Edit the hotlist of directory servers in a specialized buffer. ;;;*** -;;;### (autoloads nil "ewoc" "emacs-lisp/ewoc.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "ewoc" "emacs-lisp/ewoc.el" (22086 11929 674062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/ewoc.el (autoload 'ewoc-create "ewoc" "\ @@ -10050,7 +10061,7 @@ fourth arg NOSEP non-nil inhibits this. ;;;*** -;;;### (autoloads nil "eww" "net/eww.el" (22063 20273 743891 395000)) +;;;### (autoloads nil "eww" "net/eww.el" (22093 48588 548393 539000)) ;;; Generated autoloads from net/eww.el (defvar eww-suggest-uris '(eww-links-at-point url-get-url-at-point eww-current-url) "\ @@ -10097,8 +10108,8 @@ Display the bookmarks. ;;;*** -;;;### (autoloads nil "executable" "progmodes/executable.el" (21988 -;;;;;; 10682 37624 461000)) +;;;### (autoloads nil "executable" "progmodes/executable.el" (22086 +;;;;;; 11930 170062 731000)) ;;; Generated autoloads from progmodes/executable.el (autoload 'executable-command-find-posix-p "executable" "\ @@ -10133,7 +10144,7 @@ file modes. ;;;*** -;;;### (autoloads nil "expand" "expand.el" (22011 58553 477858 469000)) +;;;### (autoloads nil "expand" "expand.el" (22086 11929 726062 731000)) ;;; Generated autoloads from expand.el (autoload 'expand-add-abbrevs "expand" "\ @@ -10182,8 +10193,8 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads nil "f90" "progmodes/f90.el" (22071 17982 246921 -;;;;;; 531000)) +;;;### (autoloads nil "f90" "progmodes/f90.el" (22092 27718 152268 +;;;;;; 464000)) ;;; Generated autoloads from progmodes/f90.el (autoload 'f90-mode "f90" "\ @@ -10250,8 +10261,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "face-remap" "face-remap.el" (21888 47150 706945 -;;;;;; 440000)) +;;;### (autoloads nil "face-remap" "face-remap.el" (22086 11929 726062 +;;;;;; 731000)) ;;; Generated autoloads from face-remap.el (autoload 'face-remap-add-relative "face-remap" "\ @@ -10410,8 +10421,8 @@ Besides the choice of face, it is the same as `buffer-face-mode'. ;;;*** -;;;### (autoloads nil "feedmail" "mail/feedmail.el" (22011 58553 -;;;;;; 677858 469000)) +;;;### (autoloads nil "feedmail" "mail/feedmail.el" (22092 27717 +;;;;;; 880268 464000)) ;;; Generated autoloads from mail/feedmail.el (push (purecopy '(feedmail 11)) package--builtin-versions) @@ -10445,7 +10456,7 @@ backup file names and the like). (autoload 'feedmail-queue-reminder "feedmail" "\ Perform some kind of reminder activity about queued and draft messages. Called with an optional symbol argument which says what kind of event -is triggering the reminder activity. The default is 'on-demand, which +is triggering the reminder activity. The default is `on-demand', which is what you typically would use if you were putting this in your Emacs start-up or mail hook code. Other recognized values for WHAT-EVENT (these are passed internally by feedmail): @@ -10465,7 +10476,7 @@ you can set `feedmail-queue-reminder-alist' to nil. ;;;*** -;;;### (autoloads nil "ffap" "ffap.el" (21993 28596 82597 473000)) +;;;### (autoloads nil "ffap" "ffap.el" (22086 11929 730062 731000)) ;;; Generated autoloads from ffap.el (autoload 'ffap-next "ffap" "\ @@ -10528,8 +10539,8 @@ Evaluate the forms in variable `ffap-bindings'. ;;;*** -;;;### (autoloads nil "filecache" "filecache.el" (21740 23998 26747 -;;;;;; 125000)) +;;;### (autoloads nil "filecache" "filecache.el" (22086 11929 734062 +;;;;;; 731000)) ;;; Generated autoloads from filecache.el (autoload 'file-cache-add-directory "filecache" "\ @@ -10586,8 +10597,8 @@ the name is considered already unique; only the second substitution ;;;*** -;;;### (autoloads nil "filenotify" "filenotify.el" (22102 59970 680776 -;;;;;; 103000)) +;;;### (autoloads nil "filenotify" "filenotify.el" (22086 11929 734062 +;;;;;; 731000)) ;;; Generated autoloads from filenotify.el (autoload 'file-notify-handle-event "filenotify" "\ @@ -10602,7 +10613,8 @@ Otherwise, signal a `file-notify-error'. ;;;*** -;;;### (autoloads nil "files-x" "files-x.el" (22083 9150 136915 960000)) +;;;### (autoloads nil "files-x" "files-x.el" (22086 11929 734062 +;;;;;; 731000)) ;;; Generated autoloads from files-x.el (autoload 'add-file-local-variable "files-x" "\ @@ -10667,8 +10679,8 @@ Copy directory-local variables to the -*- line. ;;;*** -;;;### (autoloads nil "filesets" "filesets.el" (22026 25907 587502 -;;;;;; 692000)) +;;;### (autoloads nil "filesets" "filesets.el" (22092 27717 792268 +;;;;;; 464000)) ;;; Generated autoloads from filesets.el (autoload 'filesets-init "filesets" "\ @@ -10679,8 +10691,8 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;*** -;;;### (autoloads nil "find-cmd" "find-cmd.el" (22011 58553 489858 -;;;;;; 469000)) +;;;### (autoloads nil "find-cmd" "find-cmd.el" (22086 11929 746062 +;;;;;; 731000)) ;;; Generated autoloads from find-cmd.el (push (purecopy '(find-cmd 0 6)) package--builtin-versions) @@ -10700,8 +10712,8 @@ result is a string that should be ready for the command line. ;;;*** -;;;### (autoloads nil "find-dired" "find-dired.el" (22011 58553 489858 -;;;;;; 469000)) +;;;### (autoloads nil "find-dired" "find-dired.el" (22086 11929 746062 +;;;;;; 731000)) ;;; Generated autoloads from find-dired.el (autoload 'find-dired "find-dired" "\ @@ -10741,8 +10753,8 @@ use in place of \"-ls\" as the final argument. ;;;*** -;;;### (autoloads nil "find-file" "find-file.el" (22011 58553 489858 -;;;;;; 469000)) +;;;### (autoloads nil "find-file" "find-file.el" (22092 27717 792268 +;;;;;; 464000)) ;;; 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)))) "\ @@ -10832,8 +10844,8 @@ Visit the file you click on in another window. ;;;*** -;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (22011 -;;;;;; 58553 409858 469000)) +;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (22086 +;;;;;; 11929 678062 731000)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload 'find-library "find-func" "\ @@ -11003,8 +11015,8 @@ Define some key bindings for the find-function family of functions. ;;;*** -;;;### (autoloads nil "find-lisp" "find-lisp.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "find-lisp" "find-lisp.el" (22086 11929 746062 +;;;;;; 731000)) ;;; Generated autoloads from find-lisp.el (autoload 'find-lisp-find-dired "find-lisp" "\ @@ -11024,7 +11036,7 @@ Change the filter on a `find-lisp-find-dired' buffer to REGEXP. ;;;*** -;;;### (autoloads nil "finder" "finder.el" (21998 46517 46024 649000)) +;;;### (autoloads nil "finder" "finder.el" (22086 11929 750062 731000)) ;;; Generated autoloads from finder.el (push (purecopy '(finder 1 0)) package--builtin-versions) @@ -11046,8 +11058,8 @@ Find packages matching a given keyword. ;;;*** -;;;### (autoloads nil "flow-ctrl" "flow-ctrl.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "flow-ctrl" "flow-ctrl.el" (22086 11929 750062 +;;;;;; 731000)) ;;; Generated autoloads from flow-ctrl.el (autoload 'enable-flow-control "flow-ctrl" "\ @@ -11068,8 +11080,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flow-fill" "gnus/flow-fill.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "flow-fill" "gnus/flow-fill.el" (22086 11929 +;;;;;; 774062 731000)) ;;; Generated autoloads from gnus/flow-fill.el (autoload 'fill-flowed-encode "flow-fill" "\ @@ -11084,8 +11096,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flymake" "progmodes/flymake.el" (22011 58553 -;;;;;; 901858 469000)) +;;;### (autoloads nil "flymake" "progmodes/flymake.el" (22092 27718 +;;;;;; 156268 464000)) ;;; Generated autoloads from progmodes/flymake.el (push (purecopy '(flymake 0 3)) package--builtin-versions) @@ -11115,8 +11127,8 @@ Turn flymake mode off. ;;;*** -;;;### (autoloads nil "flyspell" "textmodes/flyspell.el" (21980 16568 -;;;;;; 77544 893000)) +;;;### (autoloads nil "flyspell" "textmodes/flyspell.el" (22086 11930 +;;;;;; 314062 731000)) ;;; Generated autoloads from textmodes/flyspell.el (autoload 'flyspell-prog-mode "flyspell" "\ @@ -11186,14 +11198,14 @@ Flyspell whole buffer. ;;;*** -;;;### (autoloads nil "foldout" "foldout.el" (22011 58553 513858 -;;;;;; 469000)) +;;;### (autoloads nil "foldout" "foldout.el" (22086 11929 750062 +;;;;;; 731000)) ;;; Generated autoloads from foldout.el (push (purecopy '(foldout 1 10)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "follow" "follow.el" (22023 49716 552634 164000)) +;;;### (autoloads nil "follow" "follow.el" (22096 24780 228094 47000)) ;;; Generated autoloads from follow.el (autoload 'turn-on-follow-mode "follow" "\ @@ -11287,8 +11299,8 @@ selected if the original window is the first one in the frame. ;;;*** -;;;### (autoloads nil "footnote" "mail/footnote.el" (22026 25907 -;;;;;; 595502 692000)) +;;;### (autoloads nil "footnote" "mail/footnote.el" (22086 11929 +;;;;;; 934062 731000)) ;;; Generated autoloads from mail/footnote.el (push (purecopy '(footnote 0 19)) package--builtin-versions) @@ -11307,7 +11319,7 @@ play around with the following keys: ;;;*** -;;;### (autoloads nil "forms" "forms.el" (21981 37426 535399 97000)) +;;;### (autoloads nil "forms" "forms.el" (22086 11929 754062 731000)) ;;; Generated autoloads from forms.el (autoload 'forms-mode "forms" "\ @@ -11343,8 +11355,8 @@ Visit a file in Forms mode in other window. ;;;*** -;;;### (autoloads nil "fortran" "progmodes/fortran.el" (22011 58553 -;;;;;; 901858 469000)) +;;;### (autoloads nil "fortran" "progmodes/fortran.el" (22092 27718 +;;;;;; 156268 464000)) ;;; Generated autoloads from progmodes/fortran.el (autoload 'fortran-mode "fortran" "\ @@ -11421,8 +11433,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "fortune" "play/fortune.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "fortune" "play/fortune.el" (22086 11930 126062 +;;;;;; 731000)) ;;; Generated autoloads from play/fortune.el (autoload 'fortune-add-fortune "fortune" "\ @@ -11470,8 +11482,8 @@ and choose the directory as the fortune-file. ;;;*** -;;;### (autoloads nil "frameset" "frameset.el" (21799 41766 981374 -;;;;;; 972000)) +;;;### (autoloads nil "frameset" "frameset.el" (22086 11929 754062 +;;;;;; 731000)) ;;; Generated autoloads from frameset.el (defvar frameset-session-filter-alist '((name . :never) (left . frameset-filter-iconified) (minibuffer . frameset-filter-minibuffer) (top . frameset-filter-iconified)) "\ @@ -11657,15 +11669,15 @@ Interactively, reads the register using `register-read-with-preview'. ;;;*** -;;;### (autoloads nil "gamegrid" "play/gamegrid.el" (21720 38720 -;;;;;; 956749 443000)) +;;;### (autoloads nil "gamegrid" "play/gamegrid.el" (22086 11930 +;;;;;; 126062 731000)) ;;; Generated autoloads from play/gamegrid.el (push (purecopy '(gamegrid 1 2)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (22030 22952 -;;;;;; 977158 467000)) +;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (22092 27718 +;;;;;; 172268 464000)) ;;; Generated autoloads from progmodes/gdb-mi.el (defvar gdb-enable-debug nil "\ @@ -11742,8 +11754,8 @@ detailed description of this mode. ;;;*** -;;;### (autoloads nil "generic" "emacs-lisp/generic.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "generic" "emacs-lisp/generic.el" (22086 11929 +;;;;;; 678062 731000)) ;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ @@ -11823,8 +11835,8 @@ regular expression that can be used as an element of ;;;*** -;;;### (autoloads nil "glasses" "progmodes/glasses.el" (22011 58553 -;;;;;; 901858 469000)) +;;;### (autoloads nil "glasses" "progmodes/glasses.el" (22086 11930 +;;;;;; 178062 731000)) ;;; Generated autoloads from progmodes/glasses.el (autoload 'glasses-mode "glasses" "\ @@ -11838,8 +11850,8 @@ add virtual separators (like underscores) at places they belong to. ;;;*** -;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21993 28596 -;;;;;; 86597 473000)) +;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (22086 11929 +;;;;;; 778062 731000)) ;;; Generated autoloads from gnus/gmm-utils.el (autoload 'gmm-regexp-concat "gmm-utils" "\ @@ -11893,7 +11905,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. ;;;*** -;;;### (autoloads nil "gnus" "gnus/gnus.el" (22011 58553 561858 469000)) +;;;### (autoloads nil "gnus" "gnus/gnus.el" (22086 11929 810062 731000)) ;;; Generated autoloads from gnus/gnus.el (push (purecopy '(gnus 5 13)) package--builtin-versions) (when (fboundp 'custom-autoload) @@ -11943,8 +11955,8 @@ prompt the user for the name of an NNTP server to use. ;;;*** -;;;### (autoloads nil "gnus-agent" "gnus/gnus-agent.el" (21989 31537 -;;;;;; 791825 721000)) +;;;### (autoloads nil "gnus-agent" "gnus/gnus-agent.el" (22086 11929 +;;;;;; 778062 731000)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload 'gnus-unplugged "gnus-agent" "\ @@ -12034,8 +12046,8 @@ CLEAN is obsolete and ignored. ;;;*** -;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (22011 58553 -;;;;;; 521858 469000)) +;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (22086 11929 +;;;;;; 782062 731000)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -12045,8 +12057,8 @@ Make the current buffer look like a nice article. ;;;*** -;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (22011 -;;;;;; 58553 521858 469000)) +;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (22086 +;;;;;; 11929 782062 731000)) ;;; Generated autoloads from gnus/gnus-bookmark.el (autoload 'gnus-bookmark-set "gnus-bookmark" "\ @@ -12069,8 +12081,8 @@ deletion, or > if it is flagged for displaying. ;;;*** -;;;### (autoloads nil "gnus-cache" "gnus/gnus-cache.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-cache" "gnus/gnus-cache.el" (22086 11929 +;;;;;; 782062 731000)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload 'gnus-jog-cache "gnus-cache" "\ @@ -12111,8 +12123,8 @@ supported. ;;;*** -;;;### (autoloads nil "gnus-delay" "gnus/gnus-delay.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-delay" "gnus/gnus-delay.el" (22086 11929 +;;;;;; 786062 731000)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload 'gnus-delay-article "gnus-delay" "\ @@ -12147,8 +12159,8 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** -;;;### (autoloads nil "gnus-diary" "gnus/gnus-diary.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-diary" "gnus/gnus-diary.el" (22086 11929 +;;;;;; 786062 731000)) ;;; Generated autoloads from gnus/gnus-diary.el (autoload 'gnus-user-format-function-d "gnus-diary" "\ @@ -12163,8 +12175,8 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** -;;;### (autoloads nil "gnus-dired" "gnus/gnus-dired.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-dired" "gnus/gnus-dired.el" (22086 11929 +;;;;;; 786062 731000)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ @@ -12174,8 +12186,8 @@ Convenience method to turn on gnus-dired-mode. ;;;*** -;;;### (autoloads nil "gnus-draft" "gnus/gnus-draft.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-draft" "gnus/gnus-draft.el" (22086 11929 +;;;;;; 786062 731000)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload 'gnus-draft-reminder "gnus-draft" "\ @@ -12185,8 +12197,8 @@ Reminder user if there are unsent drafts. ;;;*** -;;;### (autoloads nil "gnus-fun" "gnus/gnus-fun.el" (21989 31537 -;;;;;; 811825 721000)) +;;;### (autoloads nil "gnus-fun" "gnus/gnus-fun.el" (22086 11929 +;;;;;; 786062 731000)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload 'gnus--random-face-with-type "gnus-fun" "\ @@ -12251,8 +12263,8 @@ Insert a random Face header from `gnus-face-directory'. ;;;*** -;;;### (autoloads nil "gnus-gravatar" "gnus/gnus-gravatar.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "gnus-gravatar" "gnus/gnus-gravatar.el" (22086 +;;;;;; 11929 786062 731000)) ;;; Generated autoloads from gnus/gnus-gravatar.el (autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ @@ -12269,8 +12281,8 @@ If gravatars are already displayed, remove them. ;;;*** -;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (22011 58553 -;;;;;; 529858 469000)) +;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (22086 11929 +;;;;;; 790062 731000)) ;;; Generated autoloads from gnus/gnus-group.el (autoload 'gnus-fetch-group "gnus-group" "\ @@ -12287,8 +12299,8 @@ Pop up a frame and enter GROUP. ;;;*** -;;;### (autoloads nil "gnus-html" "gnus/gnus-html.el" (21972 22452 -;;;;;; 190264 357000)) +;;;### (autoloads nil "gnus-html" "gnus/gnus-html.el" (22086 11929 +;;;;;; 790062 731000)) ;;; Generated autoloads from gnus/gnus-html.el (autoload 'gnus-article-html "gnus-html" "\ @@ -12303,8 +12315,8 @@ Pop up a frame and enter GROUP. ;;;*** -;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (22086 11929 +;;;;;; 790062 731000)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias 'gnus-batch-kill 'gnus-batch-score) @@ -12317,8 +12329,8 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score ;;;*** -;;;### (autoloads nil "gnus-ml" "gnus/gnus-ml.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "gnus-ml" "gnus/gnus-ml.el" (22086 11929 790062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ @@ -12341,8 +12353,8 @@ Minor mode for providing mailing-list commands. ;;;*** -;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (22011 58553 -;;;;;; 529858 469000)) +;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (22092 27717 +;;;;;; 816268 464000)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload 'gnus-group-split-setup "gnus-mlspl" "\ @@ -12413,9 +12425,9 @@ clauses will be generated. If CATCH-ALL is nil, no catch-all handling is performed, regardless of catch-all marks in group parameters. Otherwise, if there is no selected group whose SPLIT-REGEXP matches the empty string, nor is -there a selected group whose SPLIT-SPEC is 'catch-all, this fancy +there a selected group whose SPLIT-SPEC is `catch-all', this fancy split (say, a group name) will be appended to the returned SPLIT list, -as the last element of a '| SPLIT. +as the last element of a `|' SPLIT. For example, given the following group parameters: @@ -12442,8 +12454,8 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** -;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (21725 56638 -;;;;;; 795320 63000)) +;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (22086 11929 +;;;;;; 794062 731000)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload 'gnus-msg-mail "gnus-msg" "\ @@ -12470,7 +12482,7 @@ Like `message-reply'. ;;;*** ;;;### (autoloads nil "gnus-notifications" "gnus/gnus-notifications.el" -;;;;;; (21757 29489 158925 687000)) +;;;;;; (22086 11929 794062 731000)) ;;; Generated autoloads from gnus/gnus-notifications.el (autoload 'gnus-notifications "gnus-notifications" "\ @@ -12486,8 +12498,8 @@ This is typically a function to add in ;;;*** -;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (22086 11929 +;;;;;; 794062 731000)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload 'gnus-treat-from-picon "gnus-picon" "\ @@ -12510,8 +12522,8 @@ If picons are already displayed, remove them. ;;;*** -;;;### (autoloads nil "gnus-range" "gnus/gnus-range.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-range" "gnus/gnus-range.el" (22086 11929 +;;;;;; 794062 731000)) ;;; Generated autoloads from gnus/gnus-range.el (autoload 'gnus-sorted-difference "gnus-range" "\ @@ -12578,8 +12590,8 @@ Add NUM into sorted LIST by side effect. ;;;*** -;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (22011 -;;;;;; 58553 541858 469000)) +;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (22086 +;;;;;; 11929 794062 731000)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload 'gnus-registry-initialize "gnus-registry" "\ @@ -12594,8 +12606,8 @@ Install the registry hooks. ;;;*** -;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (22011 58553 -;;;;;; 541858 469000)) +;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (22086 11929 +;;;;;; 794062 731000)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload 'gnus-sieve-update "gnus-sieve" "\ @@ -12622,8 +12634,8 @@ See the documentation for these variables and functions for details. ;;;*** -;;;### (autoloads nil "gnus-spec" "gnus/gnus-spec.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-spec" "gnus/gnus-spec.el" (22086 11929 +;;;;;; 798062 731000)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload 'gnus-update-format "gnus-spec" "\ @@ -12633,8 +12645,8 @@ Update the format specification near point. ;;;*** -;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21993 28596 -;;;;;; 102597 473000)) +;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (22086 11929 +;;;;;; 798062 731000)) ;;; Generated autoloads from gnus/gnus-start.el (autoload 'gnus-declare-backend "gnus-start" "\ @@ -12644,8 +12656,8 @@ Declare back end NAME with ABILITIES as a Gnus back end. ;;;*** -;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (22080 32958 -;;;;;; 2580 652000)) +;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (22086 11929 +;;;;;; 802062 731000)) ;;; Generated autoloads from gnus/gnus-sum.el (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ @@ -12656,8 +12668,8 @@ BOOKMARK is a bookmark name or a bookmark record. ;;;*** -;;;### (autoloads nil "gnus-sync" "gnus/gnus-sync.el" (21832 3452 -;;;;;; 581913 198000)) +;;;### (autoloads nil "gnus-sync" "gnus/gnus-sync.el" (22086 11929 +;;;;;; 802062 731000)) ;;; Generated autoloads from gnus/gnus-sync.el (autoload 'gnus-sync-initialize "gnus-sync" "\ @@ -12672,8 +12684,8 @@ Install the sync hooks. ;;;*** -;;;### (autoloads nil "gnus-win" "gnus/gnus-win.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gnus-win" "gnus/gnus-win.el" (22086 11929 +;;;;;; 806062 731000)) ;;; Generated autoloads from gnus/gnus-win.el (autoload 'gnus-add-configuration "gnus-win" "\ @@ -12683,8 +12695,8 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** -;;;### (autoloads nil "gnutls" "net/gnutls.el" (22011 58553 761858 -;;;;;; 469000)) +;;;### (autoloads nil "gnutls" "net/gnutls.el" (22086 11929 994062 +;;;;;; 731000)) ;;; Generated autoloads from net/gnutls.el (defvar gnutls-min-prime-bits 256 "\ @@ -12700,8 +12712,8 @@ A value of nil says to use the default GnuTLS value.") ;;;*** -;;;### (autoloads nil "gomoku" "play/gomoku.el" (21998 46517 190024 -;;;;;; 649000)) +;;;### (autoloads nil "gomoku" "play/gomoku.el" (22086 11930 126062 +;;;;;; 731000)) ;;; Generated autoloads from play/gomoku.el (autoload 'gomoku "gomoku" "\ @@ -12727,8 +12739,8 @@ Use \\[describe-mode] for more info. ;;;*** -;;;### (autoloads nil "goto-addr" "net/goto-addr.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "goto-addr" "net/goto-addr.el" (22086 11929 +;;;;;; 994062 731000)) ;;; Generated autoloads from net/goto-addr.el (define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") @@ -12769,8 +12781,8 @@ Like `goto-address-mode', but only for comments and strings. ;;;*** -;;;### (autoloads nil "gravatar" "gnus/gravatar.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "gravatar" "gnus/gravatar.el" (22086 11929 +;;;;;; 810062 731000)) ;;; Generated autoloads from gnus/gravatar.el (autoload 'gravatar-retrieve "gravatar" "\ @@ -12786,8 +12798,8 @@ Retrieve MAIL-ADDRESS gravatar and returns it. ;;;*** -;;;### (autoloads nil "grep" "progmodes/grep.el" (22061 64938 520287 -;;;;;; 963000)) +;;;### (autoloads nil "grep" "progmodes/grep.el" (22086 11930 178062 +;;;;;; 731000)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12954,7 +12966,7 @@ file name to `*.gz', and sets `grep-highlight-matches' to `always'. ;;;*** -;;;### (autoloads nil "gs" "gs.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "gs" "gs.el" (22086 11929 854062 731000)) ;;; Generated autoloads from gs.el (autoload 'gs-load-image "gs" "\ @@ -12967,8 +12979,8 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** -;;;### (autoloads nil "gud" "progmodes/gud.el" (22018 31799 115263 -;;;;;; 120000)) +;;;### (autoloads nil "gud" "progmodes/gud.el" (22092 27718 188268 +;;;;;; 464000)) ;;; Generated autoloads from progmodes/gud.el (autoload 'gud-gdb "gud" "\ @@ -13063,8 +13075,8 @@ it if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (22011 58553 409858 -;;;;;; 469000)) +;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (22099 26170 382017 +;;;;;; 16000)) ;;; Generated autoloads from emacs-lisp/gv.el (autoload 'gv-get "gv" "\ @@ -13159,15 +13171,15 @@ The return value is the last VAL in the list. Return a reference to PLACE. This is like the `&' operator of the C language. Note: this only works reliably with lexical binding mode, except for very -simple PLACEs such as (function-symbol 'foo) which will also work in dynamic +simple PLACEs such as (function-symbol \\='foo) which will also work in dynamic binding mode. \(fn PLACE)" nil t) ;;;*** -;;;### (autoloads nil "handwrite" "play/handwrite.el" (22026 25907 -;;;;;; 631502 692000)) +;;;### (autoloads nil "handwrite" "play/handwrite.el" (22086 11930 +;;;;;; 130062 731000)) ;;; Generated autoloads from play/handwrite.el (autoload 'handwrite "handwrite" "\ @@ -13184,8 +13196,8 @@ Variables: `handwrite-linespace' (default 12) ;;;*** -;;;### (autoloads nil "hanoi" "play/hanoi.el" (21799 41767 31221 -;;;;;; 635000)) +;;;### (autoloads nil "hanoi" "play/hanoi.el" (22086 11930 130062 +;;;;;; 731000)) ;;; Generated autoloads from play/hanoi.el (autoload 'hanoi "hanoi" "\ @@ -13212,8 +13224,8 @@ to be updated. ;;;*** -;;;### (autoloads nil "hashcash" "mail/hashcash.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "hashcash" "mail/hashcash.el" (22092 27717 +;;;;;; 880268 464000)) ;;; Generated autoloads from mail/hashcash.el (autoload 'hashcash-insert-payment "hashcash" "\ @@ -13255,8 +13267,8 @@ Prefix arg sets default accept amount temporarily. ;;;*** -;;;### (autoloads nil "help-at-pt" "help-at-pt.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "help-at-pt" "help-at-pt.el" (22086 11929 854062 +;;;;;; 731000)) ;;; Generated autoloads from help-at-pt.el (autoload 'help-at-pt-string "help-at-pt" "\ @@ -13383,8 +13395,8 @@ different regions. With numeric argument ARG, behaves like ;;;*** -;;;### (autoloads nil "help-fns" "help-fns.el" (22083 9150 144915 -;;;;;; 960000)) +;;;### (autoloads nil "help-fns" "help-fns.el" (22101 42694 89526 +;;;;;; 804000)) ;;; Generated autoloads from help-fns.el (autoload 'describe-function "help-fns" "\ @@ -13438,6 +13450,9 @@ it is displayed along with the global value. (autoload 'describe-symbol "help-fns" "\ Display the full documentation of SYMBOL. Will show the info of SYMBOL as a function, variable, and/or face. +Optional arguments BUFFER and FRAME specify for which buffer and +frame to show the information about SYMBOL; they default to the +current buffer and the selected frame, respectively. \(fn SYMBOL &optional BUFFER FRAME)" t nil) @@ -13468,8 +13483,8 @@ Produce a texinfo buffer with sorted doc-strings from the DOC file. ;;;*** -;;;### (autoloads nil "help-macro" "help-macro.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "help-macro" "help-macro.el" (22086 11929 854062 +;;;;;; 731000)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -13483,8 +13498,8 @@ gives the window that lists the options.") ;;;*** -;;;### (autoloads nil "help-mode" "help-mode.el" (21972 22452 270264 -;;;;;; 357000)) +;;;### (autoloads nil "help-mode" "help-mode.el" (22086 11929 854062 +;;;;;; 731000)) ;;; Generated autoloads from help-mode.el (autoload 'help-mode "help-mode" "\ @@ -13585,8 +13600,8 @@ BOOKMARK is a bookmark name or a bookmark record. ;;;*** -;;;### (autoloads nil "helper" "emacs-lisp/helper.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "helper" "emacs-lisp/helper.el" (22086 11929 +;;;;;; 678062 731000)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload 'Helper-describe-bindings "helper" "\ @@ -13601,7 +13616,7 @@ Provide help for current mode. ;;;*** -;;;### (autoloads nil "hexl" "hexl.el" (22079 12092 331174 267000)) +;;;### (autoloads nil "hexl" "hexl.el" (22086 11929 858062 731000)) ;;; Generated autoloads from hexl.el (autoload 'hexl-mode "hexl" "\ @@ -13695,8 +13710,8 @@ This discards the buffer's undo information. ;;;*** -;;;### (autoloads nil "hi-lock" "hi-lock.el" (21993 28596 134597 -;;;;;; 473000)) +;;;### (autoloads nil "hi-lock" "hi-lock.el" (22092 27717 860268 +;;;;;; 464000)) ;;; Generated autoloads from hi-lock.el (autoload 'hi-lock-mode "hi-lock" "\ @@ -13744,7 +13759,7 @@ which can be called interactively, are: (See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns], any valid `font-lock-keywords' form is acceptable. When a file is loaded the patterns are read if `hi-lock-file-patterns-policy' is - 'ask and the user responds y to the prompt, or if + `ask' and the user responds y to the prompt, or if `hi-lock-file-patterns-policy' is bound to a function and that function returns t. @@ -13863,8 +13878,8 @@ be found in variable `hi-lock-interactive-patterns'. ;;;*** -;;;### (autoloads nil "hideif" "progmodes/hideif.el" (21989 31537 -;;;;;; 939825 721000)) +;;;### (autoloads nil "hideif" "progmodes/hideif.el" (22092 27718 +;;;;;; 188268 464000)) ;;; Generated autoloads from progmodes/hideif.el (autoload 'hide-ifdef-mode "hideif" "\ @@ -13911,8 +13926,8 @@ Several variables affect how the hiding is done: ;;;*** -;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (22026 25907 -;;;;;; 635502 692000)) +;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (22093 48588 +;;;;;; 580393 539000)) ;;; 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))) "\ @@ -13951,7 +13966,7 @@ if ARG is omitted or nil. When hideshow minor mode is on, the menu bar is augmented with hideshow commands and the hideshow commands are enabled. -The value '(hs . t) is added to `buffer-invisibility-spec'. +The value (hs . t) is added to `buffer-invisibility-spec'. The main commands are: `hs-hide-all', `hs-show-all', `hs-hide-block', `hs-show-block', `hs-hide-level' and `hs-toggle-hiding'. There is also @@ -13974,8 +13989,8 @@ Unconditionally turn off `hs-minor-mode'. ;;;*** -;;;### (autoloads nil "hilit-chg" "hilit-chg.el" (21980 16567 693544 -;;;;;; 893000)) +;;;### (autoloads nil "hilit-chg" "hilit-chg.el" (22086 11929 858062 +;;;;;; 731000)) ;;; Generated autoloads from hilit-chg.el (autoload 'highlight-changes-mode "hilit-chg" "\ @@ -14106,8 +14121,8 @@ See `highlight-changes-mode' for more information on Highlight-Changes mode. ;;;*** -;;;### (autoloads nil "hippie-exp" "hippie-exp.el" (21850 34968 457268 -;;;;;; 630000)) +;;;### (autoloads nil "hippie-exp" "hippie-exp.el" (22086 11929 858062 +;;;;;; 731000)) ;;; Generated autoloads from hippie-exp.el (push (purecopy '(hippie-exp 1 6)) package--builtin-versions) @@ -14139,8 +14154,8 @@ argument VERBOSE non-nil makes the function verbose. ;;;*** -;;;### (autoloads nil "hl-line" "hl-line.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "hl-line" "hl-line.el" (22086 11929 858062 +;;;;;; 731000)) ;;; Generated autoloads from hl-line.el (autoload 'hl-line-mode "hl-line" "\ @@ -14189,8 +14204,8 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and ;;;*** -;;;### (autoloads nil "holidays" "calendar/holidays.el" (22026 25907 -;;;;;; 551502 692000)) +;;;### (autoloads nil "holidays" "calendar/holidays.el" (22086 11929 +;;;;;; 534062 731000)) ;;; Generated autoloads from calendar/holidays.el (defvar holiday-general-holidays (mapcar 'purecopy '((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Groundhog Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-float 2 1 3 "President's Day") (holiday-fixed 3 17 "St. Patrick's Day") (holiday-fixed 4 1 "April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-float 5 1 -1 "Memorial Day") (holiday-fixed 6 14 "Flag Day") (holiday-float 6 0 3 "Father's Day") (holiday-fixed 7 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving"))) "\ @@ -14300,8 +14315,8 @@ The optional LABEL is used to label the buffer created. ;;;*** -;;;### (autoloads nil "html2text" "gnus/html2text.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "html2text" "gnus/html2text.el" (22086 11929 +;;;;;; 810062 731000)) ;;; Generated autoloads from gnus/html2text.el (autoload 'html2text "html2text" "\ @@ -14311,8 +14326,8 @@ Convert HTML to plain text in the current buffer. ;;;*** -;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (22026 25907 -;;;;;; 591502 692000)) +;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (22092 27717 +;;;;;; 864268 464000)) ;;; Generated autoloads from htmlfontify.el (push (purecopy '(htmlfontify 0 21)) package--builtin-versions) @@ -14345,8 +14360,8 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'. ;;;*** -;;;### (autoloads nil "ibuf-macs" "ibuf-macs.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "ibuf-macs" "ibuf-macs.el" (22086 11929 862062 +;;;;;; 731000)) ;;; Generated autoloads from ibuf-macs.el (autoload 'define-ibuffer-column "ibuf-macs" "\ @@ -14448,8 +14463,8 @@ bound to the current value of the filter. ;;;*** -;;;### (autoloads nil "ibuffer" "ibuffer.el" (22032 64681 350838 -;;;;;; 183000)) +;;;### (autoloads nil "ibuffer" "ibuffer.el" (22092 27717 868268 +;;;;;; 464000)) ;;; Generated autoloads from ibuffer.el (autoload 'ibuffer-list-buffers "ibuffer" "\ @@ -14488,8 +14503,8 @@ FORMATS is the value to use for `ibuffer-formats'. ;;;*** -;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (22026 -;;;;;; 25907 551502 692000)) +;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (22092 +;;;;;; 27717 556268 464000)) ;;; Generated autoloads from calendar/icalendar.el (push (purecopy '(icalendar 0 19)) package--builtin-versions) @@ -14542,8 +14557,8 @@ buffer `*icalendar-errors*'. ;;;*** -;;;### (autoloads nil "icomplete" "icomplete.el" (21980 16567 701544 -;;;;;; 893000)) +;;;### (autoloads nil "icomplete" "icomplete.el" (22086 11929 862062 +;;;;;; 731000)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ @@ -14582,8 +14597,8 @@ completions: ;;;*** -;;;### (autoloads nil "icon" "progmodes/icon.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "icon" "progmodes/icon.el" (22086 11930 186062 +;;;;;; 731000)) ;;; Generated autoloads from progmodes/icon.el (autoload 'icon-mode "icon" "\ @@ -14623,8 +14638,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (22011 -;;;;;; 58553 905858 469000)) +;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (22086 +;;;;;; 11930 194062 731000)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload 'idlwave-shell "idlw-shell" "\ @@ -14649,8 +14664,8 @@ See also the variable `idlwave-shell-prompt-pattern'. ;;;*** -;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (22011 58553 -;;;;;; 909858 469000)) +;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (22092 27718 +;;;;;; 216268 464000)) ;;; Generated autoloads from progmodes/idlwave.el (push (purecopy '(idlwave 6 1 22)) package--builtin-versions) @@ -14779,7 +14794,7 @@ The main features of this mode are ;;;*** -;;;### (autoloads nil "ido" "ido.el" (22011 58553 641858 469000)) +;;;### (autoloads nil "ido" "ido.el" (22093 48588 548393 539000)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -14802,8 +14817,8 @@ With ARG, turn Ido mode on if arg is positive, off otherwise. Turning on Ido mode will remap (via a minor-mode keymap) the default keybindings for the `find-file' and `switch-to-buffer' families of commands to the Ido versions of these functions. -However, if ARG arg equals 'files, remap only commands for files, or -if it equals 'buffers, remap only commands for buffer switching. +However, if ARG arg equals `files', remap only commands for files, or +if it equals `buffers', remap only commands for buffer switching. This function also adds a hook to the minibuffer. \(fn &optional ARG)" t nil) @@ -15041,7 +15056,7 @@ DEF, if non-nil, is the default value. ;;;*** -;;;### (autoloads nil "ielm" "ielm.el" (22067 17342 170157 143000)) +;;;### (autoloads nil "ielm" "ielm.el" (22086 11929 866062 731000)) ;;; Generated autoloads from ielm.el (autoload 'ielm "ielm" "\ @@ -15053,7 +15068,7 @@ See `inferior-emacs-lisp-mode' for details. ;;;*** -;;;### (autoloads nil "iimage" "iimage.el" (21990 52406 604500 385000)) +;;;### (autoloads nil "iimage" "iimage.el" (22086 11929 866062 731000)) ;;; Generated autoloads from iimage.el (define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") @@ -15069,7 +15084,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. ;;;*** -;;;### (autoloads nil "image" "image.el" (22048 52907 35535 316000)) +;;;### (autoloads nil "image" "image.el" (22092 27717 872268 464000)) ;;; Generated autoloads from image.el (autoload 'image-type-from-data "image" "\ @@ -15262,8 +15277,8 @@ If Emacs is compiled without ImageMagick support, this does nothing. ;;;*** -;;;### (autoloads nil "image-dired" "image-dired.el" (22011 58553 -;;;;;; 641858 469000)) +;;;### (autoloads nil "image-dired" "image-dired.el" (22092 27717 +;;;;;; 872268 464000)) ;;; Generated autoloads from image-dired.el (push (purecopy '(image-dired 0 4 11)) package--builtin-versions) @@ -15400,8 +15415,8 @@ easy-to-use form. ;;;*** -;;;### (autoloads nil "image-file" "image-file.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "image-file" "image-file.el" (22086 11929 866062 +;;;;;; 731000)) ;;; 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")) "\ @@ -15463,8 +15478,8 @@ An image file is one whose name has an extension in ;;;*** -;;;### (autoloads nil "image-mode" "image-mode.el" (22091 3267 895306 -;;;;;; 892000)) +;;;### (autoloads nil "image-mode" "image-mode.el" (22091 6875 287217 +;;;;;; 891000)) ;;; Generated autoloads from image-mode.el (autoload 'image-mode "image-mode" "\ @@ -15511,7 +15526,7 @@ on these modes. ;;;*** -;;;### (autoloads nil "imenu" "imenu.el" (21986 55346 284512 613000)) +;;;### (autoloads nil "imenu" "imenu.el" (22092 27717 872268 464000)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -15649,8 +15664,8 @@ for more information. ;;;*** -;;;### (autoloads nil "ind-util" "language/ind-util.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "ind-util" "language/ind-util.el" (22086 11929 +;;;;;; 898062 731000)) ;;; Generated autoloads from language/ind-util.el (autoload 'indian-compose-region "ind-util" "\ @@ -15680,8 +15695,8 @@ Convert old Emacs Devanagari characters to UCS. ;;;*** -;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (22011 58553 -;;;;;; 909858 469000)) +;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (22086 11930 +;;;;;; 206062 731000)) ;;; Generated autoloads from progmodes/inf-lisp.el (autoload 'inferior-lisp "inf-lisp" "\ @@ -15699,7 +15714,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;*** -;;;### (autoloads nil "info" "info.el" (22056 47028 727798 795000)) +;;;### (autoloads nil "info" "info.el" (22086 11929 874062 731000)) ;;; 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))))) "\ @@ -15911,8 +15926,8 @@ completion alternatives to currently visited manuals. ;;;*** -;;;### (autoloads nil "info-look" "info-look.el" (22011 58553 641858 -;;;;;; 469000)) +;;;### (autoloads nil "info-look" "info-look.el" (22086 11929 870062 +;;;;;; 731000)) ;;; Generated autoloads from info-look.el (autoload 'info-lookup-reset "info-look" "\ @@ -15959,8 +15974,8 @@ Perform completion on file preceding point. ;;;*** -;;;### (autoloads nil "info-xref" "info-xref.el" (22030 22952 929158 -;;;;;; 467000)) +;;;### (autoloads nil "info-xref" "info-xref.el" (22086 11929 870062 +;;;;;; 731000)) ;;; Generated autoloads from info-xref.el (push (purecopy '(info-xref 3)) package--builtin-versions) @@ -16043,8 +16058,8 @@ the sources handy. ;;;*** -;;;### (autoloads nil "informat" "informat.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "informat" "informat.el" (22086 11929 874062 +;;;;;; 731000)) ;;; Generated autoloads from informat.el (autoload 'Info-tagify "informat" "\ @@ -16089,8 +16104,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;*** -;;;### (autoloads nil "inline" "emacs-lisp/inline.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "inline" "emacs-lisp/inline.el" (22086 11929 +;;;;;; 678062 731000)) ;;; Generated autoloads from emacs-lisp/inline.el (autoload 'define-inline "inline" "\ @@ -16104,8 +16119,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;*** -;;;### (autoloads nil "inversion" "cedet/inversion.el" (21993 28595 -;;;;;; 998597 473000)) +;;;### (autoloads nil "inversion" "cedet/inversion.el" (22086 11929 +;;;;;; 550062 731000)) ;;; Generated autoloads from cedet/inversion.el (push (purecopy '(inversion 1 3)) package--builtin-versions) @@ -16117,8 +16132,8 @@ Only checks one based on which kind of Emacs is being run. ;;;*** -;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (22003 -;;;;;; 64432 624146 533000)) +;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (22086 +;;;;;; 11929 874062 731000)) ;;; Generated autoloads from international/isearch-x.el (autoload 'isearch-toggle-specified-input-method "isearch-x" "\ @@ -16138,8 +16153,8 @@ Toggle input method in interactive search. ;;;*** -;;;### (autoloads nil "isearchb" "isearchb.el" (21767 65327 504606 -;;;;;; 256000)) +;;;### (autoloads nil "isearchb" "isearchb.el" (22086 11929 886062 +;;;;;; 731000)) ;;; Generated autoloads from isearchb.el (push (purecopy '(isearchb 1 5)) package--builtin-versions) @@ -16153,8 +16168,8 @@ accessed via isearchb. ;;;*** -;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (22011 -;;;;;; 58553 645858 469000)) +;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (22086 +;;;;;; 11929 874062 731000)) ;;; Generated autoloads from international/iso-cvt.el (autoload 'iso-spanish "iso-cvt" "\ @@ -16245,15 +16260,15 @@ Add submenus to the File menu, to convert to and from various formats. ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (21840 19142 552627 956000)) +;;;;;; (22086 11929 874062 731000)) ;;; Generated autoloads from international/iso-transl.el (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) ;;;*** -;;;### (autoloads nil "ispell" "textmodes/ispell.el" (22011 58554 -;;;;;; 45858 469000)) +;;;### (autoloads nil "ispell" "textmodes/ispell.el" (22086 11930 +;;;;;; 318062 731000)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -16486,8 +16501,8 @@ You can bind this to the key C-c i in GNUS or mail by adding to ;;;*** -;;;### (autoloads nil "japan-util" "language/japan-util.el" (22011 -;;;;;; 58553 673858 469000)) +;;;### (autoloads nil "japan-util" "language/japan-util.el" (22086 +;;;;;; 11929 898062 731000)) ;;; Generated autoloads from language/japan-util.el (autoload 'setup-japanese-environment-internal "japan-util" "\ @@ -16564,8 +16579,8 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** -;;;### (autoloads nil "jka-compr" "jka-compr.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "jka-compr" "jka-compr.el" (22086 11929 890062 +;;;;;; 731000)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16588,8 +16603,8 @@ by `jka-compr-installed'. ;;;*** -;;;### (autoloads nil "js" "progmodes/js.el" (22069 62806 682804 -;;;;;; 836000)) +;;;### (autoloads nil "js" "progmodes/js.el" (22109 36809 299889 +;;;;;; 179000)) ;;; Generated autoloads from progmodes/js.el (push (purecopy '(js 9)) package--builtin-versions) @@ -16602,12 +16617,12 @@ Major mode for editing JavaScript. Major mode for editing JSX. To customize the indentation for this mode, set the SGML offset -variables (`sgml-basic-offset', `sgml-attribute-offset' et al) +variables (`sgml-basic-offset', `sgml-attribute-offset' et al.) locally, like so: (defun set-jsx-indentation () (setq-local sgml-basic-offset js-indent-level)) - (add-hook 'js-jsx-mode-hook #'set-jsx-indentation) + (add-hook \\='js-jsx-mode-hook #\\='set-jsx-indentation) \(fn)" t nil) (defalias 'javascript-mode 'js-mode) @@ -16616,14 +16631,14 @@ locally, like so: ;;;*** -;;;### (autoloads nil "json" "json.el" (22085 50883 185731 271000)) +;;;### (autoloads nil "json" "json.el" (22101 42694 105526 804000)) ;;; Generated autoloads from json.el (push (purecopy '(json 1 4)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "keypad" "emulation/keypad.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "keypad" "emulation/keypad.el" (22092 27717 +;;;;;; 636268 464000)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -16663,23 +16678,23 @@ keys are bound. Setup Binding ------------------------------------------------------------- - 'prefix Command prefix argument, i.e. M-0 .. M-9 and M-- - 'S-cursor Bind shifted keypad keys to the shifted cursor movement keys. - 'cursor Bind keypad keys to the cursor movement keys. - 'numeric Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg) - 'none Removes all bindings for keypad keys in function-key-map; - this enables any user-defined bindings for the keypad keys - in the global and local keymaps. - -If SETUP is 'numeric and the optional fourth argument DECIMAL is non-nil, + `prefix' Command prefix argument, i.e. M-0 .. M-9 and M-- + `S-cursor' Bind shifted keypad keys to the shifted cursor movement keys. + `cursor' Bind keypad keys to the cursor movement keys. + `numeric' Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg) + `none' Removes all bindings for keypad keys in function-key-map; + this enables any user-defined bindings for the keypad keys + in the global and local keymaps. + +If SETUP is `numeric' and the optional fourth argument DECIMAL is non-nil, the decimal key on the keypad is mapped to DECIMAL instead of `.' \(fn SETUP &optional NUMLOCK SHIFT DECIMAL)" nil nil) ;;;*** -;;;### (autoloads nil "kinsoku" "international/kinsoku.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "kinsoku" "international/kinsoku.el" (22086 +;;;;;; 11929 878062 731000)) ;;; Generated autoloads from international/kinsoku.el (autoload 'kinsoku "kinsoku" "\ @@ -16700,8 +16715,8 @@ the context of text formatting. ;;;*** -;;;### (autoloads nil "kkc" "international/kkc.el" (21978 61237 570488 -;;;;;; 269000)) +;;;### (autoloads nil "kkc" "international/kkc.el" (22086 11929 878062 +;;;;;; 731000)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -16723,7 +16738,7 @@ and the return value is the length of the conversion. ;;;*** -;;;### (autoloads nil "kmacro" "kmacro.el" (21990 52406 604500 385000)) +;;;### (autoloads nil "kmacro" "kmacro.el" (22086 11929 890062 731000)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -16835,8 +16850,8 @@ If kbd macro currently being defined end it before activating it. ;;;*** -;;;### (autoloads nil "korea-util" "language/korea-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "korea-util" "language/korea-util.el" (22086 +;;;;;; 11929 902062 731000)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ @@ -16850,8 +16865,8 @@ The kind of Korean keyboard for Korean input method. ;;;*** -;;;### (autoloads nil "lao-util" "language/lao-util.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "lao-util" "language/lao-util.el" (22086 11929 +;;;;;; 902062 731000)) ;;; Generated autoloads from language/lao-util.el (autoload 'lao-compose-string "lao-util" "\ @@ -16888,8 +16903,8 @@ Transcribe Romanized Lao string STR to Lao character string. ;;;*** -;;;### (autoloads nil "latexenc" "international/latexenc.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "latexenc" "international/latexenc.el" (22086 +;;;;;; 11929 878062 731000)) ;;; 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))) "\ @@ -16921,7 +16936,7 @@ coding system names is determined from `latex-inputenc-coding-alist'. ;;;*** ;;;### (autoloads nil "latin1-disp" "international/latin1-disp.el" -;;;;;; (22011 58553 645858 469000)) +;;;;;; (22086 11929 878062 731000)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -16962,8 +16977,8 @@ use either \\[customize] or the function `latin1-display'.") ;;;*** -;;;### (autoloads nil "ld-script" "progmodes/ld-script.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "ld-script" "progmodes/ld-script.el" (22086 +;;;;;; 11930 210062 731000)) ;;; Generated autoloads from progmodes/ld-script.el (autoload 'ld-script-mode "ld-script" "\ @@ -16973,8 +16988,8 @@ A major mode to edit GNU ld script files ;;;*** -;;;### (autoloads nil "let-alist" "emacs-lisp/let-alist.el" (21890 -;;;;;; 39605 402073 663000)) +;;;### (autoloads nil "let-alist" "emacs-lisp/let-alist.el" (22092 +;;;;;; 27717 632268 464000)) ;;; Generated autoloads from emacs-lisp/let-alist.el (push (purecopy '(let-alist 1 0 4)) package--builtin-versions) @@ -16993,10 +17008,10 @@ For instance, the following code essentially expands to - (let ((.title (cdr (assq 'title alist))) - (.body (cdr (assq 'body alist))) - (.site (cdr (assq 'site alist))) - (.site.contents (cdr (assq 'contents (cdr (assq 'site alist)))))) + (let ((.title (cdr (assq \\='title alist))) + (.body (cdr (assq \\='body alist))) + (.site (cdr (assq \\='site alist))) + (.site.contents (cdr (assq \\='contents (cdr (assq \\='site alist)))))) (if (and .title .body) .body .site @@ -17013,7 +17028,7 @@ displayed in the example above. ;;;*** -;;;### (autoloads nil "life" "play/life.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "life" "play/life.el" (22086 11930 130062 731000)) ;;; Generated autoloads from play/life.el (autoload 'life "life" "\ @@ -17026,7 +17041,7 @@ generations (this defaults to 1). ;;;*** -;;;### (autoloads nil "linum" "linum.el" (22092 24132 128832 464000)) +;;;### (autoloads nil "linum" "linum.el" (22086 11929 930062 731000)) ;;; Generated autoloads from linum.el (push (purecopy '(linum 0 9 24)) package--builtin-versions) @@ -17063,8 +17078,8 @@ See `linum-mode' for more information on Linum mode. ;;;*** -;;;### (autoloads nil "loadhist" "loadhist.el" (22011 58553 673858 -;;;;;; 469000)) +;;;### (autoloads nil "loadhist" "loadhist.el" (22086 11929 930062 +;;;;;; 731000)) ;;; Generated autoloads from loadhist.el (autoload 'unload-feature "loadhist" "\ @@ -17095,7 +17110,7 @@ something strange, such as redefining an Emacs function. ;;;*** -;;;### (autoloads nil "locate" "locate.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "locate" "locate.el" (22086 11929 930062 731000)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches (purecopy "-al") "\ @@ -17147,8 +17162,8 @@ except that FILTER is not optional. ;;;*** -;;;### (autoloads nil "log-edit" "vc/log-edit.el" (22011 58554 93858 -;;;;;; 469000)) +;;;### (autoloads nil "log-edit" "vc/log-edit.el" (22092 27718 544268 +;;;;;; 464000)) ;;; Generated autoloads from vc/log-edit.el (autoload 'log-edit "log-edit" "\ @@ -17179,8 +17194,8 @@ done. Otherwise, it uses the current buffer. ;;;*** -;;;### (autoloads nil "log-view" "vc/log-view.el" (21947 19252 637252 -;;;;;; 749000)) +;;;### (autoloads nil "log-view" "vc/log-view.el" (22086 11930 378062 +;;;;;; 731000)) ;;; Generated autoloads from vc/log-view.el (autoload 'log-view-mode "log-view" "\ @@ -17190,7 +17205,7 @@ Major mode for browsing CVS log output. ;;;*** -;;;### (autoloads nil "lpr" "lpr.el" (22011 58553 673858 469000)) +;;;### (autoloads nil "lpr" "lpr.el" (22086 11929 930062 731000)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\ @@ -17285,8 +17300,8 @@ for further customization of the printer command. ;;;*** -;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21993 28596 150597 -;;;;;; 473000)) +;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (22086 11929 930062 +;;;;;; 731000)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -17297,8 +17312,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") ;;;*** -;;;### (autoloads nil "lunar" "calendar/lunar.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "lunar" "calendar/lunar.el" (22086 11929 534062 +;;;;;; 731000)) ;;; Generated autoloads from calendar/lunar.el (autoload 'lunar-phases "lunar" "\ @@ -17310,8 +17325,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (22015 55603 -;;;;;; 805705 321000)) +;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (22086 11930 +;;;;;; 210062 731000)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload 'm4-mode "m4-mode" "\ @@ -17321,7 +17336,7 @@ A major mode to edit m4 macro files. ;;;*** -;;;### (autoloads nil "macros" "macros.el" (21887 28847 979667 16000)) +;;;### (autoloads nil "macros" "macros.el" (22086 11929 930062 731000)) ;;; Generated autoloads from macros.el (autoload 'name-last-kbd-macro "macros" "\ @@ -17410,8 +17425,8 @@ and then select the region of un-tablified names and use ;;;*** -;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (22026 25907 -;;;;;; 599502 692000)) +;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (22086 11929 +;;;;;; 934062 731000)) ;;; Generated autoloads from mail/mail-extr.el (autoload 'mail-extract-address-components "mail-extr" "\ @@ -17441,8 +17456,8 @@ Convert mail domain DOMAIN to the country it corresponds to. ;;;*** -;;;### (autoloads nil "mail-hist" "mail/mail-hist.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "mail-hist" "mail/mail-hist.el" (22086 11929 +;;;;;; 934062 731000)) ;;; Generated autoloads from mail/mail-hist.el (autoload 'mail-hist-define-keys "mail-hist" "\ @@ -17471,8 +17486,8 @@ This function normally would be called when the message is sent. ;;;*** -;;;### (autoloads nil "mail-utils" "mail/mail-utils.el" (21964 28338 -;;;;;; 125695 749000)) +;;;### (autoloads nil "mail-utils" "mail/mail-utils.el" (22086 11929 +;;;;;; 934062 731000)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -17546,8 +17561,8 @@ matches may be returned from the message body. ;;;*** -;;;### (autoloads nil "mailabbrev" "mail/mailabbrev.el" (21850 35149 -;;;;;; 497265 880000)) +;;;### (autoloads nil "mailabbrev" "mail/mailabbrev.el" (22086 11929 +;;;;;; 938062 731000)) ;;; Generated autoloads from mail/mailabbrev.el (defvar mail-abbrevs-mode nil "\ @@ -17596,8 +17611,8 @@ double-quotes. ;;;*** -;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21993 28596 -;;;;;; 166597 473000)) +;;;### (autoloads nil "mailalias" "mail/mailalias.el" (22086 11929 +;;;;;; 938062 731000)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style 'angles "\ @@ -17650,8 +17665,8 @@ current header, calls `mail-complete-function' and passes prefix ARG if any. ;;;*** -;;;### (autoloads nil "mailclient" "mail/mailclient.el" (22011 58553 -;;;;;; 693858 469000)) +;;;### (autoloads nil "mailclient" "mail/mailclient.el" (22086 11929 +;;;;;; 938062 731000)) ;;; Generated autoloads from mail/mailclient.el (autoload 'mailclient-send-it "mailclient" "\ @@ -17663,8 +17678,8 @@ The mail client is taken to be the handler of mailto URLs. ;;;*** -;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (22011 -;;;;;; 58553 913858 469000)) +;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (22086 +;;;;;; 11930 210062 731000)) ;;; Generated autoloads from progmodes/make-mode.el (autoload 'makefile-mode "make-mode" "\ @@ -17781,8 +17796,8 @@ An adapted `makefile-mode' that knows about imake. ;;;*** -;;;### (autoloads nil "makesum" "makesum.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "makesum" "makesum.el" (22086 11929 954062 +;;;;;; 731000)) ;;; Generated autoloads from makesum.el (autoload 'make-command-summary "makesum" "\ @@ -17793,7 +17808,7 @@ Previous contents of that buffer are killed first. ;;;*** -;;;### (autoloads nil "man" "man.el" (22026 25907 603502 692000)) +;;;### (autoloads nil "man" "man.el" (22086 11929 954062 731000)) ;;; Generated autoloads from man.el (defalias 'manual-entry 'man) @@ -17849,14 +17864,14 @@ Default bookmark handler for Man buffers. ;;;*** -;;;### (autoloads nil "map" "emacs-lisp/map.el" (22084 30014 55762 -;;;;;; 3000)) +;;;### (autoloads nil "map" "emacs-lisp/map.el" (22086 11929 678062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/map.el (push (purecopy '(map 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "master" "master.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "master" "master.el" (22086 11929 954062 731000)) ;;; Generated autoloads from master.el (push (purecopy '(master 1 0 2)) package--builtin-versions) @@ -17879,8 +17894,8 @@ yourself the value of `master-of' by calling `master-show-slave'. ;;;*** -;;;### (autoloads nil "mb-depth" "mb-depth.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "mb-depth" "mb-depth.el" (22086 11929 958062 +;;;;;; 731000)) ;;; Generated autoloads from mb-depth.el (defvar minibuffer-depth-indicate-mode nil "\ @@ -17907,14 +17922,14 @@ recursion depth in the minibuffer prompt. This is only useful if ;;;*** -;;;### (autoloads nil "md4" "md4.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "md4" "md4.el" (22086 11929 958062 731000)) ;;; Generated autoloads from md4.el (push (purecopy '(md4 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "message" "gnus/message.el" (22011 58553 581858 -;;;;;; 469000)) +;;;### (autoloads nil "message" "gnus/message.el" (22092 27717 852268 +;;;;;; 464000)) ;;; 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) @@ -18079,8 +18094,8 @@ which specify the range to operate on. ;;;*** -;;;### (autoloads nil "meta-mode" "progmodes/meta-mode.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "meta-mode" "progmodes/meta-mode.el" (22086 +;;;;;; 11930 210062 731000)) ;;; Generated autoloads from progmodes/meta-mode.el (push (purecopy '(meta-mode 1 0)) package--builtin-versions) @@ -18096,8 +18111,8 @@ Major mode for editing MetaPost sources. ;;;*** -;;;### (autoloads nil "metamail" "mail/metamail.el" (21980 16567 -;;;;;; 769544 893000)) +;;;### (autoloads nil "metamail" "mail/metamail.el" (22086 11929 +;;;;;; 938062 731000)) ;;; Generated autoloads from mail/metamail.el (autoload 'metamail-interpret-header "metamail" "\ @@ -18140,8 +18155,8 @@ redisplayed as output is inserted. ;;;*** -;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (22011 58553 729858 -;;;;;; 469000)) +;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (22086 11929 970062 +;;;;;; 731000)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload 'mh-smail "mh-comp" "\ @@ -18231,7 +18246,7 @@ delete the draft message. ;;;*** -;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (22030 22952 945158 467000)) +;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (22092 27717 888268 464000)) ;;; Generated autoloads from mh-e/mh-e.el (push (purecopy '(mh-e 8 6)) package--builtin-versions) @@ -18248,8 +18263,8 @@ Display version information about MH-E and the MH mail handling system. ;;;*** -;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (22011 58553 -;;;;;; 749858 469000)) +;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (22086 11929 +;;;;;; 970062 731000)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload 'mh-rmail "mh-folder" "\ @@ -18330,8 +18345,8 @@ perform the operation on all messages in that region. ;;;*** -;;;### (autoloads nil "midnight" "midnight.el" (21822 58098 20521 -;;;;;; 61000)) +;;;### (autoloads nil "midnight" "midnight.el" (22086 11929 978062 +;;;;;; 731000)) ;;; Generated autoloads from midnight.el (defvar midnight-mode nil "\ @@ -18371,8 +18386,8 @@ to its second argument TM. ;;;*** -;;;### (autoloads nil "minibuf-eldef" "minibuf-eldef.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "minibuf-eldef" "minibuf-eldef.el" (22086 11929 +;;;;;; 978062 731000)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ @@ -18401,7 +18416,7 @@ is modified to remove the default indication. ;;;*** -;;;### (autoloads nil "misc" "misc.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "misc" "misc.el" (22086 11929 982062 731000)) ;;; Generated autoloads from misc.el (autoload 'butterfly "misc" "\ @@ -18429,7 +18444,8 @@ The return value is always nil. ;;;*** -;;;### (autoloads nil "misearch" "misearch.el" (21797 36 720489 297000)) +;;;### (autoloads nil "misearch" "misearch.el" (22086 11929 982062 +;;;;;; 731000)) ;;; Generated autoloads from misearch.el (add-hook 'isearch-mode-hook 'multi-isearch-setup) @@ -18517,8 +18533,8 @@ whose file names match the specified wildcard. ;;;*** -;;;### (autoloads nil "mixal-mode" "progmodes/mixal-mode.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "mixal-mode" "progmodes/mixal-mode.el" (22086 +;;;;;; 11930 210062 731000)) ;;; Generated autoloads from progmodes/mixal-mode.el (push (purecopy '(mixal-mode 0 1)) package--builtin-versions) @@ -18529,8 +18545,8 @@ Major mode for the mixal asm language. ;;;*** -;;;### (autoloads nil "mm-encode" "gnus/mm-encode.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "mm-encode" "gnus/mm-encode.el" (22086 11929 +;;;;;; 818062 731000)) ;;; Generated autoloads from gnus/mm-encode.el (autoload 'mm-default-file-encoding "mm-encode" "\ @@ -18540,8 +18556,8 @@ Return a default encoding for FILE. ;;;*** -;;;### (autoloads nil "mm-extern" "gnus/mm-extern.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "mm-extern" "gnus/mm-extern.el" (22086 11929 +;;;;;; 818062 731000)) ;;; Generated autoloads from gnus/mm-extern.el (autoload 'mm-extern-cache-contents "mm-extern" "\ @@ -18559,8 +18575,8 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** -;;;### (autoloads nil "mm-partial" "gnus/mm-partial.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "mm-partial" "gnus/mm-partial.el" (22086 11929 +;;;;;; 818062 731000)) ;;; Generated autoloads from gnus/mm-partial.el (autoload 'mm-inline-partial "mm-partial" "\ @@ -18573,8 +18589,8 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** -;;;### (autoloads nil "mm-url" "gnus/mm-url.el" (22084 30014 55762 -;;;;;; 3000)) +;;;### (autoloads nil "mm-url" "gnus/mm-url.el" (22086 11929 818062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/mm-url.el (autoload 'mm-url-insert-file-contents "mm-url" "\ @@ -18590,8 +18606,8 @@ Insert file contents of URL using `mm-url-program'. ;;;*** -;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (22010 37685 116774 -;;;;;; 305000)) +;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (22086 11929 818062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/mm-uu.el (autoload 'mm-uu-dissect "mm-uu" "\ @@ -18610,7 +18626,7 @@ Assume text has been decoded if DECODED is non-nil. ;;;*** -;;;### (autoloads nil "mml" "gnus/mml.el" (21826 49866 790514 606000)) +;;;### (autoloads nil "mml" "gnus/mml.el" (22086 11929 822062 731000)) ;;; Generated autoloads from gnus/mml.el (autoload 'mml-to-mime "mml" "\ @@ -18635,8 +18651,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mml1991" "gnus/mml1991.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "mml1991" "gnus/mml1991.el" (22086 11929 822062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/mml1991.el (autoload 'mml1991-encrypt "mml1991" "\ @@ -18651,8 +18667,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mml2015" "gnus/mml2015.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "mml2015" "gnus/mml2015.el" (22086 11929 822062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/mml2015.el (autoload 'mml2015-decrypt "mml2015" "\ @@ -18692,16 +18708,16 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (22030 22952 -;;;;;; 905158 467000)) +;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (22096 24780 +;;;;;; 204094 47000)) ;;; Generated autoloads from cedet/mode-local.el (put 'define-overloadable-function 'doc-string-elt 3) ;;;*** -;;;### (autoloads nil "modula2" "progmodes/modula2.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "modula2" "progmodes/modula2.el" (22086 11930 +;;;;;; 214062 731000)) ;;; Generated autoloads from progmodes/modula2.el (defalias 'modula-2-mode 'm2-mode) @@ -18734,8 +18750,8 @@ followed by the first character of the construct. ;;;*** -;;;### (autoloads nil "morse" "play/morse.el" (22026 25907 631502 -;;;;;; 692000)) +;;;### (autoloads nil "morse" "play/morse.el" (22086 11930 130062 +;;;;;; 731000)) ;;; Generated autoloads from play/morse.el (autoload 'morse-region "morse" "\ @@ -18760,8 +18776,8 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text. ;;;*** -;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21993 28596 194597 -;;;;;; 473000)) +;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (22086 11929 982062 +;;;;;; 731000)) ;;; Generated autoloads from mouse-drag.el (autoload 'mouse-drag-throw "mouse-drag" "\ @@ -18808,7 +18824,7 @@ To test this function, evaluate: ;;;*** -;;;### (autoloads nil "mpc" "mpc.el" (22093 44991 770016 539000)) +;;;### (autoloads nil "mpc" "mpc.el" (22105 39773 859886 896000)) ;;; Generated autoloads from mpc.el (autoload 'mpc "mpc" "\ @@ -18818,7 +18834,7 @@ Main entry point for MPC. ;;;*** -;;;### (autoloads nil "mpuz" "play/mpuz.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "mpuz" "play/mpuz.el" (22086 11930 130062 731000)) ;;; Generated autoloads from play/mpuz.el (autoload 'mpuz "mpuz" "\ @@ -18828,7 +18844,7 @@ Multiplication puzzle with GNU Emacs. ;;;*** -;;;### (autoloads nil "msb" "msb.el" (22011 58553 757858 469000)) +;;;### (autoloads nil "msb" "msb.el" (22086 11929 986062 731000)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ @@ -18853,8 +18869,8 @@ different buffer menu using the function `msb'. ;;;*** -;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21998 -;;;;;; 46517 78024 649000)) +;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (22086 +;;;;;; 11929 882062 731000)) ;;; Generated autoloads from international/mule-diag.el (autoload 'list-character-sets "mule-diag" "\ @@ -18986,8 +19002,8 @@ The default is 20. If LIMIT is negative, do not limit the listing. ;;;*** -;;;### (autoloads nil "mule-util" "international/mule-util.el" (22002 -;;;;;; 43570 532887 749000)) +;;;### (autoloads nil "mule-util" "international/mule-util.el" (22108 +;;;;;; 15942 546032 987000)) ;;; Generated autoloads from international/mule-util.el (defsubst string-to-list (string) "\ @@ -19146,8 +19162,8 @@ QUALITY can be: ;;;*** -;;;### (autoloads nil "net-utils" "net/net-utils.el" (22011 58553 -;;;;;; 761858 469000)) +;;;### (autoloads nil "net-utils" "net/net-utils.el" (22086 11929 +;;;;;; 998062 731000)) ;;; Generated autoloads from net/net-utils.el (autoload 'ifconfig "net-utils" "\ @@ -19241,8 +19257,8 @@ Open a network connection to HOST on PORT. ;;;*** -;;;### (autoloads nil "netrc" "net/netrc.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "netrc" "net/netrc.el" (22086 11929 998062 +;;;;;; 731000)) ;;; Generated autoloads from net/netrc.el (autoload 'netrc-credentials "netrc" "\ @@ -19254,8 +19270,8 @@ listed in the PORTS list. ;;;*** -;;;### (autoloads nil "network-stream" "net/network-stream.el" (21855 -;;;;;; 577 147947 107000)) +;;;### (autoloads nil "network-stream" "net/network-stream.el" (22086 +;;;;;; 11929 998062 731000)) ;;; Generated autoloads from net/network-stream.el (autoload 'open-network-stream "network-stream" "\ @@ -19351,8 +19367,8 @@ asynchronously, if possible. ;;;*** -;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (22011 -;;;;;; 58553 765858 469000)) +;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (22092 +;;;;;; 27717 964268 464000)) ;;; Generated autoloads from net/newst-backend.el (autoload 'newsticker-running-p "newst-backend" "\ @@ -19374,7 +19390,7 @@ Run `newsticker-start-hook' if newsticker was not running already. ;;;*** ;;;### (autoloads nil "newst-plainview" "net/newst-plainview.el" -;;;;;; (21980 16567 809544 893000)) +;;;;;; (22092 27717 980268 464000)) ;;; Generated autoloads from net/newst-plainview.el (autoload 'newsticker-plainview "newst-plainview" "\ @@ -19384,8 +19400,8 @@ Start newsticker plainview. ;;;*** -;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (22011 -;;;;;; 58553 765858 469000)) +;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (22086 +;;;;;; 11929 998062 731000)) ;;; Generated autoloads from net/newst-reader.el (autoload 'newsticker-show-news "newst-reader" "\ @@ -19395,8 +19411,8 @@ Start reading news. You may want to bind this to a key. ;;;*** -;;;### (autoloads nil "newst-ticker" "net/newst-ticker.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "newst-ticker" "net/newst-ticker.el" (22086 +;;;;;; 11929 998062 731000)) ;;; Generated autoloads from net/newst-ticker.el (autoload 'newsticker-ticker-running-p "newst-ticker" "\ @@ -19416,8 +19432,8 @@ running already. ;;;*** -;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (22030 -;;;;;; 22952 973158 467000)) +;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (22109 +;;;;;; 36809 263889 179000)) ;;; Generated autoloads from net/newst-treeview.el (autoload 'newsticker-treeview "newst-treeview" "\ @@ -19427,8 +19443,8 @@ Start newsticker treeview. ;;;*** -;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21990 52406 596500 -;;;;;; 385000)) +;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (22086 11929 822062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/nndiary.el (autoload 'nndiary-generate-nov-databases "nndiary" "\ @@ -19438,8 +19454,8 @@ Generate NOV databases in all nndiary directories. ;;;*** -;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (22011 58553 585858 -;;;;;; 469000)) +;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (22086 11929 822062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/nndoc.el (autoload 'nndoc-add-type "nndoc" "\ @@ -19453,8 +19469,8 @@ symbol in the alist. ;;;*** -;;;### (autoloads nil "nnfolder" "gnus/nnfolder.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "nnfolder" "gnus/nnfolder.el" (22086 11929 +;;;;;; 826062 731000)) ;;; Generated autoloads from gnus/nnfolder.el (autoload 'nnfolder-generate-active-file "nnfolder" "\ @@ -19465,7 +19481,7 @@ This command does not work if you use short group names. ;;;*** -;;;### (autoloads nil "nnml" "gnus/nnml.el" (22054 5291 911134 163000)) +;;;### (autoloads nil "nnml" "gnus/nnml.el" (22102 63557 304509 103000)) ;;; Generated autoloads from gnus/nnml.el (autoload 'nnml-generate-nov-databases "nnml" "\ @@ -19475,7 +19491,7 @@ Generate NOV databases in all nnml directories. ;;;*** -;;;### (autoloads nil "novice" "novice.el" (21985 34484 234705 925000)) +;;;### (autoloads nil "novice" "novice.el" (22086 11930 22062 731000)) ;;; Generated autoloads from novice.el (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") @@ -19507,8 +19523,8 @@ future sessions. ;;;*** -;;;### (autoloads nil "nroff-mode" "textmodes/nroff-mode.el" (21670 -;;;;;; 32331 885635 586000)) +;;;### (autoloads nil "nroff-mode" "textmodes/nroff-mode.el" (22086 +;;;;;; 11930 318062 731000)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload 'nroff-mode "nroff-mode" "\ @@ -19522,14 +19538,14 @@ closing requests for requests that are used in matched pairs. ;;;*** -;;;### (autoloads nil "ntlm" "net/ntlm.el" (22069 62806 678804 836000)) +;;;### (autoloads nil "ntlm" "net/ntlm.el" (22086 11930 2062 731000)) ;;; Generated autoloads from net/ntlm.el (push (purecopy '(ntlm 2 0 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "nxml-glyph" "nxml/nxml-glyph.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "nxml-glyph" "nxml/nxml-glyph.el" (22086 11930 +;;;;;; 26062 731000)) ;;; Generated autoloads from nxml/nxml-glyph.el (autoload 'nxml-glyph-display-string "nxml-glyph" "\ @@ -19541,8 +19557,8 @@ Return nil if the face cannot display a glyph for N. ;;;*** -;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (22021 7991 -;;;;;; 61719 83000)) +;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (22086 11930 +;;;;;; 26062 731000)) ;;; Generated autoloads from nxml/nxml-mode.el (autoload 'nxml-mode "nxml-mode" "\ @@ -19602,8 +19618,8 @@ Many aspects this mode can be customized using ;;;*** -;;;### (autoloads nil "nxml-uchnm" "nxml/nxml-uchnm.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "nxml-uchnm" "nxml/nxml-uchnm.el" (22086 11930 +;;;;;; 26062 731000)) ;;; Generated autoloads from nxml/nxml-uchnm.el (autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ @@ -19615,8 +19631,8 @@ the variable `nxml-enabled-unicode-blocks'. ;;;*** -;;;### (autoloads nil "octave" "progmodes/octave.el" (22027 46774 -;;;;;; 680310 591000)) +;;;### (autoloads nil "octave" "progmodes/octave.el" (22086 11930 +;;;;;; 214062 731000)) ;;; Generated autoloads from progmodes/octave.el (autoload 'octave-mode "octave" "\ @@ -19653,8 +19669,8 @@ startup file, `~/.emacs-octave'. ;;;*** -;;;### (autoloads nil "opascal" "progmodes/opascal.el" (21948 40114 -;;;;;; 450686 453000)) +;;;### (autoloads nil "opascal" "progmodes/opascal.el" (22086 11930 +;;;;;; 214062 731000)) ;;; Generated autoloads from progmodes/opascal.el (define-obsolete-function-alias 'delphi-mode 'opascal-mode "24.4") @@ -19689,7 +19705,7 @@ Coloring: ;;;*** -;;;### (autoloads nil "org" "org/org.el" (22011 58553 849858 469000)) +;;;### (autoloads nil "org" "org/org.el" (22092 27718 88268 464000)) ;;; Generated autoloads from org/org.el (autoload 'org-babel-do-load-languages "org" "\ @@ -19910,8 +19926,8 @@ Call the customize function with org as argument. ;;;*** -;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (22011 58553 -;;;;;; 805858 469000)) +;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (22092 27718 +;;;;;; 24268 464000)) ;;; Generated autoloads from org/org-agenda.el (autoload 'org-toggle-sticky-agenda "org-agenda" "\ @@ -20135,8 +20151,8 @@ Do we have a reason to ignore this TODO entry because it has a time stamp? (autoload 'org-agenda-set-restriction-lock "org-agenda" "\ Set restriction lock for agenda, to current subtree or file. -Restriction will be the file if TYPE is `file', or if type is the -universal prefix '(4), or if the cursor is before the first headline +Restriction will be the file if TYPE is `file', or if TYPE is the +universal prefix `(4)', or if the cursor is before the first headline in the file. Otherwise, restriction will be to the current subtree. \(fn &optional TYPE)" t nil) @@ -20184,8 +20200,8 @@ to override `appt-message-warning-time'. ;;;*** -;;;### (autoloads nil "org-capture" "org/org-capture.el" (21993 28596 -;;;;;; 242597 473000)) +;;;### (autoloads nil "org-capture" "org/org-capture.el" (22086 11930 +;;;;;; 82062 731000)) ;;; Generated autoloads from org/org-capture.el (autoload 'org-capture-string "org-capture" "\ @@ -20227,8 +20243,8 @@ Set `org-capture-templates' to be similar to `org-remember-templates'. ;;;*** -;;;### (autoloads nil "org-colview" "org/org-colview.el" (22011 58553 -;;;;;; 809858 469000)) +;;;### (autoloads nil "org-colview" "org/org-colview.el" (22086 11930 +;;;;;; 82062 731000)) ;;; Generated autoloads from org/org-colview.el (autoload 'org-columns-remove-overlays "org-colview" "\ @@ -20291,8 +20307,8 @@ Turn on or update column view in the agenda. ;;;*** -;;;### (autoloads nil "org-compat" "org/org-compat.el" (21988 10681 -;;;;;; 989624 461000)) +;;;### (autoloads nil "org-compat" "org/org-compat.el" (22086 11930 +;;;;;; 82062 731000)) ;;; Generated autoloads from org/org-compat.el (autoload 'org-check-version "org-compat" "\ @@ -20302,8 +20318,8 @@ Try very hard to provide sensible version strings. ;;;*** -;;;### (autoloads nil "org-macs" "org/org-macs.el" (21855 577 287944 -;;;;;; 835000)) +;;;### (autoloads nil "org-macs" "org/org-macs.el" (22092 27718 44268 +;;;;;; 464000)) ;;; Generated autoloads from org/org-macs.el (autoload 'org-load-noerror-mustsuffix "org-macs" "\ @@ -20313,8 +20329,8 @@ Load FILE with optional arguments NOERROR and MUSTSUFFIX. Drop the MUSTSUFFIX a ;;;*** -;;;### (autoloads nil "org-version" "org/org-version.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "org-version" "org/org-version.el" (22086 11930 +;;;;;; 98062 731000)) ;;; Generated autoloads from org/org-version.el (autoload 'org-release "org-version" "\ @@ -20331,8 +20347,8 @@ The Git version of org-mode. ;;;*** -;;;### (autoloads nil "outline" "outline.el" (21990 52406 672500 -;;;;;; 385000)) +;;;### (autoloads nil "outline" "outline.el" (22086 11930 118062 +;;;;;; 731000)) ;;; Generated autoloads from outline.el (put 'outline-regexp 'safe-local-variable 'stringp) (put 'outline-heading-end-regexp 'safe-local-variable 'stringp) @@ -20375,8 +20391,8 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "package" "emacs-lisp/package.el" (22104 15298 -;;;;;; 466671 488000)) +;;;### (autoloads nil "package" "emacs-lisp/package.el" (22092 27717 +;;;;;; 636268 464000)) ;;; Generated autoloads from emacs-lisp/package.el (push (purecopy '(package 1 0 1)) package--builtin-versions) @@ -20491,7 +20507,7 @@ The list is displayed in a buffer named `*Packages*'. ;;;*** -;;;### (autoloads nil "paren" "paren.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "paren" "paren.el" (22086 11930 122062 731000)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ @@ -20517,8 +20533,8 @@ matching parenthesis is highlighted in `show-paren-style' after ;;;*** -;;;### (autoloads nil "parse-time" "calendar/parse-time.el" (21670 -;;;;;; 32330 885624 725000)) +;;;### (autoloads nil "parse-time" "calendar/parse-time.el" (22086 +;;;;;; 11929 534062 731000)) ;;; Generated autoloads from calendar/parse-time.el (put 'parse-time-rules 'risky-local-variable t) @@ -20531,8 +20547,8 @@ unknown are returned as nil. ;;;*** -;;;### (autoloads nil "pascal" "progmodes/pascal.el" (21974 64192 -;;;;;; 644009 993000)) +;;;### (autoloads nil "pascal" "progmodes/pascal.el" (22092 27718 +;;;;;; 228268 464000)) ;;; Generated autoloads from progmodes/pascal.el (autoload 'pascal-mode "pascal" "\ @@ -20581,8 +20597,8 @@ See also the user variables `pascal-type-keywords', `pascal-start-keywords' and ;;;*** -;;;### (autoloads nil "password-cache" "password-cache.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "password-cache" "password-cache.el" (22086 +;;;;;; 11930 122062 731000)) ;;; Generated autoloads from password-cache.el (defvar password-cache t "\ @@ -20603,8 +20619,8 @@ Check if KEY is in the cache. ;;;*** -;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (22073 59712 -;;;;;; 774803 451000)) +;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (22091 6875 247217 +;;;;;; 891000)) ;;; Generated autoloads from emacs-lisp/pcase.el (autoload 'pcase "pcase" "\ @@ -20705,8 +20721,8 @@ to this macro. ;;;*** -;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21998 46517 178024 -;;;;;; 649000)) +;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from pcmpl-cvs.el (autoload 'pcomplete/cvs "pcmpl-cvs" "\ @@ -20716,8 +20732,8 @@ Completion rules for the `cvs' command. ;;;*** -;;;### (autoloads nil "pcmpl-gnu" "pcmpl-gnu.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "pcmpl-gnu" "pcmpl-gnu.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from pcmpl-gnu.el (autoload 'pcomplete/gzip "pcmpl-gnu" "\ @@ -20744,8 +20760,8 @@ Completion for the GNU tar utility. ;;;*** -;;;### (autoloads nil "pcmpl-linux" "pcmpl-linux.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "pcmpl-linux" "pcmpl-linux.el" (22086 11930 +;;;;;; 122062 731000)) ;;; Generated autoloads from pcmpl-linux.el (autoload 'pcomplete/kill "pcmpl-linux" "\ @@ -20765,8 +20781,8 @@ Completion for GNU/Linux `mount'. ;;;*** -;;;### (autoloads nil "pcmpl-rpm" "pcmpl-rpm.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "pcmpl-rpm" "pcmpl-rpm.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from pcmpl-rpm.el (autoload 'pcomplete/rpm "pcmpl-rpm" "\ @@ -20776,8 +20792,8 @@ Completion for the `rpm' command. ;;;*** -;;;### (autoloads nil "pcmpl-unix" "pcmpl-unix.el" (21791 47660 796747 -;;;;;; 422000)) +;;;### (autoloads nil "pcmpl-unix" "pcmpl-unix.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from pcmpl-unix.el (autoload 'pcomplete/cd "pcmpl-unix" "\ @@ -20832,8 +20848,8 @@ Includes files as well as host names followed by a colon. ;;;*** -;;;### (autoloads nil "pcmpl-x" "pcmpl-x.el" (21980 16567 953544 -;;;;;; 893000)) +;;;### (autoloads nil "pcmpl-x" "pcmpl-x.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from pcmpl-x.el (autoload 'pcomplete/tlmgr "pcmpl-x" "\ @@ -20857,8 +20873,8 @@ Completion for the `ag' command. ;;;*** -;;;### (autoloads nil "pcomplete" "pcomplete.el" (21980 16567 953544 -;;;;;; 893000)) +;;;### (autoloads nil "pcomplete" "pcomplete.el" (22086 11930 122062 +;;;;;; 731000)) ;;; Generated autoloads from pcomplete.el (autoload 'pcomplete "pcomplete" "\ @@ -20915,7 +20931,7 @@ Setup `shell-mode' to use pcomplete. ;;;*** -;;;### (autoloads nil "pcvs" "vc/pcvs.el" (22065 61995 886407 852000)) +;;;### (autoloads nil "pcvs" "vc/pcvs.el" (22092 27718 548268 464000)) ;;; Generated autoloads from vc/pcvs.el (autoload 'cvs-checkout "pcvs" "\ @@ -20990,8 +21006,8 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** -;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (22086 11930 +;;;;;; 378062 731000)) ;;; 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)) "\ @@ -20999,8 +21015,8 @@ Global menu used by PCL-CVS.") ;;;*** -;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (22011 -;;;;;; 58553 921858 469000)) +;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (22086 +;;;;;; 11930 214062 731000)) ;;; Generated autoloads from progmodes/perl-mode.el (put 'perl-indent-level 'safe-local-variable 'integerp) (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) @@ -21061,8 +21077,8 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. ;;;*** -;;;### (autoloads nil "picture" "textmodes/picture.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "picture" "textmodes/picture.el" (22086 11930 +;;;;;; 318062 731000)) ;;; Generated autoloads from textmodes/picture.el (autoload 'picture-mode "picture" "\ @@ -21142,8 +21158,8 @@ they are not by default assigned to keys. ;;;*** -;;;### (autoloads nil "pinentry" "net/pinentry.el" (22076 35900 90633 -;;;;;; 595000)) +;;;### (autoloads nil "pinentry" "net/pinentry.el" (22086 11930 2062 +;;;;;; 731000)) ;;; Generated autoloads from net/pinentry.el (push (purecopy '(pinentry 0 1)) package--builtin-versions) @@ -21160,8 +21176,8 @@ will not be shown. ;;;*** -;;;### (autoloads nil "plstore" "gnus/plstore.el" (21786 29744 368212 -;;;;;; 633000)) +;;;### (autoloads nil "plstore" "gnus/plstore.el" (22086 11929 842062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/plstore.el (autoload 'plstore-open "plstore" "\ @@ -21176,8 +21192,8 @@ Major mode for editing PLSTORE files. ;;;*** -;;;### (autoloads nil "po" "textmodes/po.el" (22026 25907 651502 -;;;;;; 692000)) +;;;### (autoloads nil "po" "textmodes/po.el" (22086 11930 322062 +;;;;;; 731000)) ;;; Generated autoloads from textmodes/po.el (autoload 'po-find-file-coding-system "po" "\ @@ -21188,7 +21204,7 @@ Called through `file-coding-system-alist', before the file is visited for real. ;;;*** -;;;### (autoloads nil "pong" "play/pong.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "pong" "play/pong.el" (22086 11930 130062 731000)) ;;; Generated autoloads from play/pong.el (autoload 'pong "pong" "\ @@ -21204,7 +21220,7 @@ pong-mode keybindings:\\<pong-mode-map> ;;;*** -;;;### (autoloads nil "pop3" "gnus/pop3.el" (21974 64192 580009 993000)) +;;;### (autoloads nil "pop3" "gnus/pop3.el" (22086 11929 846062 731000)) ;;; Generated autoloads from gnus/pop3.el (autoload 'pop3-movemail "pop3" "\ @@ -21215,8 +21231,8 @@ Use streaming commands. ;;;*** -;;;### (autoloads nil "pp" "emacs-lisp/pp.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "pp" "emacs-lisp/pp.el" (22086 11929 682062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload 'pp-to-string "pp" "\ @@ -21266,8 +21282,8 @@ Ignores leading comment characters. ;;;*** -;;;### (autoloads nil "printing" "printing.el" (21990 52406 680500 -;;;;;; 385000)) +;;;### (autoloads nil "printing" "printing.el" (22092 27718 128268 +;;;;;; 464000)) ;;; Generated autoloads from printing.el (push (purecopy '(printing 6 9 3)) package--builtin-versions) @@ -21855,7 +21871,7 @@ are both set to t. ;;;*** -;;;### (autoloads nil "proced" "proced.el" (22085 50883 209731 271000)) +;;;### (autoloads nil "proced" "proced.el" (22092 27718 128268 464000)) ;;; Generated autoloads from proced.el (autoload 'proced "proced" "\ @@ -21873,8 +21889,8 @@ Proced buffers. ;;;*** -;;;### (autoloads nil "profiler" "profiler.el" (21948 40114 402686 -;;;;;; 453000)) +;;;### (autoloads nil "profiler" "profiler.el" (22086 11930 134062 +;;;;;; 731000)) ;;; Generated autoloads from profiler.el (autoload 'profiler-start "profiler" "\ @@ -21902,8 +21918,8 @@ Open profile FILENAME. ;;;*** -;;;### (autoloads nil "project" "progmodes/project.el" (22083 9150 -;;;;;; 180915 960000)) +;;;### (autoloads nil "project" "progmodes/project.el" (22088 30660 +;;;;;; 79412 927000)) ;;; Generated autoloads from progmodes/project.el (autoload 'project-current "project" "\ @@ -21929,8 +21945,8 @@ pattern to search for. ;;;*** -;;;### (autoloads nil "prolog" "progmodes/prolog.el" (22040 58794 -;;;;;; 692259 771000)) +;;;### (autoloads nil "prolog" "progmodes/prolog.el" (22086 11930 +;;;;;; 218062 731000)) ;;; Generated autoloads from progmodes/prolog.el (autoload 'prolog-mode "prolog" "\ @@ -21963,19 +21979,19 @@ With prefix argument ARG, restart the Prolog process if running before. ;;;*** -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (22092 27718 404268 464000)) ;;; 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")) "\ List of directories to search for `BDF' font files. -The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") +The default value is (\"/usr/local/share/emacs/fonts/bdf\").") (custom-autoload 'bdf-directory-list "ps-bdf" t) ;;;*** -;;;### (autoloads nil "ps-mode" "progmodes/ps-mode.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "ps-mode" "progmodes/ps-mode.el" (22086 11930 +;;;;;; 218062 731000)) ;;; Generated autoloads from progmodes/ps-mode.el (push (purecopy '(ps-mode 1 1 9)) package--builtin-versions) @@ -22021,8 +22037,8 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number ;;;*** -;;;### (autoloads nil "ps-print" "ps-print.el" (22011 58553 993858 -;;;;;; 469000)) +;;;### (autoloads nil "ps-print" "ps-print.el" (22092 27718 412268 +;;;;;; 464000)) ;;; Generated autoloads from ps-print.el (push (purecopy '(ps-print 7 3 5)) package--builtin-versions) @@ -22148,8 +22164,8 @@ image in a file with that name. (autoload 'ps-line-lengths "ps-print" "\ Display the correspondence between a line length and a font size. Done using the current ps-print setup. -Try: pr -t file | awk '{printf \"%3d %s -\", length($0), $0}' | sort -r | head +Try: pr -t file | awk \\='{printf \"%3d %s +\", length($0), $0}\\=' | sort -r | head \(fn)" t nil) @@ -22219,8 +22235,8 @@ If EXTENSION is any other symbol, it is ignored. ;;;*** -;;;### (autoloads nil "pulse" "cedet/pulse.el" (21968 25395 287570 -;;;;;; 741000)) +;;;### (autoloads nil "pulse" "cedet/pulse.el" (22086 11929 550062 +;;;;;; 731000)) ;;; Generated autoloads from cedet/pulse.el (push (purecopy '(pulse 1 0)) package--builtin-versions) @@ -22238,12 +22254,12 @@ Optional argument FACE specifies the face to do the highlighting. ;;;*** -;;;### (autoloads nil "python" "progmodes/python.el" (22069 62806 -;;;;;; 686804 836000)) +;;;### (autoloads nil "python" "progmodes/python.el" (22092 27718 +;;;;;; 244268 464000)) ;;; Generated autoloads from progmodes/python.el (push (purecopy '(python 0 25 1)) package--builtin-versions) -(add-to-list 'auto-mode-alist (cons (purecopy "\\.py\\'") 'python-mode)) +(add-to-list 'auto-mode-alist (cons (purecopy "\\.pyw?\\'") 'python-mode)) (add-to-list 'interpreter-mode-alist (cons (purecopy "python[0-9.]*") 'python-mode)) @@ -22276,7 +22292,7 @@ Major mode for editing Python files. ;;;*** -;;;### (autoloads nil "qp" "gnus/qp.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "qp" "gnus/qp.el" (22086 11929 846062 731000)) ;;; Generated autoloads from gnus/qp.el (autoload 'quoted-printable-decode-region "qp" "\ @@ -22295,8 +22311,8 @@ them into characters should be done separately. ;;;*** -;;;### (autoloads nil "quail" "international/quail.el" (21988 10681 -;;;;;; 981624 461000)) +;;;### (autoloads nil "quail" "international/quail.el" (22086 11929 +;;;;;; 882062 731000)) ;;; Generated autoloads from international/quail.el (autoload 'quail-title "quail" "\ @@ -22526,8 +22542,8 @@ of each directory. ;;;*** -;;;### (autoloads nil "quail/hangul" "leim/quail/hangul.el" (21953 -;;;;;; 58033 331058 929000)) +;;;### (autoloads nil "quail/hangul" "leim/quail/hangul.el" (22086 +;;;;;; 11929 922062 731000)) ;;; Generated autoloads from leim/quail/hangul.el (autoload 'hangul-input-method-activate "quail/hangul" "\ @@ -22540,7 +22556,7 @@ HELP-TEXT is a text set in `hangul-input-method-help-text'. ;;;*** ;;;### (autoloads nil "quail/uni-input" "leim/quail/uni-input.el" -;;;;;; (21670 32331 385639 720000)) +;;;;;; (22086 11929 930062 731000)) ;;; Generated autoloads from leim/quail/uni-input.el (autoload 'ucs-input-activate "quail/uni-input" "\ @@ -22554,8 +22570,8 @@ While this input method is active, the variable ;;;*** -;;;### (autoloads nil "quickurl" "net/quickurl.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "quickurl" "net/quickurl.el" (22086 11930 2062 +;;;;;; 731000)) ;;; 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" "\ @@ -22626,8 +22642,8 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** -;;;### (autoloads nil "rcirc" "net/rcirc.el" (22011 58553 765858 -;;;;;; 469000)) +;;;### (autoloads nil "rcirc" "net/rcirc.el" (22092 27717 984268 +;;;;;; 464000)) ;;; Generated autoloads from net/rcirc.el (autoload 'rcirc "rcirc" "\ @@ -22665,8 +22681,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21998 -;;;;;; 46517 18024 649000)) +;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (22086 +;;;;;; 11929 682062 731000)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias 'regexp-builder 're-builder) @@ -22684,8 +22700,8 @@ matching parts of the target buffer will be highlighted. ;;;*** -;;;### (autoloads nil "recentf" "recentf.el" (21998 46517 266024 -;;;;;; 649000)) +;;;### (autoloads nil "recentf" "recentf.el" (22086 11930 254062 +;;;;;; 731000)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ @@ -22711,7 +22727,7 @@ were operated on recently. ;;;*** -;;;### (autoloads nil "rect" "rect.el" (22087 6213 796351 952000)) +;;;### (autoloads nil "rect" "rect.el" (22087 9807 394279 951000)) ;;; Generated autoloads from rect.el (autoload 'delete-rectangle "rect" "\ @@ -22851,8 +22867,8 @@ Activates the region if needed. Only lasts until the region is deactivated. ;;;*** -;;;### (autoloads nil "refill" "textmodes/refill.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "refill" "textmodes/refill.el" (22086 11930 +;;;;;; 322062 731000)) ;;; Generated autoloads from textmodes/refill.el (autoload 'refill-mode "refill" "\ @@ -22872,8 +22888,8 @@ For true \"word wrap\" behavior, use `visual-line-mode' instead. ;;;*** -;;;### (autoloads nil "reftex" "textmodes/reftex.el" (22056 47028 -;;;;;; 787798 795000)) +;;;### (autoloads nil "reftex" "textmodes/reftex.el" (22086 11930 +;;;;;; 330062 731000)) ;;; Generated autoloads from textmodes/reftex.el (autoload 'reftex-citation "reftex-cite" nil t) (autoload 'reftex-all-document-files "reftex-parse") @@ -22926,8 +22942,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (22025 -;;;;;; 5040 882195 139000)) +;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (22092 +;;;;;; 27718 512268 464000)) ;;; 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)))) @@ -22936,8 +22952,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (22011 -;;;;;; 58553 413858 469000)) +;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (22086 +;;;;;; 11929 682062 731000)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload 'regexp-opt "regexp-opt" "\ @@ -22966,15 +22982,15 @@ This means the number of non-shy regexp grouping constructs ;;;*** -;;;### (autoloads nil "regi" "emacs-lisp/regi.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "regi" "emacs-lisp/regi.el" (22086 11929 682062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/regi.el (push (purecopy '(regi 1 8)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "remember" "textmodes/remember.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "remember" "textmodes/remember.el" (22086 11930 +;;;;;; 334062 731000)) ;;; Generated autoloads from textmodes/remember.el (push (purecopy '(remember 2 0)) package--builtin-versions) @@ -23028,7 +23044,7 @@ to turn the *scratch* buffer into your notes buffer. ;;;*** -;;;### (autoloads nil "repeat" "repeat.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "repeat" "repeat.el" (22086 11930 258062 731000)) ;;; Generated autoloads from repeat.el (push (purecopy '(repeat 0 51)) package--builtin-versions) @@ -23051,8 +23067,8 @@ recently executed command not bound to an input event\". ;;;*** -;;;### (autoloads nil "reporter" "mail/reporter.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "reporter" "mail/reporter.el" (22086 11929 +;;;;;; 938062 731000)) ;;; Generated autoloads from mail/reporter.el (autoload 'reporter-submit-bug-report "reporter" "\ @@ -23083,8 +23099,8 @@ mail-sending package is used for editing and sending the message. ;;;*** -;;;### (autoloads nil "reposition" "reposition.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "reposition" "reposition.el" (22086 11930 262062 +;;;;;; 731000)) ;;; Generated autoloads from reposition.el (autoload 'reposition-window "reposition" "\ @@ -23110,7 +23126,7 @@ first comment line visible (if point is in a comment). ;;;*** -;;;### (autoloads nil "reveal" "reveal.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "reveal" "reveal.el" (22086 11930 262062 731000)) ;;; Generated autoloads from reveal.el (autoload 'reveal-mode "reveal" "\ @@ -23145,8 +23161,8 @@ the mode if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21998 46517 18024 -;;;;;; 649000)) +;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (22086 11929 682062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload 'ring-p "ring" "\ @@ -23161,8 +23177,8 @@ Make a ring that can contain SIZE elements. ;;;*** -;;;### (autoloads nil "rlogin" "net/rlogin.el" (22011 58553 765858 -;;;;;; 469000)) +;;;### (autoloads nil "rlogin" "net/rlogin.el" (22086 11930 6062 +;;;;;; 731000)) ;;; Generated autoloads from net/rlogin.el (autoload 'rlogin "rlogin" "\ @@ -23206,8 +23222,8 @@ variable. ;;;*** -;;;### (autoloads nil "rmail" "mail/rmail.el" (22011 58553 725858 -;;;;;; 469000)) +;;;### (autoloads nil "rmail" "mail/rmail.el" (22092 27717 884268 +;;;;;; 464000)) ;;; Generated autoloads from mail/rmail.el (defvar rmail-file-name (purecopy "~/RMAIL") "\ @@ -23226,7 +23242,7 @@ Its name should end with a slash.") (autoload 'rmail-movemail-variant-p "rmail" "\ Return t if the current movemail variant is any of VARIANTS. -Currently known variants are 'emacs and 'mailutils. +Currently known variants are `emacs' and `mailutils'. \(fn &rest VARIANTS)" nil nil) @@ -23404,8 +23420,8 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. ;;;*** -;;;### (autoloads nil "rmailout" "mail/rmailout.el" (21989 31537 -;;;;;; 907825 721000)) +;;;### (autoloads nil "rmailout" "mail/rmailout.el" (22086 11929 +;;;;;; 942062 731000)) ;;; Generated autoloads from mail/rmailout.el (put 'rmail-output-file-alist 'risky-local-variable t) @@ -23469,8 +23485,8 @@ than appending to it. Deletes the message after writing if ;;;*** -;;;### (autoloads nil "rng-cmpct" "nxml/rng-cmpct.el" (21978 61237 -;;;;;; 666488 269000)) +;;;### (autoloads nil "rng-cmpct" "nxml/rng-cmpct.el" (22086 11930 +;;;;;; 26062 731000)) ;;; Generated autoloads from nxml/rng-cmpct.el (autoload 'rng-c-load-schema "rng-cmpct" "\ @@ -23481,8 +23497,8 @@ Return a pattern. ;;;*** -;;;### (autoloads nil "rng-nxml" "nxml/rng-nxml.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "rng-nxml" "nxml/rng-nxml.el" (22086 11930 +;;;;;; 30062 731000)) ;;; Generated autoloads from nxml/rng-nxml.el (autoload 'rng-nxml-mode-init "rng-nxml" "\ @@ -23494,8 +23510,8 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil. ;;;*** -;;;### (autoloads nil "rng-valid" "nxml/rng-valid.el" (21948 40114 -;;;;;; 322686 453000)) +;;;### (autoloads nil "rng-valid" "nxml/rng-valid.el" (22086 11930 +;;;;;; 30062 731000)) ;;; Generated autoloads from nxml/rng-valid.el (autoload 'rng-validate-mode "rng-valid" "\ @@ -23525,8 +23541,8 @@ to use for finding the schema. ;;;*** -;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (22086 11930 30062 +;;;;;; 731000)) ;;; Generated autoloads from nxml/rng-xsd.el (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) @@ -23553,8 +23569,8 @@ must be equal. ;;;*** -;;;### (autoloads nil "robin" "international/robin.el" (21953 58033 -;;;;;; 303058 929000)) +;;;### (autoloads nil "robin" "international/robin.el" (22086 11929 +;;;;;; 882062 731000)) ;;; Generated autoloads from international/robin.el (autoload 'robin-define-package "robin" "\ @@ -23586,7 +23602,7 @@ Start using robin package NAME, which is a string. ;;;*** -;;;### (autoloads nil "rot13" "rot13.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "rot13" "rot13.el" (22086 11930 266062 731000)) ;;; Generated autoloads from rot13.el (autoload 'rot13 "rot13" "\ @@ -23623,8 +23639,8 @@ Toggle the use of ROT13 encoding for the current window. ;;;*** -;;;### (autoloads nil "rst" "textmodes/rst.el" (22034 20008 325500 -;;;;;; 287000)) +;;;### (autoloads nil "rst" "textmodes/rst.el" (22086 11930 338062 +;;;;;; 731000)) ;;; Generated autoloads from textmodes/rst.el (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) @@ -23654,8 +23670,8 @@ for modes derived from Text mode, like Mail mode. ;;;*** -;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (22015 -;;;;;; 55603 817705 321000)) +;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (22089 +;;;;;; 51528 360929 316000)) ;;; Generated autoloads from progmodes/ruby-mode.el (push (purecopy '(ruby-mode 1 2)) package--builtin-versions) @@ -23666,14 +23682,14 @@ Major mode for editing Ruby code. \(fn)" t nil) -(add-to-list 'auto-mode-alist (cons (purecopy (concat "\\(?:\\." "rb\\|ru\\|rake\\|thor" "\\|jbuilder\\|rabl\\|gemspec\\|podspec" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Puppet\\|Berks" "\\|Vagrant\\|Guard\\|Pod\\)file" "\\)\\'")) 'ruby-mode)) +(add-to-list 'auto-mode-alist (cons (purecopy (concat "\\(?:\\.\\(?:" "rbw?\\|ru\\|rake\\|thor" "\\|jbuilder\\|rabl\\|gemspec\\|podspec" "\\)" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Puppet\\|Berks" "\\|Vagrant\\|Guard\\|Pod\\)file" "\\)\\'")) 'ruby-mode)) (dolist (name (list "ruby" "rbx" "jruby" "ruby1.9" "ruby1.8")) (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'ruby-mode))) ;;;*** -;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (22026 25907 643502 -;;;;;; 692000)) +;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (22086 11930 266062 +;;;;;; 731000)) ;;; Generated autoloads from ruler-mode.el (push (purecopy '(ruler-mode 1 6)) package--builtin-versions) @@ -23691,8 +23707,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (22011 58553 441858 -;;;;;; 469000)) +;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (22086 11929 686062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload 'rx-to-string "rx" "\ @@ -24003,15 +24019,15 @@ enclosed in `(and ...)'. ;;;*** -;;;### (autoloads nil "sasl-ntlm" "net/sasl-ntlm.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "sasl-ntlm" "net/sasl-ntlm.el" (22086 11930 +;;;;;; 6062 731000)) ;;; Generated autoloads from net/sasl-ntlm.el (push (purecopy '(sasl 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "savehist" "savehist.el" (21981 37426 703399 -;;;;;; 97000)) +;;;### (autoloads nil "savehist" "savehist.el" (22086 11930 266062 +;;;;;; 731000)) ;;; Generated autoloads from savehist.el (push (purecopy '(savehist 24)) package--builtin-versions) @@ -24043,8 +24059,8 @@ histories, which is probably undesirable. ;;;*** -;;;### (autoloads nil "saveplace" "saveplace.el" (21822 58098 20521 -;;;;;; 61000)) +;;;### (autoloads nil "saveplace" "saveplace.el" (22086 11930 266062 +;;;;;; 731000)) ;;; Generated autoloads from saveplace.el (defvar save-place-mode nil "\ @@ -24065,8 +24081,8 @@ where it was when you previously visited the same file. ;;;*** -;;;### (autoloads nil "scheme" "progmodes/scheme.el" (22011 58553 -;;;;;; 925858 469000)) +;;;### (autoloads nil "scheme" "progmodes/scheme.el" (22086 11930 +;;;;;; 222062 731000)) ;;; Generated autoloads from progmodes/scheme.el (autoload 'scheme-mode "scheme" "\ @@ -24105,8 +24121,8 @@ that variable's value is a string. ;;;*** -;;;### (autoloads nil "score-mode" "gnus/score-mode.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "score-mode" "gnus/score-mode.el" (22086 11929 +;;;;;; 850062 731000)) ;;; Generated autoloads from gnus/score-mode.el (autoload 'gnus-score-mode "score-mode" "\ @@ -24119,8 +24135,8 @@ This mode is an extended emacs-lisp mode. ;;;*** -;;;### (autoloads nil "scroll-all" "scroll-all.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "scroll-all" "scroll-all.el" (22089 51528 372929 +;;;;;; 316000)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ @@ -24145,8 +24161,8 @@ one window apply to all visible windows in the same frame. ;;;*** -;;;### (autoloads nil "scroll-lock" "scroll-lock.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "scroll-lock" "scroll-lock.el" (22086 11930 +;;;;;; 270062 731000)) ;;; Generated autoloads from scroll-lock.el (autoload 'scroll-lock-mode "scroll-lock" "\ @@ -24162,16 +24178,16 @@ vertically fixed relative to window boundaries during scrolling. ;;;*** -;;;### (autoloads nil "secrets" "net/secrets.el" (22011 58553 765858 -;;;;;; 469000)) +;;;### (autoloads nil "secrets" "net/secrets.el" (22086 11930 6062 +;;;;;; 731000)) ;;; Generated autoloads from net/secrets.el (when (featurep 'dbusbind) (autoload 'secrets-show-secrets "secrets" nil t)) ;;;*** -;;;### (autoloads nil "semantic" "cedet/semantic.el" (21948 40114 -;;;;;; 186686 453000)) +;;;### (autoloads nil "semantic" "cedet/semantic.el" (22092 27717 +;;;;;; 568268 464000)) ;;; Generated autoloads from cedet/semantic.el (push (purecopy '(semantic 2 2)) package--builtin-versions) @@ -24229,7 +24245,7 @@ Semantic mode. ;;;*** ;;;### (autoloads nil "semantic/bovine/grammar" "cedet/semantic/bovine/grammar.el" -;;;;;; (21670 32330 885624 725000)) +;;;;;; (22086 11929 554062 731000)) ;;; Generated autoloads from cedet/semantic/bovine/grammar.el (autoload 'bovine-grammar-mode "semantic/bovine/grammar" "\ @@ -24240,7 +24256,7 @@ Major mode for editing Bovine grammars. ;;;*** ;;;### (autoloads nil "semantic/wisent/grammar" "cedet/semantic/wisent/grammar.el" -;;;;;; (21670 32330 885624 725000)) +;;;;;; (22086 11929 578062 731000)) ;;; Generated autoloads from cedet/semantic/wisent/grammar.el (autoload 'wisent-grammar-mode "semantic/wisent/grammar" "\ @@ -24250,8 +24266,8 @@ Major mode for editing Wisent grammars. ;;;*** -;;;### (autoloads nil "sendmail" "mail/sendmail.el" (22026 25907 -;;;;;; 603502 692000)) +;;;### (autoloads nil "sendmail" "mail/sendmail.el" (22086 11929 +;;;;;; 946062 731000)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style 'default "\ @@ -24532,14 +24548,14 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** -;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (22084 30014 55762 -;;;;;; 3000)) +;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (22086 11929 686062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/seq.el (push (purecopy '(seq 2 3)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "server" "server.el" (22056 47028 775798 795000)) +;;;### (autoloads nil "server" "server.el" (22093 48588 588393 539000)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -24606,7 +24622,7 @@ only these files will be asked to be saved. ;;;*** -;;;### (autoloads nil "ses" "ses.el" (21990 52406 736500 385000)) +;;;### (autoloads nil "ses" "ses.el" (22092 27718 416268 464000)) ;;; Generated autoloads from ses.el (autoload 'ses-mode "ses" "\ @@ -24650,8 +24666,8 @@ formula: ;;;*** -;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (22011 -;;;;;; 58554 69858 469000)) +;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (22092 +;;;;;; 27718 512268 464000)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload 'sgml-mode "sgml-mode" "\ @@ -24716,8 +24732,8 @@ To work around that, do: ;;;*** -;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (22061 -;;;;;; 64938 532287 963000)) +;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (22092 +;;;;;; 27718 260268 464000)) ;;; Generated autoloads from progmodes/sh-script.el (push (purecopy '(sh-script 2 0 6)) package--builtin-versions) (put 'sh-shell 'safe-local-variable 'symbolp) @@ -24780,8 +24796,8 @@ with your script for an edit-interpret-debug cycle. ;;;*** -;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (22026 25907 -;;;;;; 583502 692000)) +;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (22086 11929 +;;;;;; 686062 731000)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload 'list-load-path-shadows "shadow" "\ @@ -24830,8 +24846,8 @@ function, `load-path-shadows-find'. ;;;*** -;;;### (autoloads nil "shadowfile" "shadowfile.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "shadowfile" "shadowfile.el" (22086 11930 278062 +;;;;;; 731000)) ;;; Generated autoloads from shadowfile.el (autoload 'shadow-define-cluster "shadowfile" "\ @@ -24869,7 +24885,7 @@ Set up file shadowing. ;;;*** -;;;### (autoloads nil "shell" "shell.el" (21896 48221 754207 816000)) +;;;### (autoloads nil "shell" "shell.el" (22086 11930 278062 731000)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ @@ -24917,7 +24933,7 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** -;;;### (autoloads nil "shr" "net/shr.el" (22085 50883 205731 271000)) +;;;### (autoloads nil "shr" "net/shr.el" (22087 9807 382279 951000)) ;;; Generated autoloads from net/shr.el (autoload 'shr-render-region "shr" "\ @@ -24934,8 +24950,8 @@ DOM should be a parse tree as generated by ;;;*** -;;;### (autoloads nil "sieve" "gnus/sieve.el" (21972 22452 270264 -;;;;;; 357000)) +;;;### (autoloads nil "sieve" "gnus/sieve.el" (22086 11929 850062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/sieve.el (autoload 'sieve-manage "sieve" "\ @@ -24960,8 +24976,8 @@ DOM should be a parse tree as generated by ;;;*** -;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el" (21931 31023 -;;;;;; 733164 572000)) +;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el" (22086 11929 +;;;;;; 850062 731000)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload 'sieve-mode "sieve-mode" "\ @@ -24976,8 +24992,8 @@ Turning on Sieve mode runs `sieve-mode-hook'. ;;;*** -;;;### (autoloads nil "simula" "progmodes/simula.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "simula" "progmodes/simula.el" (22092 27718 +;;;;;; 288268 464000)) ;;; Generated autoloads from progmodes/simula.el (autoload 'simula-mode "simula" "\ @@ -24998,22 +25014,22 @@ Variables controlling indentation style: with respect to the previous line of the statement. `simula-label-offset' -4711 Offset of SIMULA label lines relative to usual indentation. - `simula-if-indent' '(0 . 0) + `simula-if-indent' (0 . 0) Extra indentation of THEN and ELSE with respect to the starting IF. Value is a cons cell, the car is extra THEN indentation and the cdr extra ELSE indentation. IF after ELSE is indented as the starting IF. - `simula-inspect-indent' '(0 . 0) + `simula-inspect-indent' (0 . 0) Extra indentation of WHEN and OTHERWISE with respect to the corresponding INSPECT. Value is a cons cell, the car is extra WHEN indentation and the cdr extra OTHERWISE indentation. `simula-electric-indent' nil If this variable is non-nil, `simula-indent-line' will check the previous line to see if it has to be reindented. - `simula-abbrev-keyword' 'upcase + `simula-abbrev-keyword' `upcase' Determine how SIMULA keywords will be expanded. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. - `simula-abbrev-stdproc' 'abbrev-table + `simula-abbrev-stdproc' `abbrev-table' Determine how standard SIMULA procedure and class names will be expanded. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. @@ -25025,8 +25041,8 @@ with no arguments, if that value is non-nil. ;;;*** -;;;### (autoloads nil "skeleton" "skeleton.el" (22026 25907 643502 -;;;;;; 692000)) +;;;### (autoloads nil "skeleton" "skeleton.el" (22086 11930 290062 +;;;;;; 731000)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter-function 'identity "\ @@ -25145,8 +25161,8 @@ twice for the others. ;;;*** -;;;### (autoloads nil "smerge-mode" "vc/smerge-mode.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "smerge-mode" "vc/smerge-mode.el" (22092 27718 +;;;;;; 548268 464000)) ;;; Generated autoloads from vc/smerge-mode.el (autoload 'smerge-ediff "smerge-mode" "\ @@ -25173,8 +25189,8 @@ If no conflict maker is found, turn off `smerge-mode'. ;;;*** -;;;### (autoloads nil "smiley" "gnus/smiley.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "smiley" "gnus/smiley.el" (22086 11929 850062 +;;;;;; 731000)) ;;; Generated autoloads from gnus/smiley.el (autoload 'smiley-region "smiley" "\ @@ -25191,8 +25207,8 @@ interactively. If there's no argument, do it at the current buffer. ;;;*** -;;;### (autoloads nil "smtpmail" "mail/smtpmail.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "smtpmail" "mail/smtpmail.el" (22086 11929 +;;;;;; 950062 731000)) ;;; Generated autoloads from mail/smtpmail.el (autoload 'smtpmail-send-it "smtpmail" "\ @@ -25207,8 +25223,8 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. ;;;*** -;;;### (autoloads nil "snake" "play/snake.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "snake" "play/snake.el" (22086 11930 130062 +;;;;;; 731000)) ;;; Generated autoloads from play/snake.el (autoload 'snake "snake" "\ @@ -25231,8 +25247,8 @@ Snake mode keybindings: ;;;*** -;;;### (autoloads nil "snmp-mode" "net/snmp-mode.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "snmp-mode" "net/snmp-mode.el" (22086 11930 +;;;;;; 10062 731000)) ;;; Generated autoloads from net/snmp-mode.el (autoload 'snmp-mode "snmp-mode" "\ @@ -25261,15 +25277,15 @@ then `snmpv2-mode-hook'. ;;;*** -;;;### (autoloads nil "soap-client" "net/soap-client.el" (22084 30014 -;;;;;; 59762 3000)) +;;;### (autoloads nil "soap-client" "net/soap-client.el" (22092 27717 +;;;;;; 988268 464000)) ;;; Generated autoloads from net/soap-client.el (push (purecopy '(soap-client 3 0 2)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "solar" "calendar/solar.el" (21849 48176 337264 -;;;;;; 443000)) +;;;### (autoloads nil "solar" "calendar/solar.el" (22086 11929 534062 +;;;;;; 731000)) ;;; Generated autoloads from calendar/solar.el (autoload 'sunrise-sunset "solar" "\ @@ -25284,8 +25300,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "solitaire" "play/solitaire.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "solitaire" "play/solitaire.el" (22086 11930 +;;;;;; 130062 731000)) ;;; Generated autoloads from play/solitaire.el (autoload 'solitaire "solitaire" "\ @@ -25360,7 +25376,7 @@ Pick your favorite shortcuts: ;;;*** -;;;### (autoloads nil "sort" "sort.el" (22011 58553 993858 469000)) +;;;### (autoloads nil "sort" "sort.el" (22086 11930 290062 731000)) ;;; Generated autoloads from sort.el (put 'sort-fold-case 'safe-local-variable 'booleanp) @@ -25535,7 +25551,7 @@ is non-nil, it also prints a message describing the number of deletions. ;;;*** -;;;### (autoloads nil "spam" "gnus/spam.el" (21981 37426 607399 97000)) +;;;### (autoloads nil "spam" "gnus/spam.el" (22086 11929 854062 731000)) ;;; Generated autoloads from gnus/spam.el (autoload 'spam-initialize "spam" "\ @@ -25549,8 +25565,8 @@ installed through `spam-necessary-extra-headers'. ;;;*** -;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (22011 -;;;;;; 58553 601858 469000)) +;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (22086 +;;;;;; 11929 850062 731000)) ;;; Generated autoloads from gnus/spam-report.el (autoload 'spam-report-process-queue "spam-report" "\ @@ -25592,8 +25608,8 @@ Spam reports will be queued with the method used when ;;;*** -;;;### (autoloads nil "speedbar" "speedbar.el" (22011 58553 993858 -;;;;;; 469000)) +;;;### (autoloads nil "speedbar" "speedbar.el" (22092 27718 452268 +;;;;;; 464000)) ;;; Generated autoloads from speedbar.el (defalias 'speedbar 'speedbar-frame-mode) @@ -25617,8 +25633,8 @@ selected. If the speedbar frame is active, then select the attached frame. ;;;*** -;;;### (autoloads nil "spook" "play/spook.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "spook" "play/spook.el" (22086 11930 130062 +;;;;;; 731000)) ;;; Generated autoloads from play/spook.el (autoload 'spook "spook" "\ @@ -25633,8 +25649,8 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;*** -;;;### (autoloads nil "sql" "progmodes/sql.el" (22011 58553 929858 -;;;;;; 469000)) +;;;### (autoloads nil "sql" "progmodes/sql.el" (22092 27718 320268 +;;;;;; 464000)) ;;; Generated autoloads from progmodes/sql.el (push (purecopy '(sql 3 5)) package--builtin-versions) @@ -25992,7 +26008,7 @@ your might try undecided-dos as a coding system. If this doesn't help, Try to set `comint-output-filter-functions' like this: \(setq comint-output-filter-functions (append comint-output-filter-functions - '(comint-strip-ctrl-m))) + \\='(comint-strip-ctrl-m))) \(Type \\[describe-mode] in the SQL buffer for a list of commands.) @@ -26100,15 +26116,15 @@ Run vsql as an inferior process. ;;;*** -;;;### (autoloads nil "srecode" "cedet/srecode.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "srecode" "cedet/srecode.el" (22086 11929 578062 +;;;;;; 731000)) ;;; Generated autoloads from cedet/srecode.el (push (purecopy '(srecode 1 2)) package--builtin-versions) ;;;*** ;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el" -;;;;;; (21998 46516 910024 649000)) +;;;;;; (22086 11929 582062 731000)) ;;; Generated autoloads from cedet/srecode/srt-mode.el (autoload 'srecode-template-mode "srecode/srt-mode" "\ @@ -26120,8 +26136,8 @@ Major-mode for writing SRecode macros. ;;;*** -;;;### (autoloads nil "starttls" "gnus/starttls.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "starttls" "gnus/starttls.el" (22086 11929 +;;;;;; 854062 731000)) ;;; Generated autoloads from gnus/starttls.el (autoload 'starttls-open-stream "starttls" "\ @@ -26144,8 +26160,8 @@ GnuTLS requires a port number. ;;;*** -;;;### (autoloads nil "strokes" "strokes.el" (21981 37426 735399 -;;;;;; 97000)) +;;;### (autoloads nil "strokes" "strokes.el" (22086 11930 294062 +;;;;;; 731000)) ;;; Generated autoloads from strokes.el (autoload 'strokes-global-set-stroke "strokes" "\ @@ -26258,8 +26274,8 @@ Read a complex stroke and insert its glyph into the current buffer. ;;;*** -;;;### (autoloads nil "studly" "play/studly.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "studly" "play/studly.el" (22086 11930 130062 +;;;;;; 731000)) ;;; Generated autoloads from play/studly.el (autoload 'studlify-region "studly" "\ @@ -26279,8 +26295,8 @@ Studlify-case the current buffer. ;;;*** -;;;### (autoloads nil "subword" "progmodes/subword.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "subword" "progmodes/subword.el" (22086 11930 +;;;;;; 226062 731000)) ;;; Generated autoloads from progmodes/subword.el (define-obsolete-function-alias 'capitalized-words-mode 'subword-mode "25.1") @@ -26372,8 +26388,8 @@ See `superword-mode' for more information on Superword mode. ;;;*** -;;;### (autoloads nil "supercite" "mail/supercite.el" (21852 24381 -;;;;;; 697240 10000)) +;;;### (autoloads nil "supercite" "mail/supercite.el" (22086 11929 +;;;;;; 950062 731000)) ;;; Generated autoloads from mail/supercite.el (autoload 'sc-cite-original "supercite" "\ @@ -26405,8 +26421,8 @@ and `sc-post-hook' is run after the guts of this function. ;;;*** -;;;### (autoloads nil "t-mouse" "t-mouse.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "t-mouse" "t-mouse.el" (22086 11930 298062 +;;;;;; 731000)) ;;; Generated autoloads from t-mouse.el (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") @@ -26434,7 +26450,7 @@ It relies on the `gpm' daemon being activated. ;;;*** -;;;### (autoloads nil "tabify" "tabify.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "tabify" "tabify.el" (22086 11930 298062 731000)) ;;; Generated autoloads from tabify.el (autoload 'untabify "tabify" "\ @@ -26463,8 +26479,8 @@ The variable `tab-width' controls the spacing of tab stops. ;;;*** -;;;### (autoloads nil "table" "textmodes/table.el" (21998 46517 298024 -;;;;;; 649000)) +;;;### (autoloads nil "table" "textmodes/table.el" (22092 27718 520268 +;;;;;; 464000)) ;;; Generated autoloads from textmodes/table.el (autoload 'table-insert "table" "\ @@ -26834,7 +26850,7 @@ WHERE is provided the cell and table at that location is reported. (autoload 'table-generate-source "table" "\ Generate source of the current table in the specified language. LANGUAGE is a symbol that specifies the language to describe the -structure of the table. It must be either 'html, 'latex or 'cals. +structure of the table. It must be either `html', `latex' or `cals'. The resulted source text is inserted into DEST-BUFFER and the buffer object is returned. When DEST-BUFFER is omitted or nil the default buffer specified in `table-dest-buffer-name' is used. In this case @@ -26923,7 +26939,7 @@ delimiter regular expressions. This parsing determines the number of columns and rows of the table automatically. If COL-DELIM-REGEXP and ROW-DELIM-REGEXP are omitted the result table has only one cell and the entire region contents is placed in that cell. Optional JUSTIFY -is one of 'left, 'center or 'right, which specifies the cell +is one of `left', `center' or `right', which specifies the cell justification. Optional MIN-CELL-WIDTH specifies the minimum cell width. Optional COLUMNS specify the number of columns when ROW-DELIM-REGEXP is not specified. @@ -27035,7 +27051,7 @@ converts a table into plain text without frames. It is a companion to ;;;*** -;;;### (autoloads nil "talk" "talk.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "talk" "talk.el" (22086 11930 298062 731000)) ;;; Generated autoloads from talk.el (autoload 'talk-connect "talk" "\ @@ -27050,8 +27066,8 @@ Connect to the Emacs talk group from the current X display or tty frame. ;;;*** -;;;### (autoloads nil "tar-mode" "tar-mode.el" (21704 50495 455324 -;;;;;; 752000)) +;;;### (autoloads nil "tar-mode" "tar-mode.el" (22086 11930 298062 +;;;;;; 731000)) ;;; Generated autoloads from tar-mode.el (autoload 'tar-mode "tar-mode" "\ @@ -27074,8 +27090,8 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. ;;;*** -;;;### (autoloads nil "tcl" "progmodes/tcl.el" (21842 42581 539414 -;;;;;; 570000)) +;;;### (autoloads nil "tcl" "progmodes/tcl.el" (22086 11930 230062 +;;;;;; 731000)) ;;; Generated autoloads from progmodes/tcl.el (autoload 'tcl-mode "tcl" "\ @@ -27123,8 +27139,8 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. ;;;*** -;;;### (autoloads nil "telnet" "net/telnet.el" (21852 24381 767239 -;;;;;; 782000)) +;;;### (autoloads nil "telnet" "net/telnet.el" (22086 11930 14062 +;;;;;; 731000)) ;;; Generated autoloads from net/telnet.el (autoload 'telnet "telnet" "\ @@ -27149,7 +27165,7 @@ Normally input is edited in Emacs and sent a line at a time. ;;;*** -;;;### (autoloads nil "term" "term.el" (22042 14122 209169 136000)) +;;;### (autoloads nil "term" "term.el" (22102 63557 312509 103000)) ;;; Generated autoloads from term.el (autoload 'make-term "term" "\ @@ -27191,8 +27207,8 @@ use in that buffer. ;;;*** -;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21998 -;;;;;; 46517 22024 649000)) +;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (22086 +;;;;;; 11929 686062 731000)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload 'testcover-this-defun "testcover" "\ @@ -27202,8 +27218,8 @@ Start coverage on function under point. ;;;*** -;;;### (autoloads nil "tetris" "play/tetris.el" (22000 1842 148539 -;;;;;; 693000)) +;;;### (autoloads nil "tetris" "play/tetris.el" (22086 11930 130062 +;;;;;; 731000)) ;;; Generated autoloads from play/tetris.el (push (purecopy '(tetris 2 1)) package--builtin-versions) @@ -27228,8 +27244,8 @@ tetris-mode keybindings: ;;;*** -;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (22076 35900 -;;;;;; 118633 595000)) +;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (22092 27718 +;;;;;; 524268 464000)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -27331,7 +27347,7 @@ If two printers are not enough of a choice, you can set the variable for example, (setq tex-alt-dvi-print-command - '(format \"lpr -P%s\" (read-string \"Use printer: \"))) + \\='(format \"lpr -P%s\" (read-string \"Use printer: \"))) would tell \\[tex-print] with a prefix argument to ask you which printer to use.") @@ -27530,8 +27546,8 @@ Major mode to edit DocTeX files. ;;;*** -;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (22011 58554 -;;;;;; 81858 469000)) +;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (22086 11930 +;;;;;; 350062 731000)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload 'texinfo-format-buffer "texinfmt" "\ @@ -27570,8 +27586,8 @@ if large. You can use `Info-split' to do this manually. ;;;*** -;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (22026 25907 -;;;;;; 667502 692000)) +;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (22086 11930 +;;;;;; 350062 731000)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote (purecopy "``") "\ @@ -27655,8 +27671,8 @@ value of `texinfo-mode-hook'. ;;;*** -;;;### (autoloads nil "thai-util" "language/thai-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "thai-util" "language/thai-util.el" (22086 +;;;;;; 11929 902062 731000)) ;;; Generated autoloads from language/thai-util.el (autoload 'thai-compose-region "thai-util" "\ @@ -27683,8 +27699,8 @@ Compose Thai characters in the current buffer. ;;;*** -;;;### (autoloads nil "thingatpt" "thingatpt.el" (22011 58554 85858 -;;;;;; 469000)) +;;;### (autoloads nil "thingatpt" "thingatpt.el" (22086 11930 354062 +;;;;;; 731000)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ @@ -27748,7 +27764,7 @@ Return the Lisp list at point, or nil if none is found. ;;;*** -;;;### (autoloads nil "thumbs" "thumbs.el" (21993 28596 414597 473000)) +;;;### (autoloads nil "thumbs" "thumbs.el" (22086 11930 354062 731000)) ;;; Generated autoloads from thumbs.el (autoload 'thumbs-find-thumb "thumbs" "\ @@ -27782,15 +27798,15 @@ In dired, call the setroot program on the image at point. ;;;*** -;;;### (autoloads nil "thunk" "emacs-lisp/thunk.el" (22064 41137 -;;;;;; 961468 395000)) +;;;### (autoloads nil "thunk" "emacs-lisp/thunk.el" (22086 11929 +;;;;;; 690062 731000)) ;;; Generated autoloads from emacs-lisp/thunk.el (push (purecopy '(thunk 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "tibet-util" "language/tibet-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "tibet-util" "language/tibet-util.el" (22086 +;;;;;; 11929 906062 731000)) ;;; Generated autoloads from language/tibet-util.el (autoload 'tibetan-char-p "tibet-util" "\ @@ -27863,8 +27879,8 @@ See also docstring of the function tibetan-compose-region. ;;;*** -;;;### (autoloads nil "tildify" "textmodes/tildify.el" (22026 25907 -;;;;;; 667502 692000)) +;;;### (autoloads nil "tildify" "textmodes/tildify.el" (22086 11930 +;;;;;; 354062 731000)) ;;; Generated autoloads from textmodes/tildify.el (push (purecopy '(tildify 4 6 1)) package--builtin-versions) @@ -27930,7 +27946,7 @@ variable will be set to the representation. ;;;*** -;;;### (autoloads nil "time" "time.el" (22026 25907 667502 692000)) +;;;### (autoloads nil "time" "time.el" (22086 11930 354062 731000)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -27992,8 +28008,8 @@ Return a string giving the duration of the Emacs initialization. ;;;*** -;;;### (autoloads nil "time-date" "calendar/time-date.el" (22000 -;;;;;; 55581 510930 477000)) +;;;### (autoloads nil "time-date" "calendar/time-date.el" (22086 +;;;;;; 11929 538062 731000)) ;;; Generated autoloads from calendar/time-date.el (autoload 'date-to-time "time-date" "\ @@ -28096,8 +28112,8 @@ Convert the time interval in seconds to a short string. ;;;*** -;;;### (autoloads nil "time-stamp" "time-stamp.el" (21980 16568 89544 -;;;;;; 893000)) +;;;### (autoloads nil "time-stamp" "time-stamp.el" (22092 27718 528268 +;;;;;; 464000)) ;;; 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) @@ -28137,8 +28153,8 @@ With ARG, turn time stamping on if and only if arg is positive. ;;;*** -;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21998 -;;;;;; 46516 882024 649000)) +;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (22086 +;;;;;; 11929 538062 731000)) ;;; Generated autoloads from calendar/timeclock.el (push (purecopy '(timeclock 2 6 1)) package--builtin-versions) @@ -28248,7 +28264,7 @@ relative only to the time worked today, and not to past time. ;;;*** ;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el" -;;;;;; (22011 58553 673858 469000)) +;;;;;; (22086 11929 886062 731000)) ;;; Generated autoloads from international/titdic-cnv.el (autoload 'titdic-convert "titdic-cnv" "\ @@ -28270,7 +28286,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** -;;;### (autoloads nil "tmm" "tmm.el" (21907 48688 873360 195000)) +;;;### (autoloads nil "tmm" "tmm.el" (22086 11930 354062 731000)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) @@ -28312,8 +28328,8 @@ Its value should be an event that has a binding in MENU. ;;;*** -;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (22015 -;;;;;; 55603 665705 321000)) +;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (22086 +;;;;;; 11929 538062 731000)) ;;; Generated autoloads from calendar/todo-mode.el (autoload 'todo-show "todo-mode" "\ @@ -28380,8 +28396,8 @@ Mode for displaying and reprioritizing top priority Todo. ;;;*** -;;;### (autoloads nil "tool-bar" "tool-bar.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "tool-bar" "tool-bar.el" (22086 11930 358062 +;;;;;; 731000)) ;;; Generated autoloads from tool-bar.el (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ @@ -28451,8 +28467,8 @@ holds a keymap. ;;;*** -;;;### (autoloads nil "tq" "emacs-lisp/tq.el" (21670 32330 885624 -;;;;;; 725000)) +;;;### (autoloads nil "tq" "emacs-lisp/tq.el" (22086 11929 690062 +;;;;;; 731000)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload 'tq-create "tq" "\ @@ -28465,8 +28481,8 @@ to a tcp server on another machine. ;;;*** -;;;### (autoloads nil "trace" "emacs-lisp/trace.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "trace" "emacs-lisp/trace.el" (22086 11929 +;;;;;; 690062 731000)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer "*trace-output*" "\ @@ -28511,7 +28527,7 @@ the output buffer or changing the window configuration. ;;;*** -;;;### (autoloads nil "tramp" "net/tramp.el" (22083 9150 180915 960000)) +;;;### (autoloads nil "tramp" "net/tramp.el" (22092 27718 8268 464000)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -28525,8 +28541,8 @@ Tramp filename syntax to be used. It can have the following values: - 'ftp -- Ange-FTP respective EFS like syntax (GNU Emacs default) - 'sep -- Syntax as defined for XEmacs.") + `ftp' -- Ange-FTP respective EFS like syntax (GNU Emacs default) + `sep' -- Syntax as defined for XEmacs.") (custom-autoload 'tramp-syntax "tramp" t) @@ -28626,8 +28642,8 @@ Discard Tramp from loading remote files. ;;;*** -;;;### (autoloads nil "tramp-ftp" "net/tramp-ftp.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "tramp-ftp" "net/tramp-ftp.el" (22086 11930 +;;;;;; 14062 731000)) ;;; Generated autoloads from net/tramp-ftp.el (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ @@ -28637,8 +28653,8 @@ Discard Tramp from loading remote files. ;;;*** -;;;### (autoloads nil "tutorial" "tutorial.el" (22011 58554 85858 -;;;;;; 469000)) +;;;### (autoloads nil "tutorial" "tutorial.el" (22086 11930 358062 +;;;;;; 731000)) ;;; Generated autoloads from tutorial.el (autoload 'help-with-tutorial "tutorial" "\ @@ -28662,8 +28678,8 @@ resumed later. ;;;*** -;;;### (autoloads nil "tv-util" "language/tv-util.el" (21855 577 -;;;;;; 57945 485000)) +;;;### (autoloads nil "tv-util" "language/tv-util.el" (22086 11929 +;;;;;; 906062 731000)) ;;; Generated autoloads from language/tv-util.el (autoload 'tai-viet-composition-function "tv-util" "\ @@ -28673,8 +28689,8 @@ resumed later. ;;;*** -;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21998 -;;;;;; 46517 298024 649000)) +;;;### (autoloads nil "two-column" "textmodes/two-column.el" (22086 +;;;;;; 11930 354062 731000)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -28721,8 +28737,8 @@ First column's text sSs Second column's text ;;;*** -;;;### (autoloads nil "type-break" "type-break.el" (22011 58554 85858 -;;;;;; 469000)) +;;;### (autoloads nil "type-break" "type-break.el" (22086 11930 358062 +;;;;;; 731000)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -28854,7 +28870,7 @@ FRAC should be the inverse of the fractional value; for example, a value of ;;;*** -;;;### (autoloads nil "uce" "mail/uce.el" (22026 25907 603502 692000)) +;;;### (autoloads nil "uce" "mail/uce.el" (22086 11929 950062 731000)) ;;; Generated autoloads from mail/uce.el (autoload 'uce-reply-to-uce "uce" "\ @@ -28868,7 +28884,7 @@ You might need to set `uce-mail-reader' before using this. ;;;*** ;;;### (autoloads nil "ucs-normalize" "international/ucs-normalize.el" -;;;;;; (21670 32331 385639 720000)) +;;;;;; (22086 11929 886062 731000)) ;;; Generated autoloads from international/ucs-normalize.el (autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ @@ -28933,8 +28949,8 @@ Normalize the string STR by the Unicode NFC and Mac OS's HFS Plus. ;;;*** -;;;### (autoloads nil "underline" "textmodes/underline.el" (21670 -;;;;;; 32331 885635 586000)) +;;;### (autoloads nil "underline" "textmodes/underline.el" (22086 +;;;;;; 11930 354062 731000)) ;;; Generated autoloads from textmodes/underline.el (autoload 'underline-region "underline" "\ @@ -28954,8 +28970,8 @@ which specify the range to operate on. ;;;*** -;;;### (autoloads nil "unrmail" "mail/unrmail.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "unrmail" "mail/unrmail.el" (22086 11929 950062 +;;;;;; 731000)) ;;; Generated autoloads from mail/unrmail.el (autoload 'batch-unrmail "unrmail" "\ @@ -28975,8 +28991,8 @@ The variable `unrmail-mbox-format' controls which mbox format to use. ;;;*** -;;;### (autoloads nil "unsafep" "emacs-lisp/unsafep.el" (21670 32330 -;;;;;; 885624 725000)) +;;;### (autoloads nil "unsafep" "emacs-lisp/unsafep.el" (22086 11929 +;;;;;; 690062 731000)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload 'unsafep "unsafep" "\ @@ -28988,7 +29004,7 @@ UNSAFEP-VARS is a list of symbols with local bindings. ;;;*** -;;;### (autoloads nil "url" "url/url.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "url" "url/url.el" (22086 11930 366062 731000)) ;;; Generated autoloads from url/url.el (autoload 'url-retrieve "url" "\ @@ -29035,8 +29051,8 @@ no further processing). URL is either a string or a parsed URL. ;;;*** -;;;### (autoloads nil "url-auth" "url/url-auth.el" (21989 31537 943825 -;;;;;; 721000)) +;;;### (autoloads nil "url-auth" "url/url-auth.el" (22092 27718 528268 +;;;;;; 464000)) ;;; Generated autoloads from url/url-auth.el (autoload 'url-get-authentication "url-auth" "\ @@ -29077,8 +29093,8 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** -;;;### (autoloads nil "url-cache" "url/url-cache.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "url-cache" "url/url-cache.el" (22086 11930 +;;;;;; 362062 731000)) ;;; Generated autoloads from url/url-cache.el (autoload 'url-store-in-cache "url-cache" "\ @@ -29099,8 +29115,8 @@ Extract FNAM from the local disk cache. ;;;*** -;;;### (autoloads nil "url-cid" "url/url-cid.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-cid" "url/url-cid.el" (22086 11930 362062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-cid.el (autoload 'url-cid "url-cid" "\ @@ -29110,8 +29126,8 @@ Extract FNAM from the local disk cache. ;;;*** -;;;### (autoloads nil "url-dav" "url/url-dav.el" (22011 58554 85858 -;;;;;; 469000)) +;;;### (autoloads nil "url-dav" "url/url-dav.el" (22086 11930 362062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-dav.el (autoload 'url-dav-supported-p "url-dav" "\ @@ -29145,8 +29161,8 @@ added to this list, so most requests can just pass in nil. ;;;*** -;;;### (autoloads nil "url-file" "url/url-file.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-file" "url/url-file.el" (22086 11930 362062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-file.el (autoload 'url-file "url-file" "\ @@ -29156,8 +29172,8 @@ Handle file: and ftp: URLs. ;;;*** -;;;### (autoloads nil "url-gw" "url/url-gw.el" (22011 58554 85858 -;;;;;; 469000)) +;;;### (autoloads nil "url-gw" "url/url-gw.el" (22086 11930 362062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-gw.el (autoload 'url-gateway-nslookup-host "url-gw" "\ @@ -29179,7 +29195,7 @@ overriding the value of `url-gateway-method'. ;;;*** ;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (22089 -;;;;;; 47939 367694 315000)) +;;;;;; 51528 372929 316000)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ @@ -29233,8 +29249,8 @@ accessible. ;;;*** -;;;### (autoloads nil "url-http" "url/url-http.el" (22018 31799 119263 -;;;;;; 120000)) +;;;### (autoloads nil "url-http" "url/url-http.el" (22092 27718 532268 +;;;;;; 464000)) ;;; Generated autoloads from url/url-http.el (autoload 'url-default-expander "url-expand") @@ -29246,8 +29262,8 @@ accessible. ;;;*** -;;;### (autoloads nil "url-irc" "url/url-irc.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-irc" "url/url-irc.el" (22086 11930 366062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-irc.el (autoload 'url-irc "url-irc" "\ @@ -29257,8 +29273,8 @@ accessible. ;;;*** -;;;### (autoloads nil "url-ldap" "url/url-ldap.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-ldap" "url/url-ldap.el" (22086 11930 366062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-ldap.el (autoload 'url-ldap "url-ldap" "\ @@ -29271,8 +29287,8 @@ URL can be a URL string, or a URL vector of the type returned by ;;;*** -;;;### (autoloads nil "url-mailto" "url/url-mailto.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "url-mailto" "url/url-mailto.el" (22086 11930 +;;;;;; 366062 731000)) ;;; Generated autoloads from url/url-mailto.el (autoload 'url-mail "url-mailto" "\ @@ -29287,8 +29303,8 @@ Handle the mailto: URL syntax. ;;;*** -;;;### (autoloads nil "url-misc" "url/url-misc.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-misc" "url/url-misc.el" (22086 11930 366062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-misc.el (autoload 'url-man "url-misc" "\ @@ -29319,8 +29335,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-news" "url/url-news.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-news" "url/url-news.el" (22086 11930 366062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-news.el (autoload 'url-news "url-news" "\ @@ -29335,8 +29351,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-ns" "url/url-ns.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "url-ns" "url/url-ns.el" (22086 11930 366062 +;;;;;; 731000)) ;;; Generated autoloads from url/url-ns.el (autoload 'isPlainHostName "url-ns" "\ @@ -29376,8 +29392,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-parse" "url/url-parse.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "url-parse" "url/url-parse.el" (22086 11930 +;;;;;; 366062 731000)) ;;; Generated autoloads from url/url-parse.el (autoload 'url-recreate-url "url-parse" "\ @@ -29428,8 +29444,8 @@ parses to ;;;*** -;;;### (autoloads nil "url-privacy" "url/url-privacy.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "url-privacy" "url/url-privacy.el" (22086 11930 +;;;;;; 366062 731000)) ;;; Generated autoloads from url/url-privacy.el (autoload 'url-setup-privacy-info "url-privacy" "\ @@ -29439,8 +29455,8 @@ Setup variables that expose info about you and your system. ;;;*** -;;;### (autoloads nil "url-queue" "url/url-queue.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "url-queue" "url/url-queue.el" (22086 11930 +;;;;;; 366062 731000)) ;;; Generated autoloads from url/url-queue.el (autoload 'url-queue-retrieve "url-queue" "\ @@ -29454,8 +29470,8 @@ The variable `url-queue-timeout' sets a timeout. ;;;*** -;;;### (autoloads nil "url-tramp" "url/url-tramp.el" (21670 32331 -;;;;;; 885635 586000)) +;;;### (autoloads nil "url-tramp" "url/url-tramp.el" (22086 11930 +;;;;;; 366062 731000)) ;;; Generated autoloads from url/url-tramp.el (defvar url-tramp-protocols '("ftp" "ssh" "scp" "rsync" "telnet") "\ @@ -29473,8 +29489,8 @@ would have been passed to OPERATION. ;;;*** -;;;### (autoloads nil "url-util" "url/url-util.el" (21993 28596 418597 -;;;;;; 473000)) +;;;### (autoloads nil "url-util" "url/url-util.el" (22092 27718 532268 +;;;;;; 464000)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -29510,7 +29526,7 @@ conversion. Replaces these characters as follows: \(fn STRING)" nil nil) (autoload 'url-normalize-url "url-util" "\ -Return a 'normalized' version of URL. +Return a \"normalized\" version of URL. Strips out default port numbers, etc. \(fn URL)" nil nil) @@ -29522,7 +29538,7 @@ Will not do anything if `url-show-status' is nil. \(fn &rest ARGS)" nil nil) (autoload 'url-get-normalized-date "url-util" "\ -Return a 'real' date string that most HTTP servers can understand. +Return a date string that most HTTP servers can understand. \(fn &optional SPECIFIED-TIME)" nil nil) @@ -29642,14 +29658,14 @@ This uses `url-current-object', set locally to the buffer. ;;;*** -;;;### (autoloads nil "userlock" "userlock.el" (21976 19510 152430 -;;;;;; 241000)) +;;;### (autoloads nil "userlock" "userlock.el" (22092 27718 532268 +;;;;;; 464000)) ;;; Generated autoloads from userlock.el (autoload 'ask-user-about-lock "userlock" "\ Ask user what to do when he wants to edit FILE but it is locked by OPPONENT. This function has a choice of three things to do: - do (signal 'file-locked (list FILE OPPONENT)) + do (signal \\='file-locked (list FILE OPPONENT)) to refrain from editing the file return t (grab the lock on the file) return nil (edit the file even though it is locked). @@ -29661,7 +29677,7 @@ in any way you like. (autoload 'ask-user-about-supersession-threat "userlock" "\ Ask a user who is about to modify an obsolete buffer what to do. This function has two choices: it can return, in which case the modification -of the buffer will proceed, or it can (signal 'file-supersession (file)), +of the buffer will proceed, or it can (signal \\='file-supersession (file)), in which case the proposed buffer modification will not be made. You can rewrite this to use any criterion you like to choose which one to do. @@ -29671,8 +29687,8 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf-7" "international/utf-7.el" (21670 32331 -;;;;;; 385639 720000)) +;;;### (autoloads nil "utf-7" "international/utf-7.el" (22086 11929 +;;;;;; 886062 731000)) ;;; Generated autoloads from international/utf-7.el (autoload 'utf-7-post-read-conversion "utf-7" "\ @@ -29697,7 +29713,7 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf7" "gnus/utf7.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "utf7" "gnus/utf7.el" (22086 11929 854062 731000)) ;;; Generated autoloads from gnus/utf7.el (autoload 'utf7-encode "utf7" "\ @@ -29707,8 +29723,8 @@ Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil. ;;;*** -;;;### (autoloads nil "uudecode" "mail/uudecode.el" (21855 577 67944 -;;;;;; 554000)) +;;;### (autoloads nil "uudecode" "mail/uudecode.el" (22086 11929 +;;;;;; 954062 731000)) ;;; Generated autoloads from mail/uudecode.el (autoload 'uudecode-decode-region-external "uudecode" "\ @@ -29732,7 +29748,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;*** -;;;### (autoloads nil "vc" "vc/vc.el" (22083 9150 184915 960000)) +;;;### (autoloads nil "vc" "vc/vc.el" (22093 48588 592393 539000)) ;;; Generated autoloads from vc/vc.el (defvar vc-checkout-hook nil "\ @@ -30044,8 +30060,8 @@ Return the branch part of a revision number REV. ;;;*** -;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (22011 58554 -;;;;;; 93858 469000)) +;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (22086 11930 +;;;;;; 382062 731000)) ;;; Generated autoloads from vc/vc-annotate.el (autoload 'vc-annotate "vc-annotate" "\ @@ -30084,8 +30100,8 @@ should be applied to the background or to the foreground. ;;;*** -;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (22081 53819 655137 -;;;;;; 351000)) +;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (22086 11930 382062 +;;;;;; 731000)) ;;; Generated autoloads from vc/vc-bzr.el (defconst vc-bzr-admin-dirname ".bzr" "\ @@ -30101,8 +30117,8 @@ Name of the format file in a .bzr directory.") ;;;*** -;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (22064 41138 17468 -;;;;;; 395000)) +;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (22099 26170 434017 +;;;;;; 16000)) ;;; Generated autoloads from vc/vc-cvs.el (defun vc-cvs-registered (f) "Return non-nil if file F is registered with CVS." @@ -30113,8 +30129,8 @@ Name of the format file in a .bzr directory.") ;;;*** -;;;### (autoloads nil "vc-dir" "vc/vc-dir.el" (22085 50883 245731 -;;;;;; 271000)) +;;;### (autoloads nil "vc-dir" "vc/vc-dir.el" (22086 11930 386062 +;;;;;; 731000)) ;;; Generated autoloads from vc/vc-dir.el (autoload 'vc-dir "vc-dir" "\ @@ -30138,8 +30154,8 @@ These are the commands available for use in the file status buffer: ;;;*** -;;;### (autoloads nil "vc-dispatcher" "vc/vc-dispatcher.el" (21862 -;;;;;; 60209 928657 362000)) +;;;### (autoloads nil "vc-dispatcher" "vc/vc-dispatcher.el" (22104 +;;;;;; 18893 237441 487000)) ;;; Generated autoloads from vc/vc-dispatcher.el (autoload 'vc-do-command "vc-dispatcher" "\ @@ -30162,8 +30178,8 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-git" "vc/vc-git.el" (22081 53819 659137 -;;;;;; 351000)) +;;;### (autoloads nil "vc-git" "vc/vc-git.el" (22097 45637 495432 +;;;;;; 455000)) ;;; Generated autoloads from vc/vc-git.el (defun vc-git-registered (file) "Return non-nil if FILE is registered with git." @@ -30174,7 +30190,7 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (22081 53819 659137 351000)) +;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (22097 45637 503432 455000)) ;;; Generated autoloads from vc/vc-hg.el (defun vc-hg-registered (file) "Return non-nil if FILE is registered with hg." @@ -30185,8 +30201,8 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (22064 41138 21468 -;;;;;; 395000)) +;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (22097 45637 515432 +;;;;;; 455000)) ;;; Generated autoloads from vc/vc-mtn.el (defconst vc-mtn-admin-dir "_MTN" "\ @@ -30202,8 +30218,8 @@ Name of the monotone directory's format file.") ;;;*** -;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (22014 34736 851840 -;;;;;; 613000)) +;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (22097 45637 527432 +;;;;;; 455000)) ;;; Generated autoloads from vc/vc-rcs.el (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -30216,8 +30232,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (22014 34736 863840 -;;;;;; 613000)) +;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (22086 11930 386062 +;;;;;; 731000)) ;;; Generated autoloads from vc/vc-sccs.el (defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ @@ -30235,8 +30251,8 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** -;;;### (autoloads nil "vc-src" "vc/vc-src.el" (22014 34736 863840 -;;;;;; 613000)) +;;;### (autoloads nil "vc-src" "vc/vc-src.el" (22086 11930 386062 +;;;;;; 731000)) ;;; Generated autoloads from vc/vc-src.el (defvar vc-src-master-templates (purecopy '("%s.src/%s,v")) "\ @@ -30249,8 +30265,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (22081 53819 663137 -;;;;;; 351000)) +;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (22101 42694 157526 +;;;;;; 804000)) ;;; Generated autoloads from vc/vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -30263,8 +30279,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (22011 -;;;;;; 58553 929858 469000)) +;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (22092 +;;;;;; 27718 320268 464000)) ;;; Generated autoloads from progmodes/vera-mode.el (push (purecopy '(vera-mode 2 28)) package--builtin-versions) (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) @@ -30323,7 +30339,7 @@ Key bindings: ;;;*** ;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el" -;;;;;; (22097 42046 455599 456000)) +;;;;;; (22092 27718 348268 464000)) ;;; Generated autoloads from progmodes/verilog-mode.el (autoload 'verilog-mode "verilog-mode" "\ @@ -30391,12 +30407,12 @@ Variables controlling indentation/edit style: will be inserted. Setting this variable to zero results in every end acquiring a comment; the default avoids too many redundant comments in tight quarters. - `verilog-auto-lineup' (default 'declarations) + `verilog-auto-lineup' (default `declarations') List of contexts where auto lineup of code should be done. Variables controlling other actions: - `verilog-linter' (default surelint) + `verilog-linter' (default `surelint') Unix program to call to run the lint checker. This is the default command for \\[compile-command] and \\[verilog-auto-save-compile]. @@ -30462,8 +30478,8 @@ Key bindings specific to `verilog-mode-map' are: ;;;*** -;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (22011 -;;;;;; 58553 969858 469000)) +;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (22092 +;;;;;; 27718 400268 464000)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload 'vhdl-mode "vhdl-mode" "\ @@ -31017,8 +31033,8 @@ Key bindings: ;;;*** -;;;### (autoloads nil "viet-util" "language/viet-util.el" (21670 -;;;;;; 32331 385639 720000)) +;;;### (autoloads nil "viet-util" "language/viet-util.el" (22086 +;;;;;; 11929 906062 731000)) ;;; Generated autoloads from language/viet-util.el (autoload 'viet-encode-viscii-char "viet-util" "\ @@ -31062,7 +31078,7 @@ Convert Vietnamese characters of the current buffer to `VIQR' mnemonics. ;;;*** -;;;### (autoloads nil "view" "view.el" (21670 32331 885635 586000)) +;;;### (autoloads nil "view" "view.el" (22086 11930 390062 731000)) ;;; Generated autoloads from view.el (defvar view-remove-frame-by-deleting t "\ @@ -31318,8 +31334,8 @@ Exit View mode and make the current buffer editable. ;;;*** -;;;### (autoloads nil "viper" "emulation/viper.el" (22011 58553 461858 -;;;;;; 469000)) +;;;### (autoloads nil "viper" "emulation/viper.el" (22086 11929 698062 +;;;;;; 731000)) ;;; Generated autoloads from emulation/viper.el (push (purecopy '(viper 3 14 1)) package--builtin-versions) @@ -31336,8 +31352,8 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. ;;;*** -;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (21986 -;;;;;; 55346 260512 613000)) +;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (22086 +;;;;;; 11929 690062 731000)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -31427,7 +31443,7 @@ this is equivalent to `display-warning', using ;;;*** -;;;### (autoloads nil "wdired" "wdired.el" (22026 25907 675502 692000)) +;;;### (autoloads nil "wdired" "wdired.el" (22086 11930 394062 731000)) ;;; Generated autoloads from wdired.el (push (purecopy '(wdired 2 0)) package--builtin-versions) @@ -31445,8 +31461,8 @@ See `wdired-mode'. ;;;*** -;;;### (autoloads nil "webjump" "net/webjump.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "webjump" "net/webjump.el" (22086 11930 22062 +;;;;;; 731000)) ;;; Generated autoloads from net/webjump.el (autoload 'webjump "webjump" "\ @@ -31462,8 +31478,8 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** -;;;### (autoloads nil "which-func" "progmodes/which-func.el" (22109 -;;;;;; 33223 420655 811000)) +;;;### (autoloads nil "which-func" "progmodes/which-func.el" (22086 +;;;;;; 11930 242062 731000)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -31493,8 +31509,8 @@ in certain major modes. ;;;*** -;;;### (autoloads nil "whitespace" "whitespace.el" (22026 25907 675502 -;;;;;; 692000)) +;;;### (autoloads nil "whitespace" "whitespace.el" (22086 11930 394062 +;;;;;; 731000)) ;;; Generated autoloads from whitespace.el (push (purecopy '(whitespace 13 2 2)) package--builtin-versions) @@ -31862,8 +31878,8 @@ cleaning up these problems. ;;;*** -;;;### (autoloads nil "wid-browse" "wid-browse.el" (21670 32331 885635 -;;;;;; 586000)) +;;;### (autoloads nil "wid-browse" "wid-browse.el" (22086 11930 394062 +;;;;;; 731000)) ;;; Generated autoloads from wid-browse.el (autoload 'widget-browse-at "wid-browse" "\ @@ -31891,8 +31907,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "wid-edit" "wid-edit.el" (22003 64432 668146 -;;;;;; 533000)) +;;;### (autoloads nil "wid-edit" "wid-edit.el" (22092 27718 580268 +;;;;;; 464000)) ;;; Generated autoloads from wid-edit.el (autoload 'widgetp "wid-edit" "\ @@ -31934,8 +31950,8 @@ Setup current buffer so editing string widgets works. ;;;*** -;;;### (autoloads nil "windmove" "windmove.el" (21852 24382 97237 -;;;;;; 703000)) +;;;### (autoloads nil "windmove" "windmove.el" (22092 27718 580268 +;;;;;; 464000)) ;;; Generated autoloads from windmove.el (autoload 'windmove-left "windmove" "\ @@ -31981,13 +31997,13 @@ If no window is at the desired location, an error is signaled. (autoload 'windmove-default-keybindings "windmove" "\ Set up keybindings for `windmove'. Keybindings are of the form MODIFIER-{left,right,up,down}. -Default MODIFIER is 'shift. +Default MODIFIER is `shift'. \(fn &optional MODIFIER)" t nil) ;;;*** -;;;### (autoloads nil "winner" "winner.el" (22030 22953 17158 467000)) +;;;### (autoloads nil "winner" "winner.el" (22086 11930 398062 731000)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ @@ -32010,7 +32026,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. ;;;*** -;;;### (autoloads nil "woman" "woman.el" (22026 25907 679502 692000)) +;;;### (autoloads nil "woman" "woman.el" (22092 27718 620268 464000)) ;;; Generated autoloads from woman.el (push (purecopy '(woman 0 551)) package--builtin-versions) @@ -32059,7 +32075,7 @@ Default bookmark handler for Woman buffers. ;;;*** -;;;### (autoloads nil "xml" "xml.el" (21974 64192 720009 993000)) +;;;### (autoloads nil "xml" "xml.el" (22092 27718 620268 464000)) ;;; Generated autoloads from xml.el (autoload 'xml-parse-file "xml" "\ @@ -32115,8 +32131,8 @@ Both features can be combined by providing a cons cell ;;;*** -;;;### (autoloads nil "xmltok" "nxml/xmltok.el" (21670 32331 385639 -;;;;;; 720000)) +;;;### (autoloads nil "xmltok" "nxml/xmltok.el" (22086 11930 30062 +;;;;;; 731000)) ;;; Generated autoloads from nxml/xmltok.el (autoload 'xmltok-get-declared-encoding-position "xmltok" "\ @@ -32134,10 +32150,15 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT. ;;;*** -;;;### (autoloads nil "xref" "progmodes/xref.el" (22087 6213 784351 -;;;;;; 952000)) +;;;### (autoloads nil "xref" "progmodes/xref.el" (22105 39773 959886 +;;;;;; 896000)) ;;; Generated autoloads from progmodes/xref.el +(autoload 'xref-find-backend "xref" "\ + + +\(fn)" nil nil) + (autoload 'xref-pop-marker-stack "xref" "\ Pop back to where \\[xref-find-definitions] was last invoked. @@ -32192,8 +32213,8 @@ The argument has the same meaning as in `apropos'. ;;;*** -;;;### (autoloads nil "xt-mouse" "xt-mouse.el" (21852 24382 117243 -;;;;;; 951000)) +;;;### (autoloads nil "xt-mouse" "xt-mouse.el" (22086 11930 402062 +;;;;;; 731000)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ @@ -32222,7 +32243,7 @@ down the SHIFT key while pressing the mouse button. ;;;*** -;;;### (autoloads nil "yenc" "gnus/yenc.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "yenc" "gnus/yenc.el" (22086 11929 854062 731000)) ;;; Generated autoloads from gnus/yenc.el (autoload 'yenc-decode-region "yenc" "\ @@ -32237,7 +32258,7 @@ Extract file name from an yenc header. ;;;*** -;;;### (autoloads nil "zone" "play/zone.el" (21670 32331 385639 720000)) +;;;### (autoloads nil "zone" "play/zone.el" (22086 11930 130062 731000)) ;;; Generated autoloads from play/zone.el (autoload 'zone "zone" "\ @@ -32364,26 +32385,19 @@ Zone out, completely. ;;;;;; "gnus/spam-wash.el" "hex-util.el" "hfy-cmap.el" "ibuf-ext.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" +;;;;;; "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/tamil-dvorak.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" @@ -32411,27 +32425,27 @@ Zone out, completely. ;;;;;; "nxml/nxml-rap.el" "nxml/nxml-util.el" "nxml/rng-dt.el" "nxml/rng-loc.el" ;;;;;; "nxml/rng-maint.el" "nxml/rng-match.el" "nxml/rng-parse.el" ;;;;;; "nxml/rng-pttrn.el" "nxml/rng-uri.el" "nxml/rng-util.el" -;;;;;; "nxml/xsd-regexp.el" "org/ob-C.el" "org/ob-R.el" "org/ob-asymptote.el" -;;;;;; "org/ob-awk.el" "org/ob-calc.el" "org/ob-clojure.el" "org/ob-comint.el" -;;;;;; "org/ob-core.el" "org/ob-css.el" "org/ob-ditaa.el" "org/ob-dot.el" -;;;;;; "org/ob-emacs-lisp.el" "org/ob-eval.el" "org/ob-exp.el" "org/ob-fortran.el" -;;;;;; "org/ob-gnuplot.el" "org/ob-haskell.el" "org/ob-io.el" "org/ob-java.el" -;;;;;; "org/ob-js.el" "org/ob-keys.el" "org/ob-latex.el" "org/ob-ledger.el" -;;;;;; "org/ob-lilypond.el" "org/ob-lisp.el" "org/ob-lob.el" "org/ob-makefile.el" -;;;;;; "org/ob-matlab.el" "org/ob-maxima.el" "org/ob-mscgen.el" -;;;;;; "org/ob-ocaml.el" "org/ob-octave.el" "org/ob-org.el" "org/ob-perl.el" -;;;;;; "org/ob-picolisp.el" "org/ob-plantuml.el" "org/ob-python.el" -;;;;;; "org/ob-ref.el" "org/ob-ruby.el" "org/ob-sass.el" "org/ob-scala.el" -;;;;;; "org/ob-scheme.el" "org/ob-screen.el" "org/ob-sh.el" "org/ob-shen.el" -;;;;;; "org/ob-sql.el" "org/ob-sqlite.el" "org/ob-table.el" "org/ob-tangle.el" -;;;;;; "org/ob.el" "org/org-archive.el" "org/org-attach.el" "org/org-bbdb.el" -;;;;;; "org/org-bibtex.el" "org/org-clock.el" "org/org-crypt.el" -;;;;;; "org/org-ctags.el" "org/org-datetree.el" "org/org-docview.el" -;;;;;; "org/org-element.el" "org/org-entities.el" "org/org-eshell.el" -;;;;;; "org/org-faces.el" "org/org-feed.el" "org/org-footnote.el" -;;;;;; "org/org-gnus.el" "org/org-habit.el" "org/org-id.el" "org/org-indent.el" -;;;;;; "org/org-info.el" "org/org-inlinetask.el" "org/org-install.el" -;;;;;; "org/org-irc.el" "org/org-list.el" "org/org-loaddefs.el" +;;;;;; "nxml/xsd-regexp.el" "obarray.el" "org/ob-C.el" "org/ob-R.el" +;;;;;; "org/ob-asymptote.el" "org/ob-awk.el" "org/ob-calc.el" "org/ob-clojure.el" +;;;;;; "org/ob-comint.el" "org/ob-core.el" "org/ob-css.el" "org/ob-ditaa.el" +;;;;;; "org/ob-dot.el" "org/ob-emacs-lisp.el" "org/ob-eval.el" "org/ob-exp.el" +;;;;;; "org/ob-fortran.el" "org/ob-gnuplot.el" "org/ob-haskell.el" +;;;;;; "org/ob-io.el" "org/ob-java.el" "org/ob-js.el" "org/ob-keys.el" +;;;;;; "org/ob-latex.el" "org/ob-ledger.el" "org/ob-lilypond.el" +;;;;;; "org/ob-lisp.el" "org/ob-lob.el" "org/ob-makefile.el" "org/ob-matlab.el" +;;;;;; "org/ob-maxima.el" "org/ob-mscgen.el" "org/ob-ocaml.el" "org/ob-octave.el" +;;;;;; "org/ob-org.el" "org/ob-perl.el" "org/ob-picolisp.el" "org/ob-plantuml.el" +;;;;;; "org/ob-python.el" "org/ob-ref.el" "org/ob-ruby.el" "org/ob-sass.el" +;;;;;; "org/ob-scala.el" "org/ob-scheme.el" "org/ob-screen.el" "org/ob-sh.el" +;;;;;; "org/ob-shen.el" "org/ob-sql.el" "org/ob-sqlite.el" "org/ob-table.el" +;;;;;; "org/ob-tangle.el" "org/ob.el" "org/org-archive.el" "org/org-attach.el" +;;;;;; "org/org-bbdb.el" "org/org-bibtex.el" "org/org-clock.el" +;;;;;; "org/org-crypt.el" "org/org-ctags.el" "org/org-datetree.el" +;;;;;; "org/org-docview.el" "org/org-element.el" "org/org-entities.el" +;;;;;; "org/org-eshell.el" "org/org-faces.el" "org/org-feed.el" +;;;;;; "org/org-footnote.el" "org/org-gnus.el" "org/org-habit.el" +;;;;;; "org/org-id.el" "org/org-indent.el" "org/org-info.el" "org/org-inlinetask.el" +;;;;;; "org/org-install.el" "org/org-irc.el" "org/org-list.el" "org/org-loaddefs.el" ;;;;;; "org/org-macro.el" "org/org-mhe.el" "org/org-mobile.el" "org/org-mouse.el" ;;;;;; "org/org-pcomplete.el" "org/org-plot.el" "org/org-protocol.el" ;;;;;; "org/org-rmail.el" "org/org-src.el" "org/org-table.el" "org/org-timer.el" @@ -32461,7 +32475,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") (22106 57434 227149 199000)) +;;;;;; "x-dnd.el") (22108 15942 558032 987000)) ;;;*** diff --git a/lisp/leim/quail/tamil-dvorak.el b/lisp/leim/quail/tamil-dvorak.el new file mode 100644 index 00000000000..d8299253c0f --- /dev/null +++ b/lisp/leim/quail/tamil-dvorak.el @@ -0,0 +1,151 @@ +;;; tamil-dvorak.el --- Quail package for Tamil input with Dvorak keyboard + +;; Copyright (C) 2015 Free Software Foundation, Inc. + +;; Author: Shakthi Kannan <author@shakthimaan.com> + +;; Keywords: multilingual, input method, Indian, Tamil, Dvorak + +;; This file is released under the terms of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;;; After loading this file in GNU Emacs, you can select this input +;;; layout using "C-x Return C-\" followed by "tamil-dvorak" (without +;;; the quotes). Available keys: Z + +;;; TODO: Add Tamil numbers, calendar from Unicode + +;;; Code: + +(require 'quail) + +(quail-define-package + "tamil-dvorak" "Tamil" "யளனக" nil + "யளனக Tamil keyboard layout for use with Unicode (UTF-8 encoding) + and Dvorak keyboard layout." + nil t t t t nil nil nil nil nil t) + + +;; US Dvorak +;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) [{ ]} +;; '" ,< .> pP yY fF gG cC rR lL /? =+ \| +;; aA oO eE uU iI dD hH tT nN sS -_ +;; ;: qQ jJ kK xX bB mM wW vV zZ + +;; தமிழ் +;; 1! 2@ 3# 4௹ 5% 6^ 7& 8* 9( 0) -_ {} +;; ஞஶ றஷ நஸ சஹ வஜ லல ரர ைஐ ொ ோ ிீ ுூ =+ \| +;; ய' ள, ன. க" ப? ாழ த[ ம] ட< ்ஃ ங> +;; ண$ ஒஓ உஊ எஏ ெே ஔ ௌ அஆ இஈ ;: zZ + +(quail-define-rules + ("1" ?1) + ("2" ?2) + ("3" ?3) + ("4" ?4) + ("5" ?5) + ("6" ?6) + ("7" ?7) + ("8" ?8) + ("9" ?9) + ("0" ?0) + ("[" ?-) + ("]" ?{) + ("`" ?`) + ("'" ?ஞ) + ("," ?ற) + ("." ?ந) + ("p" ?ச) + ("y" ?வ) + ("f" ?ல) + ("g" ?ர) + ("c" ?ை) + ("r" ?ொ) + ("l" ?ி) + ("/" ?ு) + ("=" ?=) + ("a" ?ய) + ("o" ?ள) + ("e" ?ன) + ("u" ?க) + ("i" ?ப) + ("d" ?ா) + ("h" ?த) + ("t" ?ம) + ("n" ?ட) + ("s" ?்) + ("-" ?ங) + ("\\" ?\\) + (";" ?ண) + ("q" ?ஒ) + ("j" ?உ) + ("k" ?எ) + ("x" ?ெ) + ("b" ?ஔ) + ("m" ?அ) + ("w" ?இ) + ("v" ?\;) + ("z" ?/) + ("!" ?!) + ("@" ?@) + ("#" ?#) + ("$" ?௹) + ("%" ?%) + ("^" ?^) + ("&" ?&) + ("*" ?*) + ("(" ?\() + (")" ?\)) + ("{" ?_) + ("}" ?}) + ("~" ?~) + ("\"" ?ஶ) + ("<" ?ஷ) + (">" ?ஸ) + ("P" ?ஹ) + ("Y" ?ஜ) + ("F" ?ல) + ("G" ?ர) + ("C" ?ஐ) + ("R" ?ோ) + ("L" ?ீ) + ("?" ?ூ) + ("+" ?+) + ("A" ?') + ("O" ?,) + ("E" ?.) + ("U" ?\") + ("I" ??) + ("D" ?ழ) + ("H" ?\[) + ("T" ?\]) + ("N" ?<) + ("S" ?ஃ) + ("_" ?>) + ("|" ?|) + (":" ?$) + ("Q" ?ஓ) + ("J" ?ஊ) + ("K" ?ஏ) + ("X" ?ே) + ("B" ?ௌ) + ("M" ?ஆ) + ("W" ?ஈ) + ("V" ?:) + ("Z" ?Z)) + +;;; tamil-dvorak.el ends here diff --git a/lisp/loadup.el b/lisp/loadup.el index 782622cd0d7..e3e0eb77622 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -281,7 +281,12 @@ (if (featurep 'ns) (progn (load "term/common-win") - (load "term/ns-win"))) + ;; Don't load ucs-normalize.el unless uni-*.el files were + ;; already produced, because it needs uni-*.el files that might + ;; not be built early enough during bootstrap. + (when (load-history-filename-element "charprop\\.el") + (load "international/ucs-normalize") + (load "term/ns-win")))) (if (fboundp 'x-create-frame) ;; Do it after loading term/foo-win.el since the value of the ;; mouse-wheel-*-event vars depends on those files being loaded or not. diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 8e28973c43f..ef5e86a6c8b 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -162,6 +162,14 @@ Prompts for bug subject. Leaves you in a mail buffer." (setq message-end-point (with-current-buffer (messages-buffer) (point-max-marker))) + (condition-case nil + ;; For the novice user make sure there's always enough space for + ;; the mail and the warnings buffer on this frame (Bug#10873). + (unless report-emacs-bug-no-explanations + (delete-other-windows) + (set-window-dedicated-p nil nil) + (set-frame-parameter nil 'unsplittable nil)) + (error nil)) (compose-mail report-emacs-bug-address topic) ;; The rest of this does not execute if the user was asked to ;; confirm and said no. @@ -234,7 +242,11 @@ usually do not have translators for other languages.\n\n"))) (let ((txt (delete-and-extract-region (1+ user-point) (point)))) (insert (propertize "\n" 'display txt))) - (insert "\n\nIn " (emacs-version) "\n") + (insert "\n\nIn " (emacs-version)) + (if emacs-build-system + (insert " built on " emacs-build-system)) + (insert "\n") + (if (stringp emacs-repository-version) (insert "Repository revision: " emacs-repository-version "\n")) (if (fboundp 'x-server-vendor) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index aec93db3fa6..bb93cff96bc 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -606,7 +606,7 @@ variables or other means, this option has no effect." May be t, in which case a default is computed (and you probably won't be happy with it). May be nil, in which case nothing in particular is done with respect to From: lines. By design, will not replace an -existing From: line, but you can achieve that with a fiddle-plex 'replace +existing From: line, but you can achieve that with a fiddle-plex `replace' action. If neither nil nor t, it may be a string, a fiddle-plex, or a function @@ -870,11 +870,11 @@ headers for specific addresses. May be t, in which case a \"To:\" header is added to the message with the stripped address as the header contents. The fiddle-plex operator -is 'supplement. +is `supplement'. May be a string, in which case the string is assumed to be the name of a message header field with the stripped address serving as the value. -The fiddle-plex operator is 'supplement. +The fiddle-plex operator is `supplement'. May be a function, in which case it is called with no arguments and is expected to return nil, t, a string, another function, or a fiddle-plex. @@ -891,7 +891,7 @@ If a list, each item is acted on in turn as described above. For example, - (setq feedmail-spray-address-fiddle-plex-list 'feedmail-spray-via-bbdb) + (setq feedmail-spray-address-fiddle-plex-list \\='feedmail-spray-via-bbdb) The idea of the example is that, during spray mode, as each message is about to be transmitted to an individual address, the function will be @@ -1383,7 +1383,7 @@ See documentation of `feedmail-mail-send-hook-splitter' for details." (defun feedmail-confirm-addresses-hook-example () "An example of a `feedmail-last-chance-hook'. It shows the simple addresses and gets a confirmation. Use as: - (setq feedmail-last-chance-hook 'feedmail-confirm-addresses-hook-example)." + (setq feedmail-last-chance-hook \\='feedmail-confirm-addresses-hook-example)." (save-window-excursion (display-buffer (set-buffer (get-buffer-create " F-C-A-H-E"))) (erase-buffer) @@ -2080,7 +2080,7 @@ backup file names and the like)." (defun feedmail-queue-reminder (&optional what-event) "Perform some kind of reminder activity about queued and draft messages. Called with an optional symbol argument which says what kind of event -is triggering the reminder activity. The default is 'on-demand, which +is triggering the reminder activity. The default is `on-demand', which is what you typically would use if you were putting this in your Emacs start-up or mail hook code. Other recognized values for WHAT-EVENT (these are passed internally by feedmail): diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 70170654f67..1e57119f5a5 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -97,7 +97,7 @@ If this is not in your PATH, specify an absolute file name." (defcustom hashcash-extra-generate-parameters nil "A list of parameter strings passed to `hashcash-program' when minting. -For example, you may want to set this to '(\"-Z2\") to reduce header length." +For example, you may want to set this to (\"-Z2\") to reduce header length." :type '(repeat string) :group 'hashcash) diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el index 50ff2cfb8ea..3cea39e1b2c 100644 --- a/lisp/mail/rfc2368.el +++ b/lisp/mail/rfc2368.el @@ -87,7 +87,7 @@ MAILTO-URL should be a RFC 2368 (mailto) compliant url. A cons cell w/ a key of `Body' is a special case and is considered a header for this purpose. The returned alist is intended for use w/ the `compose-mail' interface. -Note: make sure MAILTO-URL has been 'unhtmlized' (e.g. & -> &), before +Note: make sure MAILTO-URL has been \"unhtmlized\" (e.g., & -> &), before calling this function." (let ((case-fold-search t) prequery query headers-alist) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1ed4cc7f6d8..fe3375e8f58 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -100,7 +100,7 @@ its character representation and its display representation.") (defvar rmail-header-style 'normal "The current header display style choice, one of -'normal (selected headers) or 'full (all headers).") +`normal' (selected headers) or `full' (all headers).") (defvar rmail-mime-decoded nil "Non-nil if message has been processed by `rmail-show-mime-function'.") @@ -300,7 +300,7 @@ mail URLs as the source mailbox.") ;;;###autoload (defun rmail-movemail-variant-p (&rest variants) "Return t if the current movemail variant is any of VARIANTS. -Currently known variants are 'emacs and 'mailutils." +Currently known variants are `emacs' and `mailutils'." (when (not rmail-movemail-variant-in-use) ;; Autodetect (setq rmail-movemail-variant-in-use (rmail-autodetect))) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 1e770e6fea6..587d75f09b9 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -84,13 +84,14 @@ This uses `rmail-output-file-alist'." (eval (cdar tail)) (error (display-warning - :error + 'rmail-output (format-message "\ Error evaluating `rmail-output-file-alist' element: regexp: %s action: %s error: %S\n" - (caar tail) (cdar tail) err)) + (caar tail) (cdar tail) err) + :error) nil)))) (setq tail (cdr tail))) answer)))))) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index b22c1eab907..1ca783ac43d 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -218,7 +218,7 @@ (cond ((and (eq menu-bar-last-search-type 'string) search-ring) - (search-forward (car search-ring))) + (nonincremental-search-forward)) ((and (eq menu-bar-last-search-type 'regexp) regexp-search-ring) (re-search-forward (car regexp-search-ring))) @@ -231,30 +231,30 @@ (cond ((and (eq menu-bar-last-search-type 'string) search-ring) - (search-backward (car search-ring))) + (nonincremental-search-backward)) ((and (eq menu-bar-last-search-type 'regexp) regexp-search-ring) (re-search-backward (car regexp-search-ring))) (t (error "No previous search")))) -(defun nonincremental-search-forward (string) +(defun nonincremental-search-forward (&optional string backward) "Read a string and search for it nonincrementally." (interactive "sSearch for string: ") (setq menu-bar-last-search-type 'string) - (if (equal string "") - (search-forward (car search-ring)) - (isearch-update-ring string nil) - (search-forward string))) - -(defun nonincremental-search-backward (string) + ;; Ideally, this whole command would be equivalent to `C-s RET'. + (let ((isearch-forward (not backward)) + (isearch-regexp-function search-default-regexp-mode) + (isearch-regexp nil)) + (if (or (equal string "") (not string)) + (funcall (isearch-search-fun-default) (car search-ring)) + (isearch-update-ring string nil) + (funcall (isearch-search-fun-default) string)))) + +(defun nonincremental-search-backward (&optional string) "Read a string and search backward for it nonincrementally." - (interactive "sSearch for string: ") - (setq menu-bar-last-search-type 'string) - (if (equal string "") - (search-backward (car search-ring)) - (isearch-update-ring string nil) - (search-backward string))) + (interactive "sSearch backwards for string: ") + (nonincremental-search-forward string 'backward)) (defun nonincremental-re-search-forward (string) "Read a regular expression and search for it nonincrementally." @@ -413,8 +413,8 @@ menu)) (defun menu-bar-goto-uses-etags-p () - (or (not (boundp 'xref-find-function)) - (eq xref-find-function 'etags-xref-find))) + (or (not (boundp 'xref-backend-functions)) + (eq (car xref-backend-functions) 'etags--xref-backend))) (defvar yank-menu (cons (purecopy "Select Yank") nil)) (fset 'yank-menu (cons 'keymap yank-menu)) diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index c757920ef29..85e64189fbd 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -872,7 +872,7 @@ variant." (defun mh-variant-p (&rest variants) "Return t if variant is any of VARIANTS. -Currently known variants are 'MH, 'nmh, and 'gnu-mh." +Currently known variants are `MH', `nmh', and `gnu-mh'." (let ((variant-in-use (cadr (assoc 'variant (assoc mh-variant-in-use (mh-variants)))))) (not (null (member variant-in-use variants))))) @@ -1435,7 +1435,7 @@ the \"Value Menu\". You can specify an alternate \"From:\" header field using the \"From Field\" menu item. You must include a valid email address. A standard format is \"First Last <login@@host.domain>\". If you use an initial -with a period, then you must quote your name as in '\"First I. Last\" +with a period, then you must quote your name as in `\"First I. Last\" <login@@host.domain>'. People usually list the name of the company where they work using the \"Organization Field\" menu item. Set any arbitrary header field and value in the \"Other Field\" menu item. @@ -1599,8 +1599,8 @@ other field matches. The handler functions are passed two or three arguments: the FIELD itself (for example, \"From\"), or one of the special -fields (for example, \":signature\"), and the ACTION 'remove or -'add. If the action is 'add, an additional argument +fields (for example, \":signature\"), and the ACTION `remove' or +`add'. If the action is `add', an additional argument containing the VALUE for the field is given." :type '(repeat (cons (string :tag "Field") function)) :group 'mh-identity diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el index cdd92fe3307..2da3fa26b29 100644 --- a/lisp/mh-e/mh-identity.el +++ b/lisp/mh-e/mh-identity.el @@ -180,9 +180,9 @@ See `mh-identity-list'." ;;;###mh-autoload (defun mh-identity-handler-gpg-identity (field action &optional value) "Process header FIELD \":pgg-default-user-id\". -The ACTION is one of 'remove or 'add. If 'add, the VALUE is added. +The ACTION is one of `remove' or `add'. If `add', the VALUE is added. The buffer-local variable `mh-identity-pgg-default-user-id' is set to -VALUE when action 'add is selected." +VALUE when action `add' is selected." (cond ((or (equal action 'remove) (not value) @@ -194,7 +194,7 @@ VALUE when action 'add is selected." ;;;###mh-autoload (defun mh-identity-handler-signature (field action &optional value) "Process header FIELD \":signature\". -The ACTION is one of 'remove or 'add. If 'add, the VALUE is +The ACTION is one of `remove' or `add'. If `add', the VALUE is added." (cond ((equal action 'remove) @@ -225,7 +225,7 @@ added." ;;;###mh-autoload (defun mh-identity-handler-attribution-verb (field action &optional value) "Process header FIELD \":attribution-verb\". -The ACTION is one of 'remove or 'add. If 'add, the VALUE is +The ACTION is one of `remove' or `add'. If `add', the VALUE is added." (when (and (markerp mh-identity-attribution-verb-start) (markerp mh-identity-attribution-verb-end)) @@ -283,7 +283,7 @@ bottom of the header. If action is 'add, the VALUE is added." ;;;###mh-autoload (defun mh-identity-handler-top (field action &optional value) "Process header FIELD. -The ACTION is one of 'remove or 'add. If 'add, the VALUE is +The ACTION is one of `remove' or `add'. If `add', the VALUE is added. If the field wasn't present, it is added to the top of the header." (mh-identity-handler-default field action t value)) @@ -291,7 +291,7 @@ header." ;;;###mh-autoload (defun mh-identity-handler-bottom (field action &optional value) "Process header FIELD. -The ACTION is one of 'remove or 'add. If 'add, the VALUE is +The ACTION is one of `remove' or `add'. If `add', the VALUE is added. If the field wasn't present, it is added to the bottom of the header." (mh-identity-handler-default field action nil value)) diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el index 259f60de2d5..13cf71f8a49 100644 --- a/lisp/mh-e/mh-seq.el +++ b/lisp/mh-e/mh-seq.el @@ -555,7 +555,7 @@ change." ;;;###mh-autoload (defun mh-valid-view-change-operation-p (op) "Check if the view change operation can be performed. -OP is one of 'widen and 'unthread." +OP is one of `widen' and `unthread'." (cond ((eq (car mh-view-ops) op) (pop mh-view-ops)) (t nil))) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 4f7fa3b8f39..7fbf7f3650f 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3863,7 +3863,7 @@ If VERBOSE-P is non-nil, print progress report in the echo area. FILES is a list of files to copy in the form (from-file to-file ok-if-already-exists keep-date) E.g., - (ange-ftp-copy-files-async t nil t '((\"a\" \"b\" t t) (\"c\" \"d\" t t)))" + (ange-ftp-copy-files-async t nil t \\='((\"a\" \"b\" t t) (\"c\" \"d\" t t)))" (unless okay-p (error "%s: %s" 'ange-ftp-copy-files-async line)) (if files (let* ((ff (car files)) diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 757e368317a..d232c8add13 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -419,11 +419,11 @@ commands reverses the effect of this variable." :group 'browse-url) (defcustom browse-url-filename-alist - `(("^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*" . "ftp://\\2/") + `(("^/\\(ftp@\\|anonymous@\\)?\\([^:/]+\\):/*" . "ftp://\\2/") ;; The above loses the username to avoid the browser prompting for ;; it in anonymous cases. If it's not anonymous the next regexp ;; applies. - ("^/\\([^:@]+@\\)?\\([^:]+\\):/*" . "ftp://\\1\\2/") + ("^/\\([^:@/]+@\\)?\\([^:/]+\\):/*" . "ftp://\\1\\2/") ,@(if (memq system-type '(windows-nt ms-dos)) '(("^\\([a-zA-Z]:\\)[\\/]" . "file:///\\1/") ("^[\\/][\\/]+" . "file://"))) @@ -441,13 +441,13 @@ address to an HTTP URL: (setq browse-url-filename-alist \\='((\"/webmaster@webserver:/home/www/html/\" . \"http://www.acme.co.uk/\") - (\"^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*\" . \"ftp://\\2/\") - (\"^/\\([^:@]+@\\)?\\([^:]+\\):/*\" . \"ftp://\\1\\2/\") + (\"^/\\(ftp@\\|anonymous@\\)?\\([^:/]+\\):/*\" . \"ftp://\\2/\") + (\"^/\\([^:@/]+@\\)?\\([^:/]+\\):/*\" . \"ftp://\\1\\2/\") (\"^/+\" . \"file:/\")))" :type '(repeat (cons :format "%v" (regexp :tag "Regexp") (string :tag "Replacement"))) - :version "23.1" + :version "25.1" :group 'browse-url) (defcustom browse-url-save-file nil @@ -762,12 +762,17 @@ narrowed." (defun browse-url (url &rest args) "Ask a WWW browser to load URL. Prompt for a URL, defaulting to the URL at or before point. -The variable `browse-url-browser-function' says which browser to use. -If the URL is a mailto: URL, consult `browse-url-mailto-function' +Invokes a suitable browser function which does the actual job. +The variable `browse-url-browser-function' says which browser function to +use. If the URL is a mailto: URL, consult `browse-url-mailto-function' first, if that exists. -Passes any ARGS to the browser function. -The default is to pass `browse-url-new-window-flag'." +The additional ARGS are passed to the browser function. See the doc +strings of the actual functions, starting with `browse-url-browser-function', +for information about the significance of ARGS (most of the functions +ignore it). +If ARGS are omitted, the default is to pass `browse-url-new-window-flag' +as ARGS." (interactive (browse-url-interactive-arg "URL: ")) (unless (called-interactively-p 'interactive) (setq args (or args (list browse-url-new-window-flag)))) @@ -836,6 +841,8 @@ says which browser to use." (declare-function w32-shell-execute "w32fns.c") ;; Defined in C. (defun browse-url-default-windows-browser (url &optional _new-window) + "Invoke the MS-Windows system's default Web browser. +The optional NEW-WINDOW argument is not used." (interactive (browse-url-interactive-arg "URL: ")) (cond ((eq system-type 'ms-dos) (if dos-windows-version @@ -846,6 +853,8 @@ says which browser to use." (t (w32-shell-execute "open" url)))) (defun browse-url-default-macosx-browser (url &optional _new-window) + "Invoke the MacOS X system's default Web browser. +The optional NEW-WINDOW argument is not used" (interactive (browse-url-interactive-arg "URL: ")) (start-process (concat "open " url) nil "open" url)) @@ -880,8 +889,8 @@ non-nil, load the document in a new window, if possible, otherwise use a random existing one. A non-nil interactive prefix argument reverses the effect of `browse-url-new-window-flag'. -When called non-interactively, optional second argument NEW-WINDOW is -used instead of `browse-url-new-window-flag'." +When called non-interactively, optional second argument ARGS is used +instead of `browse-url-new-window-flag'." (apply (cond ((memq system-type '(windows-nt ms-dos cygwin)) @@ -1103,7 +1112,8 @@ instead of `browse-url-new-window-flag'." "Ask the Chromium WWW browser to load URL. Default to the URL around or before point. The strings in variable `browse-url-chromium-arguments' are also passed to -Chromium." +Chromium. +The optional argument NEW-WINDOW is not used." (interactive (browse-url-interactive-arg "URL: ")) (setq url (browse-url-encode-url url)) (let* ((process-environment (browse-url-process-environment))) @@ -1412,7 +1422,8 @@ The `browse-url-gnudoit-program' program is used with options given by URL defaults to the URL around or before point. This runs the text browser specified by `browse-url-text-browser'. in an Xterm window using the Xterm program named by `browse-url-xterm-program' -with possible additional arguments `browse-url-xterm-args'." +with possible additional arguments `browse-url-xterm-args'. +The optional argument NEW-WINDOW is not used." (interactive (browse-url-interactive-arg "Text browser URL: ")) (apply #'start-process `(,(concat browse-url-text-browser url) nil ,browse-url-xterm-program @@ -1560,7 +1571,8 @@ don't offer a form of remote control." ;;;###autoload (defun browse-url-kde (url &optional _new-window) "Ask the KDE WWW browser to load URL. -Default to the URL around or before point." +Default to the URL around or before point. +The optional argument NEW-WINDOW is not used." (interactive (browse-url-interactive-arg "KDE URL: ")) (message "Sending URL to KDE...") (apply #'start-process (concat "KDE " url) nil browse-url-kde-program diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el index c60911ff0c5..a9fac516745 100644 --- a/lisp/net/eudc-export.el +++ b/lisp/net/eudc-export.el @@ -86,12 +86,19 @@ If SILENT is non-nil then the created BBDB record is not displayed." (cons (car mapping) value)))) conversion-alist))) (setq bbdb-notes (delq nil bbdb-notes)) - (setq bbdb-record (bbdb-create-internal bbdb-name - bbdb-company - bbdb-net - bbdb-address - bbdb-phones - bbdb-notes)) + (setq bbdb-record (bbdb-create-internal + bbdb-name + ,@(when (eudc--using-bbdb-3-or-newer-p) + '(nil + nil)) + bbdb-company + bbdb-net + ,@(if (eudc--using-bbdb-3-or-newer-p) + '(bbdb-phones + bbdb-address) + '(bbdb-address + bbdb-phones)) + bbdb-notes)) (or silent (bbdb-display-records (list bbdb-record)))))) @@ -160,8 +167,13 @@ LOCATION is used as the address location for bbdb." ;; External. (declare-function bbdb-parse-phone-number "ext:bbdb-com" (string &optional number-type)) +(declare-function bbdb-parse-phone "ext:bbdb-com" (string &optional style)) (declare-function bbdb-string-trim "ext:bbdb" (string)) +(defun eudc-bbdbify-company (&rest organizations) + "Return ORGANIZATIONS as a list compatible with BBDB." + organizations) + (defun eudc-bbdbify-phone (phone location) "Parse PHONE into a vector compatible with BBDB. PHONE is either a string supposedly containing a phone number or @@ -172,7 +184,9 @@ LOCATION is used as the phone location for BBDB." ((stringp phone) (let (phone-list) (condition-case err - (setq phone-list (bbdb-parse-phone-number phone)) + (setq phone-list (if (eudc--using-bbdb-3-or-newer-p) + (bbdb-parse-phone phone) + (bbdb-parse-phone-number phone))) (error (if (string= "phone number unparsable." (cadr err)) (if (not (y-or-n-p (format "BBDB claims %S to be unparsable--insert anyway? " phone))) diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el index 8cffa8e466a..de7e25a66aa 100644 --- a/lisp/net/eudc-vars.el +++ b/lisp/net/eudc-vars.el @@ -50,7 +50,7 @@ instead." ;; Known protocols (used in completion) ;; Not to be mistaken with `eudc-supported-protocols' -(defvar eudc-known-protocols '(bbdb ph ldap)) +(defvar eudc-known-protocols '(bbdb ldap)) (defcustom eudc-server-hotlist nil "Directory servers to query. @@ -357,6 +357,10 @@ BBDB fields. SPECs are sexps which are evaluated: (symbol :tag "BBDB Field") (sexp :tag "Conversion Spec")))) +(make-obsolete-variable 'eudc-ph-bbdb-conversion-alist + "the EUDC PH/QI backend is obsolete." + "25.1") + ;;}}} ;;{{{ LDAP Custom Group @@ -369,7 +373,8 @@ BBDB fields. SPECs are sexps which are evaluated: '((name . cn) (net . mail) (address . (eudc-bbdbify-address postaladdress "Address")) - (phone . ((eudc-bbdbify-phone telephonenumber "Phone")))) + (phone . (eudc-bbdbify-phone telephonenumber "Phone")) + (company . (eudc-bbdbify-company o))) "A mapping from BBDB to LDAP attributes. This is a list of cons cells (BBDB-FIELD . SPEC-OR-LIST) where BBDB-FIELD is the name of a field that must be defined in your BBDB diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 7280d9d2625..25a26bdf029 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -107,6 +107,18 @@ ;; attribute name (defvar eudc-protocol-has-default-query-attributes nil) +(defvar bbdb-version) + +(defun eudc--using-bbdb-3-or-newer-p () + "Return non-nil if BBDB version is 3 or greater." + (or + ;; MELPA versions of BBDB may have a bad package version, but + ;; they're all version 3 or later. + (equal bbdb-version "@PACKAGE_VERSION@") + ;; Development versions of BBDB can have the format "X.YZ devo". + ;; Split the string just in case. + (version<= "3" (car (split-string bbdb-version))))) + (defun eudc-plist-member (plist prop) "Return t if PROP has a value specified in PLIST." (if (not (= 0 (% (length plist) 2))) diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index 0545304b4a3..1972fc1939a 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -42,21 +42,13 @@ (defvar eudc-bbdb-current-query nil) (defvar eudc-bbdb-current-return-attributes nil) -(defvar bbdb-version) - (defun eudc-bbdb-field (field-symbol) "Convert FIELD-SYMBOL so that it is recognized by the current BBDB version. BBDB < 3 used `net'; BBDB >= 3 uses `mail'." ;; This just-in-time translation permits upgrading from BBDB 2 to ;; BBDB 3 without restarting Emacs. (if (and (eq field-symbol 'net) - (or - ;; MELPA versions of BBDB may have a bad package version, - ;; but they're all version 3 or later. - (equal bbdb-version "@PACKAGE_VERSION@") - ;; Development versions of BBDB can have the format "X.YZ - ;; devo". Split the string just in case. - (version<= "3" (car (split-string bbdb-version))))) + (eudc--using-bbdb-3-or-newer-p)) 'mail field-symbol)) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 7ec58f15028..107df24e865 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -93,7 +93,7 @@ desktop. Otherwise, such entries will be retained." (defcustom eww-restore-desktop nil "How to restore EWW buffers on `desktop-restore'. -If t or 'auto, the buffers will be reloaded automatically. +If t or `auto', the buffers will be reloaded automatically. If nil, buffers will require manual reload, and will contain the text specified in `eww-restore-reload-prompt' instead of the actual Web page contents." @@ -322,7 +322,8 @@ Currently this means either text/html or application/xhtml+xml." (or (cdr (assq 'charset (cdr content-type))) (eww-detect-charset (eww-html-p (car content-type))) "utf-8")))) - (data-buffer (current-buffer))) + (data-buffer (current-buffer)) + last-coding-system-used) ;; Save the https peer status. (with-current-buffer buffer (plist-put eww-data :peer (plist-get status :peer))) @@ -340,11 +341,13 @@ Currently this means either text/html or application/xhtml+xml." ((string-match-p "\\`image/" (car content-type)) (eww-display-image buffer)) (t - (eww-display-raw buffer encode))) + (eww-display-raw buffer (or encode charset 'utf-8)))) (with-current-buffer buffer (plist-put eww-data :url url) (eww-update-header-line-format) (setq eww-history-position 0) + (and last-coding-system-used + (set-buffer-file-coding-system last-coding-system-used)) (run-hooks 'eww-after-render-hook))) (kill-buffer data-buffer)))) @@ -390,17 +393,15 @@ Currently this means either text/html or application/xhtml+xml." (list 'base (list (cons 'href url)) (progn - (when (or (and encode - (not (eq charset encode))) - (not (eq charset 'utf-8))) - (condition-case nil - (decode-coding-region (point) (point-max) - (or encode charset)) - (coding-system-error nil))) + (setq encode (or encode charset 'utf-8)) + (condition-case nil + (decode-coding-region (point) (point-max) encode) + (coding-system-error nil)) (libxml-parse-html-region (point) (point-max)))))) (source (and (null document) (buffer-substring (point) (point-max))))) (with-current-buffer buffer + (setq bidi-paragraph-direction 'left-to-right) (plist-put eww-data :source source) (plist-put eww-data :dom document) (let ((inhibit-read-only t) @@ -529,11 +530,9 @@ Currently this means either text/html or application/xhtml+xml." (let ((inhibit-read-only t)) (erase-buffer) (insert data) - (unless (eq encode 'utf-8) - (encode-coding-region (point-min) (1+ (length data)) 'utf-8) - (condition-case nil - (decode-coding-region (point-min) (1+ (length data)) encode) - (coding-system-error nil)))) + (condition-case nil + (decode-coding-region (point-min) (1+ (length data)) encode) + (coding-system-error nil))) (goto-char (point-min))))) (defun eww-display-image (buffer) @@ -743,8 +742,7 @@ the like." (setq-local desktop-save-buffer #'eww-desktop-misc-data) ;; multi-page isearch support (setq-local multi-isearch-next-buffer-function #'eww-isearch-next-buffer) - (setq truncate-lines t - bidi-paragraph-direction 'left-to-right) + (setq truncate-lines t) (buffer-disable-undo) (setq buffer-read-only t)) @@ -1936,7 +1934,7 @@ Generally, the list should not include the (usually overly large) (defun eww-restore-desktop (file-name buffer-name misc-data) "Restore an eww buffer from its desktop file record. -If `eww-restore-desktop' is t or 'auto, this function will also +If `eww-restore-desktop' is t or `auto', this function will also initiate the retrieval of the respective URI in the background. Otherwise, the restored buffer will contain a prompt to do so by using \\[eww-reload]." diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index ccaef8aafac..a7321da854c 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el @@ -193,12 +193,7 @@ defaults to GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT." ;; The gnutls library doesn't understand files delivered via ;; the special handlers, so ignore all files found via those. (file-name-handler-alist nil) - (trustfiles (or trustfiles - (delq nil - (mapcar (lambda (f) (and f (file-exists-p f) f)) - (if (functionp gnutls-trustfiles) - (funcall gnutls-trustfiles) - gnutls-trustfiles))))) + (trustfiles (or trustfiles (gnutls-trustfiles))) (priority-string (or priority-string (cond ((eq type 'gnutls-anon) @@ -251,6 +246,14 @@ defaults to GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT." process)) +(defun gnutls-trustfiles () + "Return a list of usable trustfiles." + (delq nil + (mapcar (lambda (f) (and f (file-exists-p f) f)) + (if (functionp gnutls-trustfiles) + (funcall gnutls-trustfiles) + gnutls-trustfiles)))) + (declare-function gnutls-error-string "gnutls.c" (error)) (defun gnutls-message-maybe (doit format &rest params) diff --git a/lisp/net/imap.el b/lisp/net/imap.el index b559ff65908..cc89f475bba 100644 --- a/lisp/net/imap.el +++ b/lisp/net/imap.el @@ -74,8 +74,7 @@ ;; imap.el supports RFC1730/2060/RFC3501 (IMAP4/IMAP4rev1). The implemented ;; IMAP extensions are RFC2195 (CRAM-MD5), RFC2086 (ACL), RFC2342 ;; (NAMESPACE), RFC2359 (UIDPLUS), the IMAP-part of RFC2595 (STARTTLS, -;; LOGINDISABLED) (with use of external library starttls.el and -;; program starttls), and the GSSAPI / Kerberos V4 sections of RFC1731 +;; LOGINDISABLED), and the GSSAPI / Kerberos V4 sections of RFC1731 ;; (with use of external program `imtest'), and RFC2971 (ID). It also ;; takes advantage of the UNSELECT extension in Cyrus IMAPD. ;; @@ -140,8 +139,6 @@ (eval-and-compile ;; For Emacs <22.2 and XEmacs. (unless (fboundp 'declare-function) (defmacro declare-function (&rest _r))) - (autoload 'starttls-open-stream "starttls") - (autoload 'starttls-negotiate "starttls") (autoload 'sasl-find-mechanism "sasl") (autoload 'digest-md5-parse-digest-challenge "digest-md5") (autoload 'digest-md5-digest-response "digest-md5") @@ -151,8 +148,7 @@ (autoload 'utf7-encode "utf7") (autoload 'utf7-decode "utf7") (autoload 'format-spec "format-spec") - (autoload 'format-spec-make "format-spec") - (autoload 'open-tls-stream "tls")) + (autoload 'format-spec-make "format-spec")) ;; User variables. @@ -184,19 +180,6 @@ the list is tried until a successful connection is made." :group 'imap :type '(repeat string)) -(defcustom imap-ssl-program '("openssl s_client -quiet -ssl3 -connect %s:%p" - "openssl s_client -quiet -ssl2 -connect %s:%p" - "s_client -quiet -ssl3 -connect %s:%p" - "s_client -quiet -ssl2 -connect %s:%p") - "A string, or list of strings, containing commands for SSL connections. -Within a string, %s is replaced with the server address and %p with -port number on server. The program should accept IMAP commands on -stdin and return responses to stdout. Each entry in the list is tried -until a successful connection is made." - :group 'imap - :type '(choice string - (repeat string))) - (defcustom imap-shell-program '("ssh %s imapd" "rsh %s imapd" "ssh %g ssh %s imapd" @@ -293,7 +276,7 @@ Shorter values mean quicker response, but is more CPU intensive." '((gssapi imap-gssapi-stream-p imap-gssapi-open) (kerberos4 imap-kerberos4-stream-p imap-kerberos4-open) (tls imap-tls-p imap-tls-open) - (ssl imap-ssl-p imap-ssl-open) + (ssl imap-tls-p imap-tls-open) (network imap-network-p imap-network-open) (shell imap-shell-p imap-shell-open) (starttls imap-starttls-p imap-starttls-open)) @@ -453,7 +436,7 @@ second the status (OK, NO, BAD etc) of the command.") When non-nil, use an alternative UIDS form. Enabling appears to be required for some servers (e.g., Microsoft Exchange 2007) -which otherwise would trigger a response 'BAD The specified +which otherwise would trigger a response `BAD The specified message set is invalid.'. We don't unconditionally use this form, since this is said to be significantly inefficient. @@ -661,56 +644,6 @@ sure of changing the value of `foo'." nil))))) done)) -(defun imap-ssl-p (_buffer) - nil) - -(defun imap-ssl-open (name buffer server port) - "Open an SSL connection to SERVER." - (let ((cmds (if (listp imap-ssl-program) imap-ssl-program - (list imap-ssl-program))) - cmd done) - (while (and (not done) (setq cmd (pop cmds))) - (message "imap: Opening SSL connection with `%s'..." cmd) - (erase-buffer) - (let* ((port (or port imap-default-ssl-port)) - (coding-system-for-read imap-coding-system-for-read) - (coding-system-for-write imap-coding-system-for-write) - (process-connection-type imap-process-connection-type) - (set-process-query-on-exit-flag - (if (fboundp 'set-process-query-on-exit-flag) - 'set-process-query-on-exit-flag - 'process-kill-without-query)) - process) - (when (progn - (setq process (start-process - name buffer shell-file-name - shell-command-switch - (format-spec cmd - (format-spec-make - ?s server - ?p (number-to-string port))))) - (funcall set-process-query-on-exit-flag process nil) - process) - (with-current-buffer buffer - (goto-char (point-min)) - (while (and (memq (process-status process) '(open run)) - (set-buffer buffer) ;; XXX "blue moon" nntp.el bug - (goto-char (point-max)) - (forward-line -1) - (not (imap-parse-greeting))) - (accept-process-output process 1) - (sit-for 1)) - (imap-log buffer) - (erase-buffer) - (when (memq (process-status process) '(open run)) - (setq done process)))))) - (if done - (progn - (message "imap: Opening SSL connection with `%s'...done" cmd) - done) - (message "imap: Opening SSL connection with `%s'...failed" cmd) - nil))) - (defun imap-tls-p (_buffer) nil) @@ -718,7 +651,8 @@ sure of changing the value of `foo'." (let* ((port (or port imap-default-tls-port)) (coding-system-for-read imap-coding-system-for-read) (coding-system-for-write imap-coding-system-for-write) - (process (open-tls-stream name buffer server port))) + (process (open-network-stream name buffer server port + :type 'tls))) (when process (while (and (memq (process-status process) '(open run)) ;; FIXME: Per the "blue moon" comment, the process/buffer @@ -803,34 +737,23 @@ sure of changing the value of `foo'." (imap-capability 'STARTTLS buffer)) (defun imap-starttls-open (name buffer server port) + (message "imap: Connecting with STARTTLS...") (let* ((port (or port imap-default-port)) (coding-system-for-read imap-coding-system-for-read) (coding-system-for-write imap-coding-system-for-write) - (process (starttls-open-stream name buffer server port)) - done tls-info) - (message "imap: Connecting with STARTTLS...") - (when process - (while (and (memq (process-status process) '(open run)) - (set-buffer buffer) ;; XXX "blue moon" nntp.el bug - (goto-char (point-max)) - (forward-line -1) - (not (imap-parse-greeting))) - (accept-process-output process 1) - (sit-for 1)) - (imap-send-command "STARTTLS") - (while (and (memq (process-status process) '(open run)) - (set-buffer buffer) ;; XXX "blue moon" nntp.el bug - (goto-char (point-max)) - (forward-line -1) - (not (re-search-forward "[0-9]+ OK.*\r?\n" nil t))) - (accept-process-output process 1) - (sit-for 1)) - (imap-log buffer) - (when (and (setq tls-info (starttls-negotiate process)) - (memq (process-status process) '(open run))) - (setq done process))) - (if (stringp tls-info) - (message "imap: STARTTLS info: %s" tls-info)) + (process (open-network-stream + name buffer server port + :type 'starttls + :capability-command "1 CAPABILITY\r\n" + :always-query-capabilities t + :end-of-command "\r\n" + :success " OK " + :starttls-function + (lambda (capabilities) + (when (string-match-p "STARTTLS" capabilities) + "1 STARTTLS\r\n")))) + (done (and process + (memq (process-status process) '(open run))))) (message "imap: Connecting with STARTTLS...%s" (if done "done" "failed")) done)) @@ -1564,8 +1487,8 @@ returned, if ITEMS is a symbol only its value is returned." (defun imap-mailbox-status-asynch (mailbox items &optional buffer) "Send status item requests ITEMS on MAILBOX to server in BUFFER. ITEMS can be a symbol or a list of symbols, valid symbols are one of -the STATUS data items -- i.e. 'messages, 'recent, 'uidnext, 'uidvalidity -or 'unseen. The IMAP command tag is returned." +the STATUS data items -- i.e., `messages', `recent', `uidnext', `uidvalidity' +or `unseen'. The IMAP command tag is returned." (with-current-buffer (or buffer (current-buffer)) (imap-send-command (list "STATUS \"" (imap-utf7-encode mailbox) @@ -2966,8 +2889,6 @@ Return nil if no complete line has arrived." imap-error-text imap-kerberos4s-p imap-kerberos4-open - imap-ssl-p - imap-ssl-open imap-network-p imap-network-open imap-interactive-login diff --git a/lisp/net/mairix.el b/lisp/net/mairix.el index a73b4dfa921..997e47b1ec2 100644 --- a/lisp/net/mairix.el +++ b/lisp/net/mairix.el @@ -211,7 +211,7 @@ nil for disabling this).") (defvar mairix-widget-other '(threads flags) "Other editable mairix commands when using customization widgets. -Currently there are 'threads and 'flags.") +Currently there are `threads' and `flags'.") ;;;; Internal variables diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index c6d40b62415..643d312fc2b 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -35,15 +35,19 @@ ;; * Support connections to HOST/PORT, generally for debugging and the like. ;; In other words, for doing much the same thing as "telnet HOST PORT", and ;; then typing commands. -;; -;; PATHS -;; -;; On some systems, some of these programs are not in normal user path, -;; but rather in /sbin, /usr/sbin, and so on. - ;;; Code: +;; On some systems, programs like ifconfig are not in normal user +;; path, but rather in /sbin, /usr/sbin, etc (but non-root users can +;; still use them for queries). Actually the trend these +;; days is for /sbin to be a symlink to /usr/sbin, but we still need to +;; search both for older systems. +(defun net-utils--executable-find-sbin (command) + "Return absolute name of COMMAND if found in an sbin directory." + (let ((exec-path '("/sbin" "/usr/sbin" "/usr/local/sbin"))) + (executable-find command))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Customization Variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -85,10 +89,13 @@ These options can be used to limit how many ICMP packets are emitted." (define-obsolete-variable-alias 'ipconfig-program 'ifconfig-program "22.2") (defcustom ifconfig-program - (if (eq system-type 'windows-nt) - "ipconfig" - "ifconfig") + (cond ((eq system-type 'windows-nt) "ipconfig") + ((executable-find "ifconfig") "ifconfig") + ((net-utils--executable-find-sbin "ifconfig")) + ((net-utils--executable-find-sbin "ip")) + (t "ip")) "Program to print network configuration information." + :version "25.1" ; add ip :group 'net-utils :type 'string) @@ -96,10 +103,12 @@ These options can be used to limit how many ICMP packets are emitted." 'ifconfig-program-options "22.2") (defcustom ifconfig-program-options - (list - (if (eq system-type 'windows-nt) - "/all" "-a")) + (cond ((string-match "ipconfig\\'" ifconfig-program) '("/all")) + ((string-match "ifconfig\\'" ifconfig-program) '("-a")) + ((string-match "ip\\'" ifconfig-program) '("addr"))) "Options for the ifconfig program." + :version "25.1" + :set-after '(ifconfig-program) :group 'net-utils :type '(repeat string)) @@ -126,7 +135,7 @@ These options can be used to limit how many ICMP packets are emitted." :group 'net-utils :type '(repeat string)) -(defcustom arp-program "arp" +(defcustom arp-program (or (net-utils--executable-find-sbin "arp") "arp") "Program to print IP to address translation tables." :group 'net-utils :type 'string) diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 072fd015b60..2bec11ee3a3 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -502,8 +502,8 @@ This is a list of the form where LABEL is a symbol. TITLE, DESCRIPTION, and LINK are strings. TIME is a time value as returned by `current-time'. -AGE is a symbol: 'new, 'old, 'immortal, and 'obsolete denote -ordinary news items, whereas 'feed denotes an item which is not a +AGE is a symbol: `new', `old', `immortal', and `obsolete' denote +ordinary news items, whereas `feed' denotes an item which is not a headline but describes the feed itself. INDEX denotes the original position of the item -- used for restoring the original order. PREFORMATTED-CONTENTS and PREFORMATTED-TITLE hold the @@ -1987,7 +1987,7 @@ Renders the HTML code in the region POS1 to POS2 using htmlr." (defun newsticker--cache-replace-age (data feed old-age new-age) "Mark all items in DATA in FEED which carry age OLD-AGE with NEW-AGE. -If FEED is 'any it applies to all feeds. If OLD-AGE is 'any, +If FEED is `any' it applies to all feeds. If OLD-AGE is `any', all marks are replaced by NEW-AGE. Removes all pre-formatted contents." (mapc (lambda (a-feed) (when (or (eq feed 'any) @@ -2038,7 +2038,7 @@ The properties which are checked are TITLE, DESC, LINK, AGE, and GUID. In general all properties must match in order to return a certain item, except for the following cases. -If AGE equals 'feed the TITLE, DESCription and LINK do not +If AGE equals `feed' the TITLE, DESCription and LINK do not matter. If DESC is nil it is ignored as well. If `newsticker-desc-comp-max' is non-nil, only the first `newsticker-desc-comp-max' characters of DESC are taken into @@ -2143,7 +2143,7 @@ which the item got." (defun newsticker--cache-remove (data feed-symbol age) "Remove all entries from DATA in the feed FEED-SYMBOL with AGE. -FEED-SYMBOL may be 'any. Entries from old feeds, which are no longer in +FEED-SYMBOL may be `any'. Entries from old feeds, which are no longer in `newsticker-url-list' or `newsticker-url-list-defaults', are removed as well." (let* ((pos data) diff --git a/lisp/net/newst-plainview.el b/lisp/net/newst-plainview.el index 0cb5d8c6a2f..b4e569078a9 100644 --- a/lisp/net/newst-plainview.el +++ b/lisp/net/newst-plainview.el @@ -228,7 +228,7 @@ Each function is called after one of `newsticker-next-item', `newsticker-next-new-item', `newsticker-previous-item', `newsticker-previous-new-item' has been called. -The default value 'newsticker--buffer-make-item-completely-visible +The default value `newsticker--buffer-make-item-completely-visible' assures that the current item is always completely visible." :type 'hook :options '(newsticker--buffer-make-item-completely-visible) @@ -240,7 +240,7 @@ assures that the current item is always completely visible." Each function is called after one of `newsticker-next-feed', and `newsticker-previous-feed' has been called. -The default value 'newsticker--buffer-make-item-completely-visible +The default value `newsticker--buffer-make-item-completely-visible' assures that the current feed is completely visible." :type 'hook :options '(newsticker--buffer-make-item-completely-visible) @@ -251,7 +251,7 @@ assures that the current feed is completely visible." "List of functions run after the newsticker buffer has been updated. Each function is called after `newsticker-buffer-update' has been called. -The default value `\\='newsticker-w3m-show-inline-images' loads inline +The default value `newsticker-w3m-show-inline-images' loads inline images." :type 'hook :group 'newsticker-plainview-hooks) @@ -263,7 +263,7 @@ Each function is called after `newsticker-toggle-auto-narrow-to-feed' or `newsticker-toggle-auto-narrow-to-item' has been called. -The default value `\\='newsticker-w3m-show-inline-images' loads inline +The default value `newsticker-w3m-show-inline-images' loads inline images." :type 'hook :group 'newsticker-plainview-hooks) @@ -1524,8 +1524,8 @@ Scans the buffer between START and END." (defun newsticker--buffer-set-invisibility (start end) "Add invisibility properties according to nt-type property. -Scans the buffer between START and END. Sets the 'invisible -property to '(<nt-type>-<nt-age> <nt-type> <nt-age>)." +Scans the buffer between START and END. Sets the `invisible' +property to (<nt-type>-<nt-age> <nt-type> <nt-age>)." (save-excursion ;; reset invisibility settings (put-text-property start end 'invisible nil) diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index 0c2df8897d7..4f81b864970 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -267,28 +267,34 @@ their id stays constant." "Render text between markers START and END." (if newsticker-html-renderer (condition-case error-data - (save-excursion - (set-marker-insertion-type end t) - ;; check whether it is necessary to call html renderer - ;; (regexp inspired by htmlr.el) - (goto-char start) - (when (re-search-forward - "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" end t) - ;; (message "%s" (newsticker--title item)) - (let ((w3m-fill-column (if newsticker-use-full-width - -1 fill-column)) - (w3-maximum-line-length - (if newsticker-use-full-width nil fill-column))) - (save-excursion - (funcall newsticker-html-renderer start end))) - ;;(cond ((eq newsticker-html-renderer 'w3m-region) - ;; (add-text-properties start end (list 'keymap - ;; w3m-minor-mode-map))) - ;;((eq newsticker-html-renderer 'w3-region) - ;;(add-text-properties start end (list 'keymap w3-mode-map)))) - (if (eq newsticker-html-renderer 'w3m-region) - (w3m-toggle-inline-images t)) - t)) + ;; Need to save selected window in order to prevent mixing + ;; up contents of the item buffer. This happens with shr + ;; which does some smart optimizations that apparently + ;; interfere with our own, maybe not-so-smart, optimizations. + (save-selected-window + (save-excursion + (set-marker-insertion-type end t) + ;; check whether it is necessary to call html renderer + ;; (regexp inspired by htmlr.el) + (goto-char start) + (when (re-search-forward + "</?[A-Za-z1-6]*\\|&#?[A-Za-z0-9]+;" end t) + ;; (message "%s" (newsticker--title item)) + (let ((w3m-fill-column (if newsticker-use-full-width + -1 fill-column)) + (w3-maximum-line-length + (if newsticker-use-full-width nil fill-column))) + (select-window (newsticker--treeview-item-window)) + (save-excursion + (funcall newsticker-html-renderer start end))) + ;;(cond ((eq newsticker-html-renderer 'w3m-region) + ;; (add-text-properties start end (list 'keymap + ;; w3m-minor-mode-map))) + ;;((eq newsticker-html-renderer 'w3-region) + ;;(add-text-properties start end (list 'keymap w3-mode-map)))) + (if (eq newsticker-html-renderer 'w3m-region) + (w3m-toggle-inline-images t)) + t))) (error (message "Error: HTML rendering failed: %s, %s" (car error-data) (cdr error-data)) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index d58f3ebd4ea..3539dcf91f4 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -320,7 +320,7 @@ Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT." (defcustom rcirc-decode-coding-system 'utf-8 "Coding system used to decode incoming irc messages. -Set to 'undecided if you want the encoding of the incoming +Set to `undecided' if you want the encoding of the incoming messages autodetected." :type 'coding-system :group 'rcirc) diff --git a/lisp/net/sasl-scram-rfc.el b/lisp/net/sasl-scram-rfc.el index 18d7a6bfa18..34d6ddbd679 100644 --- a/lisp/net/sasl-scram-rfc.el +++ b/lisp/net/sasl-scram-rfc.el @@ -3,6 +3,7 @@ ;; Copyright (C) 2014-2015 Free Software Foundation, Inc. ;; Author: Magnus Henoch <magnus.henoch@gmail.com> +;; Package: sasl ;; This file is part of GNU Emacs. diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 0b80e81abbc..0effa93b197 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -257,7 +257,8 @@ DOM should be a parse tree as generated by (if (and (null shr-width) (not (shr--have-one-fringe-p))) (* (frame-char-width) 2) - 0)))))) + 0))))) + bidi-display-reordering) (shr-descend dom) (shr-fill-lines start (point)) (shr-remove-trailing-whitespace start (point)) diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index 71d42459974..790084a4862 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el @@ -58,7 +58,7 @@ (require 'mm-decode) (defsubst soap-warning (message &rest args) - "Display a warning MESSAGE with ARGS, using the 'soap-client warning type." + "Display a warning MESSAGE with ARGS, using the `soap-client' warning type." ;; Do not use #'format-message, to support older Emacs versions. (display-warning 'soap-client (apply #'format message args) :warning)) @@ -562,7 +562,7 @@ fractional seconds, and the DST (daylight savings time) field is replaced with DATATYPE, a symbol representing the XSD primitive datatype. This symbol can be used to determine which fields apply and which don't when it's not already clear from context. -For example a datatype of 'time means the year, month and day +For example a datatype of `time' means the year, month and day fields should be ignored. This function will throw an error if DATE-TIME-STRING represents diff --git a/lisp/net/tls.el b/lisp/net/tls.el index 48e6a42186c..72fb50ed923 100644 --- a/lisp/net/tls.el +++ b/lisp/net/tls.el @@ -44,6 +44,8 @@ ;;; Code: +(require 'gnutls) + (autoload 'format-spec "format-spec") (autoload 'format-spec-make "format-spec") @@ -74,9 +76,10 @@ and `gnutls-cli' (version 2.0.1) output." :type 'regexp :group 'tls) -(defcustom tls-program '("gnutls-cli --insecure -p %p %h" - "gnutls-cli --insecure -p %p %h --protocols ssl3" - "openssl s_client -connect %h:%p -no_ssl2 -ign_eof") +(defcustom tls-program + '("gnutls-cli --x509cafile %t -p %p %h" + "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3" + "openssl s_client -connect %h:%p -no_ssl2 -ign_eof") "List of strings containing commands to start TLS stream to a host. Each entry in the list is tried until a connection is successful. %h is replaced with server hostname, %p with port to connect to. @@ -89,21 +92,17 @@ successful negotiation." :type '(choice (const :tag "Default list of commands" - ("gnutls-cli --insecure -p %p %h" - "gnutls-cli --insecure -p %p %h --protocols ssl3" - "openssl s_client -connect %h:%p -no_ssl2 -ign_eof")) + ("gnutls-cli --x509cafile %t -p %p %h" + "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3" + "openssl s_client -CAfile %t -connect %h:%p -no_ssl2 -ign_eof")) (list :tag "Choose commands" :value - ("gnutls-cli --insecure -p %p %h" - "gnutls-cli --insecure -p %p %h --protocols ssl3" + ("gnutls-cli --x509cafile %t -p %p %h" + "gnutls-cli --x509cafile %t -p %p %h --protocols ssl3" "openssl s_client -connect %h:%p -no_ssl2 -ign_eof") (set :inline t ;; FIXME: add brief `:tag "..."' descriptions. ;; (repeat :inline t :tag "Other" (string)) - ;; See `tls-checktrust': - (const "gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h") - (const "gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h --protocols ssl3") - (const "openssl s_client -connect %h:%p -CAfile /etc/ssl/certs/ca-certificates.crt -no_ssl2 -ign_eof") ;; No trust check: (const "gnutls-cli --insecure -p %p %h") (const "gnutls-cli --insecure -p %p %h --protocols ssl3") @@ -232,6 +231,7 @@ Fourth arg PORT is an integer specifying a port to connect to." (format-spec cmd (format-spec-make + ?t (car (gnutls-trustfiles)) ?h host ?p (if (integerp port) (int-to-string port) diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index c57102881bf..b6d6796255b 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -600,7 +600,8 @@ and replace a sub-expression, e.g. Store the result in LIST and return it. LIST must be a proper list. Of several `equal' occurrences of an element in LIST, the first one is kept." - (cl-delete-duplicates list '(:test equal :from-end) nil))) + (tramp-compat-funcall + 'cl-delete-duplicates list '(:test equal :from-end) nil))) (add-hook 'tramp-unload-hook (lambda () diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index c5a60751d5b..549d3b15abe 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -1740,20 +1740,25 @@ be used." (list user host))) (zeroconf-list-services service))) +;; We use the TRIM argument of `split-string', which exist since Emacs +;; 24.4. I mask this for older Emacs versions, there is no harm. (defun tramp-gvfs-parse-device-names (service) "Return a list of (user host) tuples allowed to access. This uses \"avahi-browse\" in case D-Bus is not enabled in Avahi." (let ((result - (split-string - (shell-command-to-string (format "avahi-browse -trkp %s" service)) - "[\n\r]+" 'omit "^\\+;.*$"))) + (ignore-errors + (tramp-compat-funcall + 'split-string + (shell-command-to-string (format "avahi-browse -trkp %s" service)) + "[\n\r]+" 'omit "^\\+;.*$")))) (tramp-compat-delete-dups (mapcar (lambda (x) (let* ((list (split-string x ";")) (host (nth 6 list)) (port (nth 8 list)) - (text (split-string (nth 9 list) "\" \"" 'omit "\"")) + (text (tramp-compat-funcall + 'split-string (nth 9 list) "\" \"" 'omit "\"")) user) ; (when (and port (not (string-equal port "0"))) ; (setq host (format "%s%s%s" host tramp-prefix-port-regexp port))) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index f5ff6a7adec..0dd2440e5e0 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -486,6 +486,7 @@ The string is used in `tramp-methods'.") ;; Solaris: /usr/xpg4/bin:/usr/ccs/bin:/usr/bin:/opt/SUNWspro/bin ;; GNU/Linux (Debian, Suse): /bin:/usr/bin ;; FreeBSD: /usr/bin:/bin:/usr/sbin:/sbin: - beware trailing ":"! +;; Darwin: /usr/bin:/bin:/usr/sbin:/sbin ;; IRIX64: /usr/bin ;;;###tramp-autoload (defcustom tramp-remote-path @@ -597,9 +598,14 @@ we have this shell function.") use File::Spec; use Cwd \"realpath\"; +sub myrealpath { + my ($file) = @_; + return realpath($file) if -e $file; +} + sub recursive { my ($volume, @dirs) = @_; - my $real = realpath(File::Spec->catpath( + my $real = myrealpath(File::Spec->catpath( $volume, File::Spec->catdir(@dirs), \"\")); if ($real) { my ($vol, $dir) = File::Spec->splitpath($real, 1); @@ -613,7 +619,7 @@ sub recursive { } } -$result = realpath($ARGV[0]); +$result = myrealpath($ARGV[0]); if (!$result) { my ($vol, $dir) = File::Spec->splitpath($ARGV[0], 1); ($vol, @dirs) = recursive($vol, File::Spec->splitdir($dir)); @@ -621,10 +627,7 @@ if (!$result) { $result = File::Spec->catpath($vol, File::Spec->catdir(@dirs), \"\"); } -if ($ARGV[0] =~ /\\/$/) { - $result = $result . \"/\"; -} - +$result =~ s/\"/\\\\\"/g; print \"\\\"$result\\\"\\n\"; ' \"$1\" 2>/dev/null" "Perl script to produce output suitable for use with `file-truename' @@ -1143,20 +1146,17 @@ target of the symlink differ." ;; Do it yourself. We bind `directory-sep-char' here for ;; XEmacs on Windows, which would otherwise use backslash. - (t (let* ((directory-sep-char ?/) - (steps (tramp-compat-split-string localname "/")) - (localnamedir (tramp-run-real-handler - 'file-name-as-directory (list localname))) - (is-dir (string= localname localnamedir)) - (thisstep nil) - (numchase 0) - ;; Don't make the following value larger than - ;; necessary. People expect an error message in - ;; a timely fashion when something is wrong; - ;; otherwise they might think that Emacs is hung. - ;; Of course, correctness has to come first. - (numchase-limit 20) - symlink-target) + (t (let ((directory-sep-char ?/) + (steps (tramp-compat-split-string localname "/")) + (thisstep nil) + (numchase 0) + ;; Don't make the following value larger than + ;; necessary. People expect an error message in a + ;; timely fashion when something is wrong; + ;; otherwise they might think that Emacs is hung. + ;; Of course, correctness has to come first. + (numchase-limit 20) + symlink-target) (while (and steps (< numchase numchase-limit)) (setq thisstep (pop steps)) (tramp-message @@ -1212,10 +1212,8 @@ target of the symlink differ." (if result (mapconcat 'identity (cons "" result) "/") "/")) - (when (and is-dir - (or (string= "" result) - (not (string= (substring result -1) "/")))) - (setq result (concat result "/")))))) + (when (string= "" result) + (setq result "/"))))) (tramp-message v 4 "True name of `%s' is `%s'" localname result) result)))) @@ -1276,11 +1274,15 @@ target of the symlink differ." (tramp-get-test-command vec) (tramp-shell-quote-argument localname) (tramp-get-ls-command vec) + (if (eq id-format 'integer) "-ildn" "-ild") ;; On systems which have no quoting style, file names ;; with special characters could fail. - (if (tramp-get-ls-command-with-quoting-style vec) - "--quoting-style=c" "") - (if (eq id-format 'integer) "-ildn" "-ild") + (cond + ((tramp-get-ls-command-with-quoting-style vec) + "--quoting-style=c") + ((tramp-get-ls-command-with-w-option vec) + "-w") + (t "")) (tramp-shell-quote-argument localname))) ;; Parse `ls -l' output ... (with-current-buffer (tramp-get-buffer vec) @@ -1837,10 +1839,14 @@ be non-negative integers." "-- 2>/dev/null | sed -e 's/\"/\\\\\"/g' -e 's/%s/\"/g'); echo \")\"") (tramp-shell-quote-argument localname) (tramp-get-ls-command vec) - ;; On systems which have no quoting style, file names with - ;; special characters could fail. - (if (tramp-get-ls-command-with-quoting-style vec) - "--quoting-style=shell" "") + ;; On systems which have no quoting style, file names with special + ;; characters could fail. + (cond + ((tramp-get-ls-command-with-quoting-style vec) + "--quoting-style=shell") + ((tramp-get-ls-command-with-w-option vec) + "-w") + (t "")) (tramp-get-remote-stat vec) tramp-stat-marker tramp-stat-marker tramp-stat-marker tramp-stat-marker @@ -4149,7 +4155,8 @@ seconds. If not, it produces an error message with the given ERROR-ARGS." "Set up an interactive shell. Mainly sets the prompt and the echo correctly. PROC is the shell process to set up. VEC specifies the connection." - (let ((tramp-end-of-output tramp-initial-end-of-output)) + (let ((tramp-end-of-output tramp-initial-end-of-output) + (case-fold-search t)) (tramp-open-shell vec (tramp-get-method-parameter vec 'tramp-remote-shell)) ;; Disable tab and echo expansion. @@ -4174,6 +4181,25 @@ process to set up. VEC specifies the connection." vec (format "PS1=%s PS2='' PS3='' PROMPT_COMMAND=''" (tramp-shell-quote-argument tramp-end-of-output)) t) + ;; Check whether the output of "uname -sr" has been changed. If + ;; yes, this is a strong indication that we must expire all + ;; connection properties. We start again with + ;; `tramp-maybe-open-connection', it will be caught there. + (tramp-message vec 5 "Checking system information") + (let ((old-uname (tramp-get-connection-property vec "uname" nil)) + (new-uname + (tramp-set-connection-property + vec "uname" + (tramp-send-command-and-read vec "echo \\\"`uname -sr`\\\"")))) + (when (and (stringp old-uname) (not (string-equal old-uname new-uname))) + (tramp-message + vec 3 + "Connection reset, because remote host changed from `%s' to `%s'" + old-uname new-uname) + ;; We want to keep the password. + (tramp-cleanup-connection vec t t) + (throw 'uname-changed (tramp-maybe-open-connection vec)))) + ;; Try to set up the coding system correctly. ;; CCC this can't be the right way to do it. Hm. (tramp-message vec 5 "Determining coding system") @@ -4182,7 +4208,7 @@ process to set up. VEC specifies the connection." ;; Use MULE to select the right EOL convention for communicating ;; with the process. (let ((cs (or (and (memq 'utf-8 (coding-system-list)) - (string-match "utf8" (tramp-get-remote-locale vec)) + (string-match "utf-?8" (tramp-get-remote-locale vec)) (cons 'utf-8 'utf-8)) (tramp-compat-funcall 'process-coding-system proc) (cons 'undecided 'undecided))) @@ -4192,8 +4218,12 @@ process to set up. VEC specifies the connection." (setq cs-encode (cdr cs)) (unless cs-decode (setq cs-decode 'undecided)) (unless cs-encode (setq cs-encode 'undecided)) - (setq cs-encode (tramp-compat-coding-system-change-eol-conversion - cs-encode 'unix)) + (setq cs-encode + (tramp-compat-coding-system-change-eol-conversion + cs-encode + (if (string-match + "^Darwin" (tramp-get-connection-property vec "uname" "")) + 'mac 'unix))) (tramp-send-command vec "echo foo ; echo bar" t) (goto-char (point-min)) (when (search-forward "\r" nil t) @@ -4212,25 +4242,6 @@ process to set up. VEC specifies the connection." (tramp-send-command vec "set +o vi +o emacs" t) - ;; Check whether the output of "uname -sr" has been changed. If - ;; yes, this is a strong indication that we must expire all - ;; connection properties. We start again with - ;; `tramp-maybe-open-connection', it will be caught there. - (tramp-message vec 5 "Checking system information") - (let ((old-uname (tramp-get-connection-property vec "uname" nil)) - (new-uname - (tramp-set-connection-property - vec "uname" - (tramp-send-command-and-read vec "echo \\\"`uname -sr`\\\"")))) - (when (and (stringp old-uname) (not (string-equal old-uname new-uname))) - (tramp-message - vec 3 - "Connection reset, because remote host changed from `%s' to `%s'" - old-uname new-uname) - ;; We want to keep the password. - (tramp-cleanup-connection vec t t) - (throw 'uname-changed (tramp-maybe-open-connection vec)))) - ;; Check whether the remote host suffers from buggy ;; `send-process-string'. This is known for FreeBSD (see comment in ;; `send_process', file process.c). I've tested sending 624 bytes @@ -4264,7 +4275,7 @@ process to set up. VEC specifies the connection." (tramp-find-shell vec) ;; Disable unexpected output. - (tramp-send-command vec "mesg n; biff n" t) + (tramp-send-command vec "mesg n 2>/dev/null; biff n 2>/dev/null" t) ;; IRIX64 bash expands "!" even when in single quotes. This ;; destroys our shell functions, we must disable it. See @@ -4277,6 +4288,10 @@ process to set up. VEC specifies the connection." (tramp-get-connection-property vec "uname" "")) (tramp-send-command vec "stty -oxtabs" t)) + ;; Set utf8 encoding. Needed for Mac OS X, for example. This is + ;; non-POSIX, so we must expect errors on some systems. + (tramp-send-command vec "stty iutf8 2>/dev/null" t) + ;; Set `remote-tty' process property. (let ((tty (tramp-send-command-and-read vec "echo \\\"`tty`\\\"" 'noerror))) (unless (zerop (length tty)) @@ -5295,21 +5310,26 @@ Return ATTR." ;; The login shell could return more than just the $PATH ;; string. So we use `tramp-end-of-heredoc' as marker. (when elt2 - (tramp-send-command-and-read - vec - (format - "%s %s %s 'echo %s \\\"$PATH\\\"'" - (tramp-get-method-parameter vec 'tramp-remote-shell) - (mapconcat - 'identity - (tramp-get-method-parameter vec 'tramp-remote-shell-login) - " ") - (mapconcat - 'identity - (tramp-get-method-parameter vec 'tramp-remote-shell-args) - " ") - (tramp-shell-quote-argument tramp-end-of-heredoc)) - nil (regexp-quote tramp-end-of-heredoc))))) + (or + (tramp-send-command-and-read + vec + (format + "%s %s %s 'echo %s \\\"$PATH\\\"'" + (tramp-get-method-parameter vec 'tramp-remote-shell) + (mapconcat + 'identity + (tramp-get-method-parameter vec 'tramp-remote-shell-login) + " ") + (mapconcat + 'identity + (tramp-get-method-parameter vec 'tramp-remote-shell-args) + " ") + (tramp-shell-quote-argument tramp-end-of-heredoc)) + 'noerror (regexp-quote tramp-end-of-heredoc)) + (progn + (tramp-message + vec 2 "Could not retrieve `tramp-own-remote-path'") + nil))))) ;; Replace place holder `tramp-default-remote-path'. (when elt1 @@ -5353,7 +5373,7 @@ Return ATTR." (defun tramp-get-remote-locale (vec) (with-tramp-connection-property vec "locale" (tramp-send-command vec "locale -a") - (let ((candidates '("en_US.utf8" "C.utf8")) + (let ((candidates '("en_US.utf8" "C.utf8" "en_US.UTF-8")) locale) (with-current-buffer (tramp-get-connection-buffer vec) (while candidates @@ -5405,13 +5425,20 @@ Return ATTR." (save-match-data (with-tramp-connection-property vec "ls-quoting-style" (tramp-message vec 5 "Checking, whether `ls --quoting-style=shell' works") - ;; Some "ls" versions are sensible wrt the order of arguments, - ;; they fail when "-al" is after the "--dired" argument (for - ;; example on FreeBSD). (tramp-send-command-and-check vec (format "%s --quoting-style=shell -al /dev/null" (tramp-get-ls-command vec)))))) +(defun tramp-get-ls-command-with-w-option (vec) + (save-match-data + (with-tramp-connection-property vec "ls-w-option" + (tramp-message vec 5 "Checking, whether `ls -w' works") + ;; Option "-w" is available on BSD systems. No argument is + ;; given, because this could return wrong results in case "ls" + ;; supports the "-w NUM" argument, as for busyboxes. + (tramp-send-command-and-check + vec (format "%s -alw" (tramp-get-ls-command vec)))))) + (defun tramp-get-test-command (vec) (with-tramp-connection-property vec "test" (tramp-message vec 5 "Finding a suitable `test' command") diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 42a9e3d6710..b7f53095a8e 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -694,8 +694,8 @@ Useful for \"rsync\" like methods.") It can have the following values: - 'ftp -- Ange-FTP respective EFS like syntax (GNU Emacs default) - 'sep -- Syntax as defined for XEmacs." + `ftp' -- Ange-FTP respective EFS like syntax (GNU Emacs default) + `sep' -- Syntax as defined for XEmacs." :group 'tramp :version "24.4" :type `(choice (const :tag ,(if (featurep 'xemacs) "EFS" "Ange-FTP") ftp) @@ -1291,8 +1291,8 @@ This is HOST, if non-nil. Otherwise, it is `tramp-default-host'." (defun tramp-dissect-file-name (name &optional nodefault) "Return a `tramp-file-name' structure. -The structure consists of remote method, remote user, remote host -and localname (file name on remote host). If NODEFAULT is +The structure consists of remote method, remote user, remote host, +localname (file name on remote host) and hop. If NODEFAULT is non-nil, the file name parts are not expanded to their default values." (save-match-data diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 5c42f3a828a..f93cfc4e8ae 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el @@ -6,6 +6,7 @@ ;; Author: Kai Großjohann <kai.grossjohann@gmx.net> ;; Keywords: comm, processes ;; Package: tramp +;; Version: 2.2.13.25.1 ;; This file is part of GNU Emacs. @@ -31,7 +32,7 @@ ;; should be changed only there. ;;;###tramp-autoload -(defconst tramp-version "2.2.13-pre" +(defconst tramp-version "2.2.13.25.1" "This version of Tramp.") ;;;###tramp-autoload @@ -62,7 +63,7 @@ (= emacs-major-version 21) (>= emacs-minor-version 4))) "ok" - (format "Tramp 2.2.13-pre is not fit for %s" + (format "Tramp 2.2.13.25.1 is not fit for %s" (when (string-match "^.*$" (emacs-version)) (match-string 0 (emacs-version))))))) (unless (string-match "\\`ok\\'" x) (error "%s" x))) diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el index 87dedacbe1d..e67ae5e2e53 100644 --- a/lisp/obsolete/complete.el +++ b/lisp/obsolete/complete.el @@ -1074,7 +1074,7 @@ absolute rather than relative to some directory on the SEARCH-PATH." (setq search-path (mapcar (lambda (dir) (concat dir subdir)) search-path) - file )) + file nil)) ;; Make list of completions in each directory on search-path (while search-path (let* ((dir (car search-path)) diff --git a/lisp/net/eudcb-ph.el b/lisp/obsolete/eudcb-ph.el index f144bf695f5..c847c2a1674 100644 --- a/lisp/net/eudcb-ph.el +++ b/lisp/obsolete/eudcb-ph.el @@ -7,6 +7,7 @@ ;; Maintainer: Thomas Fitzsimmons <fitzsim@fitzsim.org> ;; Keywords: comm ;; Package: eudc +;; Obsolete-since: 25.1 ;; This file is part of GNU Emacs. diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el index 11cd2530dd7..271a015323c 100644 --- a/lisp/org/ob-core.el +++ b/lisp/org/ob-core.el @@ -1402,7 +1402,7 @@ specified in the properties of the current outline entry." ALTS is a cons of two character options where each option may be either the numeric code of a single character or a list of character alternatives. For example to split on balanced -instances of \"[ \t]:\" set ALTS to '((32 9) . 58)." +instances of \"[ \t]:\" set ALTS to ((32 9) . 58)." (let* ((matches (lambda (ch spec) (if (listp spec) (member ch spec) (equal spec ch)))) (matched (lambda (ch last) (if (consp alts) @@ -1511,7 +1511,7 @@ shown below. ;; row and column names (defun org-babel-del-hlines (table) - "Remove all 'hlines from TABLE." + "Remove all `hline's from TABLE." (remove 'hline table)) (defun org-babel-get-colnames (table) diff --git a/lisp/org/ob-exp.el b/lisp/org/ob-exp.el index 92006f81756..58bd1ec7758 100644 --- a/lisp/org/ob-exp.el +++ b/lisp/org/ob-exp.el @@ -53,7 +53,7 @@ (defcustom org-export-babel-evaluate t "Switch controlling code evaluation during export. When set to nil no code will be evaluated as part of the export -process. When set to 'inline-only, only inline code blocks will +process. When set to `inline-only', only inline code blocks will be executed." :group 'org-babel :version "24.1" diff --git a/lisp/org/ob-table.el b/lisp/org/ob-table.el index 1f381dbe570..47a538cbd99 100644 --- a/lisp/org/ob-table.el +++ b/lisp/org/ob-table.el @@ -67,7 +67,7 @@ element list, whose first element is the name of the variable and second element is a string of its value. The following call to `org-sbe' would be equivalent to the following source code block. - (org-sbe 'source-block (n $2) (m 3)) + (org-sbe \\='source-block (n $2) (m 3)) #+begin_src emacs-lisp :var results=source-block(n=val_at_col_2, m=3) :results silent results @@ -84,7 +84,7 @@ the header argument which can then be passed before all variables as shown in the example below. | 1 | 2 | :file nothing.png | nothing.png | -#+TBLFM: @1$4='(org-sbe test-sbe $3 (x $1) (y $2))" +#+TBLFM: @1$4=\\='(org-sbe test-sbe $3 (x $1) (y $2))" (declare (debug (form form))) (let* ((header-args (if (stringp (car variables)) (car variables) "")) (variables (if (stringp (car variables)) (cdr variables) variables))) diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 0b3be562489..4e42004d97d 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -7085,8 +7085,8 @@ their type." ;;;###autoload (defun org-agenda-set-restriction-lock (&optional type) "Set restriction lock for agenda, to current subtree or file. -Restriction will be the file if TYPE is `file', or if type is the -universal prefix '(4), or if the cursor is before the first headline +Restriction will be the file if TYPE is `file', or if TYPE is the +universal prefix `(4)', or if the cursor is before the first headline in the file. Otherwise, restriction will be to the current subtree." (interactive "P") (and (equal type '(4)) (setq type 'file)) diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el index 46936f4b66f..1b46b80eb0a 100644 --- a/lisp/org/org-faces.el +++ b/lisp/org/org-faces.el @@ -666,7 +666,7 @@ belong to the weekend." (0.0 . default)) "Faces for showing deadlines in the agenda. This is a list of cons cells. The cdr of each cell is a face to be used, -and it can also just be like '(:foreground \"yellow\"). +and it can also just be like (:foreground \"yellow\"). Each car is a fraction of the head-warning time that must have passed for this the face in the cdr to be used for display. The numbers must be given in descending order. The head-warning time is normally taken diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index c8266500fe3..12d4db39b65 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el @@ -174,7 +174,7 @@ to the bullet that should be used when this item is demoted. For example, (setq org-list-demote-modify-bullet - '((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\"))) + \\='((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\"))) will make diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el index ea8e7b532aa..0b10f55247f 100644 --- a/lisp/org/org-macs.el +++ b/lisp/org/org-macs.el @@ -137,7 +137,7 @@ Otherwise return nil." ;; FIXME: Slated for removal. Current Org mode does not support Emacs < 22 (defmacro org-maybe-intangible (props) - "Add '(intangible t) to PROPS if Emacs version is earlier than Emacs 22. + "Add (intangible t) to PROPS if Emacs version is earlier than Emacs 22. In Emacs 21, invisible text is not avoided by the command loop, so the intangible property is needed to make sure point skips this text. In Emacs 22, this is not necessary. The intangible text property has diff --git a/lisp/org/org.el b/lisp/org/org.el index 7a6d6cc1b3f..957a7d029ec 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el @@ -7094,7 +7094,7 @@ open and agenda-wise Org files." (org-flag-drawer t)))))) (defun org-cycle-hide-inline-tasks (state) - "Re-hide inline tasks when switching to 'contents or 'children + "Re-hide inline tasks when switching to `contents' or `children' visibility state." (case state (contents @@ -7323,8 +7323,8 @@ returns to the original buffer in which the visibility is still unchanged. After RET it will also jump to the location selected in the indirect buffer and expose the headline hierarchy above. -With a prefix argument, use the alternative interface: e.g. if -`org-goto-interface' is 'outline use 'outline-path-completion." +With a prefix argument, use the alternative interface: e.g., if +`org-goto-interface' is `outline' use `outline-path-completion'." (interactive "P") (org-goto-map) (let* ((org-refile-targets `((nil . (:maxlevel . ,org-goto-max-level)))) diff --git a/lisp/paren.el b/lisp/paren.el index 30314c2f9c8..5825d6a4f72 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -87,7 +87,10 @@ whitespace there." 'show-paren-mismatch "22.1") (defcustom show-paren-highlight-openparen t - "Non-nil turns on openparen highlighting when matching forward." + "Non-nil turns on openparen highlighting when matching forward. +When nil, and point stands just before an open paren, the paren +is not highlighted, the cursor being regarded as adequate to mark +its position." :type 'boolean) (defvar show-paren--idle-timer nil) diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index ba137f54d8c..8aba50b8dc5 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -1321,29 +1321,8 @@ for a moment, then straighten yourself up. (setq new-inven (append new-inven (list x))))) (setq dun-inventory new-inven))) - -(let ((i 0) (lower "abcdefghijklmnopqrstuvwxyz") upper) - (setq dun-translate-table (make-vector 256 0)) - (while (< i 256) - (aset dun-translate-table i i) - (setq i (1+ i))) - (setq lower (concat lower lower)) - (setq upper (upcase lower)) - (setq i 0) - (while (< i 26) - (aset dun-translate-table (+ ?a i) (aref lower (+ i 13))) - (aset dun-translate-table (+ ?A i) (aref upper (+ i 13))) - (setq i (1+ i)))) - (defun dun-rot13 () - (let (str len (i 0)) - (setq str (buffer-substring (point-min) (point-max))) - (setq len (length str)) - (while (< i len) - (aset str i (aref dun-translate-table (aref str i))) - (setq i (1+ i))) - (erase-buffer) - (insert str))) + (rot13-region (point-min) (point-max))) ;;;; ;;;; This section defines the globals that are used in dunnet. diff --git a/lisp/printing.el b/lisp/printing.el index ae0f3fdbc67..b02b10a6fb4 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -2929,7 +2929,7 @@ INHERITS Specify the inheritance for SYMBOL group. It's a symbol name Let's see an example to illustrate the inheritance mechanism: (setq pr-setting-database - '((no-duplex ; setting symbol name + \\='((no-duplex ; setting symbol name nil ; inherits nil nil ; local kill-local (pr-file-duplex . nil) ; settings @@ -2979,9 +2979,9 @@ SETTING It's a cons like: This setting is ignored if VARIABLE is equal to keyword `inherits-from:'. Examples: - '(ps-landscape-mode . nil) - '(ps-spool-duplex . t) - '(pr-gs-device . (my-gs-device t))" + (ps-landscape-mode . nil) + (ps-spool-duplex . t) + (pr-gs-device . (my-gs-device t))" :type '(repeat (list :tag "" diff --git a/lisp/proced.el b/lisp/proced.el index 502a90e2dc9..5bd53e47db5 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -159,15 +159,15 @@ argument, the value of the attribute. The value nil means take as is. If JUSTIFY is an integer, its modulus gives the width of the attribute values formatted with FORMAT. If JUSTIFY is positive, NAME appears -right-justified, otherwise it appears left-justified. If JUSTIFY is 'left -or 'right, the field width is calculated from all field values in the listing. -If JUSTIFY is 'left, the field values are formatted left-justified and +right-justified, otherwise it appears left-justified. If JUSTIFY is `left' +or `right', the field width is calculated from all field values in the listing. +If JUSTIFY is `left', the field values are formatted left-justified and right-justified otherwise. PREDICATE is the predicate for sorting and filtering the process listing based on attribute KEY. PREDICATE takes two arguments P1 and P2, the corresponding attribute values of two processes. PREDICATE should -return 'equal if P1 has same rank like P2. Any other non-nil value says +return `equal' if P1 has same rank like P2. Any other non-nil value says that P1 is \"less than\" P2, or nil if not. If PREDICATE is nil the attribute cannot be sorted. @@ -178,7 +178,7 @@ SORT-SCHEME is a list (KEY1 KEY2 ...) defining a hierarchy of rules for sorting the process listing. KEY1, KEY2, ... are KEYs appearing as cars of `proced-grammar-alist'. First the PREDICATE of KEY1 is evaluated. If it yields non-equal, it defines the sort order for the corresponding -processes. If it evaluates to 'equal the PREDICATE of KEY2 is evaluated, etc. +processes. If it evaluates to `equal' the PREDICATE of KEY2 is evaluated, etc. REFINER can be a list of flags (LESS-B EQUAL-B LARGER-B) used by the command `proced-refine' (see there) to refine the listing based on attribute KEY. @@ -186,7 +186,7 @@ This command compares the value of attribute KEY of every process with the value of attribute KEY of the process at the position of point using PREDICATE. If PREDICATE yields non-nil, the process is accepted if LESS-B is non-nil. -If PREDICATE yields 'equal, the process is accepted if EQUAL-B is non-nil. +If PREDICATE yields `equal', the process is accepted if EQUAL-B is non-nil. If PREDICATE yields nil, the process is accepted if LARGER-B is non-nil. REFINER can also be a list (FUNCTION HELP-ECHO). @@ -1251,9 +1251,9 @@ When called interactively, an empty string means nil, i.e., no sorting. Prefix ARG controls sort order: - If prefix ARG is positive (negative), sort in ascending (descending) order. -- If ARG is nil or 'no-arg and SCHEME is equal to the previous sorting scheme, +- If ARG is nil or `no-arg' and SCHEME is equal to the previous sorting scheme, reverse the sorting order. -- If ARG is nil or 'no-arg and SCHEME differs from the previous sorting scheme, +- If ARG is nil or `no-arg' and SCHEME differs from the previous sorting scheme, adopt the sorting order defined for SCHEME in `proced-grammar-alist'. Set variable `proced-sort' to SCHEME. The current sort scheme is displayed diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index a78c57c2053..921a904191c 100644 --- a/lisp/progmodes/bug-reference.el +++ b/lisp/progmodes/bug-reference.el @@ -69,7 +69,7 @@ so that it is considered safe, see `enable-local-variables'.") (get s 'bug-reference-url-format))))) (defcustom bug-reference-bug-regexp - "\\([Bb]ug ?#\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)" + "\\([Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)" "Regular expression matching bug references. The second subexpression should match the bug reference (usually a number)." :type 'string diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el index 077a18cc597..19a95aad676 100644 --- a/lisp/progmodes/cc-awk.el +++ b/lisp/progmodes/cc-awk.el @@ -72,7 +72,7 @@ (modify-syntax-entry ?\# "< " st) ;; / can delimit regexes or be a division operator. By default we assume ;; that it is a division sign, and fix the regexp operator cases with - ;; `font-lock-syntactic-keywords'. + ;; `c-awk-set-syntax-table-properties'. (modify-syntax-entry ?/ "." st) ; ACM 2002/4/27. (modify-syntax-entry ?* "." st) (modify-syntax-entry ?+ "." st) @@ -785,13 +785,16 @@ ;; Scan the buffer text between point and LIM, setting (and clearing) the ;; syntax-table property where necessary. ;; -;; This function is designed to be called as the FUNCTION in a MATCHER in -;; font-lock-syntactic-keywords, and it always returns NIL (to inhibit -;; repeated calls from font-lock: See elisp info page "Search-based -;; Fontification"). It also gets called, with a bit of glue, from -;; after-change-functions when font-lock isn't active. Point is left -;; "undefined" after this function exits. THE BUFFER SHOULD HAVE BEEN -;; WIDENED, AND ANY PRECIOUS MATCH-DATA SAVED BEFORE CALLING THIS ROUTINE. +;; This function is designed to be called as the FUNCTION in a MATCHER +;; in font-lock-syntactic-keywords, and it always returns NIL (to +;; inhibit repeated calls from font-lock: See elisp info page +;; "Search-based Fontification"). (2015-11-24: CC Mode doesn't use +;; `font-lock-syntactic-keywords' and hasn't done for a very long +;; time, if ever. ACM.) This function gets called, with a bit of +;; glue, from after-change-functions whether or not font-lock is +;; active. Point is left "undefined" after this function exits. THE +;; BUFFER SHOULD HAVE BEEN WIDENED, AND ANY PRECIOUS MATCH-DATA SAVED +;; BEFORE CALLING THIS ROUTINE. ;; ;; We need to set/clear the syntax-table property on: ;; (i) / - It is set to "string" on a / which is the opening or closing diff --git a/lisp/progmodes/cc-bytecomp.el b/lisp/progmodes/cc-bytecomp.el index 81b7a822b82..d3b4db74c16 100644 --- a/lisp/progmodes/cc-bytecomp.el +++ b/lisp/progmodes/cc-bytecomp.el @@ -252,6 +252,11 @@ perhaps a `cc-bytecomp-restore-environment' is forgotten somewhere")) (cc-bytecomp-debug-msg "cc-bytecomp-restore-environment: Done")))) +(defun cc-bytecomp-load (cc-part) + ;; A dummy function which will immediately be overwritten by the + ;; following at load time. This should suppress the byte compiler + ;; error that the function is "not known to be defined". +) (eval ;; This eval is to avoid byte compilation of the function below. ;; There's some bug in XEmacs 21.4.6 that can cause it to dump core @@ -284,9 +289,6 @@ perhaps a `cc-bytecomp-restore-environment' is forgotten somewhere")) (cc-bytecomp-setup-environment) t)))) -(defvar cc-bytecomp-noruntime-functions nil - "Saved value of `byte-compile-noruntime-functions'.") - (defmacro cc-require (cc-part) "Force loading of the corresponding .el file in the current directory during compilation, but compile in a `require'. Don't use within @@ -296,19 +298,37 @@ Having cyclic cc-require's will result in infinite recursion. That's somewhat intentional." `(progn (eval-when-compile - (if (boundp 'byte-compile-noruntime-functions) ; in case load uncompiled - (setq cc-bytecomp-noruntime-functions - byte-compile-noruntime-functions)) (cc-bytecomp-load (symbol-name ,cc-part))) - ;; Hack to suppress spurious "might not be defined at runtime" warnings. - ;; The basic issue is that - ;; (eval-when-compile (require 'foo)) - ;; (require 'foo) - ;; produces bogus noruntime warnings about functions from foo. - (eval-when-compile - (setq byte-compile-noruntime-functions cc-bytecomp-noruntime-functions)) (require ,cc-part))) +(defmacro cc-conditional-require (cc-part condition) + "If the CONDITION is satisfied at compile time, (i) force the +file CC-PART.el in the current directory to be loaded at compile +time, (ii) generate code to load the file at load time. + +CC-PART will normally be a quoted name such as 'cc-fix. +CONDITION should not be quoted." + (if (eval condition) + (progn + (cc-bytecomp-load (symbol-name (eval cc-part))) + `(require ,cc-part)) + '(progn))) + +(defmacro cc-conditional-require-after-load (cc-part file condition) + "If the CONDITION is satisfied at compile time, (i) force the +file CC-PART.el in the current directory to be loaded at compile +time, (ii) generate an `eval-after-load' form to load CC-PART.el +after the loading of FILE. + +CC-PART will normally be a quoted name such as 'cc-fix. FILE +should be a string. CONDITION should not be quoted." + (if (eval condition) + (progn + (cc-bytecomp-load (symbol-name (eval cc-part))) + `(eval-after-load ,file + '(require ,cc-part))) + '(progn))) + (defmacro cc-provide (feature) "A replacement for the `provide' form that restores the environment after the compilation. Don't use within `eval-when-compile'." diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index 1b6108ef0b2..8eed4b1b86e 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el @@ -75,37 +75,22 @@ ;; cc-fix.el contains compatibility macros that should be used if ;; needed. -(eval-and-compile - (if (or (/= (regexp-opt-depth "\\(\\(\\)\\)") 2) - (not (fboundp 'push))) - (cc-load "cc-fix"))) - -(when (featurep 'xemacs) ; There is now (2005/12) code in GNU Emacs CVS - ; to make the call to f-l-c-k throw an error. - (eval-after-load "font-lock" - '(if (and (not (featurep 'cc-fix)) ; only load the file once. - (let (font-lock-keywords) - (font-lock-compile-keywords '("\\<\\>")) - font-lock-keywords)) ; did the previous call foul this up? - (load "cc-fix")))) - -;; The above takes care of the delayed loading, but this is necessary -;; to ensure correct byte compilation. -(eval-when-compile - (if (and (featurep 'xemacs) - (not (featurep 'cc-fix)) - (progn - (require 'font-lock) - (let (font-lock-keywords) - (font-lock-compile-keywords '("\\<\\>")) - font-lock-keywords))) - (cc-load "cc-fix"))) - -;; XEmacs 21.4 doesn't have `delete-dups'. -(eval-and-compile - (if (and (not (fboundp 'delete-dups)) - (not (featurep 'cc-fix))) - (cc-load "cc-fix"))) +(cc-conditional-require + 'cc-fix (or (/= (regexp-opt-depth "\\(\\(\\)\\)") 2) + (not (fboundp 'push)) + ;; XEmacs 21.4 doesn't have `delete-dups'. + (not (fboundp 'delete-dups)))) + +(cc-conditional-require-after-load + 'cc-fix "font-lock" + (and + (featurep 'xemacs) + (progn + (require 'font-lock) + (let (font-lock-keywords) + (font-lock-compile-keywords '("\\<\\>")) + font-lock-keywords)))) + ;;; Variables also used at compile time. diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 6572cee2cc7..dbc55f5e0ef 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -5964,7 +5964,7 @@ comment at the start of cc-engine.el for more info." ;; Recursive part of `c-forward-<>-arglist'. ;; ;; This function might do hidden buffer changes. - (let ((start (point)) res pos tmp + (let ((start (point)) res pos ;; Cover this so that any recorded found type ranges are ;; automatically lost if it turns out to not be an angle ;; bracket arglist. It's propagated through the return value @@ -6059,15 +6059,13 @@ comment at the start of cc-engine.el for more info." ;; Either an operator starting with '<' or a nested arglist. (setq pos (point)) (let (id-start id-end subres keyword-match) - (cond + (cond ;; The '<' begins a multi-char operator. ((looking-at c-<-op-cont-regexp) - (setq tmp (match-end 0)) (goto-char (match-end 0))) ;; We're at a nested <.....> ((progn - (setq tmp pos) - (backward-char) ; to the '<' + (backward-char) ; to the '<' (and (save-excursion ;; There's always an identifier before an angle @@ -6087,7 +6085,9 @@ comment at the start of cc-engine.el for more info." (and keyword-match (c-keyword-member (c-keyword-sym (match-string 1)) - 'c-<>-type-kwds))))))) + 'c-<>-type-kwds)))))) + (or subres (goto-char pos)) + subres) ;; It was an angle bracket arglist. (setq c-record-found-types subres) @@ -6103,11 +6103,11 @@ comment at the start of cc-engine.el for more info." (c-record-ref-id (cons id-start id-end)) (c-record-type-id (cons id-start id-end))))) - ;; At a "less than" operator. - (t - (forward-char) - ))) - t) ; carry on looping. + ;; At a "less than" operator. + (t + ;; (forward-char) ; NO! We've already gone over the <. + ))) + t) ; carry on looping. ((and (not c-restricted-<>-arglists) (or (and (eq (char-before) ?&) @@ -6666,49 +6666,65 @@ comment at the start of cc-engine.el for more info." (or res (goto-char here)) res)) +(defmacro c-back-over-list-of-member-inits () + ;; Go back over a list of elements, each looking like: + ;; <symbol> (<expression>) , + ;; or <symbol> {<expression>} , + ;; when we are putatively immediately after a comma. Stop when we don't see + ;; a comma. If either of <symbol> or bracketed <expression> is missing, + ;; throw nil to 'level. If the terminating } or ) is unmatched, throw nil + ;; to 'done. This is not a general purpose macro! + `(while (eq (char-before) ?,) + (backward-char) + (c-backward-syntactic-ws) + (when (not (memq (char-before) '(?\) ?}))) + (throw 'level nil)) + (when (not (c-go-list-backward)) + (throw 'done nil)) + (c-backward-syntactic-ws) + (when (not (c-simple-skip-symbol-backward)) + (throw 'level nil)) + (c-backward-syntactic-ws))) + (defun c-back-over-member-initializers () ;; Test whether we are in a C++ member initializer list, and if so, go back ;; to the introducing ":", returning the position of the opening paren of ;; the function's arglist. Otherwise return nil, leaving point unchanged. (let ((here (point)) (paren-state (c-parse-state)) - res) - + pos level-plausible at-top-level res) + ;; Assume tentatively that we're at the top level. Try to go back to the + ;; colon we seek. (setq res (catch 'done - (if (not (c-at-toplevel-p)) - (progn - (while (not (c-at-toplevel-p)) - (goto-char (c-pull-open-brace paren-state))) - (c-backward-syntactic-ws) - (when (not (c-simple-skip-symbol-backward)) - (throw 'done nil)) - (c-backward-syntactic-ws)) - (c-backward-syntactic-ws) - (when (memq (char-before) '(?\) ?})) - (when (not (c-go-list-backward)) - (throw 'done nil)) - (c-backward-syntactic-ws)) - (when (c-simple-skip-symbol-backward) - (c-backward-syntactic-ws))) - - (while (eq (char-before) ?,) - (backward-char) - (c-backward-syntactic-ws) - - (when (not (memq (char-before) '(?\) ?}))) - (throw 'done nil)) - (when (not (c-go-list-backward)) - (throw 'done nil)) - (c-backward-syntactic-ws) - (when (not (c-simple-skip-symbol-backward)) - (throw 'done nil)) - (c-backward-syntactic-ws)) - - (and - (eq (char-before) ?:) - (c-just-after-func-arglist-p)))) + (setq level-plausible + (catch 'level + (c-backward-syntactic-ws) + (when (memq (char-before) '(?\) ?})) + (when (not (c-go-list-backward)) + (throw 'done nil)) + (c-backward-syntactic-ws)) + (when (c-simple-skip-symbol-backward) + (c-backward-syntactic-ws)) + (c-back-over-list-of-member-inits) + (and (eq (char-before) ?:) + (c-just-after-func-arglist-p)))) + + (while (and (not (and level-plausible + (setq at-top-level (c-at-toplevel-p)))) + (setq pos (c-pull-open-brace paren-state))) ; might be a paren. + (setq level-plausible + (catch 'level + (goto-char pos) + (c-backward-syntactic-ws) + (when (not (c-simple-skip-symbol-backward)) + (throw 'level nil)) + (c-backward-syntactic-ws) + (c-back-over-list-of-member-inits) + (and (eq (char-before) ?:) + (c-just-after-func-arglist-p))))) + (and at-top-level level-plausible))) (or res (goto-char here)) res)) @@ -8048,6 +8064,8 @@ brace. Note that this function might do hidden buffer changes. See the comment at the start of cc-engine.el for more info." + ;; Note to maintainers: this function consumes a great mass of CPU cycles. + ;; Its use should thus be minimized as far as possible. (let ((paren-state (c-parse-state))) (or (not (c-most-enclosing-brace paren-state)) (c-search-uplist-for-classkey paren-state)))) @@ -10052,7 +10070,8 @@ comment at the start of cc-engine.el for more info." ;; Note there is no limit on the backward search here, since member ;; init lists can, in practice, be very large. ((save-excursion - (when (setq placeholder (c-back-over-member-initializers)) + (when (and (c-major-mode-is 'c++-mode) + (setq placeholder (c-back-over-member-initializers))) (setq tmp-pos (point)))) (if (= (c-point 'bosws) (1+ tmp-pos)) (progn diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 7cda5ceaf1d..1a07c4cd699 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -403,7 +403,9 @@ The syntax tables aren't stored directly since they're quite large." table))) (c-lang-defvar c++-template-syntax-table (and (c-lang-const c++-make-template-syntax-table) - (funcall (c-lang-const c++-make-template-syntax-table)))) + ;; The next eval remove a superfluous ' from '(lambda. This + ;; gets rid of compilation warnings. + (funcall (eval (c-lang-const c++-make-template-syntax-table))))) (c-lang-defconst c-make-no-parens-syntax-table ;; A variant of the standard syntax table which is used to find matching @@ -426,7 +428,8 @@ The syntax tables aren't stored directly since they're quite large." table)))) (c-lang-defvar c-no-parens-syntax-table (and (c-lang-const c-make-no-parens-syntax-table) - (funcall (c-lang-const c-make-no-parens-syntax-table)))) + ;; See comment in `c++template-syntax-table' about the next `eval'. + (funcall (eval (c-lang-const c-make-no-parens-syntax-table))))) (c-lang-defconst c-identifier-syntax-modifications "A list that describes the modifications that should be done to the @@ -1430,6 +1433,14 @@ properly." "\\)\\s *")) (c-lang-setvar comment-start-skip (c-lang-const comment-start-skip)) +(c-lang-defconst comment-end-can-be-escaped + "When non-nil, escaped EOLs inside comments are valid. +This works in Emacs >= 25.1." + t nil + (c c++ objc) t) +(c-lang-setvar comment-end-can-be-escaped + (c-lang-const comment-end-can-be-escaped)) + (c-lang-defconst c-syntactic-ws-start ;; Regexp matching any sequence that can start syntactic whitespace. ;; The only uncertain case is '#' when there are cpp directives. diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index a46ee15ed5e..5d8af239972 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el @@ -99,10 +99,9 @@ (cc-bytecomp-defvar adaptive-fill-first-line-regexp) ; Emacs (cc-bytecomp-defun run-mode-hooks) ; Emacs 21.1 -;; We set these variables during mode init, yet we don't require +;; We set this variable during mode init, yet we don't require ;; font-lock. (cc-bytecomp-defvar font-lock-defaults) -(cc-bytecomp-defvar font-lock-syntactic-keywords) ;; Menu support for both XEmacs and Emacs. If you don't have easymenu ;; with your version of Emacs, you are incompatible! @@ -479,7 +478,7 @@ preferably use the `c-mode-menu' language constant directly." and the line breaking/filling code. Intended to be used by other packages that embed CC Mode. -MODE is the CC Mode flavor to set up, e.g. 'c-mode or 'java-mode. +MODE is the CC Mode flavor to set up, e.g. `c-mode' or `java-mode'. DEFAULT-STYLE tells which indentation style to install. It has the same format as `c-default-style'. @@ -647,7 +646,7 @@ In addition to the work done by `c-basic-common-init' and customary in CC Mode modes but which aren't strictly necessary for CC Mode to operate correctly. -MODE is the symbol for the mode to initialize, like 'c-mode. See +MODE is the symbol for the mode to initialize, like `c-mode'. See `c-basic-common-init' for details. It's only optional to be compatible with old code; callers should always specify it." diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 9e2d625a4d4..f13906680cf 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -951,7 +951,7 @@ from a different message." (defvar compilation--previous-directory-cache nil "A pair (POS . RES) caching the result of previous directory search. Basically, this pair says that calling - (previous-single-property-change POS 'compilation-directory) + (previous-single-property-change POS \\='compilation-directory) returned RES, i.e. there is no change of `compilation-directory' between POS and RES.") (make-variable-buffer-local 'compilation--previous-directory-cache) @@ -967,7 +967,7 @@ POS and RES.") (t (setq compilation--previous-directory-cache nil)))) (defun compilation--previous-directory (pos) - "Like (previous-single-property-change POS 'compilation-directory), but faster." + "Like (previous-single-property-change POS \\='compilation-directory), but faster." ;; This avoids an N² behavior when there's no/few compilation-directory ;; entries, in which case each call to previous-single-property-change ;; ends up having to walk very far back to find the last change. @@ -2594,7 +2594,7 @@ and overlay is highlighted between MK and END-MK." (goto-char mk))) (if end-mk (push-mark end-mk t) - (if mark-active (setq mark-active))) + (if mark-active (setq mark-active nil))) ;; If hideshow got in the way of ;; seeing the right place, open permanently. (dolist (ov (overlays-at (point))) diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el index 3cf17f48b5f..faa917a87a7 100644 --- a/lisp/progmodes/cpp.el +++ b/lisp/progmodes/cpp.el @@ -664,7 +664,7 @@ otherwise make them unwritable." (defun cpp-edit-write (symbol branch) "Set which branches of SYMBOL should be writable to BRANCH. -BRANCH should be either nil (false branch), t (true branch) or 'both." +BRANCH should be either nil (false branch), t (true branch) or `both'." (interactive (list (cpp-choose-symbol) (cpp-choose-branch))) (setcar (nthcdr 3 (cpp-edit-list-entry-get-or-create symbol)) branch) (cpp-edit-reset)) diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el index 2f501f28b65..eae96f01c3c 100644 --- a/lisp/progmodes/cwarn.el +++ b/lisp/progmodes/cwarn.el @@ -2,9 +2,8 @@ ;; Copyright (C) 1999-2015 Free Software Foundation, Inc. -;; Author: Anders Lindgren <andersl@andersl.com> +;; Author: Anders Lindgren ;; Keywords: c, languages, faces -;; X-Url: http://www.andersl.com/emacs ;; Version: 1.3.1 ;; This file is part of GNU Emacs. diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 2c22483e86f..4cc2aee9346 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -228,8 +228,7 @@ Blank lines separate paragraphs. Semicolons start comments. \\{emacs-lisp-mode-map}" :group 'lisp - (defvar xref-backend-functions) - (defvar project-library-roots-function) + (defvar project-vc-external-roots-function) (lisp-mode-variables nil nil 'elisp) (add-hook 'after-load-functions #'elisp--font-lock-flush-elisp-buffers) (setq-local electric-pair-text-pairs @@ -239,7 +238,7 @@ Blank lines separate paragraphs. Semicolons start comments. (add-function :before-until (local 'eldoc-documentation-function) #'elisp-eldoc-documentation-function) (add-hook 'xref-backend-functions #'elisp--xref-backend nil t) - (setq-local project-library-roots-function #'elisp-library-roots) + (setq-local project-vc-external-roots-function #'elisp-load-path-roots) (add-hook 'completion-at-point-functions #'elisp-completion-at-point nil 'local)) @@ -576,8 +575,9 @@ It can be quoted, or be inside a quoted form." " " (cadr table-etc))) (cddr table-etc))))))))) -(define-obsolete-function-alias - 'lisp-completion-at-point 'elisp-completion-at-point "25.1") +(defun lisp-completion-at-point (_predicate) + (declare (obsolete elisp-completion-at-point "25.1")) + (elisp-completion-at-point)) ;;; Xref backend @@ -645,6 +645,7 @@ non-nil result supercedes the xrefs produced by ;; alphabetical by result type symbol ;; FIXME: advised function; list of advice functions + ;; FIXME: aliased variable ;; Coding system symbols do not appear in ‘load-history’, ;; so we can’t get a location for them. @@ -794,19 +795,7 @@ non-nil result supercedes the xrefs produced by xrefs)) -(declare-function project-library-roots "project") -(declare-function project-roots "project") -(declare-function project-current "project") - -(cl-defmethod xref-backend-references ((_backend (eql elisp)) symbol) - "Find all references to SYMBOL (a string) in the current project." - (cl-mapcan - (lambda (dir) - (xref-collect-references symbol dir)) - (let ((pr (project-current t))) - (append - (project-roots pr) - (project-library-roots pr))))) +(declare-function project-external-roots "project") (cl-defmethod xref-backend-apropos ((_backend (eql elisp)) regexp) (apply #'nconc @@ -843,9 +832,10 @@ non-nil result supercedes the xrefs produced by (cl-defmethod xref-location-group ((l xref-elisp-location)) (xref-elisp-location-file l)) -(defun elisp-library-roots () - (defvar package-user-dir) - (cons package-user-dir load-path)) +(defun elisp-load-path-roots () + (if (boundp 'package-user-dir) + (cons package-user-dir load-path) + load-path)) ;;; Elisp Interaction mode diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index ae1aa11fbc2..dbb46a38381 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -799,13 +799,12 @@ If no tags table is loaded, do nothing and return nil." (let ((completion-ignore-case (if (memq tags-case-fold-search '(t nil)) tags-case-fold-search case-fold-search)) - (pattern (funcall (or find-tag-default-function - (get major-mode 'find-tag-default-function) - #'find-tag-default))) + (pattern (find-tag--default)) beg) (when pattern (save-excursion - (forward-char (1- (length pattern))) + ;; Avoid end-of-buffer error. + (goto-char (+ (point) (length pattern) -1)) ;; The find-tag function might be overly optimistic. (when (search-backward pattern nil t) (setq beg (point)) @@ -817,9 +816,7 @@ If no tags table is loaded, do nothing and return nil." (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil)) tags-case-fold-search case-fold-search)) - (default (funcall (or find-tag-default-function - (get major-mode 'find-tag-default-function) - 'find-tag-default))) + (default (find-tag--default)) (spec (completing-read (if default (format "%s (default %s): " (substring string 0 (string-match "[ :]+\\'" string)) @@ -831,6 +828,11 @@ If no tags table is loaded, do nothing and return nil." (or default (user-error "There is no default tag")) spec))) +(defun find-tag--default () + (funcall (or find-tag-default-function + (get major-mode 'find-tag-default-function) + 'find-tag-default))) + (defvar last-tag nil "Last tag found by \\[find-tag].") @@ -1259,24 +1261,21 @@ buffer-local values of tags table format variables." (point-min) (point-max)))) (save-excursion (goto-char (point-min)) - ;; This monster regexp matches an etags tag line. - ;; \1 is the string to match; - ;; \2 is not interesting; - ;; \3 is the guessed tag name; XXX guess should be better eg DEFUN - ;; \4 is not interesting; - ;; \5 is the explicitly-specified tag name. - ;; \6 is the line to start searching at; - ;; \7 is the char to start searching at. + ;; This regexp matches an explicit tag name or the place where + ;; it would start. (while (re-search-forward - "^\\(\\([^\177]*[^-a-zA-Z0-9_+*$:\177]+\\)?\ -\\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\ -\\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n" + "[\f\t\n\r()=,; ]?\177\\\(?:\\([^\n\001]+\\)\001\\)?" nil t) - (push (prog1 (if (match-beginning 5) + (push (prog1 (if (match-beginning 1) ;; There is an explicit tag name. - (buffer-substring (match-beginning 5) (match-end 5)) - ;; No explicit tag name. Best guess. - (buffer-substring (match-beginning 3) (match-end 3))) + (buffer-substring (match-beginning 1) (match-end 1)) + ;; No explicit tag name. Backtrack a little, + ;; and look for the implicit one. + (goto-char (match-beginning 0)) + (skip-chars-backward "^\f\t\n\r()=,; ") + (prog1 + (buffer-substring (point) (match-beginning 0)) + (goto-char (match-end 0)))) (progress-reporter-update progress-reporter (point))) table))) table)) @@ -2086,18 +2085,15 @@ for \\[find-tag] (which see)." tag-implicit-name-match-p) "Tag order used in `xref-backend-definitions' to look for definitions.") +;;;###autoload +(defun etags--xref-backend () 'etags) + +(cl-defmethod xref-backend-identifier-at-point ((_backend (eql etags))) + (find-tag--default)) + (cl-defmethod xref-backend-identifier-completion-table ((_backend (eql etags))) (tags-lazy-completion-table)) -(cl-defmethod xref-backend-references ((_backend (eql etags)) symbol) - (cl-mapcan - (lambda (dir) - (xref-collect-references symbol dir)) - (let ((pr (project-current t))) - (append - (project-roots pr) - (project-library-roots pr))))) - (cl-defmethod xref-backend-definitions ((_backend (eql etags)) symbol) (etags--xref-find-definitions symbol)) @@ -2158,9 +2154,6 @@ for \\[find-tag] (which see)." (with-slots (tag-info) l (nth 1 tag-info))) -(defun etags-library-roots () - (mapcar #'file-name-directory tags-table-list)) - (provide 'etags) diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 0e333f1f7ed..324efb0e1bb 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -295,7 +295,7 @@ the constant `f90-no-break-re' ensures that such tokens are not split." (defcustom f90-auto-keyword-case nil "Automatic case conversion of keywords. -The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil." +The options are `downcase-word', `upcase-word', `capitalize-word' and nil." :type '(choice (const downcase-word) (const upcase-word) (const capitalize-word) (const nil)) :safe (lambda (value) (memq value '(downcase-word @@ -2330,7 +2330,7 @@ Any other key combination is executed normally." ;; Change the keywords according to argument. (defun f90-change-keywords (change-word &optional beg end) "Change the case of F90 keywords in the region (if specified) or buffer. -CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word." +CHANGE-WORD should be one of `upcase-word', `downcase-word', `capitalize-word'." (save-excursion (setq beg (or beg (point-min)) end (or end (point-max))) diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 3adadd1386e..882ac064b82 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -989,7 +989,7 @@ For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'." (funcall flymake-get-project-include-dirs-function basedir)) (defun flymake-get-system-include-dirs () - "System include dirs - from the 'INCLUDE' env setting." + "System include dirs - from the `INCLUDE' env setting." (let* ((includes (getenv "INCLUDE"))) (if includes (split-string includes path-separator t) nil))) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index ef470055065..33fe4b37cf8 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1258,7 +1258,7 @@ Auto-indent does not happen if a numeric ARG is used." (defun fortran-previous-statement () "Move point to beginning of the previous Fortran statement. -Returns 'first-statement if that statement is the first +Returns `first-statement' if that statement is the first non-comment Fortran statement in the file, and nil otherwise. Directive lines are treated as comments." (interactive) @@ -1290,7 +1290,7 @@ Directive lines are treated as comments." (defun fortran-next-statement () "Move point to beginning of the next Fortran statement. -Returns 'last-statement if that statement is the last +Returns `last-statement' if that statement is the last non-comment Fortran statement in the file, and nil otherwise. Directive lines are treated as comments." (interactive) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 4bee7c1dfa2..bde030e3f26 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -1630,7 +1630,7 @@ this trigger is subscribed to `gdb-buf-publisher' and called with (make-comint-in-buffer "gdb-inferior" (current-buffer) nil)) (defcustom gdb-display-io-nopopup nil - "When non-nil, and the 'gdb-inferior-io buffer is buried, don't pop it up." + "When non-nil, and the `gdb-inferior-io' buffer is buried, don't pop it up." :type 'boolean :group 'gdb :version "25.1") @@ -1766,7 +1766,8 @@ static char *magick[] = { (defvar gdb-control-commands-regexp (concat "^\\(" - "commands\\|if\\|while\\|define\\|document\\|python\\|" + "commands\\|if\\|while\\|define\\|document\\|" + "python\\|python-interactive\\|pi\\|guile\\|guile-repl\\|gr\\|" "while-stepping\\|stepping\\|ws\\|actions" "\\)\\([[:blank:]]+.*\\)?$") "Regexp matching GDB commands that enter a recursive reading loop. @@ -1782,21 +1783,27 @@ commands to be prefixed by \"-interpreter-exec console\".") (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) '(face)))) ;; mimic <RET> key to repeat previous command in GDB - (if (not (string= "" string)) - (if gdb-continuation - (setq gdb-last-command (concat gdb-continuation - (gdb-strip-string-backslash string) - " ")) - (setq gdb-last-command (gdb-strip-string-backslash string))) - (if gdb-last-command (setq string gdb-last-command)) - (setq gdb-continuation nil)) - (if (and (not gdb-continuation) (or (string-match "^-" string) - (> gdb-control-level 0))) + (when (= gdb-control-level 0) + (if (not (string= "" string)) + (if gdb-continuation + (setq gdb-last-command (concat gdb-continuation + (gdb-strip-string-backslash string) + " ")) + (setq gdb-last-command (gdb-strip-string-backslash string))) + (if gdb-last-command (setq string gdb-last-command)) + (setq gdb-continuation nil))) + (if (and (not gdb-continuation) + (or (string-match "^-" string) + (> gdb-control-level 0))) ;; Either MI command or we are feeding GDB's recursive reading loop. (progn (setq gdb-first-done-or-error t) (process-send-string proc (concat string "\n")) - (if (and (string-match "^end$" string) + (if (and (string-match + (concat "^\\(" + (if (eq system-type 'windows-nt) "\026" "\004") + "\\|,q\\|,quit\\|end\\)$") + string) (> gdb-control-level 0)) (setq gdb-control-level (1- gdb-control-level)))) ;; CLI command @@ -1812,7 +1819,11 @@ commands to be prefixed by \"-interpreter-exec console\".") (if gdb-enable-debug (push (cons 'mi-send to-send) gdb-debug-log)) (process-send-string proc to-send)) - (if (and (string-match "^end$" string) + (if (and (string-match + (concat "^\\(" + (if (eq system-type 'windows-nt) "\026" "\004") + "\\|,q\\|,quit\\|end\\)$") + string) (> gdb-control-level 0)) (setq gdb-control-level (1- gdb-control-level))) (setq gdb-continuation nil))) @@ -2788,7 +2799,7 @@ buffer with `gdb-bind-function-to-buffer'. If SIGNAL-LIST is non-nil, GDB-COMMAND is sent only when the defined trigger is called with an argument from SIGNAL-LIST. It's not recommended to define triggers with empty SIGNAL-LIST. -Normally triggers should respond at least to 'update signal. +Normally triggers should respond at least to the `update' signal. Normally the trigger defined by this command must be called from the buffer where HANDLER-NAME must work. This should be done so @@ -3252,7 +3263,7 @@ corresponding to the mode line clicked." "Define a NAME command which will act upon thread on the current line. CUSTOM-DEFUN may use locally bound `thread' variable, which will -be the value of 'gdb-thread property of the current line. +be the value of `gdb-thread' property of the current line. If `gdb-thread' is nil, error is signaled." `(defun ,name (&optional event) ,(when doc doc) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 1284ef2857a..024547cc487 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -3080,7 +3080,7 @@ the character after the end of the expr." "Scan from SPAN-START to SPAN-END for punctuation characters. If `->' is found, return `?.'. If `.' is found, return `?.'. If any other punctuation is found, return `??'. -If no punctuation is found, return `? '." +If no punctuation is found, return `?\\s'." (let ((result ?\s) (syntax)) (while (< span-start span-end) diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index e0d25c4439d..71646d312c4 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -653,7 +653,7 @@ that form should be displayed.") (stringp id)))) (defun hif-define-operator (tokens) - "`Upgrade' hif-define xxx to '(hif-define xxx)' so it won't be substituted." + "\"Upgrade\" hif-define XXX to `(hif-define XXX)' so it won't be substituted." (let ((result nil) (tok nil)) (while (setq tok (pop tokens)) @@ -766,7 +766,7 @@ macros to prevent self-reference." (error "Error: unexpected token: %s" hif-token))))) (defun hif-exprlist () - "Parse an exprlist: expr { ',' expr}." + "Parse an exprlist: expr { `,' expr}." (let ((result (hif-expr))) (if (eq hif-token 'hif-comma) (let ((temp (list result))) @@ -780,7 +780,7 @@ macros to prevent self-reference." (defun hif-expr () "Parse an expression as found in #if. -expr : or-expr | or-expr '?' expr ':' expr." +expr : or-expr | or-expr `?' expr `:' expr." (let ((result (hif-or-expr)) middle) (while (eq hif-token 'hif-conditional) @@ -794,7 +794,7 @@ expr : or-expr | or-expr '?' expr ':' expr." result)) (defun hif-or-expr () - "Parse an or-expr : and-expr | or-expr '||' and-expr." + "Parse an or-expr : and-expr | or-expr `||' and-expr." (let ((result (hif-and-expr))) (while (eq hif-token 'hif-or) (hif-nexttoken) @@ -802,7 +802,7 @@ expr : or-expr | or-expr '?' expr ':' expr." result)) (defun hif-and-expr () - "Parse an and-expr : logior-expr | and-expr '&&' logior-expr." + "Parse an and-expr : logior-expr | and-expr `&&' logior-expr." (let ((result (hif-logior-expr))) (while (eq hif-token 'hif-and) (hif-nexttoken) @@ -810,7 +810,7 @@ expr : or-expr | or-expr '?' expr ':' expr." result)) (defun hif-logior-expr () - "Parse a logor-expr : logxor-expr | logor-expr '|' logxor-expr." + "Parse a logor-expr : logxor-expr | logor-expr `|' logxor-expr." (let ((result (hif-logxor-expr))) (while (eq hif-token 'hif-logior) (hif-nexttoken) @@ -818,7 +818,7 @@ expr : or-expr | or-expr '?' expr ':' expr." result)) (defun hif-logxor-expr () - "Parse a logxor-expr : logand-expr | logxor-expr '^' logand-expr." + "Parse a logxor-expr : logand-expr | logxor-expr `^' logand-expr." (let ((result (hif-logand-expr))) (while (eq hif-token 'hif-logxor) (hif-nexttoken) @@ -826,7 +826,7 @@ expr : or-expr | or-expr '?' expr ':' expr." result)) (defun hif-logand-expr () - "Parse a logand-expr : eq-expr | logand-expr '&' eq-expr." + "Parse a logand-expr : eq-expr | logand-expr `&' eq-expr." (let ((result (hif-eq-expr))) (while (eq hif-token 'hif-logand) (hif-nexttoken) @@ -866,7 +866,7 @@ expr : or-expr | or-expr '?' expr ':' expr." (defun hif-math () "Parse an expression with + or -. - math : muldiv | math '+|-' muldiv." + math : muldiv | math `+'|`-' muldiv." (let ((result (hif-muldiv-expr)) (math-op nil)) (while (memq hif-token '(hif-plus hif-minus)) @@ -877,7 +877,7 @@ expr : or-expr | or-expr '?' expr ':' expr." (defun hif-muldiv-expr () "Parse an expression with *,/,%. - muldiv : factor | muldiv '*|/|%' factor." + muldiv : factor | muldiv `*'|`/'|`%' factor." (let ((result (hif-factor)) (math-op nil)) (while (memq hif-token '(hif-multiply hif-divide hif-modulo)) @@ -888,8 +888,8 @@ expr : or-expr | or-expr '?' expr ':' expr." (defun hif-factor () "Parse a factor. -factor : '!' factor | '~' factor | '(' expr ')' | 'defined(' id ')' | - 'id(parmlist)' | strings | id." +factor : `!' factor | `~' factor | `(' expr `)' | `defined(' id `)' | + id `(' parmlist `)' | strings | id." (cond ((eq hif-token 'hif-not) (hif-nexttoken) @@ -999,9 +999,9 @@ This macro cannot be evaluated alone without parameters input." (defun hif-token-concat (a b) "Concatenate two tokens into a longer token. Currently support only simple token concatenation. Also support weird (but -valid) token concatenation like '>' ## '>' becomes '>>'. Here we take care only +valid) token concatenation like `>' ## `>' becomes `>>'. Here we take care only those that can be evaluated during preprocessing time and ignore all those that -can only be evaluated at C(++) runtime (like '++', '--' and '+='...)." +can only be evaluated at C(++) runtime (like `++', `--' and `+='...)." (if (or (memq a hif-valid-token-list) (memq b hif-valid-token-list)) (let* ((ra (car (rassq a hif-token-alist))) @@ -1632,8 +1632,8 @@ not be expanded." result)))) (defun hif-parse-macro-arglist (str) - "Parse argument list formatted as '( arg1 [ , argn] [...] )'. -The '...' is also included. Return a list of the arguments, if '...' exists the + "Parse argument list formatted as `( arg1 [ , argn] [...] )'. +The `...' is also included. Return a list of the arguments, if `...' exists the first arg will be `hif-etc'." (let* ((hif-simple-token-only nil) ; Dynamic binding var for `hif-tokenize' (tokenlist diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index dba497b1f41..7dfef5fae4c 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -439,9 +439,9 @@ See `hs-c-like-adjust-block-beginning' for an example of using this.") You can display this in the mode line by adding the symbol `hs-headline' to the variable `mode-line-format'. For example, - (unless (memq 'hs-headline mode-line-format) + (unless (memq \\='hs-headline mode-line-format) (setq mode-line-format - (append '(\"-\" hs-headline) mode-line-format))) + (append \\='(\"-\" hs-headline) mode-line-format))) Note that `mode-line-format' is buffer-local.") @@ -469,9 +469,9 @@ KIND is either `code' or `comment'. Optional fourth arg B-OFFSET when added to B specifies the actual buffer position where the block begins. Likewise for optional fifth arg E-OFFSET. If unspecified they are taken to be 0 (zero). The following properties are set -in the overlay: 'invisible 'hs 'hs-b-offset 'hs-e-offset. Also, +in the overlay: `invisible' `hs' `hs-b-offset' `hs-e-offset'. Also, depending on variable `hs-isearch-open', the following properties may -be present: 'isearch-open-invisible 'isearch-open-invisible-temporary. +be present: `isearch-open-invisible' `isearch-open-invisible-temporary'. If variable `hs-set-up-overlay' is non-nil it should specify a function to call with the newly initialized overlay." (unless b-offset (setq b-offset 0)) @@ -934,7 +934,7 @@ if ARG is omitted or nil. When hideshow minor mode is on, the menu bar is augmented with hideshow commands and the hideshow commands are enabled. -The value '(hs . t) is added to `buffer-invisibility-spec'. +The value (hs . t) is added to `buffer-invisibility-spec'. The main commands are: `hs-hide-all', `hs-show-all', `hs-hide-block', `hs-show-block', `hs-hide-level' and `hs-toggle-hiding'. There is also diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index ac2259df6a4..1546e9ad6e6 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -808,7 +808,7 @@ See `idlwave-check-abbrev'." (defcustom idlwave-abbrev-change-case nil "Non-nil means all abbrevs will be forced to either upper or lower case. If the value t, all expanded abbrevs will be upper case. -If the value is 'down then abbrevs will be forced to lower case. +If the value is `down' then abbrevs will be forced to lower case. If nil, the case will not change. If `idlwave-reserved-word-upcase' is non-nil, reserved words will always be upper case, regardless of this variable." @@ -963,7 +963,7 @@ a file." (defcustom idlwave-doc-modifications-keyword "HISTORY" "The modifications keyword to use with the log documentation commands. -A ':' is added to the keyword end. +A `:' is added to the keyword end. Inserted by doc-header and used to position logs by doc-modification. If nil it will not be inserted." :group 'idlwave-documentation @@ -999,7 +999,7 @@ it without compromising backwards-compatibility." (defcustom idlwave-shell-command-line-options nil "A list of command line options for calling the IDL program. Since IDL is executed directly without going through a shell like /bin/sh, -this should be a list of strings like '(\"-rt=file\" \"-nw\") with a separate +this should be a list of strings like (\"-rt=file\" \"-nw\") with a separate string for each argument. But you may also give a single string which contains the options whitespace-separated. Emacs will be kind enough to split it for you." @@ -1021,7 +1021,7 @@ Obsolete, if the IDL Assistant is being used for help." Will be used to bind debugging commands in the shell buffer and in all source buffers. These are additional convenience bindings, the debugging commands are always available with the `C-c C-d' prefix. -If you set this to '(control shift), this means setting a breakpoint will +If you set this to (control shift), this means setting a breakpoint will be on `C-S-b', compiling a source file on `C-S-c' etc. Possible modifiers are `control', `meta', `super', `hyper', `alt', and `shift'." :group 'idlwave-shell-general-setup @@ -1557,15 +1557,15 @@ KEY is a string - same as for the `define-key' function. CMD is a function of no arguments or a list to be evaluated. CMD is bound to KEY in `idlwave-mode-map' by defining an anonymous function calling `self-insert-command' followed by CMD. If KEY contains more than one -character a binding will only be set if SELECT is 'both. +character a binding will only be set if SELECT is `both'. \(KEY . CMD) is also placed in the `idlwave-indent-expand-table', replacing any previous value for KEY. If a binding is not set then it will instead be placed in `idlwave-indent-action-table'. If the optional argument SELECT is nil then an action and binding are -created. If SELECT is 'noaction, then a binding is always set and no -action is created. If SELECT is 'both then an action and binding +created. If SELECT is `noaction', then a binding is always set and no +action is created. If SELECT is `both' then an action and binding will both be created even if KEY contains more than one character. Otherwise, if SELECT is non-nil then only an action is created. @@ -2690,7 +2690,7 @@ statement." (append st (match-end 0)))))) (defun idlwave-expand-equal (&optional before after is-action) - "Pad '=' with spaces. + "Pad `=' with spaces. Two cases: Assignment statement, and keyword assignment. Which case is determined using `idlwave-start-of-substatement' and `idlwave-statement-type'. The equal sign will be surrounded by BEFORE @@ -2835,7 +2835,7 @@ ACTION is a list (REG . FUNC). REG is a regular expression. FUNC is either a function name to be called with `funcall' or a list to be evaluated with `eval'. The action performed by FUNC should leave point after the match for REG - otherwise an infinite loop may be -entered. FUNC is always passed a final argument of 'is-action, so it +entered. FUNC is always passed a final argument of `is-action', so it can discriminate between being run as an action, or a key binding." (let ((action-key (car action)) (action-routine (cdr action))) @@ -6240,7 +6240,7 @@ If yes, return the index (>=1)." (defun idlwave-all-method-classes (method &optional type) "Return all classes which have a method METHOD. -TYPE is 'fun or 'pro. +TYPE is `fun' or `pro'. When TYPE is not specified, both procedures and functions will be considered." (if (null method) (mapcar 'car (idlwave-class-alist)) @@ -6255,7 +6255,7 @@ When TYPE is not specified, both procedures and functions will be considered." (defun idlwave-all-method-keyword-classes (method keyword &optional type) "Return all classes which have a method METHOD with keyword KEYWORD. -TYPE is 'fun or 'pro. +TYPE is `fun' or `pro'. When TYPE is not specified, both procedures and functions will be considered." (if (or (null method) (null keyword)) @@ -6644,8 +6644,8 @@ This function is not general, can only be used for completion stuff." special-selector) "Perform TYPE completion of word before point against LIST. SELECTOR is the PREDICATE argument for the completion function. Show -PROMPT in echo area. TYPE is one of the intern types, e.g. 'function, -'procedure, 'class-tag, 'keyword, 'sysvar, etc. SPECIAL-SELECTOR is +PROMPT in echo area. TYPE is one of the intern types, e.g., `function', +`procedure', `class-tag', `keyword', `sysvar'. SPECIAL-SELECTOR is used only once, for `all-completions', and can be used to, e.g., accumulate information on matching completions." (let* ((completion-ignore-case t) diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el index 3ce1c17352f..310b7ba371f 100644 --- a/lisp/progmodes/js.el +++ b/lisp/progmodes/js.el @@ -97,7 +97,7 @@ name.") "\\.\\(" js--name-re "\\)\\s-*?=\\s-*?\\(function\\)\\_>") "Regexp matching an explicit JavaScript prototype \"method\" declaration. Group 1 is a (possibly-dotted) class name, group 2 is a method name, -and group 3 is the 'function' keyword.") +and group 3 is the `function' keyword.") (defconst js--plain-class-re (concat "^\\s-*\\(" js--dotted-name-re "\\)\\.prototype" @@ -831,7 +831,7 @@ lines." (defun js--forward-function-decl () "Move forward over a JavaScript function declaration. -This puts point at the 'function' keyword. +This puts point at the `function' keyword. If this is a syntactically-correct non-expression function, return the name of the function, or t if the name could not be @@ -1823,6 +1823,7 @@ nil." (skip-syntax-backward " ") (skip-syntax-backward "w_") (looking-at js--possibly-braceless-keyword-re)) + (memq (char-before) '(?\s ?\t ?\n ?\})) (not (js--end-of-do-while-loop-p)))) (save-excursion (goto-char (match-beginning 0)) @@ -3366,8 +3367,8 @@ left-to-right." (defun js--read-tab (prompt) "Read a Mozilla tab with prompt PROMPT. -Return a cons of (TYPE . OBJECT). TYPE is either 'window or -'tab, and OBJECT is a JavaScript handle to a ChromeWindow or a +Return a cons of (TYPE . OBJECT). TYPE is either `window' or +`tab', and OBJECT is a JavaScript handle to a ChromeWindow or a browser, respectively." ;; Prime IDO @@ -3778,12 +3779,12 @@ If one hasn't been set, or if it's stale, prompt for a new one." "Major mode for editing JSX. To customize the indentation for this mode, set the SGML offset -variables (`sgml-basic-offset', `sgml-attribute-offset' et al) +variables (`sgml-basic-offset', `sgml-attribute-offset' et al.) locally, like so: (defun set-jsx-indentation () (setq-local sgml-basic-offset js-indent-level)) - (add-hook 'js-jsx-mode-hook #'set-jsx-indentation)" + (add-hook \\='js-jsx-mode-hook #\\='set-jsx-indentation)" :group 'js (setq-local indent-line-function #'js-jsx-indent-line)) diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el index a0f50fc0f19..79a60400eed 100644 --- a/lisp/progmodes/mantemp.el +++ b/lisp/progmodes/mantemp.el @@ -128,7 +128,7 @@ (defun mantemp-insert-cxx-syntax () "Insert C++ syntax around each template class and function. -Insert 'template class' for classes, 'template' for +Insert `template class' for classes, `template' for functions and add the statement delimiter `;' at the end of the lines." (save-excursion diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 454367c10fa..904001d3383 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -236,8 +236,8 @@ The name of the function or case is included between the braces." "List of contexts where auto lineup of :'s or ='s should be done. Elements can be of type: `paramlist', `declaration' or `case', which will do auto lineup in parameterlist, declarations or case-statements -respectively. The word `all' will do all lineups. '(case paramlist) for -instance will do lineup in case-statements and parameterlist, while '(all) +respectively. The word `all' will do all lineups. (case paramlist) for +instance will do lineup in case-statements and parameterlist, while (all) will do all lineups." :type '(set :extra-offset 8 (const :tag "Everything" all) diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el index b459cbfd286..9702880771c 100644 --- a/lisp/progmodes/prog-mode.el +++ b/lisp/progmodes/prog-mode.el @@ -50,49 +50,51 @@ "Keymap used for programming modes.") (defvar prog-indentation-context nil - "Non-nil while indenting embedded code chunks. + "When non-nil, provides context for indenting embedded code chunks. + There are languages where part of the code is actually written in a sub language, e.g., a Yacc/Bison or ANTLR grammar also consists of plain C code. This variable enables the major mode of the -main language to use the indentation engine of the sub mode for -lines in code chunks written in the sub language. +main language to use the indentation engine of the sub-mode for +lines in code chunks written in the sub-mode's language. When a major mode of such a main language decides to delegate the indentation of a line/region to the indentation engine of the sub -mode, it is supposed to bind this variable to non-nil around the call. +mode, it should bind this variable to non-nil around the call. + +The non-nil value should be a list of the form: -The non-nil value looks as follows (FIRST-COLUMN (START . END) PREVIOUS-CHUNKS) -FIRST-COLUMN is the column the indentation engine of the sub mode -should usually choose for top-level language constructs inside -the code chunk (instead of 0). +FIRST-COLUMN is the column the indentation engine of the sub-mode +should use for top-level language constructs inside the code +chunk (instead of 0). -START to END is the region of the code chunk. See function -`prog-widen' for additional info. +START and END specify the region of the code chunk. END can be +nil, which stands for the value of `point-max'. The function +`prog-widen' uses this to restore restrictions imposed by the +sub-mode's indentation engine. PREVIOUS-CHUNKS, if non-nil, provides the indentation engine of -the sub mode with the virtual context of the code chunk. Valid +the sub-mode with the virtual context of the code chunk. Valid values are: - - A string containing code which the indentation engine can + - A string containing text which the indentation engine can consider as standing in front of the code chunk. To cache the string's calculated syntactic information for repeated calls - with the same string, it is valid and expected for the inner - mode to add text-properties to the string. + with the same string, the sub-mode can add text-properties to + the string. A typical use case is for grammars with code chunks which are - to be indented like function bodies - the string would contain - a corresponding function header. + to be indented like function bodies -- the string would contain + the corresponding function preamble. - - A function called with the start position of the current - chunk. It will return either the region of the previous chunk - as (PREV-START . PREV-END) or nil if there is no further - previous chunk. + - A function, to be called with the start position of the current + chunk. It should return either the region of the previous chunk + as (PREV-START . PREV-END), or nil if there is no previous chunk. - A typical use case are literate programming sources - the - function would successively return the code chunks of the - previous macro definitions for the same name.") + A typical use case are literate programming sources -- the + function would successively return the previous code chunks.") (defun prog-indent-sexp (&optional defun) "Indent the expression after point. @@ -113,8 +115,8 @@ instead." (defun prog-widen () "Remove restrictions (narrowing) from current code chunk or buffer. -This function can be used instead of `widen' in any function used -by the indentation engine to make it respect the value +This function should be used instead of `widen' in any function used +by the indentation engine to make it respect the value of `prog-indentation-context'. This function (like `widen') is useful inside a @@ -122,8 +124,8 @@ This function (like `widen') is useful inside a narrowing is in effect." (let ((chunk (cadr prog-indentation-context))) (if chunk - ;; no widen necessary here, as narrow-to-region changes (not - ;; just narrows) existing restrictions + ;; No call to `widen' is necessary here, as narrow-to-region + ;; changes (not just narrows) the existing restrictions (narrow-to-region (car chunk) (or (cdr chunk) (point-max))) (widen)))) @@ -134,15 +136,15 @@ Each element looks like (SYMBOL . CHARACTER), where the symbol matching SYMBOL (a string, not a regexp) will be shown as CHARACTER instead. -CHARACTER can be a character or it can be a list or vector, in +CHARACTER can be a character, or it can be a list or vector, in which case it will be used to compose the new symbol as per the third argument of `compose-region'.") (defun prettify-symbols-default-compose-p (start end _match) "Return true iff the symbol MATCH should be composed. The symbol starts at position START and ends at position END. -This is default `prettify-symbols-compose-predicate' which is -suitable for most programming languages such as C or Lisp." +This is the default for `prettify-symbols-compose-predicate' +which is suitable for most programming languages such as C or Lisp." ;; Check that the chars should really be composed into a symbol. (let* ((syntaxes-beg (if (memq (char-syntax (char-after start)) '(?w ?_)) '(?w ?_) '(?. ?\\))) @@ -154,14 +156,14 @@ suitable for most programming languages such as C or Lisp." (defvar-local prettify-symbols-compose-predicate #'prettify-symbols-default-compose-p - "A predicate deciding if the currently matched symbol is to be composed. + "A predicate for deciding if the currently matched symbol is to be composed. The matched symbol is the car of one entry in `prettify-symbols-alist'. -The predicate receives the match's start and end position as well +The predicate receives the match's start and end positions as well as the match-string as arguments.") (defun prettify-symbols--compose-symbol (alist) "Compose a sequence of characters into a symbol. -Regexp match data 0 points to the chars." +Regexp match data 0 specifies the characters to be composed." ;; Check that the chars should really be composed into a symbol. (let ((start (match-beginning 0)) (end (match-end 0)) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 398339ee590..c8e48e2275a 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -20,13 +20,65 @@ ;;; Commentary: ;; This file contains generic infrastructure for dealing with -;; projects, and a number of public functions: finding the current -;; root, related project directories, and library directories. This -;; list is to be extended in future versions. +;; projects, some utility functions, and commands using that +;; infrastructure. ;; ;; The goal is to make it easier for Lisp programs to operate on the ;; current project, without having to know which package handles ;; detection of that project type, parsing its config files, etc. +;; +;; Infrastructure: +;; +;; Function `project-current', to determine the current project +;; instance, and 3 (at the moment) generic functions that act on it. +;; This list is to be extended in future versions. +;; +;; Utils: +;; +;; `project-combine-directories' and `project-subtract-directories', +;; mainly for use in the abovementioned generics' implementations. +;; +;; Commands: +;; +;; `project-find-regexp' and `project-or-external-find-regexp' use the +;; current API, and thus will work in any project that has an adapter. + +;;; TODO: + +;; * Commands `project-find-file' and `project-or-external-find-file'. +;; Currently blocked on adding a new completion style that would let +;; the user enter just the base file name (or a part of it), and get +;; it expanded to the absolute file name. +;; +;; * Build tool related functionality. Start with a `project-build' +;; command, which should provide completions on tasks to run, and +;; maybe allow entering some additional arguments. This might +;; be handled better with a separate API, though. Then we won't +;; force every project backend to be aware of the build tool(s) the +;; project is using. +;; +;; * Command to (re)build the tag files in all project roots. To that +;; end, we might need to add a way to provide file whitelist +;; wildcards for each root to limit etags to certain files (in +;; addition to the blacklist provided by ignores), and/or allow +;; specifying additional tag regexps. +;; +;; * UI for the user to be able to pick the current project for the +;; whole Emacs session, independent of the current directory. Or, +;; in the more advanced case, open a set of projects, and have some +;; project-related commands to use them all. E.g., have a command +;; to search for a regexp across all open projects. Provide a +;; history of projects that were opened in the past (storing it as a +;; list of directories should suffice). +;; +;; * Support for project-local variables: a UI to edit them, and a +;; utility function to retrieve a value. Probably useless without +;; support in various built-in commands. In the API, we might get +;; away with only adding a `project-configuration-directory' method, +;; defaulting to the project root the current file/buffer is in. +;; And prompting otherwise. How to best mix that with backends that +;; want to set/provide certain variables themselves, is up for +;; discussion. ;;; Code: @@ -38,35 +90,6 @@ Each functions on this hook is called in turn with one argument (the directory) and should return either nil to mean that it is not applicable, or a project instance.") -;; FIXME: Using the current approach, major modes are supposed to set -;; this variable to a buffer-local value. So we don't have access to -;; the "library roots" of language A from buffers of language B, which -;; seems desirable in multi-language projects, at least for some -;; potential uses, like "jump to a file in project or library". -;; -;; We can add a second argument to this function: a file extension, or -;; a language name. Some projects will know the set of languages used -;; in them; for others, like VC-based projects, we'll need -;; auto-detection. I see two options: -;; -;; - That could be implemented as a separate second hook, with a -;; list of functions that return file extensions. -;; -;; - This variable will be turned into a hook with "append" semantics, -;; and each function in it will perform auto-detection when passed -;; nil instead of an actual file extension. Then this hook will, in -;; general, be modified globally, and not from major mode functions. -(defvar project-library-roots-function 'etags-library-roots - "Function that returns a list of library roots. - -It should return a list of directories that contain source files -related to the current buffer. Depending on the language, it -should include the headers search path, load path, class path, -and so on. - -The directory names should be absolute. Used in the default -implementation of `project-library-roots'.") - ;;;###autoload (defun project-current (&optional maybe-prompt dir) "Return the project instance in DIR or `default-directory'. @@ -86,40 +109,35 @@ the user for a different directory to look in." (defun project--find-in-directory (dir) (run-hook-with-args-until-success 'project-find-functions dir)) -;; FIXME: Add MODE argument, like in `ede-source-paths'? -(cl-defgeneric project-library-roots (project) - "Return the list of library roots for PROJECT. +(cl-defgeneric project-roots (project) + "Return the list of directory roots of the current project. -It's the list of directories outside of the project that contain -related source files. +Most often it's just one directory which contains the project +build file and everything else in the project. But in more +advanced configurations, a project can span multiple directories. -Project-specific version of `project-library-roots-function', -which see. Unless it knows better, a specialized implementation -should use the value returned by that function." - (project-subtract-directories - (project-combine-directories - (funcall project-library-roots-function)) - (project-roots project))) - -(cl-defgeneric project-roots (project) - "Return the list of directory roots belonging to the current project. +The directory names should be absolute.") -Most often it's just one directory, which contains the project -file and everything else in the project. But in more advanced -configurations, a project can span multiple directories. +;; FIXME: Add MODE argument, like in `ede-source-paths'? +(cl-defgeneric project-external-roots (_project) + "Return the list of external roots for PROJECT. -The rule of thumb for whether to include a directory here, and not -in `project-library-roots', is whether its contents are meant to -be edited together with the rest of the project. +It's the list of directories outside of the project that are +still related to it. If the project deals with source code then, +depending on the languages used, this list should include the +headers search path, load path, class path, and so on. -The directory names should be absolute.") +The rule of thumb for whether to include a directory here, and +not in `project-roots', is whether its contents are meant to be +edited together with the rest of the project." + nil) (cl-defgeneric project-ignores (_project _dir) "Return the list of glob patterns to ignore inside DIR. Patterns can match both regular files and directories. To root an entry, start it with `./'. To match directories only, end it with `/'. DIR must be one of `project-roots' or -`project-library-roots'." +`project-external-roots'." (require 'grep) (defvar grep-find-ignored-files) (nconc @@ -133,17 +151,46 @@ end it with `/'. DIR must be one of `project-roots' or "Project implementation using the VC package." :group 'tools) -(defcustom project-vc-library-roots nil - "List ot directories to include in `project-library-roots'. -The file names can be absolute, or relative to the project root." - :type '(repeat file) - :safe 'listp) - (defcustom project-vc-ignores nil "List ot patterns to include in `project-ignores'." :type '(repeat string) :safe 'listp) +;; FIXME: Using the current approach, major modes are supposed to set +;; this variable to a buffer-local value. So we don't have access to +;; the "external roots" of language A from buffers of language B, which +;; seems desirable in multi-language projects, at least for some +;; potential uses, like "jump to a file in project or external dirs". +;; +;; We could add a second argument to this function: a file extension, +;; or a language name. Some projects will know the set of languages +;; used in them; for others, like VC-based projects, we'll need +;; auto-detection. I see two options: +;; +;; - That could be implemented as a separate second hook, with a +;; list of functions that return file extensions. +;; +;; - This variable will be turned into a hook with "append" semantics, +;; and each function in it will perform auto-detection when passed +;; nil instead of an actual file extension. Then this hook will, in +;; general, be modified globally, and not from major mode functions. +;; +;; The second option seems simpler, but the first one has the +;; advantage that the user could override the list of languages used +;; in a project via a directory-local variable, thus skipping +;; languages they're not working on personally (in a big project), or +;; working around problems in language detection (the detection logic +;; might be imperfect for the project in question, or it might work +;; too slowly for the user's taste). +(defvar project-vc-external-roots-function (lambda () tags-table-list) + "Function that returns a list of external roots. + +It should return a list of directory roots that contain source +files related to the current buffer. + +The directory names should be absolute. Used in the VC project +backend implementation of `project-external-roots'.") + (defun project-try-vc (dir) (let* ((backend (ignore-errors (vc-responsible-backend dir))) (root (and backend (ignore-errors @@ -153,15 +200,12 @@ The file names can be absolute, or relative to the project root." (cl-defmethod project-roots ((project (head vc))) (list (cdr project))) -(cl-defmethod project-library-roots ((project (head vc))) +(cl-defmethod project-external-roots ((project (head vc))) (project-subtract-directories (project-combine-directories - (append - (let ((root (cdr project))) - (mapcar - (lambda (dir) (file-name-as-directory (expand-file-name dir root))) - (project--value-in-dir 'project-vc-library-roots root))) - (funcall project-library-roots-function))) + (mapcar + #'file-name-as-directory + (funcall project-vc-external-roots-function))) (project-roots project))) (cl-defmethod project-ignores ((project (head vc)) dir) @@ -213,10 +257,11 @@ DIRS must contain directory names." (declare-function grep-read-files "grep") (declare-function xref-collect-matches "xref") (declare-function xref--show-xrefs "xref") +(declare-function xref-backend-identifier-at-point "xref") ;;;###autoload (defun project-find-regexp (regexp) - "Find all matches for REGEXP in the current project. + "Find all matches for REGEXP in the current project's roots. With \\[universal-argument] prefix, you can specify the directory to search in, and the file name pattern to search for." (interactive (list (project--read-regexp))) @@ -228,22 +273,20 @@ to search in, and the file name pattern to search for." (project--find-regexp-in dirs regexp pr))) ;;;###autoload -(defun project-or-libraries-find-regexp (regexp) - "Find all matches for REGEXP in the current project or libraries. +(defun project-or-external-find-regexp (regexp) + "Find all matches for REGEXP in the project roots or external roots. With \\[universal-argument] prefix, you can specify the file name pattern to search for." (interactive (list (project--read-regexp))) (let* ((pr (project-current t)) (dirs (append (project-roots pr) - (project-library-roots pr)))) + (project-external-roots pr)))) (project--find-regexp-in dirs regexp pr))) (defun project--read-regexp () - (defvar xref-identifier-at-point-function) - (require 'xref) (read-regexp "Find regexp" - (funcall xref-identifier-at-point-function))) + (xref-backend-identifier-at-point (xref-find-backend)))) (defun project--find-regexp-in (dirs regexp project) (require 'grep) diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index b6f7da65752..04542cdff3d 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -273,7 +273,7 @@ (autoload 'help-function-arglist "help-fns") ;;;###autoload -(add-to-list 'auto-mode-alist (cons (purecopy "\\.py\\'") 'python-mode)) +(add-to-list 'auto-mode-alist (cons (purecopy "\\.pyw?\\'") 'python-mode)) ;;;###autoload (add-to-list 'interpreter-mode-alist (cons (purecopy "python[0-9.]*") 'python-mode)) @@ -485,7 +485,7 @@ The type returned can be `comment', `string' or `paren'." ((nth 1 ppss) 'paren)))) (defsubst python-syntax-comment-or-string-p (&optional ppss) - "Return non-nil if PPSS is inside 'comment or 'string." + "Return non-nil if PPSS is inside comment or string." (nth 8 (or ppss (syntax-ppss)))) (defsubst python-syntax-closing-paren-p () @@ -1842,7 +1842,7 @@ This command assumes point is not in a string or comment." (defun python-nav-if-name-main () "Move point at the beginning the __main__ block. -When \"if __name__ == '__main__':\" is found returns its +When \"if __name__ == \\='__main__\\=':\" is found returns its position, else returns nil." (interactive) (let ((point (point)) @@ -3051,7 +3051,7 @@ the python shell: (defun python-shell-send-region (start end &optional send-main msg) "Send the region delimited by START and END to inferior Python process. When optional argument SEND-MAIN is non-nil, allow execution of -code inside blocks delimited by \"if __name__== '__main__':\". +code inside blocks delimited by \"if __name__== \\='__main__\\=':\". When called interactively SEND-MAIN defaults to nil, unless it's called with prefix argument. When optional argument MSG is non-nil, forces display of a user-friendly message if there's no @@ -3068,7 +3068,7 @@ process running; defaults to t when called interactively." (defun python-shell-send-buffer (&optional send-main msg) "Send the entire buffer to inferior Python process. When optional argument SEND-MAIN is non-nil, allow execution of -code inside blocks delimited by \"if __name__== '__main__':\". +code inside blocks delimited by \"if __name__== \\='__main__\\=':\". When called interactively SEND-MAIN defaults to nil, unless it's called with prefix argument. When optional argument MSG is non-nil, forces display of a user-friendly message if there's no diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el index 09338860c75..df07083eaef 100644 --- a/lisp/progmodes/ruby-mode.el +++ b/lisp/progmodes/ruby-mode.el @@ -2193,8 +2193,9 @@ See `font-lock-syntax-table'.") ;; Constants. ("\\(?:\\_<\\|::\\)\\([A-Z]+\\(\\w\\|_\\)*\\)" 1 (unless (eq ?\( (char-after)) font-lock-type-face)) - ("\\(^\\s *\\|[[{(,]\\s *\\|\\sw\\s +\\)\\(\\(\\sw\\|_\\)+\\):[^:]" - (2 font-lock-constant-face)) + ;; Ruby 1.9-style symbol hash keys. + ("\\(?:^\\s *\\|[[{(,]\\s *\\|\\sw\\s +\\)\\(\\(\\sw\\|_\\)+:\\)[^:]" + (1 (progn (forward-char -1) font-lock-constant-face))) ;; Conversion methods on Kernel. (,(concat ruby-font-lock-keyword-beg-re (regexp-opt '("Array" "Complex" "Float" "Hash" @@ -2257,9 +2258,10 @@ See `font-lock-syntax-table'.") ;;;###autoload (add-to-list 'auto-mode-alist - (cons (purecopy (concat "\\(?:\\." - "rb\\|ru\\|rake\\|thor" + (cons (purecopy (concat "\\(?:\\.\\(?:" + "rbw?\\|ru\\|rake\\|thor" "\\|jbuilder\\|rabl\\|gemspec\\|podspec" + "\\)" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Puppet\\|Berks" diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index baed27bb138..394e9ca48c6 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -204,6 +204,7 @@ (autoload 'comint-completion-at-point "comint") (autoload 'comint-filename-completion "comint") +(autoload 'comint-send-string "comint") (autoload 'shell-command-completion "shell") (autoload 'shell-environment-variable-completion "shell") @@ -1450,7 +1451,7 @@ This is for the rc shell." (defun sh-mkword-regexpr (word) "Make a regexp which matches WORD as a word. This specifically excludes an occurrence of WORD followed by -punctuation characters like '-'." +punctuation characters like `-'." (concat word "\\([^-[:alnum:]_]\\|$\\)")) (defconst sh-re-done (sh-mkword-regexpr "done")) @@ -1580,7 +1581,8 @@ assumed. Since filenames rarely give a clue, they are not further analyzed. This mode adapts to the variations between shells (see `sh-set-shell') by means of an inheritance based feature lookup (see `sh-feature'). This mechanism applies to all variables (including skeletons) that pertain to -shell-specific features. +shell-specific features. Shell script files can use the `sh-shell' local +variable to indicate the shell variant to be used for the file. The default style of this mode is that of Rosenblatt's Korn shell book. The syntax of the statements varies with the shell being used. The @@ -2364,7 +2366,11 @@ argument) controls whether to insert a #!-line and think about making the visited file executable, and NO-QUERY-FLAG (the second argument) controls whether to query about making the visited file executable. -Calls the value of `sh-set-shell-hook' if set." +Calls the value of `sh-set-shell-hook' if set. + +Shell script files can cause this function be called automatically +when the file is visited by having a `sh-shell' file-local variable +whose value is the shell name (don't quote it)." (interactive (list (completing-read (format "Shell (default %s): " sh-shell-file) diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index bc0133805ee..d3ee9b5b4b2 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -344,22 +344,22 @@ Variables controlling indentation style: with respect to the previous line of the statement. `simula-label-offset' -4711 Offset of SIMULA label lines relative to usual indentation. - `simula-if-indent' '(0 . 0) + `simula-if-indent' (0 . 0) Extra indentation of THEN and ELSE with respect to the starting IF. Value is a cons cell, the car is extra THEN indentation and the cdr extra ELSE indentation. IF after ELSE is indented as the starting IF. - `simula-inspect-indent' '(0 . 0) + `simula-inspect-indent' (0 . 0) Extra indentation of WHEN and OTHERWISE with respect to the corresponding INSPECT. Value is a cons cell, the car is extra WHEN indentation and the cdr extra OTHERWISE indentation. `simula-electric-indent' nil If this variable is non-nil, `simula-indent-line' will check the previous line to see if it has to be reindented. - `simula-abbrev-keyword' 'upcase + `simula-abbrev-keyword' `upcase' Determine how SIMULA keywords will be expanded. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. - `simula-abbrev-stdproc' 'abbrev-table + `simula-abbrev-stdproc' `abbrev-table' Determine how standard SIMULA procedure and class names will be expanded. Value is one of the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table', or nil if they should not be changed. diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index abc99eec909..40596749de7 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -2987,7 +2987,7 @@ supported: :number t In order to ask the user for username, password and database, call the -function like this: (sql-get-login 'user 'password 'database)." +function like this: (sql-get-login \\='user \\='password \\='database)." (dolist (w what) (let ((plist (cdr-safe w))) (pcase (or (car-safe w) w) @@ -4891,7 +4891,7 @@ your might try undecided-dos as a coding system. If this doesn't help, Try to set `comint-output-filter-functions' like this: \(setq comint-output-filter-functions (append comint-output-filter-functions - '(comint-strip-ctrl-m))) + \\='(comint-strip-ctrl-m))) \(Type \\[describe-mode] in the SQL buffer for a list of commands.)" (interactive "P") diff --git a/lisp/progmodes/vera-mode.el b/lisp/progmodes/vera-mode.el index bce56a447f0..354002dd3b3 100644 --- a/lisp/progmodes/vera-mode.el +++ b/lisp/progmodes/vera-mode.el @@ -870,7 +870,7 @@ This function does not modify point or mark." (beginning-of-line))))))) (defmacro vera-prepare-search (&rest body) - "Execute BODY with a syntax table that includes '_'." + "Execute BODY with a syntax table that includes `_'." `(with-syntax-table vera-mode-ext-syntax-table ,@body)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 4095d47b5a9..90145ddff8b 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -757,7 +757,7 @@ Set this to \"logic\" for SystemVerilog code, or use `verilog-auto-logic'." (put 'verilog-auto-wire-type 'safe-local-variable `stringp) (defcustom verilog-auto-endcomments t - "Non-nil means insert a comment /* ... */ after 'end's. + "Non-nil means insert a comment /* ... */ after `end's. The name of the function or case will be set between the braces." :group 'verilog-mode-actions :type 'boolean) @@ -797,7 +797,7 @@ needed on every save. A value of `detect' will do \\[verilog-auto] automatically when it thinks necessary. A value of `ask' will query the user when it thinks updating is needed. -You should not rely on the 'ask or 'detect policies, they are safeguards +You should not rely on the `ask' or `detect' policies, they are safeguards only. They do not detect when AUTOINSTs need to be updated because a sub-module's port list has changed." :group 'verilog-mode-actions @@ -3733,12 +3733,12 @@ Variables controlling indentation/edit style: will be inserted. Setting this variable to zero results in every end acquiring a comment; the default avoids too many redundant comments in tight quarters. - `verilog-auto-lineup' (default 'declarations) + `verilog-auto-lineup' (default `declarations') List of contexts where auto lineup of code should be done. Variables controlling other actions: - `verilog-linter' (default surelint) + `verilog-linter' (default `surelint') Unix program to call to run the lint checker. This is the default command for \\[compile-command] and \\[verilog-auto-save-compile]. @@ -4089,7 +4089,7 @@ The upper left corner is defined by point. Indices begin with 0 and extend to the MAX - 1. If no prefix arg is given, the user is prompted for a value. The indices are surrounded by square brackets []. For example, the following code with the point -located after the first 'a' gives: +located after the first `a' gives: a = b a[ 0] = b a = b a[ 1] = b @@ -12949,7 +12949,7 @@ used on the right hand side of assignments. By default, AUTORESET will include the width of the signal in the autos, SystemVerilog designs may want to change this. To control this behavior, see `verilog-auto-reset-widths'. In some cases -AUTORESET must use a '0 assignment and it will print NOWIDTH; use +AUTORESET must use a \\='0 assignment and it will print NOWIDTH; use `verilog-auto-reset-widths' unbased to prevent this. AUTORESET ties signals to deasserted, which is presumed to be zero. diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 9ee4ab520e1..09330d76dcd 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -585,7 +585,7 @@ option `vhdl-file-header'). The default directory must have an absolute path (use `M-TAB' for completion). All other paths can be absolute or relative to the default directory. All -paths must end with '/'. +paths must end with `/'. The design units found in the sources (files and directories) are shown in the hierarchy browser. Path and file name can contain wildcards `*' and `?' as @@ -945,7 +945,7 @@ If nil, only a list of actual parameters is entered." :group 'vhdl-template) (defcustom vhdl-sensitivity-list-all t - "Non-nil means use 'all' keyword in sensitivity list." + "Non-nil means use `all' keyword in sensitivity list." :version "25.1" :type 'boolean :group 'vhdl-template) @@ -1103,7 +1103,7 @@ Otherwise, falling edge triggers." (defcustom vhdl-clock-edge-condition 'standard "Syntax of the clock edge condition. - Standard: \"clk'event and clk = '1'\" + Standard: \"clk\\='event and clk = \\='1\\='\" Function: \"rising_edge(clk)\"" :type '(choice (const :tag "Standard" standard) (const :tag "Function" function)) @@ -2477,7 +2477,7 @@ current buffer if no project is defined." default-directory)) (defmacro vhdl-prepare-search-1 (&rest body) - "Enable case insensitive search and switch to syntax table that includes '_', + "Enable case insensitive search and switch to syntax table that includes `_', then execute BODY, and finally restore the old environment. Used for consistent searching." `(let ((case-fold-search t)) ; case insensitive search @@ -2486,7 +2486,7 @@ consistent searching." ,@body))) (defmacro vhdl-prepare-search-2 (&rest body) - "Enable case insensitive search, switch to syntax table that includes '_', + "Enable case insensitive search, switch to syntax table that includes `_', arrange to ignore `intangible' overlays, then execute BODY, and finally restore the old environment. Used for consistent searching." `(let ((case-fold-search t) ; case insensitive search @@ -2759,7 +2759,7 @@ elements > `vhdl-menu-max-size'." (defun vhdl-function-name (prefix string &optional postfix) "Generate a Lisp function name. -PREFIX, STRING and optional POSTFIX are concatenated by '-' and spaces in +PREFIX, STRING and optional POSTFIX are concatenated by `-' and spaces in STRING are replaced by `-' and substrings are converted to lower case." (let ((name prefix)) (while (string-match "\\(\\w+\\)\\s-*\\(.*\\)" string) @@ -8189,8 +8189,8 @@ options vhdl-upper-case-{keywords,types,attributes,enum-values}." (defun vhdl-fix-statement-region (beg end &optional arg) "Force statements in region on separate line except when on same line -with 'end' keyword (necessary for correct indentation). -Currently supported keywords: 'begin', 'if'." +with `end' keyword (necessary for correct indentation). +Currently supported keywords: `begin', `if'." (interactive "r\nP") (vhdl-prepare-search-2 (let (point) @@ -8236,7 +8236,7 @@ Currently supported keywords: 'begin', 'if'." (defun vhdl-fix-statement-buffer () "Force statements in buffer on separate line except when on same line -with 'end' keyword (necessary for correct indentation)." +with `end' keyword (necessary for correct indentation)." (interactive) (vhdl-fix-statement-region (point-min) (point-max))) @@ -10578,22 +10578,22 @@ specification, if not already there." (insert "-- pragma " directive)) (defun vhdl-template-directive-translate-on () - "Insert directive 'translate_on'." + "Insert directive `translate_on'." (interactive) (vhdl-template-directive "translate_on")) (defun vhdl-template-directive-translate-off () - "Insert directive 'translate_off'." + "Insert directive `translate_off'." (interactive) (vhdl-template-directive "translate_off")) (defun vhdl-template-directive-synthesis-on () - "Insert directive 'synthesis_on'." + "Insert directive `synthesis_on'." (interactive) (vhdl-template-directive "synthesis_on")) (defun vhdl-template-directive-synthesis-off () - "Insert directive 'synthesis_off'." + "Insert directive `synthesis_off'." (interactive) (vhdl-template-directive "synthesis_off")) @@ -13307,7 +13307,7 @@ File statistics: \"%s\"\n\ (defconst vhdl-font-lock-syntactic-keywords '(("\\('\\).\\('\\)" (1 (7 . ?\')) (2 (7 . ?\')))) - "Mark single quotes as having string quote syntax in 'c' instances.") + "Mark single quotes as having string quote syntax in `c' instances.") (defvar vhdl-font-lock-keywords nil "Regular expressions to highlight in VHDL Mode.") @@ -17760,7 +17760,7 @@ Release Notes for VHDL Mode 3.37 - Context declaration - Block comments - Directives - - 'all' keyword in sensitivity list + - `all' keyword in sensitivity list Release Notes for VHDL Mode 3.34 diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 6a3b42ff646..abb9cc6361d 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -201,20 +201,22 @@ LENGTH is the match length, in characters." ;;; API -;; We make the etags backend the default for now, until something -;; better comes along. -(defvar xref-backend-functions (list #'xref--etags-backend) +(defvar xref-backend-functions nil "Special hook to find the xref backend for the current context. Each functions on this hook is called in turn with no arguments and should return either nil to mean that it is not applicable, or an xref backend, which is a value to be used to dispatch the generic functions.") +;; We make the etags backend the default for now, until something +;; better comes along. Use APPEND so that any `add-hook' calls made +;; before this package is loaded put new items before this one. +(add-hook 'xref-backend-functions #'etags--xref-backend t) + +;;;###autoload (defun xref-find-backend () (run-hook-with-args-until-success 'xref-backend-functions)) -(defun xref--etags-backend () 'etags) - (cl-defgeneric xref-backend-definitions (backend identifier) "Find definitions of IDENTIFIER. @@ -230,10 +232,21 @@ IDENTIFIER can be any string returned by To create an xref object, call `xref-make'.") -(cl-defgeneric xref-backend-references (backend identifier) +(cl-defgeneric xref-backend-references (_backend identifier) "Find references of IDENTIFIER. The result must be a list of xref objects. If no references can -be found, return nil.") +be found, return nil. + +The default implementation uses `semantic-symref-tool-alist' to +find a search tool; by default, this uses \"find | grep\" in the +`project-current' roots." + (cl-mapcan + (lambda (dir) + (xref-collect-references identifier dir)) + (let ((pr (project-current t))) + (append + (project-roots pr) + (project-external-roots pr))))) (cl-defgeneric xref-backend-apropos (backend pattern) "Find all symbols that match PATTERN. @@ -345,10 +358,10 @@ elements is negated." (interactive) (let ((ring xref--marker-ring)) (when (ring-empty-p ring) - (error "Marker stack is empty")) + (user-error "Marker stack is empty")) (let ((marker (ring-remove ring 0))) (switch-to-buffer (or (marker-buffer marker) - (error "The marked buffer has been deleted"))) + (user-error "The marked buffer has been deleted"))) (goto-char (marker-position marker)) (set-marker marker nil nil) (run-hooks 'xref-after-return-hook)))) @@ -498,7 +511,9 @@ WINDOW controls how the buffer is displayed: (save-excursion (let* ((loc (xref-item-location item)) (beg (xref-location-marker loc)) - (len (xref-match-length item))) + (end (move-marker (make-marker) + (+ beg (xref-match-length item)) + (marker-buffer beg)))) ;; Perform sanity check first. (xref--goto-location loc) ;; FIXME: The check should probably be a generic @@ -510,17 +525,18 @@ WINDOW controls how the buffer is displayed: (line-end-position)) (xref-item-summary item)) (user-error "Search results out of date")) - (push (cons beg len) pairs))))) + (push (cons beg end) pairs))))) (setq pairs (nreverse pairs))) (unless pairs (user-error "No suitable matches here")) (xref--query-replace-1 from to pairs)) (dolist (pair pairs) - (move-marker (car pair) nil))))) + (move-marker (car pair) nil) + (move-marker (cdr pair) nil))))) ;; FIXME: Write a nicer UI. (defun xref--query-replace-1 (from to pairs) (let* ((query-replace-lazy-highlight nil) - current-beg current-len current-buf + current-beg current-end current-buf ;; Counteract the "do the next match now" hack in ;; `perform-replace'. And still, it'll report that those ;; matches were "filtered out" at the end. @@ -529,18 +545,18 @@ WINDOW controls how the buffer is displayed: (and current-beg (eq (current-buffer) current-buf) (>= beg current-beg) - (<= end (+ current-beg current-len))))) + (<= end current-end)))) (replace-re-search-function (lambda (from &optional _bound noerror) (let (found pair) (while (and (not found) pairs) (setq pair (pop pairs) current-beg (car pair) - current-len (cdr pair) + current-end (cdr pair) current-buf (marker-buffer current-beg)) (pop-to-buffer current-buf) (goto-char current-beg) - (when (re-search-forward from (+ current-beg current-len) noerror) + (when (re-search-forward from current-end noerror) (setq found t))) found)))) ;; FIXME: Despite this being a multi-buffer replacement, `N' @@ -870,7 +886,7 @@ IGNORES is a list of glob patterns." hits))) (unwind-protect (cl-mapcan (lambda (hit) (xref--collect-matches hit regexp)) - (nreverse hits)) + hits) ;; TODO: Same as above. (mapc #'kill-buffer (cl-set-difference (buffer-list) orig-buffers))))) diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el index 8fd0dbb3291..e45d0f4cf5f 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el @@ -44,7 +44,7 @@ (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "List of directories to search for `BDF' font files. -The default value is '(\"/usr/local/share/emacs/fonts/bdf\")." +The default value is (\"/usr/local/share/emacs/fonts/bdf\")." :type '(repeat :tag "BDF font directory list" (directory :tag "BDF font directory")) :group 'ps-print-miscellany) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index b29894dc2e2..c0c3d5fa064 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -3234,7 +3234,7 @@ in the PostScript array HeaderLinesLeft. Strings are inserted unchanged into the array; those representing PostScript string literals should be delimited with PostScript string -delimiters '(' and ')'. +delimiters `(' and `)'. For symbols with bound functions, the function is called and should return a string to be inserted into the array. For symbols with bound values, the value @@ -3288,8 +3288,8 @@ The value should be a list of strings and symbols, each representing an entry in the PostScript array FooterLinesLeft. Strings are inserted unchanged into the array; those representing PostScript -string literals should be delimited with PostScript string delimiters '(' and -')'. +string literals should be delimited with PostScript string delimiters `(' and +`)'. For symbols with bound functions, the function is called and should return a string to be inserted into the array. For symbols with bound values, the value @@ -3603,7 +3603,7 @@ image in a file with that name." (defun ps-line-lengths () "Display the correspondence between a line length and a font size. Done using the current ps-print setup. -Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head" +Try: pr -t file | awk \\='{printf \"%3d %s\n\", length($0), $0}\\=' | sort -r | head" (interactive) (ps-line-lengths-internal)) @@ -4310,7 +4310,7 @@ which long lines wrap around." (defun ps-line-lengths-internal () "Display the correspondence between a line length and a font size. Done using the current ps-print setup. -Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head" +Try: pr -t file | awk \\='{printf \"%3d %s\n\", length($0), $0}\\=' | sort -r | head" (let* ((ps-font-size-internal (or ps-font-size-internal (ps-get-font-size 'ps-font-size))) diff --git a/lisp/replace.el b/lisp/replace.el index b6802aeaf57..d48f4f3fdf9 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -34,9 +34,11 @@ :group 'matching) (defcustom replace-character-fold nil - "Non-nil means `query-replace' should do character folding in matches. + "Non-nil means replacement commands should do character folding in matches. This means, for instance, that \\=' will match a large variety of -unicode quotes." +unicode quotes. +This variable affects `query-replace' and `replace-string', but not +`replace-regexp'." :type 'boolean :group 'matching :version "25.1") @@ -111,7 +113,8 @@ strings or patterns." :version "22.1") (defcustom query-replace-show-replacement t - "Non-nil means to show what actual replacement text will be." + "Non-nil means show substituted replacement text in the minibuffer. +This variable affects only `query-replace-regexp'." :type 'boolean :group 'matching :version "23.1") @@ -314,6 +317,10 @@ If `replace-lax-whitespace' is non-nil, a space or spaces in the string to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. +If `replace-character-fold' is non-nil, matching uses character folding, +i.e. it ignores diacritics and other differences between equivalent +character strings. + Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches surrounded by word boundaries. A negative prefix arg means replace backward. @@ -372,6 +379,8 @@ If `replace-regexp-lax-whitespace' is non-nil, a space or spaces in the regexp to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. +This function is not affected by `replace-character-fold'. + Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches surrounded by word boundaries. A negative prefix arg means replace backward. @@ -460,6 +469,8 @@ If `replace-regexp-lax-whitespace' is non-nil, a space or spaces in the regexp to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. +This function is not affected by `replace-character-fold'. + Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches that are surrounded by word boundaries. Fourth and fifth arg START and END specify the region to operate on." @@ -551,6 +562,10 @@ If `replace-lax-whitespace' is non-nil, a space or spaces in the string to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. +If `replace-character-fold' is non-nil, matching uses character folding, +i.e. it ignores diacritics and other differences between equivalent +character strings. + Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches surrounded by word boundaries. A negative prefix arg means replace backward. @@ -602,6 +617,8 @@ If `replace-regexp-lax-whitespace' is non-nil, a space or spaces in the regexp to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. +This function is not affected by `replace-character-fold' + In Transient Mark mode, if the mark is active, operate on the contents of the region. Otherwise, operate from point to the end of the buffer. @@ -1416,6 +1433,17 @@ See also `multi-occur'." buf)) (buffer-list)))))) +(defun occur-regexp-descr (regexp) + (format " for %s\"%s\"" + (or (get-text-property 0 'isearch-regexp-function-descr regexp) + "") + (if (get-text-property 0 'isearch-string regexp) + (propertize + (query-replace-descr + (get-text-property 0 'isearch-string regexp)) + 'help-echo regexp) + (query-replace-descr regexp)))) + (defun occur-1 (regexp nlines bufs &optional buf-name) (unless (and regexp (not (equal regexp ""))) (error "Occur doesn't work with the empty regexp")) @@ -1484,9 +1512,11 @@ See also `multi-occur'." (if (= count 1) "" "es") ;; Don't display regexp if with remaining text ;; it is longer than window-width. - (if (> (+ (length regexp) 42) (window-width)) - "" (format-message - " for `%s'" (query-replace-descr regexp))))) + (if (> (+ (length (or (get-text-property 0 'isearch-string regexp) + regexp)) + 42) + (window-width)) + "" (occur-regexp-descr regexp)))) (setq occur-revert-arguments (list regexp nlines bufs)) (if (= count 0) (kill-buffer occur-buf) @@ -1547,6 +1577,9 @@ See also `multi-occur'." ;; Highlight the matches (let ((len (length curstring)) (start 0)) + ;; Count empty lines that don't use next loop (Bug#22062). + (when (zerop len) + (setq matches (1+ matches))) (while (and (< start len) (string-match regexp curstring start)) (setq matches (1+ matches)) @@ -1647,8 +1680,7 @@ See also `multi-occur'." lines (if (= lines 1) "" "s"))) ;; Don't display regexp for multi-buffer. (if (> (length buffers) 1) - "" (format " for \"%s\"" - (query-replace-descr regexp))) + "" (occur-regexp-descr regexp)) (buffer-name buf)) 'read-only t)) (setq end (point)) @@ -1661,14 +1693,14 @@ See also `multi-occur'." (goto-char (point-min)) (let ((beg (point)) end) - (insert (format "%d match%s%s total for \"%s\":\n" + (insert (format "%d match%s%s total%s:\n" global-matches (if (= global-matches 1) "" "es") ;; Don't display the same number of lines ;; and matches in case of 1 match per line. (if (= global-lines global-matches) "" (format " in %d line%s" global-lines (if (= global-lines 1) "" "s"))) - (query-replace-descr regexp))) + (occur-regexp-descr regexp))) (setq end (point)) (when title-face (add-face-text-property beg end title-face))) @@ -1979,6 +2011,9 @@ passed in. If LITERAL is set, no checking is done, anyway." (when backward (goto-char (nth 0 match-data))) noedit) +(defvar replace-update-post-hook nil + "Function(s) to call after query-replace has found a match in the buffer.") + (defvar replace-search-function nil "Function to use when searching for strings to replace. It is used by `query-replace' and `replace-string', and is called @@ -2232,7 +2267,7 @@ It must return a string." (and nonempty-match (or (not regexp-flag) (and (if backward - (looking-back search-string) + (looking-back search-string nil) (looking-at search-string)) (let ((match (match-data))) (and (/= (nth 0 match) (nth 1 match)) @@ -2286,7 +2321,8 @@ It must return a string." ;; `real-match-data'. (while (not done) (set-match-data real-match-data) - (replace-highlight + (run-hooks 'replace-update-post-hook) ; Before `replace-highlight'. + (replace-highlight (match-beginning 0) (match-end 0) start end search-string regexp-flag delimited-flag case-fold-search backward) diff --git a/lisp/saveplace.el b/lisp/saveplace.el index fe54743e393..5bbcd79927d 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -158,6 +158,8 @@ file: \(setq-default save-place t)" (interactive "P") (if (not (or buffer-file-name (and (derived-mode-p 'dired-mode) + (boundp 'dired-subdir-alist) + dired-subdir-alist (dired-current-directory)))) (message "Buffer `%s' not visiting a file or directory" (buffer-name)) (setq save-place (if parg @@ -178,6 +180,8 @@ file: ;; will be saved again when Emacs is killed. (or save-place-loaded (load-save-place-alist-from-file)) (let* ((directory (and (derived-mode-p 'dired-mode) + (boundp 'dired-subdir-alist) + dired-subdir-alist (dired-current-directory))) (item (or buffer-file-name (and directory @@ -310,6 +314,8 @@ may have changed) back to `save-place-alist'." ;; save-place checks buffer-file-name too, but we can avoid ;; overhead of function call by checking here too. (and (or buffer-file-name (and (derived-mode-p 'dired-mode) + (boundp 'dired-subdir-alist) + dired-subdir-alist (dired-current-directory))) (save-place-to-alist)) (setq buf-list (cdr buf-list)))))) @@ -331,6 +337,8 @@ may have changed) back to `save-place-alist'." "Position the point in a Dired buffer." (or save-place-loaded (load-save-place-alist-from-file)) (let* ((directory (and (derived-mode-p 'dired-mode) + (boundp 'dired-subdir-alist) + dired-subdir-alist (dired-current-directory))) (cell (assoc (and directory (expand-file-name (if (consp directory) diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index 9c2d1fb44ba..a8f75d3a2f5 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -33,7 +33,7 @@ ;; Suggestions/ideas from: ;; Rick Macdonald <rickm@vsl.com> -;; Anders Lindgren <andersl@csd.uu.se> +;; Anders Lindgren ;;; Code: diff --git a/lisp/server.el b/lisp/server.el index 59fd973115b..35243aeb90e 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1172,7 +1172,7 @@ The following commands are accepted by the client: ;; Allow Cygwin's emacsclient to be used as a file ;; handler on MS-Windows, in which case FILENAME ;; might start with a drive letter. - (when (and (eq system-type 'cygwin) + (when (and (fboundp 'cygwin-convert-file-name-from-windows) (string-match "\\`[A-Za-z]:" file)) (setq file (cygwin-convert-file-name-from-windows file))) (setq file (expand-file-name file dir)) diff --git a/lisp/ses.el b/lisp/ses.el index ec1359bbbcb..d15483f4783 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -336,7 +336,7 @@ default printer and then modify its output.") '(ses--col-widths -5 ses--col-printers -4 ses--default-printer -3 ses--header-row -2 ses--file-format 1 ses--numrows 2 ses--numcols 3 ses--numlocprn 4) - "Offsets from 'Global parameters' line to various parameter lines in the + "Offsets from \"Global parameters\" line to various parameter lines in the data area of a spreadsheet.") (defconst ses-paramfmt-plist @@ -348,7 +348,7 @@ data area of a spreadsheet.") ses--numrows " %S ;numrows" ses--numcols " %S ;numcols" ses--numlocprn " %S ;numlocprn") - "Formats of 'Global parameters' various parameters in the data + "Formats of \"Global parameters\" various parameters in the data area of a spreadsheet.") ;; @@ -361,8 +361,8 @@ area of a spreadsheet.") (defvar ses-relocate-return nil "Set by `ses-relocate-formula' and `ses-relocate-range', read by -`ses-relocate-all'. Set to 'delete if a cell-reference was deleted from a -formula--so the formula needs recalculation. Set to 'range if the size of a +`ses-relocate-all'. Set to `delete' if a cell-reference was deleted from a +formula--so the formula needs recalculation. Set to `range' if the size of a `ses-range' was changed--so both the formula's value and list of dependents need to be recalculated.") @@ -672,7 +672,7 @@ checking that it is a valid printer function." (add-to-list 'ses-read-printer-history (prin1-to-string printer)))) (defun ses-formula-record (formula) - "If FORMULA is of the form 'symbol, add it to the list of symbolic formulas + "If FORMULA is of the form \\='SYMBOL, add it to the list of symbolic formulas for this spreadsheet." (when (and (eq (car-safe formula) 'quote) (symbolp (cadr formula))) @@ -688,7 +688,7 @@ for this spreadsheet." (concat (ses-column-letter (1- (/ col 26))) units)))) (defun ses-create-cell-symbol (row col) - "Produce a symbol that names the cell (ROW,COL). (0,0) => 'A1." + "Produce a symbol that names the cell (ROW,COL). (0,0) => A1." (intern (concat (ses-column-letter col) (number-to-string (1+ row))))) (defun ses-decode-cell-symbol (str) @@ -1114,9 +1114,9 @@ region, or nil if cursor is not at a cell." (defun ses-check-curcell (&rest args) "Signal an error if `ses--curcell' is inappropriate. -The end marker is appropriate if some argument is 'end. -A range is appropriate if some argument is 'range. -A single cell is appropriate unless some argument is 'needrange." +The end marker is appropriate if some argument is `end'. +A range is appropriate if some argument is `range'. +A single cell is appropriate unless some argument is `needrange'." (if (eq ses--curcell t) ;; curcell recalculation was postponed, but user typed ahead. (ses-set-curcell)) @@ -1497,7 +1497,7 @@ If ROWINCR or COLINCR is negative, references to cells being deleted are removed. Example: (ses-relocate-formula \\='(+ A1 B2 D3) 0 1 0 -1) => (+ A1 C3) -Sets `ses-relocate-return' to 'delete if cell-references were removed." +Sets `ses-relocate-return' to `delete' if cell-references were removed." (let (rowcol result) (if (or (atom formula) (eq (car formula) 'quote)) (if (and (setq rowcol (ses-sym-rowcol formula)) @@ -1533,7 +1533,7 @@ Sets `ses-relocate-return' to 'delete if cell-references were removed." (nreverse result)))) (defun ses-relocate-range (range startrow startcol rowincr colincr) - "Relocate one RANGE, of the form '(ses-range min max). Cells starting + "Relocate one RANGE, of the form (SES-RANGE MIN MAX). Cells starting at (STARTROW,STARTCOL) are being shifted by (ROWINCR,COLINCR). Result is the new range, or nil if the entire range is deleted. If new rows are being added just beyond the end of a row range, or new columns just beyond a column range, @@ -2861,7 +2861,7 @@ SES attributes recording the contents of the cell as of the time of copying." (defun ses-copy-region-helper (line) "Converts one line (of a rectangle being extracted from a spreadsheet) to -external form by attaching to each print cell a 'ses attribute that records +external form by attaching to each print cell a `ses' attribute that records the corresponding data cell." (or (> (length line) 1) (error "Empty range")) @@ -2907,7 +2907,7 @@ We clear the killed cells instead of deleting them." (defun ses--advice-yank (yank-fun &optional arg &rest args) "In SES mode, the yanked text is inserted as cells. -If the text contains 'ses attributes (meaning it went to the kill-ring from a +If the text contains `ses' attributes (meaning it went to the kill-ring from a SES buffer), the formulas and print functions are restored for the cells. If the text contains tabs, this is an insertion of tab-separated formulas. Otherwise the text is inserted as the formula for the current cell. @@ -2919,7 +2919,7 @@ prefix to specify insertion without relocation, which is best when the formulas refer to cells outside the yanked text. When inserting formulas, the text is treated as a string constant if it doesn't -make sense as a sexp or would otherwise be considered a symbol. Use 'sym to +make sense as a sexp or would otherwise be considered a symbol. Use `sym' to explicitly insert a symbol, or use the C-u prefix to treat all unmarked words as symbols." (if (not (and (derived-mode-p 'ses-mode) @@ -2962,7 +2962,7 @@ previous insertion." (setq this-command 'yank)) (defun ses-yank-cells (text arg) - "If the TEXT has a proper set of 'ses attributes, insert the text as + "If the TEXT has a proper set of `ses' attributes, insert the text as cells, else return nil. The cells are reprinted--the supplied text is ignored because the column widths, default printer, etc. at yank time might be different from those at kill-time. ARG is a list to indicate that @@ -3558,7 +3558,7 @@ is read and how it is formatted. In the sequel we assume that cells A1, B1, A2 B2 have respective values 1 2 3 and 4. -Readout direction is specified by a `>v', '`>^', `<v', `<^', +Readout direction is specified by a `>v', `>^', `<v', `<^', `v>', `v<', `^>', `^<' flag. For historical reasons, in absence of such a flag, a default direction of `^<' is assumed. This way `(ses-range A1 B2 ^>)' will evaluate to `(1 3 2 4)', diff --git a/lisp/simple.el b/lisp/simple.el index deb5c888c92..a22fe03a0ae 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -458,27 +458,18 @@ A non-nil INTERACTIVE argument means to run the `post-self-insert-hook'." (put-text-property from (point) 'rear-nonsticky (cons 'hard sticky))))) -(declare-function electric-indent-just-newline "electric") -(defun open-line (n &optional interactive) +(defun open-line (n) "Insert a newline and leave point before it. -If `electric-indent-mode' is enabled, indent the new line if it's -not empty. If there is a fill prefix and/or a `left-margin', insert them on -the new line. If the old line would have been blank, insert them -on the old line as well. - -With arg N, insert N newlines. -A non-nil INTERACTIVE argument means to run the `post-self-insert-hook'." - (interactive "*p\np") +the new line if the line would have been blank. +With arg N, insert N newlines." + (interactive "*p") (let* ((do-fill-prefix (and fill-prefix (bolp))) (do-left-margin (and (bolp) (> (current-left-margin) 0))) (loc (point-marker)) ;; Don't expand an abbrev before point. (abbrev-mode nil)) - (if (and interactive - (looking-at-p "[[:space:]]*$")) - (electric-indent-just-newline n) - (newline n interactive)) + (newline n) (goto-char loc) (while (> n 0) (cond ((bolp) @@ -983,7 +974,8 @@ If DELETE is `delete-only', then only delete the region and the return value is undefined. If DELETE is nil, just return the content as a string. If DELETE is `bounds', then don't delete, but just return the boundaries of the region as a list of (START . END) positions. -If anything else, delete the region and return its content as a string.") +If anything else, delete the region and return its content as a string, +after filtering it with `filter-buffer-substring'.") (defvar region-insert-function (lambda (lines) @@ -1008,6 +1000,10 @@ Optional second arg KILLFLAG, if non-nil, means to kill (save in kill ring) instead of delete. Interactively, N is the prefix arg, and KILLFLAG is set if N is explicitly specified. +When killing, the killed text is filtered by +`filter-buffer-substring' before it is saved in the kill ring, so +the actual saved text might be different from what was killed. + In Overwrite mode, single character backward deletion may replace tabs with spaces so as to back over columns, unless point is at the end of the line." @@ -1043,7 +1039,11 @@ To disable this, set variable `delete-active-region' to nil. Optional second arg KILLFLAG non-nil means to kill (save in kill ring) instead of delete. Interactively, N is the prefix arg, and -KILLFLAG is set if N was explicitly specified." +KILLFLAG is set if N was explicitly specified. + +When killing, the killed text is filtered by +`filter-buffer-substring' before it is saved in the kill ring, so +the actual saved text might be different from what was killed." (declare (interactive-only delete-char)) (interactive "p\nP") (unless (integerp n) @@ -2811,7 +2811,7 @@ an amalgamating command. The car of the list is the number of times an amalgamating command has been called, and the cdr are the buffers that were changed during the last command.") -(defvar undo-auto--current-boundary-timer nil +(defvar undo-auto-current-boundary-timer nil "Current timer which will run `undo-auto--boundary-timer' or nil. If set to non-nil, this will effectively disable the timer.") @@ -2819,7 +2819,7 @@ If set to non-nil, this will effectively disable the timer.") (defvar undo-auto--this-command-amalgamating nil "Non-nil if `this-command' should be amalgamated. This variable is set to nil by `undo-auto--boundaries' and is set -by `undo-auto--amalgamate'." ) +by `undo-auto-amalgamate'." ) (defun undo-auto--needs-boundary-p () "Return non-nil if `buffer-undo-list' needs a boundary at the start." @@ -2829,7 +2829,7 @@ by `undo-auto--amalgamate'." ) "Return the number of amalgamating last commands or nil. Amalgamating commands are, by default, either `self-insert-command' and `delete-char', but can be any command -that calls `undo-auto--amalgamate'." +that calls `undo-auto-amalgamate'." (car-safe undo-auto--last-boundary-cause)) (defun undo-auto--ensure-boundary (cause) @@ -2860,13 +2860,13 @@ REASON describes the reason that the boundary is being added; see (defun undo-auto--boundary-timer () "Timer which will run `undo--auto-boundary-timer'." - (setq undo-auto--current-boundary-timer nil) + (setq undo-auto-current-boundary-timer nil) (undo-auto--boundaries 'timer)) (defun undo-auto--boundary-ensure-timer () "Ensure that the `undo-auto-boundary-timer' is set." - (unless undo-auto--current-boundary-timer - (setq undo-auto--current-boundary-timer + (unless undo-auto-current-boundary-timer + (setq undo-auto-current-boundary-timer (run-at-time 10 nil #'undo-auto--boundary-timer)))) (defvar undo-auto--undoably-changed-buffers nil @@ -2881,14 +2881,15 @@ See also `undo-auto--buffer-undoably-changed'.") (defun undo-auto--add-boundary () "Add an `undo-boundary' in appropriate buffers." (undo-auto--boundaries - (if undo-auto--this-command-amalgamating - 'amalgamate - 'command)) - (setq undo-auto--this-command-amalgamating nil)) + (let ((amal undo-auto--this-command-amalgamating)) + (setq undo-auto--this-command-amalgamating nil) + (if amal + 'amalgamate + 'command)))) -(defun undo-auto--amalgamate () +(defun undo-auto-amalgamate () "Amalgamate undo if necessary. -This function can be called after an amalgamating command. It +This function can be called before an amalgamating command. It removes the previous `undo-boundary' if a series of such calls have been made. By default `self-insert-command' and `delete-char' are the only amalgamating commands, although this @@ -3359,13 +3360,12 @@ the use of a shell (with its need to quote arguments)." (shell-command-on-region (point) (point) command output-buffer nil error-buffer))))))) -(defun display-message-or-buffer (message - &optional buffer-name not-this-window frame) +(defun display-message-or-buffer (message &optional buffer-name action frame) "Display MESSAGE in the echo area if possible, otherwise in a pop-up buffer. MESSAGE may be either a string or a buffer. -A buffer is displayed using `display-buffer' if MESSAGE is too long for -the maximum height of the echo area, as defined by `max-mini-window-height' +A pop-up buffer is displayed using `display-buffer' if MESSAGE is too long +for maximum height of the echo area, as defined by `max-mini-window-height' if `resize-mini-windows' is non-nil. Returns either the string shown in the echo area, or when a pop-up @@ -3377,8 +3377,8 @@ is used, defaulting to `*Message*'. In the case where MESSAGE is a string and it is displayed in the echo area, it is not specified whether the contents are inserted into the buffer anyway. -Optional arguments NOT-THIS-WINDOW and FRAME are as for `display-buffer', -and only used if a buffer is displayed." +Optional arguments ACTION and FRAME are as for `display-buffer', +and are only used if a pop-up buffer is displayed." (cond ((and (stringp message) (not (string-match "\n" message))) ;; Trivial case where we can use the echo area (message "%s" message)) @@ -3424,8 +3424,7 @@ and only used if a buffer is displayed." (t ;; Buffer (goto-char (point-min)) - (display-buffer (current-buffer) - not-this-window frame)))))))) + (display-buffer (current-buffer) action frame)))))))) ;; We have a sentinel to prevent insertion of a termination message @@ -3817,7 +3816,9 @@ see other processes running on the system, use `list-system-processes'." (setq prefix-command--last-echo nil) (defun internal-echo-keystrokes-prefix () - ;; BEWARE: Called directly from the C code. + ;; BEWARE: Called directly from C code. + ;; If the return value is non-nil, it means we are in the middle of + ;; a command with prefix, such as a command invoked with prefix-arg. (if (not prefix-command--needs-update) prefix-command--last-echo (setq prefix-command--last-echo @@ -4257,21 +4258,25 @@ The command \\[yank] can retrieve it from there. If you want to append the killed region to the last killed text, use \\[append-next-kill] before \\[kill-region]. +Any command that calls this function is a \"kill command\". +If the previous command was also a kill command, +the text killed this time appends to the text killed last time +to make one entry in the kill ring. + +The killed text is filtered by `filter-buffer-substring' before it is +saved in the kill ring, so the actual saved text might be different +from what was killed. + If the buffer is read-only, Emacs will beep and refrain from deleting the text, but put the text in the kill ring anyway. This means that you can use the killing commands to copy text from a read-only buffer. Lisp programs should use this function for killing text. (To delete text, use `delete-region'.) -Supply two arguments, character positions indicating the stretch of text - to be killed. -Any command that calls this function is a \"kill command\". -If the previous command was also a kill command, -the text killed this time appends to the text killed last time -to make one entry in the kill ring. - -The optional argument REGION if non-nil, indicates that we're not just killing -some text between BEG and END, but we're killing the region." +Supply two arguments, character positions BEG and END indicating the + stretch of text to be killed. If the optional argument REGION is + non-nil, the function ignores BEG and END, and kills the current + region instead." ;; Pass mark first, then point, because the order matters when ;; calling `kill-append'. (interactive (list (mark) (point) 'region)) @@ -4316,8 +4321,14 @@ In Transient Mark mode, deactivate the mark. If `interprogram-cut-function' is non-nil, also save the text for a window system cut and paste. -The optional argument REGION if non-nil, indicates that we're not just copying -some text between BEG and END, but we're copying the region. +The copied text is filtered by `filter-buffer-substring' before it is +saved in the kill ring, so the actual saved text might be different +from what was in the buffer. + +When called from Lisp, save in the kill ring the stretch of text +between BEG and END, unless the optional argument REGION is +non-nil, in which case ignore BEG and END, and save the current +region instead. This command's old key binding has been given to `kill-ring-save'." ;; Pass mark first, then point, because the order matters when @@ -4342,8 +4353,14 @@ system cut and paste. If you want to append the killed line to the last killed text, use \\[append-next-kill] before \\[kill-ring-save]. -The optional argument REGION if non-nil, indicates that we're not just copying -some text between BEG and END, but we're copying the region. +The copied text is filtered by `filter-buffer-substring' before it is +saved in the kill ring, so the actual saved text might be different +from what was in the buffer. + +When called from Lisp, save in the kill ring the stretch of text +between BEG and END, unless the optional argument REGION is +non-nil, in which case ignore BEG and END, and save the current +region instead. This command is similar to `copy-region-as-kill', except that it gives visual feedback indicating the extent of the region being copied." @@ -8269,7 +8286,7 @@ backward. If set to nil, both Delete and Backspace keys delete backward. -If set to 'maybe (which is the default), Emacs automatically +If set to `maybe' (which is the default), Emacs automatically selects a behavior. On window systems, the behavior depends on the keyboard used. If the keyboard has both a Backspace key and a Delete key, and both are mapped to their usual meanings, the diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 17430587818..9d011e048a3 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -242,8 +242,8 @@ frame." (defcustom speedbar-query-confirmation-method 'all "Query control for file operations. -The 'all flag means to always query before file operations. -The 'none-but-delete flag means to not query before any file +The `all' flag means to always query before file operations. +The `none-but-delete' flag means to not query before any file operations, except before a file deletion." :group 'speedbar :type '(radio (const :tag "Always Query before some file operations." @@ -392,8 +392,8 @@ display is used instead." (defcustom speedbar-default-position 'left-right "Default position of the speedbar frame. -Possible values are 'left, 'right or 'left-right. -If value is 'left-right, the most suitable location is +Possible values are `left', `right' or `left-right'. +If value is `left-right', the most suitable location is determined automatically." :group 'speedbar :type '(radio (const :tag "Automatic" left-right) @@ -1989,7 +1989,7 @@ INDEX is not used, but is required by the caller." This is the button that expands or contracts a node (if applicable), and EXP-BUTTON-CHAR the character in it (+, -, ?, etc). EXP-BUTTON-FUNCTION is the function to call if it's clicked on. Button types are -'bracket, 'angle, 'curly, 'expandtag, 'statictag, t, or nil. +`bracket', `angle', `curly', `expandtag', `statictag', t, or nil. EXP-BUTTON-DATA is extra data attached to the text forming the expansion button. @@ -2061,7 +2061,7 @@ position to insert a new item, and that the new item will end with a CR." "Insert list of FILES starting at point, and indenting all files to LEVEL. Tag expandable items with a +, otherwise a ?. Don't highlight ? as we don't know how to manage them. The input parameter FILES is a cons -cell of the form ( 'DIRLIST . 'FILELIST )." +cell of the form (DIRLIST . FILELIST)." ;; Start inserting all the directories (let ((dirs (car files))) (while dirs @@ -2341,7 +2341,7 @@ Argument LST is the list of tags to trim." (append newlst trimlst)))) (defun speedbar-simple-group-tag-hierarchy (lst) - "Create a simple 'Tags' group with orphaned tags. + "Create a simple `Tags' group with orphaned tags. Argument LST is the list of tags to sort into groups." (let ((newlst nil) (sublst nil)) @@ -3469,7 +3469,7 @@ TOKEN will be the list, and INDENT is the current indentation level." ;; (defcustom speedbar-select-frame-method 'attached "Specify how to select a frame for displaying a file. -A value of 'attached means to use the attached frame (the frame +A value of `attached' means to use the attached frame (the frame that speedbar was started from.) A number such as 1 or -1 means to pass that number to `other-frame' while selecting a frame from speedbar." :group 'speedbar diff --git a/lisp/startup.el b/lisp/startup.el index 13463107d2e..20f25a8de38 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -544,7 +544,11 @@ It is the default value of the variable `top-level'." (set-buffer elt) (if default-directory (setq default-directory - (decode-coding-string default-directory coding t))))) + (if (eq system-type 'windows-nt) + ;; Convert backslashes to forward slashes. + (expand-file-name + (decode-coding-string default-directory coding t)) + (decode-coding-string default-directory coding t)))))) ;; Decode all the important variables and directory lists, now ;; that we know the locale's encoding. This is because the @@ -1426,9 +1430,8 @@ settings will be marked as \"CHANGED outside of Customize\"." (put 'cursor 'face-modified t)))) (defcustom initial-scratch-message (purecopy "\ -;; This buffer is for notes you don't want to save, and for Lisp evaluation. -;; If you want to create a file, visit that file with \\[find-file], -;; then enter the text in that file's own buffer. +;; This buffer is for text that is not saved, and for Lisp evaluation. +;; To create a file, visit it with \\[find-file] and enter text in its buffer. ") "Initial documentation displayed in *scratch* buffer at startup. diff --git a/lisp/subr.el b/lisp/subr.el index ea926ae1475..860c14c446b 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3908,7 +3908,7 @@ If the feature is provided when evaluating code not associated with a file, FORM is evaluated immediately after the provide statement. Usually FILE is just a library name like \"font-lock\" or a feature name -like 'font-lock. +like `font-lock'. This function makes or adds to an entry on `after-load-alist'." (declare (compiler-macro @@ -4686,14 +4686,14 @@ Usually the separator is \".\", but it can be any other string.") (defconst version-regexp-alist - '(("^[-_+ ]?snapshot$" . -4) + '(("^[-._+ ]?snapshot$" . -4) ;; treat "1.2.3-20050920" and "1.2-3" as snapshot releases - ("^[-_+]$" . -4) + ("^[-._+]$" . -4) ;; treat "1.2.3-CVS" as snapshot release - ("^[-_+ ]?\\(cvs\\|git\\|bzr\\|svn\\|hg\\|darcs\\)$" . -4) - ("^[-_+ ]?alpha$" . -3) - ("^[-_+ ]?beta$" . -2) - ("^[-_+ ]?\\(pre\\|rc\\)$" . -1)) + ("^[-._+ ]?\\(cvs\\|git\\|bzr\\|svn\\|hg\\|darcs\\)$" . -4) + ("^[-._+ ]?alpha$" . -3) + ("^[-._+ ]?beta$" . -2) + ("^[-._+ ]?\\(pre\\|rc\\)$" . -1)) "Specify association between non-numeric version and its priority. This association is used to handle version string like \"1.0pre2\", @@ -4703,6 +4703,7 @@ non-numeric part of a version string to an integer. For example: String Version Integer List Version \"0.9snapshot\" (0 9 -4) \"1.0-git\" (1 0 -4) + \"1.0.cvs\" (1 0 -4) \"1.0pre2\" (1 0 -1 2) \"1.0PRE2\" (1 0 -1 2) \"22.8beta3\" (22 8 -2 3) @@ -4742,41 +4743,47 @@ in `version-regexp-alist'. Examples of valid version syntax: - 1.0pre2 1.0.7.5 22.8beta3 0.9alpha1 6.9.30Beta + 1.0pre2 1.0.7.5 22.8beta3 0.9alpha1 6.9.30Beta 2.4.snapshot .5 Examples of invalid version syntax: - 1.0prepre2 1.0..7.5 22.8X3 alpha3.2 .5 + 1.0prepre2 1.0..7.5 22.8X3 alpha3.2 Examples of version conversion: Version String Version as a List of Integers - \"1.0.7.5\" (1 0 7 5) - \"1.0pre2\" (1 0 -1 2) - \"1.0PRE2\" (1 0 -1 2) - \"22.8beta3\" (22 8 -2 3) - \"22.8Beta3\" (22 8 -2 3) - \"0.9alpha1\" (0 9 -3 1) + \".5\" (0 5) + \"0.9 alpha\" (0 9 -3) \"0.9AlphA1\" (0 9 -3 1) - \"0.9alpha\" (0 9 -3) \"0.9snapshot\" (0 9 -4) \"1.0-git\" (1 0 -4) + \"1.0.7.5\" (1 0 7 5) + \"1.0.cvs\" (1 0 -4) + \"1.0PRE2\" (1 0 -1 2) + \"1.0pre2\" (1 0 -1 2) + \"22.8 Beta3\" (22 8 -2 3) + \"22.8beta3\" (22 8 -2 3) See documentation for `version-separator' and `version-regexp-alist'." - (or (and (stringp ver) (> (length ver) 0)) - (error "Invalid version string: `%s'" ver)) + (unless (stringp ver) + (error "Version must be a string")) ;; Change .x.y to 0.x.y (if (and (>= (length ver) (length version-separator)) (string-equal (substring ver 0 (length version-separator)) version-separator)) (setq ver (concat "0" ver))) + (unless (string-match-p "^[0-9]" ver) + (error "Invalid version syntax: `%s' (must start with a number)" ver)) + (save-match-data (let ((i 0) (case-fold-search t) ; ignore case in matching lst s al) + ;; Parse the version-string up to a separator until there are none left (while (and (setq s (string-match "[0-9]+" ver i)) (= s i)) - ;; handle numeric part + ;; Add the numeric part to the beginning of the version list; + ;; lst gets reversed at the end (setq lst (cons (string-to-number (substring ver i (match-end 0))) lst) i (match-end 0)) @@ -4792,15 +4799,15 @@ See documentation for `version-separator' and `version-regexp-alist'." (setq al (cdr al))) (cond (al (push (cdar al) lst)) - ;; Convert 22.3a to 22.3.1, 22.3b to 22.3.2, etc. - ((string-match "^[-_+ ]?\\([a-zA-Z]\\)$" s) + ;; Convert 22.3a to 22.3.1, 22.3b to 22.3.2, etc., but only if + ;; the letter is the end of the version-string, to avoid + ;; 22.8X3 being valid + ((and (string-match "^[-._+ ]?\\([a-zA-Z]\\)$" s) + (= i (length ver))) (push (- (aref (downcase (match-string 1 s)) 0) ?a -1) lst)) (t (error "Invalid version syntax: `%s'" ver)))))) - (if (null lst) - (error "Invalid version syntax: `%s'" ver) - (nreverse lst))))) - + (nreverse lst)))) (defun version-list-< (l1 l2) "Return t if L1, a list specification of a version, is lower than L2. diff --git a/lisp/tempo.el b/lisp/tempo.el index 93df15a8934..2fe76ab82d8 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -147,7 +147,7 @@ disappears at the next keypress; otherwise, it remains forever." "List of functions to run when inserting a string. Each function is called with a single arg, STRING and should return another string. This could be used for making all strings upcase by -setting it to '(upcase), for example.") +setting it to (upcase), for example.") (defvar tempo-tags nil "An association list with tags and corresponding templates.") diff --git a/lisp/term.el b/lisp/term.el index 41577c90301..5dd965d2d34 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -110,19 +110,6 @@ ;; ;; ---------------------------------------- ;; -;; If you'd like to check out my complete configuration, you can download -;; it from http://www.polito.it/~s64912/things.html, it's ~500k in size and -;; contains my .cshrc, .emacs and my whole site-lisp subdirectory. (notice -;; that this term.el may be newer/older than the one in there, please -;; check!) -;; -;; This complete configuration contains, among other things, a complete -;; rectangular marking solution (based on rect-mark.el and -;; pc-bindings.el) and should be a good example of how extensively Emacs -;; can be configured on a ppp-connected ws. -;; -;; ---------------------------------------- -;; ;; TODO: ;; ;; - Add hooks to allow raw-mode keys to be configurable @@ -1445,7 +1432,7 @@ Using \"emacs\" loses, because bash disables editing if $TERM == emacs.") :UP=\\E[%%dA:DO=\\E[%%dB:LE=\\E[%%dD:RI=\\E[%%dC\ :kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~\ :mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#8:pa#64:AB=\\E[4%%dm:AF=\\E[3%%dm:cr=^M\ -:bl=^G:do=^J:le=^H:ta=^I:se=\\E[27m:ue=\\E24m\ +:bl=^G:do=^J:le=^H:ta=^I:se=\\E[27m:ue=\\E[24m\ :kb=^?:kD=^[[3~:sc=\\E7:rc=\\E8:r1=\\Ec:" ;; : -undefine ic ;; don't define :te=\\E[2J\\E[?47l\\E8:ti=\\E7\\E[?47h\ @@ -2140,7 +2127,7 @@ The prompt skip is done by skipping text matching the regular expression (defun term-read-noecho (prompt &optional stars) "Read a single line of text from user without echoing, and return it. Prompt with argument PROMPT, a string. Optional argument STARS causes -input to be echoed with '*' characters on the prompt line. Input ends with +input to be echoed with `*' characters on the prompt line. Input ends with RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. C-g aborts (if `inhibit-quit' is set because e.g. this function was called from a process filter and C-g is pressed, this function returns nil rather than a string). diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 0b3e3bd9d9c..9bd59fc1954 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -51,6 +51,7 @@ (require 'menu-bar) (require 'fontset) (require 'dnd) +(require 'ucs-normalize) (defgroup ns nil "GNUstep/Mac OS X specific features." @@ -337,29 +338,12 @@ See `ns-insert-working-text'." (setq ns-working-overlay nil)) -(declare-function ns-convert-utf8-nfd-to-nfc "nsfns.m" (str)) - -;;;; OS X file system Unicode UTF-8 NFD (decomposed form) support -;; Lisp code based on utf-8m.el, by Seiji Zenitani, Eiji Honjoh, and -;; Carsten Bormann. +;; OS X file system Unicode UTF-8 NFD (decomposed form) support. (when (eq system-type 'darwin) - (defun ns-utf8-nfd-post-read-conversion (length) - "Calls `ns-convert-utf8-nfd-to-nfc' to compose char sequences." - (save-excursion - (save-restriction - (narrow-to-region (point) (+ (point) length)) - (let ((str (buffer-string))) - (delete-region (point-min) (point-max)) - (insert (ns-convert-utf8-nfd-to-nfc str)) - (- (point-max) (point-min)))))) - - (define-coding-system 'utf-8-nfd - "UTF-8 NFD (decomposed) encoding." - :coding-type 'utf-8 - :mnemonic ?U - :charset-list '(unicode) - :post-read-conversion 'ns-utf8-nfd-post-read-conversion) - (set-file-name-coding-system 'utf-8-nfd)) + ;; Used prior to Emacs 25. + (define-coding-system-alias 'utf-8-nfd 'utf-8-hfs) + + (set-file-name-coding-system 'utf-8-hfs)) ;;;; Inter-app communications support. diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 690401e1970..b8fbaf7592d 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -1387,7 +1387,7 @@ This returns an error if any Emacs frames are X frames." ("etc/images/connect" . "gtk-connect") ("etc/images/contact" . "gtk-contact") ("etc/images/delete" . ("edit-delete" "gtk-delete")) - ("etc/images/describe" . ("ocument-properties" "gtk-properties")) + ("etc/images/describe" . ("document-properties" "gtk-properties")) ("etc/images/disconnect" . "gtk-disconnect") ;; ("etc/images/exit" . "gtk-exit") ("etc/images/lock-broken" . "gtk-lock_broken") diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index a29418e6f84..373ab14e3fb 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -2873,10 +2873,36 @@ Returns a list of strings." (error "Failed to read available fonts: %s (%d)" stderr exit-code)) (artist-string-split stdout ".flf\n"))) +(defun artist-figlet-get-font-list-windows () + "Read in fonts on MS-Windows by collecting output of the `figlet' program. +Returns a list of strings." + (let* ((ls-cmd "figlet -I2") + (result (artist-system shell-file-name nil + (list shell-command-switch ls-cmd))) + (exit-code (elt result 0)) + (stdout (elt result 1)) + (stderr (elt result 2))) + (if (not (= exit-code 0)) + (error "Failed to read available fonts: %s (%d)" stderr exit-code)) + (let ((dir-list (artist-string-split stdout "\n")) + result) + (mapc + (lambda (dir) + (let ((default-directory dir)) + (setq result (append (file-expand-wildcards "*.flf") result)))) + dir-list) + (mapcar + (lambda (file) + (replace-regexp-in-string "\.flf\\'" "" file)) + result)))) + (defun artist-figlet-choose-font () "Read any extra arguments for figlet." (interactive) - (let* ((avail-fonts (artist-figlet-get-font-list)) + (let* ((avail-fonts + (if (memq system-type '(windows-nt ms-dos)) + (artist-figlet-get-font-list-windows) + (artist-figlet-get-font-list))) (font (completing-read (concat "Select font (default " artist-figlet-default-font "): ") diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index df8066ee2fc..deb39d943a8 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -1503,7 +1503,7 @@ At most `bibtex-entry-kill-ring-max' items are kept here.") "The tail of `bibtex-entry-kill-ring' whose car is the last item yanked.") (defvar bibtex-last-kill-command nil - "Type of the last kill command (either 'field or 'entry).") + "Type of the last kill command (either `field' or `entry').") (defvar bibtex-strings (lazy-completion-table bibtex-strings @@ -2573,7 +2573,7 @@ Formats current entry according to variable `bibtex-entry-format'." (defun bibtex-field-re-init (regexp-alist type) "Calculate optimized value for bibtex-regexp-TYPE-opt. -This value is based on bibtex-regexp-TYPE-alist. TYPE is 'braces or 'strings. +This value is based on bibtex-regexp-TYPE-alist. TYPE is `braces' or `strings'. Return optimized value to be used by `bibtex-format-entry'." (setq regexp-alist (mapcar (lambda (e) diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index 3e84b43bcb4..a8a206760b7 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -308,7 +308,8 @@ (defcustom css-indent-offset 4 "Basic size of one indentation step." :version "22.2" - :type 'integer) + :type 'integer + :safe 'integerp) (require 'smie) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index fe27f0f158c..05a5da57b66 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1782,6 +1782,51 @@ Extended character mode can be changed for this buffer by placing a `~' followed by an extended-character mode -- such as `~.tex'. The last occurring definition in the buffer will be used.") +(defun ispell--\\w-filter (char) + "Return CHAR in a string when CHAR doesn't have \"word\" syntax, +nil otherwise. CHAR must be a character." + (let ((str (string char))) + (and + (not (string-match "\\w" str)) + str))) + +(defun ispell--make-\\w-expression (chars) + "Make a regular expression like \"\\(\\w\\|[-_]\\)\". +This (parenthesized) expression matches either a character of +\"word\" syntax or one in CHARS. + +CHARS is a string of characters. A member of CHARS is omitted +from the expression if it already has word syntax. (Be careful +about special characters such as ?\\, ?^, ?], and ?- in CHARS.) +If after this filtering there are no chars left, or only one, a +special form of the expression is generated." + (let ((filtered + (mapconcat #'ispell--\\w-filter chars ""))) + (concat + "\\(\\w" + (cond + ((equal filtered "") + "\\)") + ((eq (length filtered) 1) + (concat "\\|" filtered "\\)")) + (t + (concat "\\|[" filtered "]\\)")))))) + +(defun ispell--make-filename-or-URL-re () + "Construct a regexp to match some file names or URLs or email addresses. +The expression is crafted to match as great a variety of these +objects as practicable, without too many false matches happening." + (concat ;"\\(--+\\|_+\\|" + "\\(/\\w\\|\\(" + (ispell--make-\\w-expression "-_") + "+[.:@]\\)\\)" + (ispell--make-\\w-expression "-_") + "*\\([.:/@]+" + (ispell--make-\\w-expression "-_~=?&") + "+\\)+" + ;"\\)" + )) + ;;;###autoload (defvar ispell-skip-region-alist `((ispell-words-keyword forward-line) @@ -1798,7 +1843,7 @@ The last occurring definition in the buffer will be used.") ;; Matches e-mail addresses, file names, http addresses, etc. The ;; `-+' `_+' patterns are necessary for performance reasons when ;; `-' or `_' part of word syntax. - (,(purecopy "\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")) +; (,(purecopy "\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")) ;; above checks /.\w sequences ;;("\\(--+\\|\\(/\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)") ;; This is a pretty complex regexp. It can be simplified to the following: @@ -2248,6 +2293,11 @@ If so, ask if it needs to be saved." (setq ispell-pdict-modified-p nil)) +(defvar ispell-update-post-hook nil + "A normal hook invoked from the ispell command loop. +It is called once per iteration, before displaying a prompt to +the user.") + (defun ispell-command-loop (miss guess word start end) "Display possible corrections from list MISS. GUESS lists possibly valid affix construction of WORD. @@ -2315,8 +2365,10 @@ Global `ispell-quit' set to start location to continue spell session." count (ispell-int-char (1+ count)))) (setq count (ispell-int-char (- count ?0 skipped)))) + (run-hooks 'ispell-update-post-hook) + ;; ensure word is visible - (if (not (pos-visible-in-window-p end)) + (if (not (pos-visible-in-window-group-p end)) (sit-for 0)) ;; Display choices for misspelled word. @@ -2809,6 +2861,7 @@ The variable `ispell-highlight-face' selects the face to use for highlighting." (regexp-quote (buffer-substring-no-properties start end)) "\\b")) (isearch-regexp t) + (isearch-regexp-function nil) (isearch-case-fold-search nil) (isearch-forward t) (isearch-other-end start) @@ -2844,13 +2897,20 @@ Also position fit window to BUFFER and select it." (prog1 (condition-case nil (split-window - nil (- ispell-choices-win-default-height) 'above) + ;; Chose the last of a window group, since + ;; otherwise, the lowering of another window's + ;; TL corner would cause the logical order of + ;; the windows to be changed. + (car (last (selected-window-group))) + (- ispell-choices-win-default-height) 'above) (error nil)) (modify-frame-parameters frame '((unsplittable . t)))))) (and (not unsplittable) (condition-case nil (split-window - nil (- ispell-choices-win-default-height) 'above) + ;; See comment above. + (car (last (selected-window-group))) + (- ispell-choices-win-default-height) 'above) (error nil))) (display-buffer buffer)))) (if (not window) @@ -3373,7 +3433,8 @@ Must be called after `ispell-buffer-local-parsing' due to dependence on mode." (if (string= "" comment-end) "^" (regexp-quote comment-end))) (if (and (null ispell-check-comments) comment-start) (regexp-quote comment-start)) - (ispell-begin-skip-region ispell-skip-region-alist))) + (ispell-begin-skip-region ispell-skip-region-alist) + (ispell--make-filename-or-URL-re))) "\\|")) @@ -3412,6 +3473,8 @@ Manual checking must include comments and tib references. The list is of the form described by variable `ispell-skip-region-alist'. Must be called after `ispell-buffer-local-parsing' due to dependence on mode." (let ((skip-alist ispell-skip-region-alist)) + (setq skip-alist (append (list (list (ispell--make-filename-or-URL-re))) + skip-alist)) ;; only additional explicit region definition is tex. (if (eq ispell-parser 'tex) (setq case-fold-search nil @@ -4105,9 +4168,10 @@ You can bind this to the key C-c i in GNUS or mail by adding to (ispell-non-empty-string vm-included-text-prefix))) (t default-prefix))) (ispell-skip-region-alist - (cons (list (concat "^\\(" cite-regexp "\\)") - (function forward-line)) - ispell-skip-region-alist)) + (cons (list (ispell--make-filename-or-URL-re)) + (cons (list (concat "^\\(" cite-regexp "\\)") + (function forward-line)) + ispell-skip-region-alist))) (old-case-fold-search case-fold-search) (dictionary-alist ispell-message-dictionary-alist) (ispell-checking-message t)) diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 99962c75897..c7a2f258f86 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -351,7 +351,7 @@ Else insert at exact location of point. Narrow to new page if `pages-directory-for-adding-page-narrowing-p' is non-nil. -Page begins with a '^L' as the default `page-delimiter'. +Page begins with a `^L' as the default `page-delimiter'. Use \\[set-page-delimiter] to change the page-delimiter. Point is left in the body of page." (interactive "sHeader line: ") diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el index 424b6d0f6a1..e5b89a24a52 100644 --- a/lisp/textmodes/refbib.el +++ b/lisp/textmodes/refbib.el @@ -79,7 +79,7 @@ may be eliminated if is exactly the same as the car. Because titles are capitalized before matching, the abbreviation for the journal name should be listed as beginning with a capital letter, even if it really doesn't. - For example, a value of '((\"Aij\" \"{Artificial Intelligence}\") + For example, a value of ((\"Aij\" \"{Artificial Intelligence}\") \(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string \"Artificial Intelligence\", but would replace Ijcai81 with the BibTeX macro \"ijcai7\"." @@ -97,7 +97,7 @@ abbreviation. The cadr may be eliminated if is exactly the same as the car. Because titles are capitalized before matching, the abbreviated title should be listed as beginning with a capital letter, even if it doesn't. - For example, a value of '((\"Aij\" \"{Artificial Intelligence}\") + For example, a value of ((\"Aij\" \"{Artificial Intelligence}\") \(\"Ijcai81\" \"ijcai7\")) would expand Aij to the text string \"Artificial Intelligence\", but would replace Ijcai81 with the BibTeX macro \"ijcai7\"." @@ -115,7 +115,7 @@ The entry must match the given data exactly. should begin with a capital letter. For example, suppose the title \"Ijcai81\" is used for the proceedings of a conference, and its expansion is the BibTeX macro \"ijcai7\". Then -`r2b-proceedings-list' should be '((\"Ijcai81\") ...). If instead its +`r2b-proceedings-list' should be ((\"Ijcai81\") ...). If instead its expansion were \"Proceedings of the Seventh International Conference on Artificial Intelligence\", then you would NOT need to include Ijcai81 in `r2b-proceedings-list' (although it wouldn't cause an error)." diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index 22dc7dc9165..dfdda8a5742 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -77,13 +77,13 @@ (defcustom refer-bib-directory nil "Directory, or list of directories, to search for \\.bib files. -Can be set to 'bibinputs or 'texinputs, in which case the environment +Can be set to `bibinputs' or `texinputs', in which case the environment variable BIBINPUTS or TEXINPUTS, respectively, is used to obtain a -list of directories. Useful only if `refer-bib-files' is set to 'dir or +list of directories. Useful only if `refer-bib-files' is set to `dir' or a list of file names (without directory). A value of nil indicates the current working directory. -If `refer-bib-directory' is 'bibinputs or 'texinputs, it is setq'd to +If `refer-bib-directory' is `bibinputs' or `texinputs', it is setq'd to the appropriate list of directories when it is first used. Note that an empty directory is interpreted by BibTeX as indicating diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el index b2629a5a5ae..8316fe5072b 100644 --- a/lisp/textmodes/reftex-auc.el +++ b/lisp/textmodes/reftex-auc.el @@ -137,7 +137,7 @@ argument identify one of multiple indices." ((stringp tag) tag) ((integerp tag) (save-excursion - (goto-char (match-end 1)) + (goto-char (match-end 0)) (or (reftex-nth-arg tag (nth 6 entry)) "idx"))) (t "idx"))))) diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el index 97c8af365e8..fcab1367f7d 100644 --- a/lisp/textmodes/reftex-vars.el +++ b/lisp/textmodes/reftex-vars.el @@ -335,7 +335,7 @@ more than `reftex-idle-time' seconds. Value t means, turn on immediately when RefTeX gets started. Then, recentering will work for any TOC window created during the session. -Value 'frame (the default) means, turn automatic recentering on only while the +Value `frame' (the default) means, turn automatic recentering on only while the dedicated TOC frame does exist, and do the recentering only in that frame. So when creating that frame (with `d' key in an ordinary TOC window), the automatic recentering is turned on. When the frame gets destroyed, automatic @@ -739,7 +739,7 @@ And here is the setup for RefTeX: \\end. Here we use \"linguex\" as this name. (setq reftex-label-alist - '((\"linguex\" ?x \"ex:\" \"~\\\\ref{%s}\" nil (\"Example\" \"Ex.\")))) + \\='((\"linguex\" ?x \"ex:\" \"~\\\\ref{%s}\" nil (\"Example\" \"Ex.\")))) 2. Write a function to detect the list macros and the determinators as well. @@ -762,7 +762,7 @@ And here is the setup for RefTeX: 3. Tell RefTeX to use this function - (setq reftex-special-environment-functions '(my-detect-linguex-list))" + (setq reftex-special-environment-functions \\='(my-detect-linguex-list))" :group 'reftex-defining-label-environments :type 'hook) @@ -877,7 +877,7 @@ DOWNCASE t: Downcase words before using them." "\\\\label{\\(?1:[^}]*\\)}" ;; keyvals [..., label = {foo}, ...] forms used by ctable, ;; listings, minted, ... - "\\[[^[]]*\\<label[[:space:]]*=[[:space:]]*{?\\(?1:[^],}]+\\)}?") + "\\[[^][]\\{0,2000\\}\\<label[[:space:]]*=[[:space:]]*{?\\(?1:[^],}]+\\)}?") "List of regexps matching \\label definitions. The default value matches usual \\label{...} definitions and keyval style [..., label = {...}, ...] label definitions. It is @@ -1206,7 +1206,7 @@ strings. `reftex-cite-format' directly yourself or set it to the SYMBOL of one of the predefined styles. The predefined symbols are those which have an association in the constant `reftex-cite-format-builtin'. -E.g.: (setq reftex-cite-format 'natbib)" +E.g.: (setq reftex-cite-format \\='natbib)" :group 'reftex-citation-support :type `(choice diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 55a1e6d26db..239112bca33 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -697,7 +697,7 @@ This only works for Latin-1 input." "Prompt for a tag and insert it, optionally with attributes. Completion and configuration are done according to `sgml-tag-alist'. If you like tags and attributes in uppercase, customize -`sgml-transformation-function' to 'upcase." +`sgml-transformation-function' to `upcase'." (funcall (or skeleton-transformation-function 'identity) (setq sgml-tag-last (completing-read diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 151d64808af..97da43757da 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el @@ -2938,7 +2938,7 @@ WHERE is provided the cell and table at that location is reported." (defun table-generate-source (language &optional dest-buffer caption) "Generate source of the current table in the specified language. LANGUAGE is a symbol that specifies the language to describe the -structure of the table. It must be either 'html, 'latex or 'cals. +structure of the table. It must be either `html', `latex' or `cals'. The resulted source text is inserted into DEST-BUFFER and the buffer object is returned. When DEST-BUFFER is omitted or nil the default buffer specified in `table-dest-buffer-name' is used. In this case @@ -3561,7 +3561,7 @@ delimiter regular expressions. This parsing determines the number of columns and rows of the table automatically. If COL-DELIM-REGEXP and ROW-DELIM-REGEXP are omitted the result table has only one cell and the entire region contents is placed in that cell. Optional JUSTIFY -is one of 'left, 'center or 'right, which specifies the cell +is one of `left', `center' or `right', which specifies the cell justification. Optional MIN-CELL-WIDTH specifies the minimum cell width. Optional COLUMNS specify the number of columns when ROW-DELIM-REGEXP is not specified. diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index c9d347da02d..22bb8ca41db 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -188,7 +188,7 @@ If two printers are not enough of a choice, you can set the variable for example, (setq tex-alt-dvi-print-command - '(format \"lpr -P%s\" (read-string \"Use printer: \"))) + \\='(format \"lpr -P%s\" (read-string \"Use printer: \"))) would tell \\[tex-print] with a prefix argument to ask you which printer to use." diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index 1466556ab59..1e0a949ed05 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el @@ -39,7 +39,7 @@ (defvar text-mode-variant nil "Non-nil if this buffer's major mode is a variant of Text mode. -Use (derived-mode-p 'text-mode) instead.") +Use (derived-mode-p \\='text-mode) instead.") (defvar text-mode-syntax-table (let ((st (make-syntax-table))) diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index b6a73409f87..c148a57854f 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -677,7 +677,7 @@ otherwise the value of the function `system-name'." ;;; the rest of this file is for version 1 compatibility (defun time-stamp-fconcat (list sep) - "Similar to (mapconcat 'funcall LIST SEP) but LIST allows literals. + "Similar to (mapconcat \\='funcall LIST SEP) but LIST allows literals. If an element of LIST is a symbol, it is funcalled to get the string to use; the separator SEP is used between two strings obtained by funcalling a symbol. Otherwise the element itself is inserted; no separator is used diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index b419db58ca9..75a9e387847 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -50,7 +50,7 @@ Must be a symbol pointing to another variable that will actually store the information. The value of this variable is an assoc list of assoc lists. The first assoc list is keyed by the server name. The cdr of -this is an assoc list based on the 'directory' specified by the URL we +this is an assoc list based on the \"directory\" specified by the URL we are looking up.") (defun url-basic-auth (url &optional prompt overwrite realm args) @@ -141,7 +141,7 @@ instead of the filename inheritance method." "Where usernames and passwords are stored. Its value is an assoc list of assoc lists. The first assoc list is keyed by the server name. The cdr of this is an assoc list based -on the 'directory' specified by the url we are looking up.") +on the \"directory\" specified by the url we are looking up.") (defun url-digest-auth-create-key (username password realm method uri) "Create a key for digest authentication method" diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index 6d2a5c2ee4b..9c272767858 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el @@ -342,8 +342,15 @@ if it had been inserted from a file named URL." ;; XXX: This is HTTP/S specific and should be moved to url-http ;; instead. See http://debbugs.gnu.org/17549. (when (bound-and-true-p url-http-response-status) - (unless (and (>= url-http-response-status 200) - (< url-http-response-status 300)) + ;; Don't signal an error if VISIT is non-nil, because + ;; 'insert-file-contents' doesn't. This is required to + ;; support, e.g., 'browse-url-emacs', which is a fancy way of + ;; visiting the HTML source of a URL: in that case, we want to + ;; display a file buffer even if the URL does not exist and + ;; 'url-retrieve-synchronously' returns 404 or whatever. + (unless (or visit + (and (>= url-http-response-status 200) + (< url-http-response-status 300))) (let ((desc (nth 2 (assq url-http-response-status url-http-codes)))) (kill-buffer buffer) ;; Signal file-error per http://debbugs.gnu.org/16733. diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 258f8025662..36cc2f32bbc 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -136,17 +136,6 @@ request.") (507 insufficient-storage "Insufficient storage")) "The HTTP return codes and their text.") -(defcustom url-user-agent (format "User-Agent: %sURL/%s\r\n" - (if url-package-name - (concat url-package-name "/" - url-package-version " ") - "") url-version) - "User Agent used by the URL package." - :type '(choice (string :tag "A static User-Agent string") - (function :tag "Call a function to get the User-Agent string")) - :version "25.1" - :group 'url) - ;(eval-when-compile ;; These are all macros so that they are hidden from external sight ;; when the file is byte-compiled. @@ -433,7 +422,7 @@ Return the number of characters removed." (progn (widen) (goto-char (point-max)) - (insert "<hr>Sorry, but I do not know how to handle " type + (insert "<hr>Sorry, but I do not know how to handle " (or type auth url "") " authentication. If you'd like to write it," " please use M-x report-emacs-bug RET.<hr>") ;; We used to set a `status' var (declared "special") but I can't @@ -988,7 +977,7 @@ the callback to be triggered." (url-http-activate-callback))))) (defun url-http-chunked-encoding-after-change-function (st nd length) - "Function used when dealing with 'chunked' encoding. + "Function used when dealing with chunked encoding. Cannot give a sophisticated percentage, but we need a different function to look for the special 0-length chunk that signifies the end of the document." @@ -1069,7 +1058,7 @@ the end of the document." (when (looking-at "\r?\n") (url-http-debug "Removing terminator of last chunk") (delete-region (match-beginning 0) (match-end 0))) - (if (re-search-forward "^\r*$" nil t) + (if (re-search-forward "^\r?\n" nil t) (url-http-debug "Saw end of trailers...")) (if (url-http-parse-headers) (url-http-activate-callback)))))))))) diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index 54b02e98c97..65a24a5bbb7 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -160,7 +160,7 @@ conversion. Replaces these characters as follows: ;;;###autoload (defun url-normalize-url (url) - "Return a 'normalized' version of URL. + "Return a \"normalized\" version of URL. Strips out default port numbers, etc." (let (type data retval) (setq data (url-generic-parse-url url) @@ -188,7 +188,7 @@ Will not do anything if `url-show-status' is nil." ;;;###autoload (defun url-get-normalized-date (&optional specified-time) - "Return a 'real' date string that most HTTP servers can understand." + "Return a date string that most HTTP servers can understand." (let ((system-time-locale "C")) (format-time-string "%a, %d %b %Y %T GMT" specified-time t))) diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el index 46c2ec3c69f..fa6f182e831 100644 --- a/lisp/url/url-vars.el +++ b/lisp/url/url-vars.el @@ -357,6 +357,18 @@ Currently supported methods: (const :tag "Direct connection" :value native)) :group 'url-hairy) +(defcustom url-user-agent (format "User-Agent: %sURL/%s\r\n" + (if url-package-name + (concat url-package-name "/" + url-package-version " ") + "") url-version) + "User Agent used by the URL package for HTTP/HTTPS requests +Should be a string or a function of no arguments returning a string." + :type '(choice (string :tag "A static User-Agent string") + (function :tag "Call a function to get the User-Agent string")) + :version "25.1" + :group 'url) + (defvar url-setup-done nil "Has setup configuration been done?") (defconst url-weekday-alist diff --git a/lisp/userlock.el b/lisp/userlock.el index 781023c7449..52a3eb176b6 100644 --- a/lisp/userlock.el +++ b/lisp/userlock.el @@ -38,7 +38,7 @@ (defun ask-user-about-lock (file opponent) "Ask user what to do when he wants to edit FILE but it is locked by OPPONENT. This function has a choice of three things to do: - do (signal 'file-locked (list FILE OPPONENT)) + do (signal \\='file-locked (list FILE OPPONENT)) to refrain from editing the file return t (grab the lock on the file) return nil (edit the file even though it is locked). @@ -101,7 +101,7 @@ You can <q>uit; don't modify this file.") (defun ask-user-about-supersession-threat (fn) "Ask a user who is about to modify an obsolete buffer what to do. This function has two choices: it can return, in which case the modification -of the buffer will proceed, or it can (signal 'file-supersession (file)), +of the buffer will proceed, or it can (signal \\='file-supersession (file)), in which case the proposed buffer modification will not be made. You can rewrite this to use any criterion you like to choose which one to do. diff --git a/lisp/vc/compare-w.el b/lisp/vc/compare-w.el index cec16446984..d6e3240eaf7 100644 --- a/lisp/vc/compare-w.el +++ b/lisp/vc/compare-w.el @@ -132,13 +132,13 @@ out all highlighting later with the command `compare-windows-dehighlight'." (defface compare-windows-removed '((t :inherit diff-removed)) - "Face for highlighting of compare-windows removed regions." + "Face for highlighting `compare-windows' differing regions in the other window." :group 'compare-windows :version "25.1") (defface compare-windows-added '((t :inherit diff-added)) - "Face for highlighting of compare-windows added regions." + "Face for highlighting `compare-windows' differing regions in current window." :group 'compare-windows :version "25.1") diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el index bf211599b9f..a1d405ac2a1 100644 --- a/lisp/vc/ediff-init.el +++ b/lisp/vc/ediff-init.el @@ -718,9 +718,9 @@ appropriate symbol: `rcs', `pcl-cvs', or `generic-sc' if you so desire." (defcustom ediff-coding-system-for-read 'raw-text "The coding system for read to use when running the diff program as a subprocess. In most cases, the default will do. However, under certain circumstances in -MS-Windows you might need to use something like 'raw-text-dos here. +MS-Windows you might need to use something like `raw-text-dos' here. So, if the output that your diff program sends to Emacs contains extra ^M's, -you might need to experiment here, if the default or 'raw-text-dos doesn't +you might need to experiment here, if the default or `raw-text-dos' doesn't work." :type 'symbol :group 'ediff) @@ -750,7 +750,7 @@ to temp files in buffer jobs and when Ediff needs to find fine differences." (defun ediff-check-version (op major minor &optional type-of-emacs) "Check the current version against MAJOR and MINOR version numbers. The comparison uses operator OP, which may be any of: =, >, >=, <, <=. -TYPE-OF-EMACS is either 'xemacs or 'emacs." +TYPE-OF-EMACS is either `emacs' or `xemacs'." (declare (obsolete version< "23.1")) (and (cond ((eq type-of-emacs 'xemacs) (featurep 'xemacs)) ((eq type-of-emacs 'emacs) (featurep 'emacs)) diff --git a/lisp/vc/ediff-wind.el b/lisp/vc/ediff-wind.el index e0887f03b62..8da752a1529 100644 --- a/lisp/vc/ediff-wind.el +++ b/lisp/vc/ediff-wind.el @@ -201,7 +201,7 @@ Used internally---not a user option.") (defcustom ediff-grab-mouse t "If t, Ediff will always grab the mouse and put it in the control frame. -If 'maybe, Ediff will do it sometimes, but not after operations that require +If `maybe', Ediff will do it sometimes, but not after operations that require relatively long time. If nil, the mouse will be entirely user's responsibility." :type 'boolean diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index 9857116e2d4..2bdd7a5be2b 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el @@ -97,7 +97,7 @@ (defcustom log-edit-confirm 'changed "If non-nil, `log-edit-done' will request confirmation. -If 'changed, only request confirmation if the list of files has +If `changed', only request confirmation if the list of files has changed since the beginning of the log-edit session." :group 'log-edit :type '(choice (const changed) (const t) (const nil))) @@ -115,7 +115,7 @@ Enforce it silently if t, query if non-nil and don't do anything if nil." (defcustom log-edit-setup-invert nil "Non-nil means `log-edit' should invert the meaning of its SETUP arg. -If SETUP is 'force, this variable has no effect." +If SETUP is `force', this variable has no effect." :group 'log-edit :type 'boolean) diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el index 3fdee100d44..ba8425824f9 100644 --- a/lisp/vc/pcvs.el +++ b/lisp/vc/pcvs.el @@ -2209,7 +2209,7 @@ With prefix argument, prompt for cvs flags." ;; Byte compile files. (defun-cvs-mode cvs-mode-byte-compile-files () - "Run byte-compile-file on all selected files with '.el' extension." + "Run byte-compile-file on all selected files with `.el' extension." (interactive) (let ((marked (cvs-get-marked (cvs-ignore-marks-p "byte-compile")))) (dolist (fi marked) diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el index 9f9224c226c..e9bfffd0354 100644 --- a/lisp/vc/smerge-mode.el +++ b/lisp/vc/smerge-mode.el @@ -735,17 +735,17 @@ major modes. Uses `smerge-resolve-function' to do the actual work." (smerge-auto-leave)))))) (defun smerge-diff-base-mine () - "Diff 'base' and 'mine' version in current conflict region." + "Diff `base' and `mine' version in current conflict region." (interactive) (smerge-diff 2 1)) (defun smerge-diff-base-other () - "Diff 'base' and 'other' version in current conflict region." + "Diff `base' and `other' version in current conflict region." (interactive) (smerge-diff 2 3)) (defun smerge-diff-mine-other () - "Diff 'mine' and 'other' version in current conflict region." + "Diff `mine' and `other' version in current conflict region." (interactive) (smerge-diff 1 3)) diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 5f5807fb3c6..e21aece85ae 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el @@ -161,7 +161,7 @@ Format is according to `format-time-string'. Only used if "Specify the mode-line display of sticky tags. Value t means default display, nil means no display at all. If the value is a function or macro, it is called with the sticky tag and -its' type as parameters, in that order. TYPE can have three different +its type as parameters, in that order. TYPE can have three different values: `symbolic-name' (TAG is a string), `revision-number' (TAG is a string) and `date' (TAG is a date as returned by `encode-time'). The return value of the function or macro will be displayed as a string. @@ -170,10 +170,10 @@ Here's an example that will display the formatted date for sticky dates and the word \"Sticky\" for sticky tag names and revisions. (lambda (tag type) - (cond ((eq type 'date) (format-time-string + (cond ((eq type \\='date) (format-time-string vc-cvs-sticky-date-format-string tag)) - ((eq type 'revision-number) \"Sticky\") - ((eq type 'symbolic-name) \"Sticky\"))) + ((eq type \\='revision-number) \"Sticky\") + ((eq type \\='symbolic-name) \"Sticky\"))) Here's an example that will abbreviate to the first character only, any text before the first occurrence of `-' for sticky symbolic tags. @@ -181,9 +181,9 @@ If the sticky tag is a revision number, the word \"Sticky\" is displayed. Date and time is displayed for sticky dates. (lambda (tag type) - (cond ((eq type 'date) (format-time-string \"%Y%m%d %H:%M\" tag)) - ((eq type 'revision-number) \"Sticky\") - ((eq type 'symbolic-name) + (cond ((eq type \\='date) (format-time-string \"%Y%m%d %H:%M\" tag)) + ((eq type \\='revision-number) \"Sticky\") + ((eq type \\='symbolic-name) (condition-case nil (progn (string-match \"\\\\([^-]*\\\\)\\\\(.*\\\\)\" tag) @@ -882,11 +882,11 @@ For an empty string, nil is returned (invalid CVS root)." (setq host uhost)) ;; Remove empty HOST (and (equal host "") - (setq host)) + (setq host nil)) ;; Fix windows style CVS root `:local:C:\\project\\cvs\\some\\dir' (and host (equal method "local") - (setq root (concat host ":" root) host)) + (setq root (concat host ":" root) host nil)) ;; Normalize CVS root record (list method user host root))))) @@ -899,7 +899,7 @@ For an empty string, nil is returned (invalid CVS root)." (defun vc-cvs-parse-status (&optional full) "Parse output of \"cvs status\" command in the current buffer. Set file properties accordingly. Unless FULL is t, parse only -essential information. Note that this can never set the 'ignored +essential information. Note that this can never set the `ignored' state." (let (file status missing) (goto-char (point-min)) diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index ec55867fcfe..b8593e30a54 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -580,12 +580,20 @@ editing!" (defun vc-buffer-sync (&optional not-urgent) "Make sure the current buffer and its working file are in sync. NOT-URGENT means it is ok to continue if the user says not to save." - (when (buffer-modified-p) - (if (or vc-suppress-confirm - (y-or-n-p (format "Buffer %s modified; save it? " (buffer-name)))) - (save-buffer) - (unless not-urgent - (error "Aborted"))))) + (let (missing) + (when (cond + ((buffer-modified-p)) + ((not (file-exists-p buffer-file-name)) + (setq missing t))) + (if (or vc-suppress-confirm + (y-or-n-p (format "Buffer %s %s; save it? " + (buffer-name) + (if missing + "is missing on disk" + "modified")))) + (save-buffer) + (unless not-urgent + (error "Aborted")))))) ;; Command closures diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 8bf37f09dc2..99084183a8c 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1050,7 +1050,7 @@ or BRANCH^ (where \"^\" can be repeated)." (autoload 'vc-switches "vc") -(defun vc-git-diff (files &optional rev1 rev2 buffer async) +(defun vc-git-diff (files &optional rev1 rev2 buffer _async) "Get a difference report using Git between two revisions of FILES." (let (process-file-side-effects (command "diff-tree")) @@ -1061,7 +1061,7 @@ or BRANCH^ (where \"^\" can be repeated)." (unless rev1 (setq rev1 "HEAD"))) (if vc-git-diff-switches (apply #'vc-git-command (or buffer "*vc-diff*") - (if async 'async 1) + 1 ; bug#21969 files command "--exit-code" diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 92b0c3169c1..62fbfde5f87 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -335,7 +335,7 @@ If LIMIT is non-nil, show no more than this many entries." (autoload 'vc-switches "vc") -(defun vc-hg-diff (files &optional oldvers newvers buffer async) +(defun vc-hg-diff (files &optional oldvers newvers buffer _async) "Get a difference report using hg between two revisions of FILES." (let* ((firstfile (car files)) (working (and firstfile (vc-working-revision firstfile)))) @@ -345,8 +345,8 @@ If LIMIT is non-nil, show no more than this many entries." (setq oldvers working)) (apply #'vc-hg-command (or buffer "*vc-diff*") - (if async 'async nil) - files "diff" + nil ; bug#21969 + files "diff" (append (vc-switches 'hg 'diff) (when oldvers @@ -430,9 +430,13 @@ Optional arg REVISION is a revision to annotate from." ;;; Miscellaneous (defun vc-hg-previous-revision (_file rev) - (let ((newrev (1- (string-to-number rev)))) - (when (>= newrev 0) - (number-to-string newrev)))) + ;; We can't simply decrement by 1, because that revision might be + ;; e.g. on a different branch (bug#22032). + (with-temp-buffer + (and (eq 0 + (vc-hg-command t nil nil "id" "-n" "-r" (concat rev "^"))) + ;; Trim the trailing newline. + (buffer-substring (point-min) (1- (point-max)))))) (defun vc-hg-next-revision (_file rev) (let ((newrev (1+ (string-to-number rev))) diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index 3e6d2a95051..93d2dc0ee89 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el @@ -243,12 +243,12 @@ if that doesn't exist either, return nil." "Call for BACKEND the implementation of FUNCTION-NAME with the given ARGS. Calls - (apply 'vc-BACKEND-FUN ARGS) + (apply \\='vc-BACKEND-FUN ARGS) if vc-BACKEND-FUN exists (after trying to find it in vc-BACKEND.el) and else calls - (apply 'vc-default-FUN BACKEND ARGS) + (apply \\='vc-default-FUN BACKEND ARGS) It is usually called via the `vc-call' macro." (let ((f (assoc function-name (get backend 'vc-functions)))) @@ -791,7 +791,11 @@ current, and kill the buffer that visits the link." nil) (defun vc-refresh-state () - "Activate or deactivate VC mode as appropriate." + "Refresh the VC state of the current buffer's file. + +This command is more thorough than `vc-state-refresh', in that it +also supports switching a back-end or removing the file from VC. +In the latter case, VC mode is deactivated for this buffer." (interactive) ;; Recompute whether file is version controlled, ;; if user has killed the buffer and revisited. diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index b56a08f2a9e..3b59c61eb78 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el @@ -253,10 +253,10 @@ If LIMIT is non-nil, show no more than this many entries." (autoload 'vc-switches "vc") -(defun vc-mtn-diff (files &optional rev1 rev2 buffer async) +(defun vc-mtn-diff (files &optional rev1 rev2 buffer _async) "Get a difference report using monotone between two revisions of FILES." (apply 'vc-mtn-command (or buffer "*vc-diff*") - (if async 'async 1) + 1 ; bug#21969 files "diff" (append (vc-switches 'mtn 'diff) diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el index ba1336424ea..3e43546967c 100644 --- a/lisp/vc/vc-rcs.el +++ b/lisp/vc/vc-rcs.el @@ -534,10 +534,11 @@ files beneath it." (vc-rcs-print-log-cleanup)) (when limit 'limit-unsupported)) -(defun vc-rcs-diff (files &optional oldvers newvers buffer async) +(defun vc-rcs-diff (files &optional oldvers newvers buffer _async) "Get a difference report using RCS between two sets of files." (apply #'vc-do-command (or buffer "*vc-diff*") - (if async 'async 1) + ;; The repo is local, so this is fast anyway. + 1 ; bug#21969 "rcsdiff" (vc-expand-dirs files 'RCS) (append (list "-q" (and oldvers (concat "-r" oldvers)) diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index de58fb91c62..a50befa9e4c 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el @@ -147,7 +147,8 @@ switches." (defun vc-svn-registered (file) "Check if FILE is SVN registered." (setq file (expand-file-name file)) - (when (vc-svn-root file) + (when (and (vc-svn-root file) + (file-accessible-directory-p (file-name-directory file))) (with-temp-buffer (cd (file-name-directory file)) (let* (process-file-side-effects @@ -309,11 +310,14 @@ to the SVN command." (defalias 'vc-svn-responsible-p 'vc-svn-root) +(declare-function log-edit-extract-headers "log-edit" (headers string)) + (defun vc-svn-checkin (files comment &optional _extra-args-ignored) "SVN-specific version of `vc-backend-checkin'." (let ((status (apply 'vc-svn-command nil 1 files "ci" - (nconc (list "-m" comment) (vc-switches 'SVN 'checkin))))) + (nconc (cons "-m" (log-edit-extract-headers nil comment)) + (vc-switches 'SVN 'checkin))))) (set-buffer "*vc*") (goto-char (point-min)) (unless (equal status 0) @@ -400,6 +404,8 @@ FILE is a file wildcard, relative to the root directory of DIRECTORY." (unless contents-done (vc-svn-command nil 0 file "revert"))) +(autoload 'vc-read-revision "vc") + (defun vc-svn-merge-file (file) "Accept a file merge request, prompting for revisions." (let* ((first-revision diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 178b5f0c0ce..f05d45cabc1 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1026,9 +1026,6 @@ BEWARE: this function may change the current buffer." (if observer (vc-dired-deduce-fileset) (error "State changing VC operations not supported in `dired-mode'"))) - ((and (derived-mode-p 'log-view-mode) - (setq backend (vc-responsible-backend default-directory))) - (list backend default-directory)) ((setq backend (vc-backend buffer-file-name)) (if state-model-only-files (list backend (list buffer-file-name) @@ -1044,6 +1041,9 @@ BEWARE: this function may change the current buffer." (progn ;FIXME: Why not `with-current-buffer'? --Stef. (set-buffer vc-parent-buffer) (vc-deduce-fileset observer allow-unregistered state-model-only-files))) + ((and (derived-mode-p 'log-view-mode) + (setq backend (vc-responsible-backend default-directory))) + (list backend nil)) ((not buffer-file-name) (error "Buffer %s is not associated with a file" (buffer-name))) ((and allow-unregistered (not (vc-registered buffer-file-name))) @@ -2200,7 +2200,7 @@ Not all VC backends support short logs!") In the new log, leave point at WORKING-REVISION (if non-nil). LIMIT is the number of entries currently shown. Does nothing if IS-START-REVISION is non-nil, or if LIMIT is nil, -or if PL-RETURN is 'limit-unsupported." +or if PL-RETURN is `limit-unsupported'." (when (and limit (not (eq 'limit-unsupported pl-return)) (not is-start-revision)) (goto-char (point-max)) @@ -2467,7 +2467,8 @@ to the working revision (except for keyword expansion)." You must be visiting a version controlled file, or in a `vc-dir' buffer. On a distributed version control system, this runs a \"pull\" operation to update the current branch, prompting for an argument -list if required. Optional prefix ARG forces a prompt. +list if required. Optional prefix ARG forces a prompt for the VCS +command to run. On a non-distributed version control system, update the current fileset to the tip revisions. For each unchanged and unlocked @@ -2511,8 +2512,11 @@ tip revision are merged into the working file." You must be visiting a version controlled file, or in a `vc-dir' buffer. On a distributed version control system, this runs a \"push\" operation on the current branch, prompting for the precise command -if required. Optional prefix ARG non-nil forces a prompt. -On a non-distributed version control system, this signals an error." +if required. Optional prefix ARG non-nil forces a prompt for the +VCS command to run. + +On a non-distributed version control system, this signals an error. +It also signals an error in a Bazaar bound branch." (interactive "P") (let* ((vc-fileset (vc-deduce-fileset t)) (backend (car vc-fileset))) diff --git a/lisp/version.el b/lisp/version.el index 43103fde131..4207cb41f21 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -113,17 +113,17 @@ or if we could not determine the revision.") (looking-at "[0-9a-fA-F]\\{40\\}")) (match-string 0))))) -(defun emacs-repository--version-git-1 (file) +(defun emacs-repository--version-git-1 (file dir) "Internal subroutine of `emacs-repository-get-version'." (when (file-readable-p file) - (erase-buffer) - (insert-file-contents file) - (cond ((looking-at "[0-9a-fA-F]\\{40\\}") - (match-string 0)) - ((looking-at "ref: \\(.*\\)") - (emacs-repository--version-git-1 - (expand-file-name (match-string 1) - (file-name-directory file))))))) + (with-temp-buffer + (insert-file-contents file) + (cond ((looking-at "[0-9a-fA-F]\\{40\\}") + (match-string 0)) + ((looking-at "ref: \\(.*\\)") + (emacs-repository--version-git-1 + (expand-file-name (match-string 1) dir) + dir)))))) (defun emacs-repository-get-version (&optional dir external) "Try to return as a string the repository revision of the Emacs sources. @@ -138,20 +138,38 @@ Optional argument EXTERNAL non-nil means to just ask the VCS itself, if the sources appear to be under version control. Otherwise only ask the VCS if we cannot find any information ourselves." (or dir (setq dir source-directory)) - (when (file-directory-p (expand-file-name ".git" dir)) - (if external - (emacs-repository-version-git dir) - (or (let ((files '("HEAD" "refs/heads/master")) - file rev) - (with-temp-buffer - (while (and (not rev) - (setq file (car files))) - (setq file (expand-file-name (format ".git/%s" file) dir) - files (cdr files) - rev (emacs-repository--version-git-1 file)))) - rev) - ;; AFAICS this doesn't work during dumping (bug#20799). - (emacs-repository-version-git dir))))) + (let* ((base-dir (expand-file-name ".git" dir)) + (in-main-worktree (file-directory-p base-dir)) + (in-linked-worktree nil) + sub-dir) + ;; If the sources are in a linked worktree, .git is a file that points to + ;; the location of the main worktree and the repo's administrative files. + (when (and (not in-main-worktree) + (file-regular-p base-dir) + (file-readable-p base-dir)) + (with-temp-buffer + (insert-file-contents base-dir) + (when (looking-at "gitdir: \\(.*\.git\\)\\(.*\\)$") + (setq base-dir (match-string 1) + sub-dir (concat base-dir (match-string 2)) + in-linked-worktree t)))) + ;; We've found a worktree, either main or linked. + (when (or in-main-worktree in-linked-worktree) + (if external + (emacs-repository-version-git dir) + (or (if in-linked-worktree + (emacs-repository--version-git-1 + (expand-file-name "HEAD" sub-dir) base-dir) + (let ((files '("HEAD" "refs/heads/master")) + file rev) + (while (and (not rev) + (setq file (car files))) + (setq file (expand-file-name file base-dir) + files (cdr files) + rev (emacs-repository--version-git-1 file base-dir))) + rev)) + ;; AFAICS this doesn't work during dumping (bug#20799). + (emacs-repository-version-git dir)))))) ;; We put version info into the executable in the form that `ident' uses. (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version)) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 0d9157a5575..d0410aa6852 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1267,7 +1267,7 @@ When not inside a field, signal an error." (defun widget-field-find (pos) "Return the field at POS. -Unlike (get-char-property POS 'field), this works with empty fields too." +Unlike (get-char-property POS \\='field), this works with empty fields too." (let ((fields widget-field-list) field found) (while fields diff --git a/lisp/windmove.el b/lisp/windmove.el index 1df74a2d271..52297ecf662 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -546,7 +546,7 @@ If no window is at the desired location, an error is signaled." (defun windmove-default-keybindings (&optional modifier) "Set up keybindings for `windmove'. Keybindings are of the form MODIFIER-{left,right,up,down}. -Default MODIFIER is 'shift." +Default MODIFIER is `shift'." (interactive) (unless modifier (setq modifier 'shift)) (global-set-key (vector (list modifier 'left)) 'windmove-left) diff --git a/lisp/window.el b/lisp/window.el index 6d189055c15..74512ce14f4 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -3707,7 +3707,7 @@ and no others." (defun window-deletable-p (&optional window) "Return t if WINDOW can be safely deleted from its frame. WINDOW must be a valid window and defaults to the selected one. -Return 'frame if deleting WINDOW should also delete its frame." +Return `frame' if deleting WINDOW should also delete its frame." (setq window (window-normalize-window window)) (unless (or ignore-window-parameters @@ -4851,8 +4851,9 @@ frame. The selected window is not changed by this function." (set-window-parameter (window-parent new) 'window-atom t)) (set-window-parameter new 'window-atom t))) - ;; Sanitize sizes. - (window--sanitize-window-sizes frame horizontal) + ;; Sanitize sizes unless SIZE was specified. + (unless size + (window--sanitize-window-sizes frame horizontal)) (run-window-configuration-change-hook frame) (run-window-scroll-functions new) @@ -6491,7 +6492,7 @@ action. Its form is described below. Optional argument FRAME, if non-nil, acts like an additional ALIST entry (reusable-frames . FRAME) to the action list of ACTION, specifying the frame(s) to search for a window that is already -displaying the buffer. See `display-buffer-reuse-window' +displaying the buffer. See `display-buffer-reuse-window'. If ACTION is non-nil, it should have the form (FUNCTION . ALIST), where FUNCTION is either a function or a list of functions, and @@ -6562,9 +6563,9 @@ Recognized alist entries include: of not displaying the buffer and FUNCTION can safely return a non-window value to suppress displaying. - `preserve-size' -- Value should be either '(t . nil)' to - preserve the width of the window, '(nil . t)' to preserve its - height or '(t . t)' to preserve both. + `preserve-size' -- Value should be either (t . nil) to + preserve the width of the window, (nil . t) to preserve its + height or (t . t) to preserve both. The ACTION argument to `display-buffer' can also have a non-nil and non-list value. This means to display the buffer in a window @@ -6845,7 +6846,7 @@ selected frame." (or (and bottom-window-shows-buffer (window--display-buffer buffer bottom-window 'reuse alist display-buffer-mark-dedicated)) - (and (not (frame-parameter nil 'unsplittable)) + (and (not (frame-parameter nil 'unsplittable)) (let (split-width-threshold) (setq window (window--try-to-split-window bottom-window alist))) (window--display-buffer @@ -7869,6 +7870,152 @@ Return non-nil if the window was shrunk, nil otherwise." (remove-hook 'kill-buffer-hook delete-window-hook t)))))) +;;; +;; Groups of windows (Follow Mode). +;; +;; This section of functions extends the functionality of some window +;; manipulating commands to groups of windows cooperatively +;; displaying a buffer, typically with Follow Mode. +;; +;; The xxx-function variables are permanent locals so that their local +;; status is undone only when explicitly programmed, not when a buffer +;; is reverted or a mode function is called. + +(defvar window-group-start-function nil) +(make-variable-buffer-local 'window-group-start-function) +(put 'window-group-start-function 'permanent-local t) +(defun window-group-start (&optional window) + "Return position at which display currently starts in the group of +windows containing WINDOW. When a grouping mode (such as Follow Mode) +is not active, this function is identical to `window-start'. + +WINDOW must be a live window and defaults to the selected one. +This is updated by redisplay or by calling `set-window*-start'." + (if (functionp window-group-start-function) + (funcall window-group-start-function window) + (window-start window))) + +(defvar window-group-end-function nil) +(make-variable-buffer-local 'window-group-end-function) +(put 'window-group-end-function 'permanent-local t) +(defun window-group-end (&optional window update) + "Return position at which display currently ends in the group of +windows containing WINDOW. When a grouping mode (such as Follow Mode) +is not active, this function is identical to `window-end'. + +WINDOW must be a live window and defaults to the selected one. +This is updated by redisplay, when it runs to completion. +Simply changing the buffer text or setting `window-group-start' +does not update this value. +Return nil if there is no recorded value. (This can happen if the +last redisplay of WINDOW was preempted, and did not finish.) +If UPDATE is non-nil, compute the up-to-date position +if it isn't already recorded." + (if (functionp window-group-end-function) + (funcall window-group-end-function window update) + (window-end window update))) + +(defvar set-window-group-start-function nil) +(make-variable-buffer-local 'set-window-group-start-function) +(put 'set-window-group-start-function 'permanent-local t) +(defun set-window-group-start (window pos &optional noforce) + "Make display in the group of windows containing WINDOW start at +position POS in WINDOW's buffer. When a grouping mode (such as Follow +Mode) is not active, this function is identical to `set-window-start'. + +WINDOW must be a live window and defaults to the selected one. Return +POS. Optional third arg NOFORCE non-nil inhibits next redisplay from +overriding motion of point in order to display at this exact start." + (if (functionp set-window-group-start-function) + (funcall set-window-group-start-function window pos noforce) + (set-window-start window pos noforce))) + +(defvar recenter-window-group-function nil) +(make-variable-buffer-local 'recenter-window-group-function) +(put 'recenter-window-group-function 'permanent-local t) +(defun recenter-window-group (&optional arg) + "Center point in the group of windows containing the selected window +and maybe redisplay frame. When a grouping mode (such as Follow Mode) +is not active, this function is identical to `recenter'. + +With a numeric prefix argument ARG, recenter putting point on screen line ARG +relative to the first window in the selected window group. If ARG is +negative, it counts up from the bottom of the last window in the +group. (ARG should be less than the total height of the window group.) + +If ARG is omitted or nil, then recenter with point on the middle line of +the selected window group; if the variable `recenter-redisplay' is +non-nil, also erase the entire frame and redraw it (when +`auto-resize-tool-bars' is set to `grow-only', this resets the +tool-bar's height to the minimum height needed); if +`recenter-redisplay' has the special value `tty', then only tty frames +are redrawn. + +Just C-u as prefix means put point in the center of the window +and redisplay normally--don't erase and redraw the frame." + (if (functionp recenter-window-group-function) + (funcall recenter-window-group-function arg) + (recenter arg))) + +(defvar pos-visible-in-window-group-p-function nil) +(make-variable-buffer-local 'pos-visible-in-window-group-p-function) +(put 'pos-visible-in-window-group-p-function 'permanent-local t) +(defun pos-visible-in-window-group-p (&optional pos window partially) + "Return non-nil if position POS is currently on the frame in the +window group containing WINDOW. When a grouping mode (such as Follow +Mode) is not active, this function is identical to +`pos-visible-in-window-p'. + +WINDOW must be a live window and defaults to the selected one. + +Return nil if that position is scrolled vertically out of view. If a +character is only partially visible, nil is returned, unless the +optional argument PARTIALLY is non-nil. If POS is only out of view +because of horizontal scrolling, return non-nil. If POS is t, it +specifies the position of the last visible glyph in the window group. +POS defaults to point in WINDOW; WINDOW defaults to the selected +window. + +If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil, +the return value is a list of 2 or 6 elements (X Y [RTOP RBOT ROWH VPOS]), +where X and Y are the pixel coordinates relative to the top left corner +of the window. The remaining elements are omitted if the character after +POS is fully visible; otherwise, RTOP and RBOT are the number of pixels +off-window at the top and bottom of the screen line (\"row\") containing +POS, ROWH is the visible height of that row, and VPOS is the row number +\(zero-based)." + (if (functionp pos-visible-in-window-group-p-function) + (funcall pos-visible-in-window-group-p-function pos window partially) + (pos-visible-in-window-p pos window partially))) + +(defvar selected-window-group-function nil) +(make-variable-buffer-local 'selected-window-group-function) +(put 'selected-window-group-function 'permanent-local t) +(defun selected-window-group () + "Return the list of windows in the group containing the selected window. +When a grouping mode (such as Follow Mode) is not active, the +result is a list containing only the selected window." + (if (functionp selected-window-group-function) + (funcall selected-window-group-function) + (list (selected-window)))) + +(defvar move-to-window-group-line-function nil) +(make-variable-buffer-local 'move-to-window-group-line-function) +(put 'move-to-window-group-line-function 'permanent-local t) +(defun move-to-window-group-line (arg) + "Position point relative to the the current group of windows. +When a grouping mode (such as Follow Mode) is not active, this +function is identical to `move-to-window-line'. + +ARG nil means position point at center of the window group. +Else, ARG specifies the vertical position within the window +group; zero means top of first window in the group, negative +means relative to the bottom of the last window in the group." + (if (functionp move-to-window-group-line-function) + (funcall move-to-window-group-line-function arg) + (move-to-window-line arg))) + + (defvar recenter-last-op nil "Indicates the last recenter operation performed. Possible values: `top', `middle', `bottom', integer or float numbers. diff --git a/lisp/woman.el b/lisp/woman.el index 81319fa6a9f..d4174d4e17c 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -738,7 +738,7 @@ the `woman' command to update and re-write the cache." (defcustom woman-dired-keys t "List of `dired' mode keys to define to run WoMan on current file. -E.g. '(\"w\" \"W\"), or any non-null atom to automatically define +E.g. (\"w\" \"W\"), or any non-null atom to automatically define \"w\" and \"W\" if they are unbound, or nil to do nothing. Default is t." :type '(choice (const :tag "None" nil) @@ -1102,7 +1102,7 @@ The ordinal numbers start from 0.") (defvar woman-if-conditions-true '(?n ?e ?o) "List of one-character built-in condition names that are true. Should include ?e, ?o (page even/odd) and either ?n (nroff) or ?t (troff). -Default is '(?n ?e ?o). Set via `woman-emulation'.") +Default is (?n ?e ?o). Set via `woman-emulation'.") ;;; Specialized utility functions: @@ -1749,7 +1749,7 @@ Leave point at end of new text. Return length of inserted text." ;; start in 19.34! (save-excursion (let ((case-fold-search t)) - ;; Co-operate with auto-compression mode: + ;; Cooperate with auto-compression mode: (if (and compressed (or (eq compressed t) (string-match-p woman-file-compression-regexp filename)) @@ -2218,7 +2218,7 @@ To be called on original buffer and any .so insertions." (defvar woman-emulate-tbl nil "True if WoMan should emulate the tbl preprocessor. This applies to text between .TE and .TS directives. -Currently set only from '\" t in the first line of the source file.") +Currently set only from \\='\\\" t in the first line of the source file.") (defun woman-decode-region (from _to) "Decode the region between FROM and TO in UN*X man-page source format." diff --git a/lisp/xml.el b/lisp/xml.el index f5a9a3f8f0b..7a853d98cc6 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -126,9 +126,9 @@ tag. For example, would be represented by - '(\"\" . \"foo\"). + (\"\" . \"foo\"). -If you'd just like a plain symbol instead, use 'symbol-qnames in +If you'd just like a plain symbol instead, use `symbol-qnames' in the PARSE-NS argument." (car node)) @@ -1010,12 +1010,12 @@ The first line is indented with the optional INDENT-STRING." (defun xml-escape-string (string) "Convert STRING into a string containing valid XML character data. -Replace occurrences of &<>'\" in STRING with their default XML -entity references (e.g. replace each & with &). +Replace occurrences of &<>\\='\" in STRING with their default XML +entity references (e.g., replace each & with &). XML character data must not contain & or < characters, nor the > character under some circumstances. The XML spec does not impose -restriction on \" or ', but we just substitute for these too +restriction on \" or \\=', but we just substitute for these too \(as is permitted by the spec)." (with-temp-buffer (insert string) |