mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-17 10:27:41 +00:00
Merge remote-tracking branch 'savannah/master' into HEAD
This commit is contained in:
Andrea Corallo
commit
44ef24342f
246 changed files with 3014 additions and 1196 deletions
|
|
@ -12,7 +12,7 @@
|
|||
"/usr/include/glib-2.0/glib/gmem.h: ... warning: unknown attribute
|
||||
'__alloc_size__' ignored". Use -Werror when checking for -nopie;
|
||||
otherwise clang warns about -nopie instead of failing, and then
|
||||
later it warns everytime the build uses -nopie.
|
||||
later it warns every time the build uses -nopie.
|
||||
|
||||
2015-04-03 Ulrich Müller <ulm@gentoo.org>
|
||||
|
||||
|
|
@ -1657,7 +1657,7 @@
|
|||
|
||||
2013-12-08 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
||||
* configure.ac: Simplify supression of GTK deprecation warning.
|
||||
* configure.ac: Simplify suppression of GTK deprecation warning.
|
||||
Move -DGDK_DISABLE_DEPRECATION_WARNINGS out of the command line
|
||||
and into config.h, to shorten the command line when doing 'make'.
|
||||
Don't AC_SUBST GTK_CFLAGS, as this is not needed.
|
||||
|
|
|
|||
48
ChangeLog.2
48
ChangeLog.2
|
|
@ -485,7 +485,7 @@
|
|||
Clarify major mode switching
|
||||
|
||||
* doc/emacs/modes.texi (Major Modes):
|
||||
* doc/lispref/modes.texi (Modes, Major Modes): Explictly say that each
|
||||
* doc/lispref/modes.texi (Modes, Major Modes): Explicitly say that each
|
||||
buffer has exactly one major mode and can't be "turned off", only
|
||||
switched away from (Bug#25357).
|
||||
|
||||
|
|
@ -1661,7 +1661,7 @@
|
|||
`re_match_2_internal' uses pointers to the lisp objects that it
|
||||
searches. Since it may call malloc when growing the "fail stack", these
|
||||
pointers may be invalidated while searching, resulting in memory
|
||||
curruption (Bug #24358).
|
||||
corruption (Bug #24358).
|
||||
|
||||
To fix this, we check the pointer that the lisp object (as specified by
|
||||
re_match_object) points to before and after growing the stack, and
|
||||
|
|
@ -2681,7 +2681,7 @@
|
|||
|
||||
* doc/misc/ses.texi (Quick Tutorial): Mention the '!'
|
||||
'ses-range' modifier as an alternative to 'ses+'.
|
||||
(Advanced Features): Add a refernce to node 'Nonrelocatable
|
||||
(Advanced Features): Add a reference to node 'Nonrelocatable
|
||||
references' concerning function 'ses-rename-cell'.
|
||||
(Standard formula functions): Mention the '!' 'ses-range'
|
||||
modifier as an alternative to 'ses-delete-blanks'.
|
||||
|
|
@ -3983,7 +3983,7 @@
|
|||
|
||||
2016-05-10 Dmitry Gutov <dgutov@yandex.ru>
|
||||
|
||||
Don't treat JS spread as contination method call
|
||||
Don't treat JS spread as continuation method call
|
||||
|
||||
* lisp/progmodes/js.el (js--indent-operator-re):
|
||||
Allow only one dot (bug#23492).
|
||||
|
|
@ -4530,7 +4530,7 @@
|
|||
cursor-type doc fix
|
||||
|
||||
* src/buffer.c (syms_of_buffer): Mention that cursor-type's
|
||||
WIDHT/HEIGHT can't exceed the frame char size (bug#19215).
|
||||
WIDTH/HEIGHT can't exceed the frame char size (bug#19215).
|
||||
|
||||
(cherry picked from commit 77c5f4554ebb3b7c7d49bc881e45a550f6c93987)
|
||||
|
||||
|
|
@ -4599,7 +4599,7 @@
|
|||
|
||||
2016-05-01 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Explictly explain that package-initialize loads the packages
|
||||
Explicitly explain that package-initialize loads the packages
|
||||
|
||||
* lisp/emacs-lisp/package.el (package-initialize): Be explicit
|
||||
in saying that `package-initialize' obviates adjusting the
|
||||
|
|
@ -5985,7 +5985,7 @@
|
|||
|
||||
2016-03-30 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
Finish fixing a cacheing bug in CC Mode (see 2016-03-09)
|
||||
Finish fixing a caching bug in CC Mode (see 2016-03-09)
|
||||
|
||||
* lisp/progmodes/cc-cmds.el: (c-beginning-of-defun, c-end-of-defun): Remove
|
||||
superfluous invocations of c-self-bind-state-cache.
|
||||
|
|
@ -6609,7 +6609,7 @@
|
|||
|
||||
2016-03-14 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
Fix a cacheing bug, which led to inordinately slow c-beginning-of-defun.
|
||||
Fix a caching bug, which led to inordinately slow c-beginning-of-defun.
|
||||
|
||||
* lisp/progmodes/cc-defs.el (c-self-bind-state-cache): New macro.
|
||||
|
||||
|
|
@ -6624,7 +6624,7 @@
|
|||
|
||||
2016-03-14 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
Fix a cacheing bug, which led to inordinately slow c-beginning-of-defun.
|
||||
Fix a caching bug, which led to inordinately slow c-beginning-of-defun.
|
||||
|
||||
* lisp/progmodes/cc-defs.el (c-self-bind-state-cache): New macro.
|
||||
|
||||
|
|
@ -7145,7 +7145,7 @@
|
|||
|
||||
Prevent infinite loop on not-well-formed xml. (Bug#16344)
|
||||
|
||||
* lisp/xml.el (xml-parse-tag-1): Prevent inifinite loop. (Bug#16344)
|
||||
* lisp/xml.el (xml-parse-tag-1): Prevent infinite loop. (Bug#16344)
|
||||
* test/automated/xml-parse-tests.el (xml-parse-tests--bad-data): Add
|
||||
test cases for Bug#16344.
|
||||
|
||||
|
|
@ -9956,7 +9956,7 @@
|
|||
* lisp/files.el (dir-locals-find-file): Refactor return values
|
||||
|
||||
Returning a cache remains unchanged, but the case of returning a
|
||||
file (or pattern) is now changed to return the contaning
|
||||
file (or pattern) is now changed to return the containing
|
||||
directory.
|
||||
|
||||
(dir-locals-read-from-file): Rename to `dir-locals-read-from-dir'
|
||||
|
|
@ -10856,7 +10856,7 @@
|
|||
|
||||
2016-01-18 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
Desktop: protect users against inadvertant upgrading of desktop file.
|
||||
Desktop: protect users against inadvertent upgrading of desktop file.
|
||||
|
||||
An upgraded (version 208) desktop file cannot be read in Emacs < 25.
|
||||
|
||||
|
|
@ -11212,7 +11212,7 @@
|
|||
|
||||
2016-01-13 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
Document the new deafault value of 'load-read-function'
|
||||
Document the new default value of 'load-read-function'
|
||||
|
||||
* doc/lispref/loading.texi (How Programs Do Loading): Document the
|
||||
change in the default value of 'load-read-function'.
|
||||
|
|
@ -19985,7 +19985,7 @@
|
|||
* src/intervals.h: Don’t include dispextern.h, composite.h.
|
||||
* src/keyboard.c: Don’t include sysstdio.h, disptab.h, puresize.h.
|
||||
Include coding.h.
|
||||
* src/keyboard.h: Don’t incldue systime.h.
|
||||
* src/keyboard.h: Don’t include systime.h.
|
||||
* src/keymap.c: Don’t include charset.h, frame.h.
|
||||
* src/lread.c: Include dispextern.h and systime.h.
|
||||
Don’t include frame.h. Include systime.h.
|
||||
|
|
@ -21808,7 +21808,7 @@
|
|||
2015-09-26 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
||||
* admin/MAINTAINERS: Add self, plus list some more files
|
||||
sans maintaners.
|
||||
sans maintainers.
|
||||
|
||||
2015-09-26 Zachary Kanfer <zkanfer@gmail.com> (tiny change)
|
||||
|
||||
|
|
@ -22530,7 +22530,7 @@
|
|||
|
||||
Omit unnecessary \ before paren in C docstrings
|
||||
Although \( is needed in docstrings in Elisp code, it is not needed in
|
||||
docstrings in C code, since C function definitiions do not start with
|
||||
docstrings in C code, since C function definitions do not start with
|
||||
a parenthesis. The backslashes made the docstrings a bit harder to
|
||||
read and to format in columns. Also, some C docstrings had ( in
|
||||
column 1 and this did not appear to be causing any problems. So,
|
||||
|
|
@ -24607,7 +24607,7 @@
|
|||
|
||||
Tweak startup screen quoting
|
||||
* lisp/startup.el (normal-splash-screen): Use standard
|
||||
"M-" abbrevation rather than a confusingly-different one.
|
||||
"M-" abbreviation rather than a confusingly-different one.
|
||||
(normal-no-mouse-startup-screen): Follow ‘text-quoting-style’.
|
||||
|
||||
2015-08-27 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
|
@ -27510,7 +27510,7 @@
|
|||
Allocate and use slightly-larger cost vectors, ones based on
|
||||
FRAME_TOTAL_LINES instead of FRAME_LINES.
|
||||
|
||||
Fix uninitalized value in encode_coding_object
|
||||
Fix uninitialized value in encode_coding_object
|
||||
* src/coding.c (encode_coding_object): Also initialize
|
||||
coding->src_pos and coding->src_pos_byte when NILP (src_object).
|
||||
This avoids later use of uninitialized storage.
|
||||
|
|
@ -29884,7 +29884,7 @@
|
|||
file names due to deleted PWD.
|
||||
|
||||
* src/xsmfns.c (x_session_initialize): Avoid libSM crash
|
||||
when starup directory is missing. (Bug#18851)
|
||||
when startup directory is missing. (Bug#18851)
|
||||
(errno.h): Include it.
|
||||
|
||||
2015-06-13 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
|
@ -30029,7 +30029,7 @@
|
|||
because '(format "%S" '(` FOO))' returns "(\\` FOO)". A comment
|
||||
in src/lread.c's read1 function says that the backslash will be
|
||||
needed starting in Emacs 25, which implies that 'format' is
|
||||
correct and the old pcase documention was wrong to omit the backslash.
|
||||
correct and the old pcase documentation was wrong to omit the backslash.
|
||||
* lisp/emacs-lisp/nadvice.el (advice--make-docstring):
|
||||
* lisp/help-fns.el (help-fns--signature):
|
||||
* lisp/help.el (help-add-fundoc-usage):
|
||||
|
|
@ -30117,7 +30117,7 @@
|
|||
(bug#20730).
|
||||
|
||||
* lisp/progmodes/sh-script.el: Better handle nested quotes.
|
||||
(sh-here-doc-open-re): Don't mis-match the <<< operator (bug#20683).
|
||||
(sh-here-doc-open-re): Don't mismatch the <<< operator (bug#20683).
|
||||
(sh-font-lock-quoted-subshell): Make sure double quotes within single
|
||||
quotes don't mistakenly end prematurely the surrounding string.
|
||||
|
||||
|
|
@ -31364,7 +31364,7 @@
|
|||
|
||||
2015-05-25 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
Fix last change in etags.c that broke tagging compresed files
|
||||
Fix last change in etags.c that broke tagging compressed files
|
||||
* lib-src/etags.c (process_file_name) [MSDOS || DOS_NT]: Fix
|
||||
quoting of decompression shell command for MS-Windows/MS-DOS.
|
||||
|
||||
|
|
@ -32680,7 +32680,7 @@
|
|||
(verilog-beg-of-statement): Fix indenting for some forms of
|
||||
constraintsm bug433. Reported by Brad Parker. Fix indentation of
|
||||
continued assignment incorrect if first line ends with ']', bug437.
|
||||
Reported by Dan Dever. Fix indention of cover inside an
|
||||
Reported by Dan Dever. Fix indentation of cover inside an
|
||||
ifdef, bug 862. Reported by Bernd Beuster. Fix labeling do-while
|
||||
blocks, bug842.
|
||||
(verilog-preprocessor-re): Fix fork/end UNMATCHED warning, bug859.
|
||||
|
|
@ -35272,7 +35272,7 @@
|
|||
2015-04-11 Artur Malabarba <bruce.connor.am@gmail.com>
|
||||
|
||||
Speed up byte-compilation and autoload generation by avoiding mode-hooks
|
||||
This prevents emacs-lisp-mode-hook from being run everytime an
|
||||
This prevents emacs-lisp-mode-hook from being run every time an
|
||||
autoload file is generated, which can account for a fraction of
|
||||
package installation time depending on the hooks the user has
|
||||
configured.
|
||||
|
|
|
|||
238
ChangeLog.3
238
ChangeLog.3
|
|
@ -1669,7 +1669,7 @@
|
|||
|
||||
2020-04-20 Juri Linkov <juri@linkov.net>
|
||||
|
||||
* doc/emacs/windows.texi (Window Convenience): Decribe more windmove features.
|
||||
* doc/emacs/windows.texi (Window Convenience): Describe more windmove features.
|
||||
|
||||
* doc/emacs/windows.texi (Window Convenience): Add descriptions of
|
||||
windmove-display-default-keybindings,
|
||||
|
|
@ -1904,7 +1904,7 @@
|
|||
Improve an example in w32 FAQ
|
||||
|
||||
* doc/misc/efaq-w32.texi (Font names): Modify the expression to
|
||||
insert a lits of all installed fonts so as to avoid producing too
|
||||
insert a list of all installed fonts so as to avoid producing too
|
||||
long lines. Suggested by ndame <ndame@protonmail.com>.
|
||||
|
||||
2020-04-15 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
|
@ -2253,7 +2253,7 @@
|
|||
* lisp/emacs-lisp/re-builder.el (reb-while): Take the current value of
|
||||
the counter instead of its name.
|
||||
(reb-mark-non-matching-parenthesis): Bind n-reb to 0 at the start and
|
||||
don't wrongly treat it as dynamicly bound.
|
||||
don't wrongly treat it as dynamically bound.
|
||||
|
||||
2020-04-03 Philipp Stephani <phst@google.com>
|
||||
|
||||
|
|
@ -3447,7 +3447,7 @@
|
|||
|
||||
2020-02-10 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
c-end-of-macro: Handle block coment lines with unescaped NLs correctly
|
||||
c-end-of-macro: Handle block comment lines with unescaped NLs correctly
|
||||
|
||||
* lisp/progmodes/cc-langs.el (c-last-open-c-comment-start-on-line-re): Make
|
||||
obsolete, and supersede by ...
|
||||
|
|
@ -4133,7 +4133,7 @@
|
|||
|
||||
2020-01-17 Dmitry Gutov <dgutov@yandex.ru>
|
||||
|
||||
Honor tags-case-fold-search during xref identifer completion
|
||||
Honor tags-case-fold-search during xref identifier completion
|
||||
|
||||
* etc/NEWS: New entry.
|
||||
|
||||
|
|
@ -5245,10 +5245,10 @@
|
|||
Improve vc--add-line, vc--remove-regexp
|
||||
|
||||
* lisp/vc/vc.el (vc--add-line): Create file if it does not exist.
|
||||
Use existing buffer to avoid discrepancies with filesytem. Make sure
|
||||
Use existing buffer to avoid discrepancies with filesystem. Make sure
|
||||
that the file ends with a newline.
|
||||
(vc--remove-line): Do not create file if it does not exist. Use
|
||||
existing buffer to avoid discrepancies with filesytem. (bug#37185)
|
||||
existing buffer to avoid discrepancies with filesystem. (bug#37185)
|
||||
|
||||
2019-12-24 Dmitry Gutov <dgutov@yandex.ru>
|
||||
|
||||
|
|
@ -5437,7 +5437,7 @@
|
|||
|
||||
Fix bug in flex completion style's sorting and simplify
|
||||
|
||||
This previous commit targetting this function introduced a bug whereby
|
||||
This previous commit targeting this function introduced a bug whereby
|
||||
the completion table's sorting function wouldn't be called. That is
|
||||
fixed by this commit, which also simplifies the function further: it
|
||||
now skips re-sorting the completions completely if there is no
|
||||
|
|
@ -8423,7 +8423,7 @@
|
|||
|
||||
When using this option and editing input, some transient situations
|
||||
may arise that lead to file-name shadowing, but that shouldn't
|
||||
necessarily lead to auto-delete behaviour, which will be suprising.
|
||||
necessarily lead to auto-delete behaviour, which will be surprising.
|
||||
|
||||
In '/foo/x/bar', if the user deletes the 'x', shadowing occurs, but
|
||||
probably shouldn't. So, somewhat like ido-mode, only auto-tidy
|
||||
|
|
@ -9718,7 +9718,7 @@
|
|||
'package-menu-refresh', make internal and non-interactive.
|
||||
(package-menu-mode-map, package-menu-mode-menu, package-menu-mode)
|
||||
(list-packages): Use the above. (Bug#35504)
|
||||
(package-menu-refresh): Redefine as obsolete fuction alias for
|
||||
(package-menu-refresh): Redefine as obsolete function alias for
|
||||
'revert-buffer'.
|
||||
* doc/emacs/package.texi (Package Menu): Document it.
|
||||
* etc/NEWS: Announce it.
|
||||
|
|
@ -11191,7 +11191,7 @@
|
|||
|
||||
* lisp/minibuffer.el (completions-common-part): Adjust
|
||||
description and change default value.
|
||||
(completions-first-difference): Ajust docstring.
|
||||
(completions-first-difference): Adjust docstring.
|
||||
(completion-pcm--hilit-commonality): Don't use
|
||||
completions-first-difference.
|
||||
|
||||
|
|
@ -12738,7 +12738,7 @@
|
|||
* lisp/speedbar.el (speedbar-check-vc-this-line):
|
||||
Normalize boolean result.
|
||||
(speedbar-this-file-in-vc): Use `run-hook-with-args-until-success'
|
||||
to check for files under versin control. Doc fix.
|
||||
to check for files under version control. Doc fix.
|
||||
|
||||
2019-10-16 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
|
|
@ -13701,7 +13701,7 @@
|
|||
"\\|\r" from regular expression.
|
||||
|
||||
* lisp/progmodes/cc-mode.el (c-make-mode-syntax-table): Correct the name of
|
||||
the hook normal-erase-is-backspace-MODE-hook from a non-existant hook name.
|
||||
the hook normal-erase-is-backspace-MODE-hook from a non-existent hook name.
|
||||
|
||||
2019-10-11 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
@ -15039,7 +15039,7 @@
|
|||
|
||||
2019-10-04 Eric Abrahamsen <eric@ericabrahamsen.net>
|
||||
|
||||
Don't manipulate gnus-newsrc-alist if it hasn't been initalized
|
||||
Don't manipulate gnus-newsrc-alist if it hasn't been initialized
|
||||
|
||||
* lisp/gnus/gnus-group.el (gnus-group-set-info): Packages that use
|
||||
Gnus summary mode without actually booting Gnus might end up in this
|
||||
|
|
@ -15458,7 +15458,7 @@
|
|||
|
||||
* lisp/progmodes/cc-engine.el (c-forward-decl-or-cast-1): New variable
|
||||
got-function-name-prefix, which is set when an operator like * (but not &)
|
||||
precedes the putative identifer in parentheses. Test this variable when
|
||||
precedes the putative identifier in parentheses. Test this variable when
|
||||
deciding whether or not to "move the type backwards" to the previous
|
||||
identifier.
|
||||
|
||||
|
|
@ -16583,7 +16583,7 @@
|
|||
Verilog-Mode collected updates.
|
||||
|
||||
* lisp/progmodes/verilog-mode.el (verilog-auto-inst-param): Add regexp
|
||||
paramter to AUTOINSTPARAM to select which parameters to export. Reported
|
||||
parameter to AUTOINSTPARAM to select which parameters to export. Reported
|
||||
by Vish S.
|
||||
(verilog-build-defun-re): Fix `verilog-goto-defun' to find automatic
|
||||
function/tasks, bug1492. Reported by Enze Chi.
|
||||
|
|
@ -22790,7 +22790,7 @@
|
|||
|
||||
2019-08-03 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Tweak tango-dark-theme hightlight face
|
||||
Tweak tango-dark-theme highlight face
|
||||
|
||||
* etc/themes/tango-dark-theme.el (class): Make highlight a bit
|
||||
less yellow to make the cursor visible on it (bug#19189).
|
||||
|
|
@ -22940,7 +22940,7 @@
|
|||
CC Mode: Fix error in macro cache. This fixes bug #36802
|
||||
|
||||
* lisp/progmodes/cc-engine.el (c-invalidate-macro-cache): Add in a cond arm
|
||||
to handle the change position being less than the recorded CPP contruct end.
|
||||
to handle the change position being less than the recorded CPP construct end.
|
||||
|
||||
2019-08-02 Basil L. Contovounesios <contovob@tcd.ie>
|
||||
|
||||
|
|
@ -23268,7 +23268,7 @@
|
|||
Add example for removing scroll bars/fringes from mini windows (Bug#8868)
|
||||
|
||||
* doc/lispref/display.texi (Fringe Size/Pos): Mention example
|
||||
for how to permenantly remove fringes from minibuffer windows.
|
||||
for how to permanently remove fringes from minibuffer windows.
|
||||
(Scroll Bars): Add example for how to permanently remove
|
||||
scroll bars and fringes from minibuffer windows.
|
||||
|
||||
|
|
@ -23719,7 +23719,7 @@
|
|||
|
||||
2019-07-30 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Fix syntax error in previus calc-forms change
|
||||
Fix syntax error in previous calc-forms change
|
||||
|
||||
* lisp/calc/calc-forms.el (calc-time): Fix previous decoded time
|
||||
change.
|
||||
|
|
@ -29144,7 +29144,7 @@
|
|||
* lib/strnlen.c, m4/strnlen.m4: New files, copied from Gnulib.
|
||||
* lwlib/lwlib.c (lw_separator_p):
|
||||
* src/json.c (json_has_prefix):
|
||||
Use strncmp to avoid unecessary work with strlen + memcmp.
|
||||
Use strncmp to avoid unnecessary work with strlen + memcmp.
|
||||
* src/process.c (set_socket_option): Use SBYTES instead of strlen.
|
||||
|
||||
2019-06-25 Emilio C. Lopes <eclig@gmx.net> (tiny change)
|
||||
|
|
@ -30260,7 +30260,7 @@
|
|||
|
||||
2019-06-20 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Leave the emtpy info and lib/sys in extraclean
|
||||
Leave the empty info and lib/sys in extraclean
|
||||
|
||||
* lib/Makefile.in: Ditto.
|
||||
|
||||
|
|
@ -30878,7 +30878,7 @@
|
|||
|
||||
2019-06-19 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Tweak progess reporting in finder-compile-keywords
|
||||
Tweak progress reporting in finder-compile-keywords
|
||||
|
||||
* lisp/finder.el (finder-compile-keywords): Use progress reporter
|
||||
to report the processing.
|
||||
|
|
@ -31189,7 +31189,7 @@
|
|||
Output progress messages when scraping autoloads during bootstrap
|
||||
|
||||
* lisp/emacs-lisp/byte-run.el (byte-compile-info-message): New
|
||||
function to outout informational messages during byte compilation.
|
||||
function to output informational messages during byte compilation.
|
||||
|
||||
* lisp/emacs-lisp/autoload.el (update-directory-autoloads): Use it
|
||||
to report progress when scraping autoloads during bootstrap (which
|
||||
|
|
@ -32559,7 +32559,7 @@
|
|||
|
||||
Fix compilation warnings in rfc2104
|
||||
|
||||
* lisp/net/rfc2104.el (rfc2104-hash): Remove superflous calls to
|
||||
* lisp/net/rfc2104.el (rfc2104-hash): Remove superfluous calls to
|
||||
string-make-unibyte and avoid two compilation warnings.
|
||||
|
||||
2019-06-12 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
|
@ -34140,7 +34140,7 @@
|
|||
|
||||
2019-06-01 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
Debug and disentangle the literal cacheing in CC Mode
|
||||
Debug and disentangle the literal caching in CC Mode
|
||||
|
||||
(Final Commit)
|
||||
|
||||
|
|
@ -34156,11 +34156,11 @@
|
|||
|
||||
2019-06-01 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
* lisp/progmodes/cc-engine.el: Permute certain literal cacheing functions
|
||||
* lisp/progmodes/cc-engine.el: Permute certain literal caching functions
|
||||
|
||||
2019-06-01 Alan Mackenzie <acm@muc.de>
|
||||
|
||||
Tidy up the literal cacheing in CC Mode, optimizing c-full-pp-to-literal
|
||||
Tidy up the literal caching in CC Mode, optimizing c-full-pp-to-literal
|
||||
|
||||
(Intermediate commit)
|
||||
|
||||
|
|
@ -34424,7 +34424,7 @@
|
|||
if the sought position is in a literal, and lies between the literal start and
|
||||
the entry's position.
|
||||
(c-cache-to-parse-ps-state, c-parse-ps-state-below): Amend such that instead
|
||||
of cacheing a state for a position after a backslash or first character of a
|
||||
of caching a state for a position after a backslash or first character of a
|
||||
2-character comment delimiter, this is done for the previous character
|
||||
position.
|
||||
|
||||
|
|
@ -35308,7 +35308,7 @@
|
|||
|
||||
w32--os-description: Fix previous change
|
||||
|
||||
* lisp/w32-fns.el (w32--os-description): Fix inadvertant "o" added
|
||||
* lisp/w32-fns.el (w32--os-description): Fix inadvertent "o" added
|
||||
to the end of the function name in the previous patch (bug#35807).
|
||||
|
||||
2019-05-20 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
|
@ -36353,7 +36353,7 @@
|
|||
|
||||
2019-05-15 John Shahid <jvshahid@gmail.com>
|
||||
|
||||
Avoid infinitly looping in tramp-interrupt-process (bug#35506)
|
||||
Avoid infinitely looping in tramp-interrupt-process (bug#35506)
|
||||
|
||||
* lisp/net/tramp.el (tramp-interrupt-process): Remove with-timeout.
|
||||
Instead pass a timeout to tramp-accept-process-output.
|
||||
|
|
@ -38458,7 +38458,7 @@
|
|||
Fix some corner cases in the recognition of C++ raw strings.
|
||||
|
||||
These are where changing the identifier in a raw string delimiter causes
|
||||
different delimiters to match eachother.
|
||||
different delimiters to match each other.
|
||||
|
||||
* lisp/progmodes/cc-engine.el (c-raw-string-end-delim-disrupted): New
|
||||
variable.
|
||||
|
|
@ -40585,7 +40585,7 @@
|
|||
* lisp/printing.el: Use lexical-binding
|
||||
|
||||
Require easy-menu instead of adding declarations.
|
||||
Remove backward compatiblity. Remove redundant ':group' args.
|
||||
Remove backward compatibility. Remove redundant ':group' args.
|
||||
(pr-region-active-p): Use use-region-p.
|
||||
(pr-set-keymap-name): Delete function and callers.
|
||||
(pr-set-keymap-parents): Delete function; use set-keymap-parent instead.
|
||||
|
|
@ -41012,7 +41012,7 @@
|
|||
this function can be used to find JSXExpressionContainers within JSX.
|
||||
Fix bug where an enclosing JSXElement couldn’t be found when point was
|
||||
at the start of its JSXClosingElement. Return the JSXClosingElement’s
|
||||
position as well, so the JSXClosingElement can be indentified when
|
||||
position as well, so the JSXClosingElement can be identified when
|
||||
indenting and be indented like the matching JSXOpeningElement.
|
||||
|
||||
(js-jsx--at-enclosing-tag-child-p): js-jsx--enclosing-tag-pos now
|
||||
|
|
@ -41930,7 +41930,7 @@
|
|||
Lisp_Fwd * and then back again, because the compiler can then assume
|
||||
that the pointer is aligned for union Lisp_Fwd * when accessing
|
||||
the struct Lisp_Objfwd * components, and this assumption might
|
||||
be incorrect becase we don't force that alignment.
|
||||
be incorrect because we don't force that alignment.
|
||||
* src/lisp.h (lispfwd): New type, replacing ...
|
||||
(union Lisp_Fwd): ... this type, which was removed.
|
||||
All uses changed.
|
||||
|
|
@ -45211,7 +45211,7 @@
|
|||
|
||||
* lisp/progmodes/sql.el (sql-add-product): Correct argument spec.
|
||||
(sql-set-product-feature): Handle all cases as intended.
|
||||
(sql-get-product-feature): Fetch varaiable value by `eval'.
|
||||
(sql-get-product-feature): Fetch variable value by `eval'.
|
||||
* test/lisp/progmodes/sql-tests.el (sql-test-feature-value-[a-d]):
|
||||
New test variables.
|
||||
(sql-test-product-feature-harness): New test macro.
|
||||
|
|
@ -46939,7 +46939,7 @@
|
|||
image-mode: Make parameters buffer-local
|
||||
|
||||
Image parameters were treated as image specific, but because they
|
||||
actually were global variables, their behaviour transfered to new
|
||||
actually were global variables, their behaviour transferred to new
|
||||
images.
|
||||
* lisp/image-mode.el (image-transform-resize, image-transform-scale)
|
||||
(image-transform-rotation): Declare with defvar-local. (Bug#33990)
|
||||
|
|
@ -47838,7 +47838,7 @@
|
|||
* src/frame.c (make_initial_frame): don't reset Vframe_list.
|
||||
(init_frame_once_for_pdumper, init_frame_once): new functions.
|
||||
(syms_of_frame): remove redundant staticpro.
|
||||
* src/fringe.c (init_fringe_once_for_pdumper): new functin.
|
||||
* src/fringe.c (init_fringe_once_for_pdumper): new function.
|
||||
(init_fringe_once): call it.
|
||||
* src/ftcrfont.c (syms_of_ftcrfont_for_pdumper): new function.
|
||||
(syms_of_ftcrfont): call it.
|
||||
|
|
@ -47846,7 +47846,7 @@
|
|||
(syms_of_ftfont): call it.
|
||||
* src/ftxfont.c (syms_of_ftxfont_for_pdumper): new function.
|
||||
(syms_of_ftxfont): call it.
|
||||
* src/gmalloc.c: adjust for pdumper througout
|
||||
* src/gmalloc.c: adjust for pdumper throughout
|
||||
(DUMPED): remove weird custom dumped indicator.
|
||||
* src/gnutls.c (syms_of_gnutls): pdumper note for
|
||||
gnutls_global_initialized.
|
||||
|
|
@ -48290,7 +48290,7 @@
|
|||
signal an error (due to generating a too-large bignum) contrary
|
||||
to its documentation. Fix things to remove the theoretical
|
||||
possibility, so that list lengths are always fixnums (and so
|
||||
that list lenghts are always ptrdiff_t values too, since that
|
||||
that list lengths are always ptrdiff_t values too, since that
|
||||
is assumed internally anyway).
|
||||
* src/alloc.c (Fcons): Do not allocate so many conses that
|
||||
a list length won’t fit into ptrdiff_t or into fixnum.
|
||||
|
|
@ -48686,7 +48686,7 @@
|
|||
|
||||
Adapt test/README
|
||||
|
||||
* test/README: Speak about continous integration tests on hydra
|
||||
* test/README: Speak about continuous integration tests on hydra
|
||||
and emba.
|
||||
|
||||
2019-01-03 Andrey Kotlarski <m00naticus@gmail.com>
|
||||
|
|
@ -50599,7 +50599,7 @@
|
|||
(tramp-gvfs-handle-file-writable-p)
|
||||
(tramp-gvfs-handle-write-region): Move to tramp.el.
|
||||
|
||||
* lisp/net/tramp-rclone.el: Dont't require `tramp-adb' and
|
||||
* lisp/net/tramp-rclone.el: Don't require `tramp-adb' and
|
||||
`tramp-gvfs' anymore.
|
||||
(tramp-rclone-file-name-handler-alist):
|
||||
Use `tramp-handle-expand-file-name', `tramp-handle-file-local-copy',
|
||||
|
|
@ -53573,7 +53573,7 @@
|
|||
always inserts an expressions even if no abbrevs need to be saved and
|
||||
making only write-abbrev-file check that a table has any abbrevs to
|
||||
save before calling insert-abbrev-table-description. This duplicates
|
||||
the work of filtering the table for savable abbrevs, but the benefit
|
||||
the work of filtering the table for saveable abbrevs, but the benefit
|
||||
of keeping the API is worth it.
|
||||
|
||||
* doc/lispref/abbrevs.texi (Abbrev Tables): Update documentation.
|
||||
|
|
@ -56960,7 +56960,7 @@
|
|||
|
||||
New 'configure' arg --with-mini-gmp
|
||||
|
||||
* configure.ac: It lets the builder override default of whther
|
||||
* configure.ac: It lets the builder override default of whether
|
||||
mini-gmp is used. Use AC_SEARCH_LIBS as per Autoconf manual.
|
||||
|
||||
2018-08-11 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
|
@ -57782,7 +57782,7 @@
|
|||
Fix some documentation formatting nits
|
||||
|
||||
* doc/misc/ert.texi (Running Tests Interactively): Correct
|
||||
Elisp manual titile in xref.
|
||||
Elisp manual title in xref.
|
||||
* doc/lispref/edebug.texi (Edebug Misc): Use single argument
|
||||
form of xref.
|
||||
* doc/lispref/debugging.texi (Backtraces): Add comma and
|
||||
|
|
@ -57831,7 +57831,7 @@
|
|||
|
||||
Add commands to go to source if available, and to show and hide
|
||||
Edebug's instrumentation. Make Edebug pop to backtraces instead of
|
||||
displaying them, which makes Edebug consistant with the behavior of
|
||||
displaying them, which makes Edebug consistent with the behavior of
|
||||
ERT and the Lisp Debugger.
|
||||
* doc/lispref/edebug.texi (Edebug Misc): Document when and how you can
|
||||
jump to source code from an Edebug backtrace. Document
|
||||
|
|
@ -58282,7 +58282,7 @@
|
|||
|
||||
"******"
|
||||
|
||||
It's slighly easier to visually count the number of characters in the second
|
||||
It's slightly easier to visually count the number of characters in the second
|
||||
string (Bug#32220).
|
||||
|
||||
* lisp/subr.el (read-passwd): Prefer ?* as default char instead of ?.
|
||||
|
|
@ -59002,7 +59002,7 @@
|
|||
(epg-config--program-alist) <OpenPGP>: Require a version in 1.4.3..2.0
|
||||
or 2.1.6+., not just anything above 1.4.3.
|
||||
(epg-check-configuration): Accept a list of required version
|
||||
intervals, in addtion to just a single minimum.
|
||||
intervals, in addition to just a single minimum.
|
||||
|
||||
2018-07-15 Paul Eggert <eggert@Penguin.CS.UCLA.EDU>
|
||||
|
||||
|
|
@ -59562,7 +59562,7 @@
|
|||
|
||||
* lisp/vc/smerge-mode.el (smerge-refine-regions): Bind
|
||||
write-region-inhibit-fsync to t. This was reported in
|
||||
https://github.com/magit/magit/pull/2834 to give a noticable speedup.
|
||||
https://github.com/magit/magit/pull/2834 to give a noticeable speedup.
|
||||
|
||||
2018-07-12 Noam Postavsky <npostavs@gmail.com>
|
||||
|
||||
|
|
@ -60247,7 +60247,7 @@
|
|||
|
||||
Clean up redundant code from previous checkins
|
||||
|
||||
* src/gnutls.c (gnutls_verify_boot): Remove reduntant setting of
|
||||
* src/gnutls.c (gnutls_verify_boot): Remove redundant setting of
|
||||
p->gnutls_certificates, which is now performed by
|
||||
gnutls_deinit_certificates.
|
||||
|
||||
|
|
@ -61556,7 +61556,7 @@
|
|||
|
||||
Don't have shr bug out on degenerate <img> tags
|
||||
|
||||
* lisp/net/shr.el (shr-tag-img): Protect against contructs like
|
||||
* lisp/net/shr.el (shr-tag-img): Protect against constructs like
|
||||
<img src=" ">.
|
||||
|
||||
2018-06-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
|
@ -62100,7 +62100,7 @@
|
|||
|
||||
Obsolete Flymake's flymake-diagnostic-types-alist
|
||||
|
||||
That varaiable was an association between symbols and properties,
|
||||
That variable was an association between symbols and properties,
|
||||
effecively duplicating symbol's property lists. It is simpler to just
|
||||
put properties on symbols. Backward compatibility to the old variable
|
||||
has been kept.
|
||||
|
|
@ -62803,7 +62803,7 @@
|
|||
(tramp-smb-conf, tramp-smb-winexe-program)
|
||||
(tramp-smb-winexe-shell-command)
|
||||
(tramp-smb-winexe-shell-command-switch):
|
||||
Dont't require 'tramp. (Bug#31558)
|
||||
Don't require 'tramp. (Bug#31558)
|
||||
|
||||
* lisp/net/tramp.el (tramp-ignored-file-name-regexp): Use type regexp.
|
||||
|
||||
|
|
@ -63250,7 +63250,7 @@
|
|||
* lisp/eshell/esh-opt.el (eshell--process-args): Refactor usage of
|
||||
args to eshell--args, as we rely on modifications from
|
||||
eshell--process-option and vice versa. These modifications were not
|
||||
being propogated in the (if (= ai 0)) case, since popping the first
|
||||
being propagated in the (if (= ai 0)) case, since popping the first
|
||||
element of a list doesn't destructively modify the underlying list
|
||||
object.
|
||||
|
||||
|
|
@ -64089,7 +64089,7 @@
|
|||
|
||||
2018-04-20 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
Revert "* etc/HELLO: Add langugae Emoji. Use utf-8 coding."
|
||||
Revert "* etc/HELLO: Add language Emoji. Use utf-8 coding."
|
||||
|
||||
This reverts commit c4cfb5d20487f9912f5896b3f1d291fe7ccc9804.
|
||||
|
||||
|
|
@ -64132,7 +64132,7 @@
|
|||
|
||||
* lisp/international/mule-cmds.el (view-hello-file): Use utf-8 coding.
|
||||
|
||||
* etc/HELLO: Add langugae Emoji. Use utf-8 coding.
|
||||
* etc/HELLO: Add language Emoji. Use utf-8 coding.
|
||||
|
||||
2018-04-19 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
|
|
@ -65537,7 +65537,7 @@
|
|||
|
||||
2018-04-11 Daniel Dehennin <daniel.dehennin@baby-gnu.org>
|
||||
|
||||
Gnus Group Mail Spliting on mailing-list headers
|
||||
Gnus Group Mail Splitting on mailing-list headers
|
||||
|
||||
* doc/misc/gnus.texi: Document the new `list' split abbreviation and
|
||||
`match-list' group parameter (bug#25346).
|
||||
|
|
@ -65717,7 +65717,7 @@
|
|||
‘sgml-quote’ do that.
|
||||
|
||||
While at it, fix entiteis not being unquoted if they lack closing
|
||||
semicolon (e.g. ‘&’) occuring at the very end of a region.
|
||||
semicolon (e.g. ‘&’) occurring at the very end of a region.
|
||||
Even though unlikely, make ‘sgml-quote’ handle this scenario.
|
||||
|
||||
* lisp/textmodes/sgml-mode.el (sgml-quote): Handle quotation marks and
|
||||
|
|
@ -69399,7 +69399,7 @@
|
|||
mode_line_help_echo.
|
||||
(wset_mode_line_help_echo): New function.
|
||||
* src/w32fns.c (Fx_show_tip): Normalize the FRAME argument
|
||||
bevore storing it in tip_last_frame (Bug#30399).
|
||||
before storing it in tip_last_frame (Bug#30399).
|
||||
* src/xdisp.c (display_mode_lines): Calculate mode line
|
||||
default help echo string here and store it in the window's
|
||||
mode_line_help_echo slot (Bug#30182).
|
||||
|
|
@ -69410,7 +69410,7 @@
|
|||
* src/xfns.c (x_hide_tip): Rewrite the GTK+ part to correctly
|
||||
handle the transition from GTK+ system to Emacs tooltips and
|
||||
vice-versa (Bug#30399).
|
||||
(Fx_show_tip): Normalize the FRAME argument bevore storing it
|
||||
(Fx_show_tip): Normalize the FRAME argument before storing it
|
||||
in tip_last_frame (Bug#30399).
|
||||
|
||||
2018-02-10 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
|
@ -76433,7 +76433,7 @@
|
|||
|
||||
2019-08-29 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
Fix accidential change in tramp-tests; do not merge with master
|
||||
Fix accidental change in tramp-tests; do not merge with master
|
||||
|
||||
* lisp/net/trampver.el: Change version to "2.3.5.26.3".
|
||||
(customize-package-emacs-version-alist): Add Tramp version
|
||||
|
|
@ -76537,7 +76537,7 @@
|
|||
|
||||
* lisp/subr.el (definition-prefixes): Reflow docstring.
|
||||
|
||||
* lisp/svg.el (svg-create): Doc fix to allow arg higlighting.
|
||||
* lisp/svg.el (svg-create): Doc fix to allow arg highlighting.
|
||||
(svg-gradient, svg-rectangle): Improve docstring formatting.
|
||||
|
||||
2019-06-15 Eli Zaretskii <eliz@gnu.org>
|
||||
|
|
@ -82094,7 +82094,7 @@
|
|||
* lisp/eshell/esh-opt.el (eshell--process-args): Refactor usage of
|
||||
args to eshell--args, as we rely on modifications from
|
||||
eshell--process-option and vice versa. These modifications were not
|
||||
being propogated in the (if (= ai 0)) case, since popping the first
|
||||
being propagated in the (if (= ai 0)) case, since popping the first
|
||||
element of a list doesn't destructively modify the underlying list
|
||||
object.
|
||||
|
||||
|
|
@ -82609,7 +82609,7 @@
|
|||
(tramp-smb-conf, tramp-smb-winexe-program)
|
||||
(tramp-smb-winexe-shell-command)
|
||||
(tramp-smb-winexe-shell-command-switch):
|
||||
Dont't require 'tramp. (Bug#31558)
|
||||
Don't require 'tramp. (Bug#31558)
|
||||
|
||||
* lisp/net/tramp.el (tramp-accept-process-output):
|
||||
* lisp/net/tramp-adb.el (tramp-adb-handle-start-file-process):
|
||||
|
|
@ -82939,7 +82939,7 @@
|
|||
Fix inaccuracies in "Shell Ring" node of Emacs manual
|
||||
|
||||
* doc/emacs/misc.texi (Shell Ring): Don't mention 'M-s' and don't
|
||||
insist on Shell history commands being "jsut like" similar
|
||||
insist on Shell history commands being "just like" similar
|
||||
commands that operate on minibuffer history. Reported by Jorge
|
||||
<jorge+list@disroot.org> in emacs-manual-bugs.
|
||||
|
||||
|
|
@ -90003,7 +90003,7 @@
|
|||
|
||||
2017-10-27 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
Improve documentation of how faces are applied to display stings
|
||||
Improve documentation of how faces are applied to display strings
|
||||
|
||||
* doc/lispref/display.texi (Displaying Faces): Describe how the
|
||||
faces of the "underlying" text affect overlay and display strings.
|
||||
|
|
@ -90156,7 +90156,7 @@
|
|||
|
||||
Fix two js indentation problems
|
||||
|
||||
Fix intentation problems reported in
|
||||
Fix indentation problems reported in
|
||||
https://github.com/mooz/js2-mode/issues/463.
|
||||
* lisp/progmodes/js.el (js--continued-expression-p):
|
||||
Check syntax state after /.
|
||||
|
|
@ -92604,7 +92604,7 @@
|
|||
|
||||
flymake.el knows nothing about line/column diagnostics (except for
|
||||
backward-compatible flymake-ler-make-ler, which must yet be tested).
|
||||
It’s also the backend’s reponsibility to compute a BEG and END
|
||||
It’s also the backend’s responsibility to compute a BEG and END
|
||||
positions for the diagnostic in the relevant buffer.
|
||||
|
||||
* lisp/progmodes/flymake-proc.el
|
||||
|
|
@ -92739,7 +92739,7 @@
|
|||
|
||||
For essential properties like `severity', `priority', etc, a default
|
||||
value is produced. Some properties like `evaporate' cannot be
|
||||
overriden.
|
||||
overridden.
|
||||
|
||||
* lisp/progmodes/flymake.el (flymake--diag): Rename from
|
||||
flymake-ler.
|
||||
|
|
@ -93382,7 +93382,7 @@
|
|||
|
||||
Bring back the busy wait after x_make_frame_visible (Bug#25521)
|
||||
|
||||
But wait specfically for a MapNotify event, and only for a
|
||||
But wait specifically for a MapNotify event, and only for a
|
||||
configurable amount of time.
|
||||
* src/xterm.c (syms_of_xterm) [x-wait-for-event-timeout]: New
|
||||
variable.
|
||||
|
|
@ -94709,7 +94709,7 @@
|
|||
(tramp-test12-rename-file, tramp-test15-copy-directory)
|
||||
(tramp-test21-file-links): Extend tests.
|
||||
(tramp-test13-make-directory, tramp-test14-delete-directory):
|
||||
Specifiy error symbol in `should-error'.
|
||||
Specify error symbol in `should-error'.
|
||||
|
||||
2017-09-12 Mark Oteiza <mvoteiza@udel.edu>
|
||||
|
||||
|
|
@ -94735,7 +94735,7 @@
|
|||
|
||||
Include sxhash of object with printed bytecode
|
||||
|
||||
This printing, while succint, is rather opaque. At least give an
|
||||
This printing, while succinct, is rather opaque. At least give an
|
||||
immediate clue of whether different byte code printouts are for the
|
||||
same or different byte code objects.
|
||||
* lisp/emacs-lisp/cl-print.el (cl-print-object): Add object sxhash to
|
||||
|
|
@ -95280,7 +95280,7 @@
|
|||
|
||||
Problem reported by Angelo Graziosi in:
|
||||
https://lists.gnu.org/r/emacs-devel/2017-09/msg00045.html
|
||||
* autogen.sh (git_config): Do not execut 'git' if $do_git fails.
|
||||
* autogen.sh (git_config): Do not execute 'git' if $do_git fails.
|
||||
|
||||
2017-09-07 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
|
|
@ -97597,13 +97597,13 @@
|
|||
|
||||
2017-08-09 Tino Calancha <tino.calancha@gmail.com>
|
||||
|
||||
dired-delete-file: Dont't ask for empty dirs
|
||||
dired-delete-file: Don't ask for empty dirs
|
||||
|
||||
* lisp/dired.el (dired--yes-no-all-quit-help): New defun.
|
||||
(dired-delete-file): Use it. Dont't ask for empty dirs (Bug#27940).
|
||||
(dired-delete-file): Use it. Don't ask for empty dirs (Bug#27940).
|
||||
|
||||
* test/lisp/dired-tests.el (dired-test-with-temp-dirs):
|
||||
New auxiliar macro.
|
||||
New auxiliary macro.
|
||||
(dired-test-bug27940): Add new test.
|
||||
|
||||
2017-08-09 Tino Calancha <tino.calancha@gmail.com>
|
||||
|
|
@ -97928,7 +97928,7 @@
|
|||
Show help message when user inputs 'help'.
|
||||
(dired-do-flagged-delete): Bind locally dired-recursive-deletes
|
||||
so that we can overwrite its global value.
|
||||
Wrapp the loop within a catch '--delete-cancel to catch when
|
||||
Wrap the loop within a catch '--delete-cancel to catch when
|
||||
the user abort the directtry deletion.
|
||||
* doc/emacs/dired.texi (Dired Deletion): Update manual.
|
||||
* etc/NEWS (Changes in Specialized Modes and Packages in Emacs 26.1):
|
||||
|
|
@ -98908,7 +98908,7 @@
|
|||
|
||||
* lisp/net/shr.el (shr-put-image): Display svg images as svg
|
||||
(bug#27799). I suspect the previous change was checked in by
|
||||
accident in conjuction with some other svg changes.
|
||||
accident in conjunction with some other svg changes.
|
||||
|
||||
2017-07-23 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
|
|
@ -99358,7 +99358,7 @@
|
|||
* doc/misc/ses.texi (Configuring what printer function
|
||||
applies): Add description of keys for completing local printer
|
||||
symbols and listing local printers in a help buffer.
|
||||
(Formulas): Add decription for key to list the named cell
|
||||
(Formulas): Add description for key to list the named cell
|
||||
symbols in a help buffer.
|
||||
|
||||
* lisp/ses.el (ses-completion-keys): New constant.
|
||||
|
|
@ -100624,7 +100624,7 @@
|
|||
* src/image.c (xbm_scan):
|
||||
* src/lread.c (read_escape):
|
||||
* src/regex.c (ISXDIGIT) [emacs]:
|
||||
Use char_hexdigit insted of doing it by hand.
|
||||
Use char_hexdigit instead of doing it by hand.
|
||||
|
||||
2017-07-06 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
||||
|
|
@ -100970,7 +100970,7 @@
|
|||
Fix bug in yesterday's CC Mode commit.
|
||||
|
||||
* lisp/progmodes/cc-mode.el (c-quoted-number-head-before-point): Check a
|
||||
search has succeded before using the match data.
|
||||
search has succeeded before using the match data.
|
||||
(c-quoted-number-head-before-point, c-quoted-number-head-after-point):
|
||||
Specify that the position of the extremity of the head or tail is in the
|
||||
match data.
|
||||
|
|
@ -101677,13 +101677,13 @@
|
|||
* src/nsfns.m (frame_parm_handler): Add entry for
|
||||
x_set_no_special_glyphs.
|
||||
(Fx_create_frame): Handle 'no-special-glyphs' parameter.
|
||||
Intitialize new cursor types for dragging frame borders.
|
||||
Initialize new cursor types for dragging frame borders.
|
||||
* src/nsterm.h (struct ns_output): Add new cursor types for
|
||||
dragging frame borders.
|
||||
* src/w32fns.c (w32_frame_parm_handlers): Add entry for
|
||||
x_set_no_special_glyphs.
|
||||
(Fx_create_frame): Handle 'no-special-glyphs' parameter.
|
||||
Intitialize new cursor types for dragging frame borders.
|
||||
Initialize new cursor types for dragging frame borders.
|
||||
* src/w32term.h (struct w32_output): Add new cursor types for
|
||||
dragging frame borders.
|
||||
* src/window.c (coordinates_in_window)
|
||||
|
|
@ -103780,7 +103780,7 @@
|
|||
Correct and isolate the todo-mode test environment
|
||||
|
||||
This avoids having to set todo-mode variables globally in the test
|
||||
file and prevents any exisiting user todo-mode files from influencing
|
||||
file and prevents any existing user todo-mode files from influencing
|
||||
the tests.
|
||||
|
||||
* test/lisp/calendar/todo-mode-tests.el:
|
||||
|
|
@ -104671,7 +104671,7 @@
|
|||
Fix and improve UI of scroll bar menu (bug#27047)
|
||||
|
||||
In addition, since the Emacs manual writes "scroll bar", "tool
|
||||
bar" and "menu bar", use this convention in the Show/Hide menues
|
||||
bar" and "menu bar", use this convention in the Show/Hide menus
|
||||
and tooltips as well.
|
||||
|
||||
* lisp/menu-bar.el (menu-bar-showhide-scroll-bar-menu): Make
|
||||
|
|
@ -105415,7 +105415,7 @@
|
|||
specifies how emacs should use tramp to find remote files.
|
||||
|
||||
* doc/emacs/misc.texi (TCP Emacs server): New subsection describing
|
||||
the various knobs to tune server.el for TCP opereation.
|
||||
the various knobs to tune server.el for TCP operation.
|
||||
(emacsclient Options): Reference "TCP Emacs server" from description of
|
||||
--server-file. Document the new '--tramp' / '-T' options.
|
||||
* doc/emacs/emacs.texi (Top): Update the top-level menu.
|
||||
|
|
@ -107412,7 +107412,7 @@
|
|||
instead of the sexp beginning position. Saving the
|
||||
CONTAINING-SEXP-START returned by `calculate-lisp-indent' is no longer
|
||||
needed. Don't bother stopping if we don't descend below init-depth,
|
||||
since we now alway scan the whole buffer (via syntax-ppss) anyway.
|
||||
since we now always scan the whole buffer (via syntax-ppss) anyway.
|
||||
* test/lisp/emacs-lisp/lisp-mode-tests.el (indent-sexp): Add blank
|
||||
line to test case.
|
||||
|
||||
|
|
@ -109144,7 +109144,7 @@
|
|||
* doc/lispref/records.texi (Records): reference it. Document
|
||||
behavior when type slot is a record.
|
||||
|
||||
* admin/alloc-colors.c (Fmake_record, Frecord): mention type desciptors.
|
||||
* admin/alloc-colors.c (Fmake_record, Frecord): mention type descriptors.
|
||||
|
||||
2017-04-06 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
|
|
@ -110325,7 +110325,7 @@
|
|||
|
||||
* lisp/progmodes/sql.el: Version 3.6
|
||||
|
||||
(sql-login-params): Added :must-match for completition of
|
||||
(sql-login-params): Added :must-match for completion of
|
||||
`server' and `database' login parameters.
|
||||
(sql-sqlite-login-params, sql-postgres-login-params): Set
|
||||
:must-match to `confirm'.
|
||||
|
|
@ -113373,7 +113373,7 @@
|
|||
casefiddle-tests-case-table, casefiddle-tests-casing-character,
|
||||
casefiddle-tests-casing, casefiddle-tests-casing-byte8,
|
||||
casefiddle-tests-casing-byte8-with-changes): New tests.
|
||||
(casefiddle-tests--test-casing): New helper function for runnig
|
||||
(casefiddle-tests--test-casing): New helper function for running
|
||||
some of the tests.
|
||||
|
||||
2017-02-15 Michal Nazarewicz <mina86@mina86.com>
|
||||
|
|
@ -113897,7 +113897,7 @@
|
|||
|
||||
* lisp/eshell/esh-proc.el (eshell-sentinel): If called while still
|
||||
handling output of the process, make sure to close the pipes only later,
|
||||
so that the next process in the pipeline recieves EOF only after getting
|
||||
so that the next process in the pipeline receives EOF only after getting
|
||||
all its input (Bug#25549).
|
||||
|
||||
2017-02-09 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
|
@ -116519,7 +116519,7 @@
|
|||
Clarify major mode switching
|
||||
|
||||
* doc/emacs/modes.texi (Major Modes):
|
||||
* doc/lispref/modes.texi (Modes, Major Modes): Explictly say that each
|
||||
* doc/lispref/modes.texi (Modes, Major Modes): Explicitly say that each
|
||||
buffer has exactly one major mode and can't be "turned off", only
|
||||
switched away from (Bug#25357).
|
||||
|
||||
|
|
@ -119501,7 +119501,7 @@
|
|||
|
||||
merge from trunk
|
||||
|
||||
this merges frmo trunk and fixes various build issues.
|
||||
this merges from trunk and fixes various build issues.
|
||||
this needed a few ugly tweaks.
|
||||
this hangs in "make check" now
|
||||
|
||||
|
|
@ -120142,7 +120142,7 @@
|
|||
|
||||
Since 2016-06-26 "Fix test-completion with completion-regexp-list", when
|
||||
calling test-completion with an alist collection, the predicate was
|
||||
recieving the string value instead of the alist entry (Bug#24966).
|
||||
receiving the string value instead of the alist entry (Bug#24966).
|
||||
|
||||
* src/minibuf.c (Ftest_completion): Don't modify the found element, just
|
||||
test STRING against `completion-regexp-list'.
|
||||
|
|
@ -124470,7 +124470,7 @@
|
|||
|
||||
2016-09-12 Michal Nazarewicz <mina86@mina86.com>
|
||||
|
||||
Fix compiler thinking width and height may be unitialized in frame.c
|
||||
Fix compiler thinking width and height may be uninitialized in frame.c
|
||||
|
||||
This fixes the following warning:
|
||||
|
||||
|
|
@ -124486,7 +124486,7 @@
|
|||
|
||||
2016-09-12 Michal Nazarewicz <mina86@mina86.com>
|
||||
|
||||
Fix compiler thinking tmpdir may be unitialized in emacsclient
|
||||
Fix compiler thinking tmpdir may be uninitialized in emacsclient
|
||||
|
||||
This fixes the following warning:
|
||||
|
||||
|
|
@ -124669,7 +124669,7 @@
|
|||
|
||||
Invert y coord of NS image files (bug#7847)
|
||||
|
||||
* src/nsterm.m (ns_dumpglyphs_image): Invert y co-ordinate of the image
|
||||
* src/nsterm.m (ns_dumpglyphs_image): Invert y coordinate of the image
|
||||
when compositing.
|
||||
|
||||
2016-09-10 Noam Postavsky <npostavs@gmail.com>
|
||||
|
|
@ -124701,7 +124701,7 @@
|
|||
determine which class is failing. This happens when failure is caused
|
||||
by ‘(should (equal (point) (point-max)))’ not being met.
|
||||
|
||||
With per-character class tests, it is immidiatelly obvious which test
|
||||
With per-character class tests, it is immediately obvious which test
|
||||
causes issues plus tests for all classes are run even if some of them
|
||||
fail.
|
||||
|
||||
|
|
@ -125756,7 +125756,7 @@
|
|||
|
||||
* lisp/emacs-lisp/map.el (map--dispatch): Fix docstring
|
||||
|
||||
The docstring referenced a non-existant parameter, as well as a
|
||||
The docstring referenced a non-existent parameter, as well as a
|
||||
parameter that has been renamed since the docstring was written. Fix
|
||||
both errors, fixing (Bug#24182).
|
||||
|
||||
|
|
@ -125828,7 +125828,7 @@
|
|||
|
||||
* lisp/window.el (window--state-put-2): Set 'noforce argument
|
||||
when restoring a window's start position. This avoids that the
|
||||
effect of `set-window-point' gets overidden by that of
|
||||
effect of `set-window-point' gets overridden by that of
|
||||
`set-window-start' (Bug#24240).
|
||||
|
||||
2016-08-17 Alan Mackenzie <acm@muc.de>
|
||||
|
|
@ -126205,7 +126205,7 @@
|
|||
|
||||
* doc/misc/ses.texi (Quick Tutorial): Mention the '!'
|
||||
'ses-range' modifier as an alternative to 'ses+'.
|
||||
(Advanced Features): Add a refernce to node 'Nonrelocatable
|
||||
(Advanced Features): Add a reference to node 'Nonrelocatable
|
||||
references' concerning function 'ses-rename-cell'.
|
||||
(Standard formula functions): Mention the '!' 'ses-range'
|
||||
modifier as an alternative to 'ses-delete-blanks'.
|
||||
|
|
@ -126449,7 +126449,7 @@
|
|||
|
||||
2016-08-06 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
Add missing dcstrings in Tramp, remove chec for obsolee methods
|
||||
Add missing dcstrings in Tramp, remove check for obsolee methods
|
||||
|
||||
* lisp/net/tramp.el (tramp-progress-reporter-update)
|
||||
(tramp-unload-file-name-handlers, tramp-get-local-uid)
|
||||
|
|
@ -128859,7 +128859,7 @@
|
|||
Call `file-name-directory' also for remote NEWNAME.
|
||||
|
||||
* test/lisp/net/tramp-tests.el (tramp-test15-copy-directory):
|
||||
Do not skip for tramp-smb.el. Test als COPY-CONTENTS case.
|
||||
Do not skip for tramp-smb.el. Test also COPY-CONTENTS case.
|
||||
(tramp-test24-file-name-completion): Improve check for
|
||||
hostname completion.
|
||||
(tramp--test-rsync-p): New defun.
|
||||
|
|
@ -129664,7 +129664,7 @@
|
|||
|
||||
* lisp/international/ucs-normalize.el
|
||||
(ucs-normalize-hfs-nfd-pre-write-conversion):
|
||||
Prevent compiler warning for unused arguments, add coment.
|
||||
Prevent compiler warning for unused arguments, add comment.
|
||||
|
||||
2016-06-10 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
||||
|
|
@ -130352,7 +130352,7 @@
|
|||
|
||||
* lisp/wid-edit.el (link): Remove :follow-link property (bug#22434)
|
||||
|
||||
* lisp/recentf.el (recentf-dialog-mode-map): Remove unecessary mapping.
|
||||
* lisp/recentf.el (recentf-dialog-mode-map): Remove unnecessary mapping.
|
||||
|
||||
2016-05-29 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
@ -131429,7 +131429,7 @@
|
|||
4c5a00b Make package-install-from-buffer not move point
|
||||
9596ea1 ; Revert "* emacs-lisp/lisp-mnt.el (lm-header): save-excursion"
|
||||
f79c352 Redo the fix for bug#21839
|
||||
8d2f78c Don't treat JS spread as contination method call
|
||||
8d2f78c Don't treat JS spread as continuation method call
|
||||
|
||||
2016-05-12 Chris Feng <chris.w.feng@gmail.com>
|
||||
|
||||
|
|
@ -132526,7 +132526,7 @@
|
|||
cursor-type doc fix
|
||||
|
||||
* src/buffer.c (syms_of_buffer): Mention that cursor-type's
|
||||
WIDHT/HEIGHT can't exceed the frame char size (bug#19215).
|
||||
WIDTH/HEIGHT can't exceed the frame char size (bug#19215).
|
||||
|
||||
2016-04-30 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
@ -132608,7 +132608,7 @@
|
|||
|
||||
2016-04-30 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Explictly explain that package-initialize loads the packages
|
||||
Explicitly explain that package-initialize loads the packages
|
||||
|
||||
* lisp/emacs-lisp/package.el (package-initialize): Be explicit
|
||||
in saying that `package-initialize' obviates adjusting the
|
||||
|
|
@ -132892,7 +132892,7 @@
|
|||
Fix definition of nobreak-space
|
||||
|
||||
* lisp/faces.el (nobreak-space): The definition to
|
||||
nobreak-space was inadvertantly changed by the previous checkin.
|
||||
nobreak-space was inadvertently changed by the previous checkin.
|
||||
|
||||
2016-04-28 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
@ -133217,9 +133217,9 @@
|
|||
calling `vc-state' on default-directory (VC state is undefined
|
||||
for directories). Check that `vc-state' returns nil where it
|
||||
returned `unregistered' before. Remove all checks comparing
|
||||
invocations with the backend passed in explictly and without.
|
||||
invocations with the backend passed in explicitly and without.
|
||||
(vc-test--working-revision): Remove all checks comparing
|
||||
invocations with the backend passed in explictly and without.
|
||||
invocations with the backend passed in explicitly and without.
|
||||
Update comments, and add a new one.
|
||||
|
||||
2016-04-24 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
|
@ -133845,7 +133845,7 @@
|
|||
|
||||
2016-04-10 Etienne Prud'homme <e.e.f.prudhomme@gmail.com> (tiny change)
|
||||
|
||||
Fix alignement rule for CSS
|
||||
Fix alignment rule for CSS
|
||||
|
||||
* lisp/align.el (align-rules-list): Support CSS properties that have
|
||||
multiple words.
|
||||
|
|
@ -134121,7 +134121,7 @@
|
|||
a3daa34 Teach M-x disassemble a default argument.
|
||||
e30c3e9 Fix EOL decoding in vc-annotate with SVN back-end on MS-Windows
|
||||
df441b3 Fix OS X specific settings in tramp-tests
|
||||
2244331 Finish fixing a cacheing bug in CC Mode (see 2016-03-09)
|
||||
2244331 Finish fixing a caching bug in CC Mode (see 2016-03-09)
|
||||
|
||||
# Conflicts:
|
||||
# lisp/net/tramp-sh.el
|
||||
|
|
@ -134272,7 +134272,7 @@
|
|||
0403620 Don't misindent arguments of a method call inside continuation
|
||||
e6776f8 * src/keyboard.c (echo_keystrokes_p): Don't test cursor_in_ec...
|
||||
8475f3d ASCII-only etc/NEWS etc.
|
||||
5cc6919 Fix a cacheing bug, which led to inordinately slow c-beginnin...
|
||||
5cc6919 Fix a caching bug, which led to inordinately slow c-beginnin...
|
||||
0ce37ea Fix Isearch prompt when invoked with an argument
|
||||
f3033d4 Fix a typo in the Emacs manual
|
||||
4235d2d Curved quotes in etc/NEWS etc.
|
||||
|
|
@ -137965,7 +137965,7 @@
|
|||
|
||||
2016-02-10 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
Remove som XEmacs compat code from message.el
|
||||
Remove some XEmacs compat code from message.el
|
||||
|
||||
* lisp/gnus/message.el: Remove some XEmacs compat code.
|
||||
|
||||
|
|
@ -138403,7 +138403,7 @@
|
|||
a header while with nil argument moves to the indented text of header's
|
||||
value.
|
||||
(message-beginning-of-line): Function is now aware of folded headers and
|
||||
either moves point to the indention of a header or, in visual-line-mode,
|
||||
either moves point to the indentation of a header or, in visual-line-mode,
|
||||
searches for the beginning of the header.
|
||||
|
||||
2016-02-08 Michal Nazarewicz <mina86@mina86.com>
|
||||
|
|
@ -139254,7 +139254,7 @@
|
|||
(History): XEmacs support has been removed.
|
||||
(GVFS based methods, Remote processes): Do not use emacsgvfs flag.
|
||||
(Auto-save and Backup): Use both syntax versions.
|
||||
(File name Syntax): Remark on IPv6 adresses is valid for
|
||||
(File name Syntax): Remark on IPv6 addresses is valid for
|
||||
unified syntax only.
|
||||
|
||||
* doc/misc/trampver.texi: Do not set emacsgvfs flag.
|
||||
|
|
@ -140661,7 +140661,7 @@
|
|||
put-text-property cannot be plainly (point), you need a
|
||||
ses-goto-print call before
|
||||
|
||||
- Second, the range itself was computed erronously, only the first
|
||||
- Second, the range itself was computed erroneously, only the first
|
||||
char was affected instead of the full cell width. This was not
|
||||
noticeable prior to changes (Deprecate `intangible' and
|
||||
`point-entered' properties) made by Stefan on 2015-04-13T19:51:15Z
|
||||
|
|
@ -142220,7 +142220,7 @@
|
|||
the problems described in bug#20674 regarding the interaction with
|
||||
modes such as darkroom-mode and olivetti-mode.
|
||||
|
||||
A similar fix was commited to nlinum.el in ELPA.git's
|
||||
A similar fix was committed to nlinum.el in ELPA.git's
|
||||
e7f5f549fbfb740b911fb7f33b42381ecece56d8
|
||||
|
||||
* lisp/linum.el (linum-delete-overlays): Restore margins more
|
||||
|
|
|
|||
|
|
@ -181,7 +181,7 @@
|
|||
|
||||
* grammars/c.by (opt-brackets-after-symbol): New.
|
||||
(multi-stage-dereference): Use it. Add rules for explicit
|
||||
matching the last dereference. We cannot just juse
|
||||
matching the last dereference. We cannot just use
|
||||
'namespace-symbol' as a single rule, since this would match too
|
||||
greedy and mess with parsing default values of variables.
|
||||
|
||||
|
|
@ -1258,7 +1258,7 @@
|
|||
2012-06-13 Andreas Schwab <schwab@linux-m68k.org>
|
||||
|
||||
* make-emacs: Rename --union-type to --check-lisp-type.
|
||||
Define CHECK_LISP_OBJECT_TYPE insted of USE_LISP_UNION_TYPE.
|
||||
Define CHECK_LISP_OBJECT_TYPE instead of USE_LISP_UNION_TYPE.
|
||||
* CPP-DEFINES (DEBUG_LISP_OBJECT_TYPE): Rename from
|
||||
USE_LISP_UNION_TYPE.
|
||||
|
||||
|
|
|
|||
|
|
@ -73,8 +73,8 @@ Also store it in `find-gc-unsafe-list'."
|
|||
(find-unsafe-funcs 'Fgarbage_collect)
|
||||
(setq find-gc-unsafe-list
|
||||
(sort find-gc-unsafe-list
|
||||
(function (lambda (x y)
|
||||
(string-lessp (car x) (car y)))))))
|
||||
(lambda (x y)
|
||||
(string-lessp (car x) (car y))))))
|
||||
|
||||
;;; This does a depth-first search to find all functions that can
|
||||
;;; ultimately call the function "target". The result is an a-list
|
||||
|
|
|
|||
|
|
@ -454,7 +454,7 @@ OPTION_DEFAULT_ON([cairo],[don't compile with Cairo drawing])
|
|||
OPTION_DEFAULT_ON([xml2],[don't compile with XML parsing support])
|
||||
OPTION_DEFAULT_OFF([imagemagick],[compile with ImageMagick image support])
|
||||
OPTION_DEFAULT_ON([native-image-api], [don't use native image APIs (GDI+ on Windows)])
|
||||
OPTION_DEFAULT_IFAVAILABLE([json], [don't compile with native JSON support])
|
||||
OPTION_DEFAULT_IFAVAILABLE([json], [compile with native JSON support])
|
||||
|
||||
OPTION_DEFAULT_ON([xft],[don't use XFT for anti aliased fonts])
|
||||
OPTION_DEFAULT_ON([harfbuzz],[don't use HarfBuzz for text shaping])
|
||||
|
|
|
|||
|
|
@ -464,13 +464,14 @@ Normally, this command undoes the last change, moving point back to
|
|||
where it was before the change. The undo command applies only to
|
||||
changes in the buffer; you can't use it to undo cursor motion.
|
||||
|
||||
On a graphics terminal (including text-mode frames displayed by a
|
||||
terminal emulator, such as @command{xterm}), the easiest way to invoke
|
||||
@code{undo} is with @kbd{C-/}; that doesn't need the Shift key. On a
|
||||
text terminal, @kbd{C-/} does not exist, but in many cases you can type
|
||||
@kbd{C-_} without the Shift key (in effect pressing @kbd{C--}) and it
|
||||
will work anyway, at least with keyboards that produce the US ASCII
|
||||
character set.
|
||||
On a terminal that supports the @key{Control} modifier on all other
|
||||
keys, the easiest way to invoke @code{undo} is with @kbd{C-/}, since
|
||||
that doesn't need the @key{Shift} modifier. On terminals which allow
|
||||
only the ASCII control characters, @kbd{C-/} does not exist, but for
|
||||
many of them @kbd{C-/} still works because it actually sends @kbd{C-_}
|
||||
to Emacs, while many others allow you to omit the @key{Shift} modifier
|
||||
when you type @kbd{C-_} (in effect pressing @kbd{C--}), making that
|
||||
the most convenient way to invoke @code{undo}.
|
||||
|
||||
Although each editing command usually makes a separate entry in the
|
||||
undo records, very simple commands may be grouped together.
|
||||
|
|
|
|||
|
|
@ -129,6 +129,17 @@ options (that is, single characters) requiring no arguments, and long
|
|||
options (starting with @samp{--}) whose arguments are specified with
|
||||
@samp{=}.
|
||||
|
||||
@vindex dired-switches-in-mode-line
|
||||
Dired displays in the mode line an indication of what were the
|
||||
switches used to invoke @command{ls}. By default, Dired will try to
|
||||
determine whether the switches indicate sorting by name or date, and
|
||||
will say so in the mode line. If the @code{dired-switches-in-mode-line}
|
||||
variable is @code{as-is}, the switches will be shown verbatim. If
|
||||
this variable's value is an integer, the switch display will be
|
||||
truncated to that length. This variable can also be a function, which
|
||||
will be called with @code{dired-actual-switches} as the only
|
||||
parameter, and should return a string to display in the mode line.
|
||||
|
||||
@vindex dired-use-ls-dired
|
||||
If your @command{ls} program supports the @samp{--dired} option,
|
||||
Dired automatically passes it that option; this causes @command{ls} to
|
||||
|
|
|
|||
|
|
@ -1984,10 +1984,11 @@ the @code{search-highlight-submatches} variable. If this variable's
|
|||
value is @code{nil}, no special highlighting is done, but if the value
|
||||
is non-@code{nil}, text that matches @samp{\( @dots{} \)} constructs
|
||||
(a.k.a.@: ``subexpressions'') in the regular expression will be
|
||||
highlighted with distinct faces, named @code{isearch-group-@var{n}}.
|
||||
For instance, when searching for @samp{foo-\([0-9]+\)}, the part
|
||||
matched by @samp{[0-9]+} will be highlighted with the
|
||||
@code{isearch-group-1} face.
|
||||
highlighted with distinct faces, named @code{isearch-group-odd}
|
||||
for the odd group matches, and @code{isearch-group-even}
|
||||
for the even group matches. For instance, when searching for
|
||||
@samp{foo-\([0-9]+\)}, the part matched by @samp{[0-9]+} will be
|
||||
highlighted with the @code{isearch-group-odd} face.
|
||||
|
||||
@cindex lazy highlighting customizations
|
||||
@vindex isearch-lazy-highlight
|
||||
|
|
|
|||
|
|
@ -577,7 +577,7 @@ macro, then an error is signaled with data @code{"Autoloading failed to
|
|||
define function @var{function-name}"}.
|
||||
|
||||
@findex update-file-autoloads
|
||||
@findex update-directory-autoloads
|
||||
@findex make-directory-autoloads
|
||||
@cindex magic autoload comment
|
||||
@cindex autoload cookie
|
||||
@anchor{autoload cookie}
|
||||
|
|
@ -590,7 +590,7 @@ writes a corresponding @code{autoload} call into @file{loaddefs.el}.
|
|||
file generated by @code{update-file-autoloads} can be changed from the
|
||||
above defaults, see below.)
|
||||
Building Emacs loads @file{loaddefs.el} and thus calls @code{autoload}.
|
||||
@kbd{M-x update-directory-autoloads} is even more powerful; it updates
|
||||
@kbd{M-x make-directory-autoloads} is even more powerful; it updates
|
||||
autoloads for all files in the current directory.
|
||||
|
||||
The same magic comment can copy any kind of form into
|
||||
|
|
|
|||
|
|
@ -960,7 +960,7 @@ Using multiple top-level code sections has the advantage that it
|
|||
avoids introducing an additional nesting level but it also means that
|
||||
the section named @samp{Code} does not contain all the code, which is
|
||||
awkward. To avoid that, you should put no code at all inside that
|
||||
section; that way it can be considered a seperator instead of a
|
||||
section; that way it can be considered a separator instead of a
|
||||
section heading.
|
||||
|
||||
Finally, we recommend that you don't end headings with a colon or any
|
||||
|
|
|
|||
|
|
@ -34743,15 +34743,15 @@ is defined by
|
|||
|
||||
@smallexample
|
||||
(put 'calcFunc-ln\' 'math-derivative-1
|
||||
(function (lambda (u) (math-div 1 u))))
|
||||
(lambda (u) (math-div 1 u)))
|
||||
@end smallexample
|
||||
|
||||
The two-argument @code{log} function has two derivatives,
|
||||
@smallexample
|
||||
(put 'calcFunc-log\' 'math-derivative-2 ; d(log(x,b)) / dx
|
||||
(function (lambda (x b) ... )))
|
||||
(lambda (x b) ... ))
|
||||
(put 'calcFunc-log\'2 'math-derivative-2 ; d(log(x,b)) / db
|
||||
(function (lambda (x b) ... )))
|
||||
(lambda (x b) ... ))
|
||||
@end smallexample
|
||||
@end defun
|
||||
|
||||
|
|
@ -34818,7 +34818,7 @@ as properties in a manner similar to derivatives:
|
|||
|
||||
@smallexample
|
||||
(put 'calcFunc-ln 'math-inverse
|
||||
(function (lambda (x) (list 'calcFunc-exp x))))
|
||||
(lambda (x) (list 'calcFunc-exp x)))
|
||||
@end smallexample
|
||||
|
||||
This function can call @samp{(math-solve-get-sign @var{x})} to create
|
||||
|
|
|
|||
|
|
@ -4818,7 +4818,7 @@ For example:
|
|||
@example
|
||||
(defun make-adder (n)
|
||||
(lexical-let ((n n))
|
||||
(function (lambda (m) (+ n m)))))
|
||||
(lambda (m) (+ n m))))
|
||||
(setq add17 (make-adder 17))
|
||||
(funcall add17 4)
|
||||
@result{} 21
|
||||
|
|
|
|||
|
|
@ -841,7 +841,7 @@ keys, as well. (For example, some people use it to bind the VT200
|
|||
seldom used back-tick key (@samp{`}) to the function @samp{ESC-prefix}
|
||||
so it will behave like an @key{ESC} key.) The second function,
|
||||
@code{edt-bind-gold-key}, is used to bind emacs commands to gold key
|
||||
sequences involving alpha-numeric keys, special character keys, and
|
||||
sequences involving alphanumeric keys, special character keys, and
|
||||
control keys.
|
||||
|
||||
The third function, @code{edt-bind-function-key}, is terminal dependent
|
||||
|
|
|
|||
|
|
@ -476,7 +476,7 @@ to launch any external programs, set this variable to @code{nil} or
|
|||
@vindex mm-inline-font-lock
|
||||
If non-@code{nil}, inlined parts that support font locking (for
|
||||
instance, patches or code snippets) will be font-locked. This may be
|
||||
overriden by callers that have their own ways of enabling/inhibiting
|
||||
overridden by callers that have their own ways of enabling/inhibiting
|
||||
font locking.
|
||||
|
||||
@end table
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@ should also display a tool-tip with the same information.
|
|||
|
||||
@code{flymake-goto-next-error} and @code{flymake-goto-prev-error} are
|
||||
commands that allow easy navigation to the next/previous erroneous
|
||||
regions, respectively. If might be a good idea to map them to @kbd{M-n}
|
||||
regions, respectively. It might be a good idea to map them to @kbd{M-n}
|
||||
and @kbd{M-p} in @code{flymake-mode}, by adding to your init file:
|
||||
|
||||
@lisp
|
||||
|
|
|
|||
|
|
@ -29422,7 +29422,7 @@ collection of @acronym{NOV} lines.
|
|||
@item @acronym{NOV}
|
||||
@cindex @acronym{NOV}
|
||||
@acronym{NOV} stands for News OverView, which is a type of news server
|
||||
header which provide datas containing the condensed header information
|
||||
header which provide data containing the condensed header information
|
||||
of articles. They are produced by the server itself; in the @code{nntp}
|
||||
back end Gnus uses the ones that the @acronym{NNTP} server makes, but
|
||||
Gnus makes them by itself for some backends (in particular, @code{nnml}).
|
||||
|
|
|
|||
|
|
@ -384,7 +384,7 @@ After one of the above commands, @file{~/emacs/tramp} will
|
|||
containing the latest version of @value{tramp}.
|
||||
|
||||
@noindent
|
||||
To fetch updates from the repository, use git pull:
|
||||
To fetch updates from the repository, use @code{git pull}:
|
||||
|
||||
@example
|
||||
@group
|
||||
|
|
@ -1709,9 +1709,9 @@ Integration for LXD containers. A container is accessed via
|
|||
@item magit-tramp
|
||||
@cindex method @option{git}
|
||||
@cindex @option{git} method
|
||||
Browsing git repositories with @code{magit}. A versioned file is
|
||||
Browsing Git repositories with @code{magit}. A versioned file is
|
||||
accessed via @file{@trampfn{git,rev@@root-dir,/path/to/file}}.
|
||||
@samp{rev} is a git revision, and @samp{root-dir} is a virtual host
|
||||
@samp{rev} is a Git revision, and @samp{root-dir} is a virtual host
|
||||
name for the root directory, specified in
|
||||
@code{magit-tramp-hosts-alist}.
|
||||
|
||||
|
|
@ -4866,6 +4866,18 @@ path, or somewhere else entirely (including locally). @pxref{Renaming
|
|||
remote files}.
|
||||
|
||||
|
||||
@item
|
||||
I get a warning @samp{Tramp has been compiled with Emacs a.b, this is Emacs c.d}
|
||||
|
||||
@value{tramp} comes with compatibility code for different Emacs
|
||||
versions. When you see this warning, you don't use the Emacs built-in
|
||||
version of @value{tramp}. In case you have installed @value{tramp}
|
||||
from GNU ELPA, you must delete and reinstall it.
|
||||
@ifset installchapter
|
||||
In case you have installed it from its Git repository, @ref{Recompilation}.
|
||||
@end ifset
|
||||
|
||||
|
||||
@item
|
||||
How to disable other packages from calling @value{tramp}?
|
||||
|
||||
|
|
|
|||
|
|
@ -1740,6 +1740,28 @@ Get the item which @var{widget} is assumed to toggle.
|
|||
This is only meaningful for radio buttons or checkboxes in a list.
|
||||
@end defun
|
||||
|
||||
@defun widget-choose title items &optional event
|
||||
Prompt the user to choose an item from a list of options.
|
||||
|
||||
@var{title} is the name of the list of options. @var{items} should be
|
||||
a menu, with its items in the simple format or in the extended format.
|
||||
@xref{Defining Menus,, Defining Menus, elisp, the Emacs Lisp Reference
|
||||
Manual}. Independently of the format, you don't have to provide a
|
||||
title for the menu, just pass the desired title in @var{title}. The
|
||||
optional @var{event} is an input event. If @var{event} is a mouse
|
||||
event and the number of elements in @var{items} is less than the user
|
||||
option @code{widget-menu-max-size}, then @code{widget-choose} uses a
|
||||
popup menu to prompt the user. Otherwise, @code{widget-choose} uses
|
||||
the minibuffer.
|
||||
|
||||
When @var{items} is a keymap menu, the returned value is the symbol in
|
||||
the key vector, as in the argument of @code{define-key}
|
||||
(@pxref{Changing Key Bindings,,,elisp, the Emacs Lisp Reference
|
||||
Manual}). When @var{items} is a list whose selectable items are of
|
||||
the form (@var{name} . @var{value}) (i.e., the simplified format),
|
||||
then the return value is the @var{value} of the chosen element.
|
||||
@end defun
|
||||
|
||||
@node Widget Wishlist
|
||||
@chapter Wishlist
|
||||
@cindex todo
|
||||
|
|
|
|||
|
|
@ -1670,7 +1670,7 @@
|
|||
* images/icons/allout-widgets-light-bg: Icons for new
|
||||
allout-widgets.el.
|
||||
|
||||
* images/icons/README: Include coypright and GPL 3 license for
|
||||
* images/icons/README: Include copyright and GPL 3 license for
|
||||
new icons.
|
||||
|
||||
2011-02-16 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
|
@ -2203,7 +2203,7 @@
|
|||
|
||||
2009-08-13 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
* NEWS: Mention the new coding systme `utf-8-hfs' and many
|
||||
* NEWS: Mention the new coding system `utf-8-hfs' and many
|
||||
functions for Unicode normalization.
|
||||
|
||||
2009-08-09 CHENG Gao <chenggao@gmail.com>
|
||||
|
|
|
|||
31
etc/NEWS
31
etc/NEWS
|
|
@ -152,6 +152,13 @@ your init file:
|
|||
(setq frame-title-format '(multiple-frames "%b"
|
||||
("" invocation-name "@" system-name)))
|
||||
|
||||
** recentf
|
||||
|
||||
---
|
||||
*** 'recentf-auto-cleanup' time string now repeats.
|
||||
When 'recentf-auto-cleanup' is set to a time string, it now repeats
|
||||
every day, rather than only running once after the mode is turned on.
|
||||
|
||||
|
||||
* Editing Changes in Emacs 28.1
|
||||
|
||||
|
|
@ -318,6 +325,13 @@ time zones will use a form like "+0100" instead of "CET".
|
|||
|
||||
** Dired
|
||||
|
||||
+++
|
||||
*** New user option 'dired-switches-in-mode-line'.
|
||||
This variable controls how 'ls' switches are displayed in the mode
|
||||
line, and allows truncating them (to preserve space on the mode line)
|
||||
or showing them literally, either instead of, or in addition to,
|
||||
displaying "by name" or "by date" sort order.
|
||||
|
||||
---
|
||||
*** Broken and circular links are shown with the 'dired-broken-symlink' face.
|
||||
|
||||
|
|
@ -1072,6 +1086,11 @@ based on the current window size. In previous versions of Emacs, this
|
|||
was always done (and that could lead to odd displays when resizing the
|
||||
window after starting). This variable defaults to nil.
|
||||
|
||||
** Widget
|
||||
|
||||
+++
|
||||
*** 'widget-choose' now supports menus in extended format.
|
||||
|
||||
** Miscellaneous
|
||||
|
||||
---
|
||||
|
|
@ -1083,9 +1102,12 @@ keystrokes.
|
|||
|
||||
+++
|
||||
*** Interactive regular expression search now uses faces for sub-groups.
|
||||
E.g., 'C-M-s foo-\([0-9]+\)' will now use the 'isearch-group-1' face
|
||||
E.g., 'C-M-s foo-\([0-9]+\)' will now use the 'isearch-group-odd' face
|
||||
on the part of the regexp that matches the sub-expression "[0-9]+".
|
||||
The even group matches are highlighted with the 'isearch-group-even' face.
|
||||
This is controlled by the 'search-highlight-submatches' user option.
|
||||
This feature is available only on terminals that have enough colors to
|
||||
distinguish between sub-expression highlighting.
|
||||
|
||||
---
|
||||
*** New user option 'reveal-auto-hide'.
|
||||
|
|
@ -1452,6 +1474,13 @@ ledit.el, lmenu.el, lucid.el and old-whitespace.el.
|
|||
|
||||
* Lisp Changes in Emacs 28.1
|
||||
|
||||
+++
|
||||
*** New command 'make-directory-autoloads'.
|
||||
This does the same as the old command 'update-directory-autoloads',
|
||||
but has different semantics: Instead of passing in the output file via
|
||||
the dynamically bound 'generated-autoload-file' variable, the output
|
||||
file is now a explicit parameter.
|
||||
|
||||
+++
|
||||
*** New function 'string-search'.
|
||||
This function takes two string parameters and returns the position of
|
||||
|
|
|
|||
|
|
@ -153,7 +153,7 @@ Failing Scenarios:
|
|||
cucumber foo/cucumber.feature:6 # Scenario: assertion false (Test::Unit)
|
||||
cucumber foo/cucumber.feature:9 # Scenario: assertion false (RSpec)
|
||||
cucumber foo/cucumber.feature:12 # Scenario: backtrace in step definition
|
||||
cucumber foo/cucumber.feature:15 # Scenario: deeep backtrace in step definition
|
||||
cucumber foo/cucumber.feature:15 # Scenario: deep backtrace in step definition
|
||||
|
||||
5 scenarios (4 failed, 1 undefined)
|
||||
5 steps (4 failed, 1 undefined)
|
||||
|
|
|
|||
|
|
@ -6944,10 +6944,10 @@
|
|||
when saving a tag in structtag. Callers changed.
|
||||
(TOKEN): Structure changed. Now used only in C_entries.
|
||||
(TOKEN_SAVED_P, SAVE_TOKEN, RESTORE_TOKEN): Delete.
|
||||
(C_entries): nameb and savenameb deleted. Use dinamic allocation.
|
||||
(C_entries): nameb and savenameb deleted. Use dynamic allocation.
|
||||
(pfcnt): Delete. Users updated.
|
||||
(getit, Asm_labels, Pascal_functions, L_getit, get_scheme)
|
||||
(TEX_getit, prolog_getit): Use dinamic allocation for storing
|
||||
(TEX_getit, prolog_getit): Use dynamic allocation for storing
|
||||
the tag instead of a fixed size buffer.
|
||||
|
||||
1995-01-10 Richard Stallman <rms@mole.gnu.ai.mit.edu>
|
||||
|
|
@ -7609,7 +7609,7 @@
|
|||
(longopts, print_help, main, process_file): Put absolute filenames
|
||||
in the tag file if the -A --absolute-pathnames option is used.
|
||||
(print_help): Alphabetically order the options.
|
||||
(malloc, realloc, strcpy, strncpy, strcmp): Remove extern declar.
|
||||
(malloc, realloc, strcpy, strncpy, strcmp): Remove extern declare.
|
||||
|
||||
1994-02-09 Richard Stallman (rms@mole.gnu.ai.mit.edu)
|
||||
|
||||
|
|
@ -8239,7 +8239,7 @@
|
|||
1993-03-22 Francesco Potortì (pot@cnuce.cnr.it)
|
||||
|
||||
* etags.c (YACC): Flag added to c_ext.
|
||||
(c_ext): No more a synonim for c_ext&C_PLPL because of YACC.
|
||||
(c_ext): No more a synonym for c_ext&C_PLPL because of YACC.
|
||||
(find_entries): Consistently use streq when reasonable.
|
||||
(find_entries): A .y file is a yacc file.
|
||||
(get_C_stab): c_ext becomes c_ext&C_PLPL.
|
||||
|
|
|
|||
|
|
@ -12772,7 +12772,7 @@
|
|||
(reftex-words-to-typekey-alist, reftex-key-to-index-macro-alist)
|
||||
(reftex-query-index-macro-prompt, reftex-query-index-macro-help)
|
||||
(reftex-no-follow-message, reftex-no-info-message): Likewise.
|
||||
(reftex-mode): Define systax table for bibtex parsing.
|
||||
(reftex-mode): Define syntax table for bibtex parsing.
|
||||
(reftex-syntax-table-for-bib): Syntax table for bibtex parsing.
|
||||
|
||||
* textmodes/reftex-cite.el (reftex-format-names): %a as name
|
||||
|
|
@ -15993,7 +15993,7 @@
|
|||
|
||||
* progmodes/cc-vars.el (c-offsets-alist): A more sane default
|
||||
for `inexpr-statement'. This is not compatible, though.
|
||||
I think the benefit of a good default style outweights that in
|
||||
I think the benefit of a good default style outweighs that in
|
||||
this case. Besides, `inexpr-statement' is not very common.
|
||||
|
||||
2002-04-22 Martin Stjernholm <mast@lysator.liu.se>
|
||||
|
|
|
|||
|
|
@ -4765,7 +4765,7 @@
|
|||
2007-12-30 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* net/dbus.el (dbus-name-owner-changed-handler): Make the function
|
||||
resistent towards wrong parameters.
|
||||
resistant towards wrong parameters.
|
||||
(dbus-handle-event): Propagate D-Bus errors only in the debug case.
|
||||
|
||||
2007-12-30 Richard Stallman <rms@gnu.org>
|
||||
|
|
@ -5001,7 +5001,7 @@
|
|||
|
||||
* vc.el (vc-dired-ignorable-p, vc-dired-hook): Speed optimization;
|
||||
use completion-ignored-extensions to detect files that should be
|
||||
ignorted in VC-Dired listings, heading off lots of expensive calls
|
||||
ignored in VC-Dired listings, heading off lots of expensive calls
|
||||
to (vc-state).
|
||||
|
||||
* vc.el (vc-dired-hook): Show unregistered file status as "?" in
|
||||
|
|
|
|||
|
|
@ -10889,7 +10889,7 @@
|
|||
|
||||
* menu-bar.el (menu-set-font): New function. Bind "Set Default
|
||||
Font" menu item to it. Apply selected font to all frames, and
|
||||
make it savable.
|
||||
make it saveable.
|
||||
(menu-bar-options-save): Save `default' font if changed.
|
||||
|
||||
2008-06-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
|
@ -13625,7 +13625,7 @@
|
|||
(completion-emacs22-try-completion): Place cursor after the /, as was
|
||||
done in Emacs-22's minibuffer-complete-word.
|
||||
Fix bug reported by David Hansen <david.hansen@gmx.net>.
|
||||
(completion-emacs22-try-completion): Merge all mergable text rather
|
||||
(completion-emacs22-try-completion): Merge all mergeable text rather
|
||||
than just /.
|
||||
(completion-pcm--delim-wild-regex): New var.
|
||||
(completion-pcm-word-delimiters): New custom.
|
||||
|
|
|
|||
|
|
@ -2803,7 +2803,7 @@
|
|||
2010-12-29 Karl Fogel <kfogel@red-bean.com>
|
||||
|
||||
* saveplace.el (save-place-alist-to-file): Save list sorted and
|
||||
pretty-printed, so that it is mergable by line-based text merging,
|
||||
pretty-printed, so that it is mergeable by line-based text merging,
|
||||
as suggested by Iain Dalton <iain.dalton {_AT_} gmail.com>.
|
||||
|
||||
2010-12-28 Ken Manheimer <ken.manheimer@gmail.com>
|
||||
|
|
@ -5135,10 +5135,10 @@
|
|||
|
||||
* progmodes/verilog-mode.el (verilog-directive-re): Make this variable
|
||||
auto-built for efficiency of execution and updating.
|
||||
(verilog-extended-complete-re): Support 'pure' fucntion & task
|
||||
(verilog-extended-complete-re): Support 'pure' function & task
|
||||
declarations (these have no bodies).
|
||||
(verilog-beg-of-statement): General cleanup to enable support of
|
||||
'pure' fucntion & task declarations (these have no bodies).
|
||||
'pure' function & task declarations (these have no bodies).
|
||||
These efforts together fix Verilog bug210 from veripool; which was also
|
||||
noticed by Steve Pearlmutter.
|
||||
(verilog-directive-re, verilog-directive-begin, verilog-indent-re)
|
||||
|
|
@ -10689,7 +10689,7 @@
|
|||
2010-05-13 Agustín Martín <agustin.martin@hispalinux.es>
|
||||
|
||||
* textmodes/ispell.el (ispell-init-process): Do not kill ispell
|
||||
process everytime when spellchecking from the minibuffer (bug#6143).
|
||||
process every time when spellchecking from the minibuffer (bug#6143).
|
||||
|
||||
2010-05-13 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
|
|
@ -12100,7 +12100,7 @@
|
|||
2010-03-31 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* image.el (image-animated-p): Use `image-metadata' instead of
|
||||
`image-extension-data'. Get GIF extenstion data from metadata
|
||||
`image-extension-data'. Get GIF extension data from metadata
|
||||
property `extension-data'.
|
||||
|
||||
2010-03-31 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
|
@ -14907,7 +14907,7 @@
|
|||
Use complete-with-action rather than pascal-completion-response and
|
||||
let it apply the predicate as well.
|
||||
(pascal-goto-defun): Change buffer before calling pascal-comp-defun
|
||||
when neded.
|
||||
when needed.
|
||||
|
||||
2009-12-02 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
|
|
@ -18684,7 +18684,7 @@
|
|||
2009-09-24 Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
||||
|
||||
* whitespace.el: Does not highlight trailing spaces While point is
|
||||
at end of line. Does not highligt spaces at beginning of buffer
|
||||
at end of line. Does not highlight spaces at beginning of buffer
|
||||
while point is at beginning of buffer. Does not highlight spaces
|
||||
at end of buffer while point is at end of buffer. (Bug#4177)
|
||||
New version 12.0.
|
||||
|
|
|
|||
|
|
@ -3018,7 +3018,7 @@
|
|||
|
||||
* progmodes/sql.el: Use cl-lib and lexical-binding; various cleanup.
|
||||
(sql-signum): Remove. Use `cl-signum' instead.
|
||||
(sql-read-passwd): Remove; use read-passwd instread.
|
||||
(sql-read-passwd): Remove; use read-passwd instead.
|
||||
(sql-get-login-ext): Use read-string.
|
||||
(sql-get-login): Use dolist and pcase.
|
||||
(sql--completion-table): Rename from sql-try-completion.
|
||||
|
|
@ -7833,7 +7833,7 @@
|
|||
the form for POSITION argument.
|
||||
|
||||
* term/x-win.el (x-menu-bar-open):
|
||||
Use the value returend from (posn-at-point) as position
|
||||
Use the value returned from (posn-at-point) as position
|
||||
passed to `popup-menu'.
|
||||
|
||||
2012-08-09 Jay Belanger <jay.p.belanger@gmail.com>
|
||||
|
|
@ -11992,11 +11992,11 @@
|
|||
* progmodes/verilog-mode.el (verilog-pretty-expr): Don't line up
|
||||
assignment with tests in ifs and for loops.
|
||||
(verilog-extended-complete-re, verilog-complete-reg): Change so
|
||||
that DPI inport functions don't look like function declarations.
|
||||
that DPI import functions don't look like function declarations.
|
||||
(verilog-pretty-expr): Don't line up assignment
|
||||
operations to the test and increment in if and for loops
|
||||
(verilog-extended-complete-re, verilog-complete-reg): Change so
|
||||
that DPI inport functions don't look like function declarations.
|
||||
that DPI import functions don't look like function declarations.
|
||||
|
||||
2012-05-03 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
|
|
@ -15918,7 +15918,7 @@
|
|||
Rework verilog-pretty-expr to handle new assignment operators in system
|
||||
verilog, such as += *= and the like.
|
||||
(verilog-assignment-operator-re): Regular expression to find the
|
||||
assigment operator in a verilog assignment.
|
||||
assignment operator in a verilog assignment.
|
||||
(verilog-assignment-operation-re): Regular expression to find an
|
||||
assignment statement for pretty-expr.
|
||||
(verilog-in-attribute-p): Query returns true if point is in an
|
||||
|
|
@ -20442,7 +20442,7 @@
|
|||
2011-07-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* net/network-stream.el (open-network-stream): Use the
|
||||
:end-of-capability command thoughout.
|
||||
:end-of-capability command throughout.
|
||||
|
||||
2011-07-03 Wolfgang Jenkner <wjenkner@inode.at> (tiny change)
|
||||
|
||||
|
|
@ -21496,7 +21496,7 @@
|
|||
* net/network-stream.el (open-network-stream): Add the keyword
|
||||
:always-query-capabilities for the case where you want to force a
|
||||
`plain' network connection, but the protocol still requires the
|
||||
capabilitiy command (i.e., SMTP and EHLO).
|
||||
capability command (i.e., SMTP and EHLO).
|
||||
|
||||
* subr.el (process-live-p): Rename from `process-alive-p' for
|
||||
consistency with other `-live-p' functions.
|
||||
|
|
@ -24707,7 +24707,7 @@
|
|||
* abbrev.el (abbrev-edit-save-to-file, abbrev-edit-save-buffer):
|
||||
New commands.
|
||||
(edit-abbrevs-map): Bind them here.
|
||||
(write-abbrev-file): New optinal arg VERBOSE. (Bug#5937)
|
||||
(write-abbrev-file): New optional arg VERBOSE. (Bug#5937)
|
||||
|
||||
2011-03-29 Ken Manheimer <ken.manheimer@gmail.com>
|
||||
|
||||
|
|
|
|||
|
|
@ -8465,7 +8465,7 @@
|
|||
2014-07-28 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* files.el (toggle-read-only): Re-add basic doc-string.
|
||||
* vc/vc-hooks.el (vc-toggle-read-only): Tweak obsolescence mesage.
|
||||
* vc/vc-hooks.el (vc-toggle-read-only): Tweak obsolescence message.
|
||||
|
||||
* progmodes/prolog.el (prolog-mode-keybindings-edit):
|
||||
Replace missing `switch-to-prolog' with `run-prolog'.
|
||||
|
|
@ -14399,7 +14399,7 @@
|
|||
|
||||
2014-01-05 Martin Rudalics <rudalics@gmx.at>
|
||||
|
||||
* window.el (balance-windows): Add mising t to fix Bug#16351.
|
||||
* window.el (balance-windows): Add missing t to fix Bug#16351.
|
||||
|
||||
2014-01-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
@ -15098,7 +15098,7 @@
|
|||
2013-12-18 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* help-mode.el (help-mode-map): Bind "l" to help-go-back,
|
||||
and "r" to help-go-forward for compatibity with Info. (Bug#16178)
|
||||
and "r" to help-go-forward for compatibility with Info. (Bug#16178)
|
||||
|
||||
2013-12-18 Leo Liu <sdl.web@gmail.com>
|
||||
|
||||
|
|
@ -15729,7 +15729,7 @@
|
|||
(flymake-get-temp-dir): Remove.
|
||||
(flymake-popup-menu, flymake-nop, flymake-make-xemacs-menu)
|
||||
(flymake-current-row, flymake-selected-frame)
|
||||
(flymake-get-point-pixel-pos): Remove xemacs compatibity and
|
||||
(flymake-get-point-pixel-pos): Remove xemacs compatibility and
|
||||
related functions. (Bug#16077)
|
||||
|
||||
2013-12-07 Bozhidar Batsov <bozhidar@batsov.com>
|
||||
|
|
@ -16822,7 +16822,7 @@
|
|||
* emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property.
|
||||
|
||||
* electric.el (electric-indent-post-self-insert-function):
|
||||
Only delete trailing whitepsace if it is indeed trailing (bug#15767).
|
||||
Only delete trailing whitespace if it is indeed trailing (bug#15767).
|
||||
|
||||
2013-11-04 Helmut Eller <eller.helmut@gmail.com>
|
||||
|
||||
|
|
@ -17770,7 +17770,7 @@
|
|||
2013-10-13 Kenichi Handa <handa@gnu.org>
|
||||
|
||||
* international/mule-cmds.el (select-safe-coding-system): Remove a
|
||||
superfluous condition in chekcing whether a coding system is safe
|
||||
superfluous condition in checking whether a coding system is safe
|
||||
or not.
|
||||
|
||||
2013-10-13 Oleh Krehel <ohwoeowho@gmail.com>
|
||||
|
|
@ -23495,7 +23495,7 @@
|
|||
* progmodes/cc-defs.el (c-set-region-active, c-beginning-of-defun-1)
|
||||
* progmodes/cc-mode.el (c-make-inherited-keymap): Use plain fboundp.
|
||||
* progmodes/cc-defs.el (zmacs-region-stays, zmacs-regions)
|
||||
(lookup-syntax-properties): Remove unecessary cc-bytecomp-defvar.
|
||||
(lookup-syntax-properties): Remove unnecessary cc-bytecomp-defvar.
|
||||
|
||||
* progmodes/cc-vars.el (other): Emacs has this widget since
|
||||
at least 21.1, so don't (re)define it.
|
||||
|
|
|
|||
|
|
@ -6958,7 +6958,7 @@
|
|||
1991-10-04 Roland McGrath (roland@albert.gnu.ai.mit.edu)
|
||||
|
||||
* rmail.el: Changed two regexps not to look specifically for 19yy
|
||||
for years; look for yyyy instead. Planning for the millenium.
|
||||
for years; look for yyyy instead. Planning for the millennium.
|
||||
|
||||
1991-10-03 Roland McGrath (roland@albert.gnu.ai.mit.edu)
|
||||
|
||||
|
|
|
|||
|
|
@ -6742,7 +6742,7 @@
|
|||
quoted tab into a space.
|
||||
(sh-mode): Use new `skeleton-newline-indent-rigidly'.
|
||||
(sh-set-shell): Make maximum font-locking also highlight keywords
|
||||
after ``' and `!'. (The latter is for ksh '93 but should't hurt other
|
||||
after ``' and `!'. (The latter is for ksh '93 but shouldn't hurt other
|
||||
shells.)
|
||||
|
||||
1995-08-18 Andre Spiegel <spiegel@berlin.informatik.uni-stuttgart.de>
|
||||
|
|
|
|||
|
|
@ -5774,7 +5774,7 @@
|
|||
|
||||
1998-03-06 Dave Love <d.love@dl.ac.uk>
|
||||
|
||||
* browse-url.el: Various doc fixes, mainly to remove innappropriate
|
||||
* browse-url.el: Various doc fixes, mainly to remove inappropriate
|
||||
leading "*"s.
|
||||
(browse-url-new-window-p, browse-url-netscape-display)
|
||||
(browse-url-save-file, browse-url-generic-program):
|
||||
|
|
@ -10843,7 +10843,7 @@
|
|||
1997-09-06 Michael Kifer <kifer@cs.sunysb.edu>
|
||||
|
||||
* ediff-ptch.el (ediff-patch-buffer-internal):
|
||||
now behaves uniformely, whether the buffer
|
||||
now behaves uniformly, whether the buffer
|
||||
visits a file or not.
|
||||
* ediff-util.el (ediff-other-buffer): Smarter selection of
|
||||
suitable other buffer.
|
||||
|
|
@ -11291,7 +11291,7 @@
|
|||
the various new variables mentioned above. Accept the `a' key to
|
||||
use all selected citations.
|
||||
(reftex-insert-bib-matches): New function.
|
||||
(reftex-format-citation): Now interpretes % escapes.
|
||||
(reftex-format-citation): Now interprets % escapes.
|
||||
(reftex-select-item): Emulate a search in the menu buffer.
|
||||
Interpret the 'cnt text property.
|
||||
(reftex-view-crossref): Allow more general label, cite and ref macros.
|
||||
|
|
|
|||
|
|
@ -7002,7 +7002,7 @@
|
|||
1999-01-13 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
* international/codepage.el (cp850-decode-table): Replace nil
|
||||
entries with codes of similary looking glyphs. (
|
||||
entries with codes of similarly looking glyphs. (
|
||||
Suggested by Jason Rumney <jasonr@altavista.net>.)
|
||||
|
||||
1999-01-13 Dave Love <fx@gnu.org>
|
||||
|
|
@ -7469,7 +7469,7 @@
|
|||
(cperl-forward-re): Highlight the trailing / in s/foo// as string.
|
||||
Highlight the starting // in s//foo/ as function-name.
|
||||
Emit a meaningful error instead of a cryptic one for an
|
||||
uncomplete REx near end-of-buffer.
|
||||
incomplete REx near end-of-buffer.
|
||||
|
||||
(cperl-electric-keyword): `qr' recognized.
|
||||
(cperl-electric-else): Likewise.
|
||||
|
|
|
|||
|
|
@ -237,8 +237,8 @@
|
|||
After 4.28:
|
||||
(cperl-forward-re): Throw an error at proper moment REx unfinished.
|
||||
After 4.29:
|
||||
(x-color-defined-p): Make an extra case to peacify the warning.
|
||||
Toplevel: `defvar' to peacify the warnings.
|
||||
(x-color-defined-p): Make an extra case to pacify the warning.
|
||||
Toplevel: `defvar' to pacify the warnings.
|
||||
(cperl-find-pods-heres): Could access `font-lock-comment-face' in -nw.
|
||||
No -nw-compile time warnings now.
|
||||
(cperl-find-tags): TAGS file had too short substring-to-search.
|
||||
|
|
@ -1183,7 +1183,7 @@
|
|||
2001-09-07 Gerd Moellmann <gerd@gnu.org>
|
||||
|
||||
* isearch.el (isearch-intersects-p): New function.
|
||||
(isearch-close-unnecessary-overlays): Rename from *unecessary*,
|
||||
(isearch-close-unnecessary-overlays): Rename from *unnecessary*,
|
||||
use isearch-intersects-p, and clean up.
|
||||
|
||||
2001-09-07 Eli Zaretskii <eliz@is.elta.co.il>
|
||||
|
|
@ -12432,7 +12432,7 @@
|
|||
is not reached. It is.
|
||||
(vc-cvs-merge): Set state to 'edited after merge.
|
||||
(vc-cvs-merge-news): Set workfile version to nil if not known.
|
||||
(vc-cvs-latest-on-branch-p): Recommented. Candidate for removal.
|
||||
(vc-cvs-latest-on-branch-p): Recommended. Candidate for removal.
|
||||
|
||||
* vc-cvs.el, vc-rcs.el, vc-sccs.el (vc-*-checkout): Switch off
|
||||
coding systems for checkout via stdout. (Merge from main line.)
|
||||
|
|
@ -13371,7 +13371,7 @@
|
|||
if defined. (Merged from main line, slightly adapted.)
|
||||
|
||||
* vc-cvs.el (vc-cvs-annotate-difference): Handle possible
|
||||
millenium problem (merged from mainline).
|
||||
millennium problem (merged from mainline).
|
||||
|
||||
2000-09-04 Martin Lorentzson <martinl@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -389,7 +389,7 @@ The possible settings for `align-region-separate' are:
|
|||
(regexp . "\\(^\\s-+[^( \t\n]\\|(\\(\\S-+\\)\\s-+\\)\\S-+\\(\\s-+\\)")
|
||||
(group . 3)
|
||||
(modes . align-lisp-modes)
|
||||
(run-if . ,(function (lambda () current-prefix-arg))))
|
||||
(run-if . ,(lambda () current-prefix-arg)))
|
||||
|
||||
(lisp-alist-dot
|
||||
(regexp . "\\(\\s-*\\)\\.\\(\\s-*\\)")
|
||||
|
|
@ -463,7 +463,7 @@ The possible settings for `align-region-separate' are:
|
|||
(regexp . ",\\(\\s-*\\)[^/ \t\n]")
|
||||
(repeat . t)
|
||||
(modes . align-c++-modes)
|
||||
(run-if . ,(function (lambda () current-prefix-arg))))
|
||||
(run-if . ,(lambda () current-prefix-arg)))
|
||||
; (valid
|
||||
; . ,(function
|
||||
; (lambda ()
|
||||
|
|
@ -480,7 +480,7 @@ The possible settings for `align-region-separate' are:
|
|||
(regexp . ",\\(\\s-*\\)[^# \t\n]")
|
||||
(repeat . t)
|
||||
(modes . (append align-perl-modes '(python-mode)))
|
||||
(run-if . ,(function (lambda () current-prefix-arg))))
|
||||
(run-if . ,(lambda () current-prefix-arg)))
|
||||
|
||||
(c++-comment
|
||||
(regexp . "\\(\\s-*\\)\\(//.*\\|/\\*.*\\*/\\s-*\\)$")
|
||||
|
|
|
|||
|
|
@ -245,7 +245,7 @@ prevails."
|
|||
"Allout-mode functions bound to keys without any added prefix.
|
||||
|
||||
This is in contrast to the majority of allout-mode bindings on
|
||||
`allout-prefixed-bindings', whose bindings are created with a
|
||||
`allout-prefixed-keybindings', whose bindings are created with a
|
||||
preceding command key.
|
||||
|
||||
Use vector format for the keys:
|
||||
|
|
@ -1510,7 +1510,7 @@ topic prefix.
|
|||
Entries must be symbols that are bound to the desired regexp values.
|
||||
|
||||
Encryptions that result in matches will be retried, up to
|
||||
`allout-encryption-ciphertext-rejection-limit' times, after which
|
||||
`allout-encryption-ciphertext-rejection-ceiling' times, after which
|
||||
an error is raised.")
|
||||
|
||||
(make-variable-buffer-local 'allout-encryption-ciphertext-rejection-regexps)
|
||||
|
|
@ -4721,7 +4721,7 @@ this function."
|
|||
|
||||
This is a way to give restricted peek at a concealed locality without the
|
||||
expense of exposing its context, but can leave the outline with aberrant
|
||||
exposure. `allout-show-offshoot' should be used after the peek to rectify
|
||||
exposure. `allout-show-to-offshoot' should be used after the peek to rectify
|
||||
the exposure."
|
||||
|
||||
(interactive)
|
||||
|
|
|
|||
|
|
@ -536,7 +536,7 @@ codes. Finally, the so changed list of codes is returned."
|
|||
(cons new (remq new codes))))
|
||||
(2 (unless (memq new '(20 26 28 29))
|
||||
;; The standard says `21 doubly underlined' while
|
||||
;; http://en.wikipedia.org/wiki/ANSI_escape_code claims
|
||||
;; https://en.wikipedia.org/wiki/ANSI_escape_code claims
|
||||
;; `21 Bright/Bold: off or Underline: Double'.
|
||||
(remq (- new 20) (pcase new
|
||||
(22 (remq 1 codes))
|
||||
|
|
|
|||
|
|
@ -871,6 +871,62 @@ This is an internal function used by Auto-Revert Mode."
|
|||
(restore-buffer-modified-p modified)))
|
||||
(set-visited-file-modtime))
|
||||
|
||||
(defun auto-revert--buffer-candidates ()
|
||||
"Return a prioritized list of buffers to maybe auto-revert.
|
||||
The differences between this return value and the reference
|
||||
variable `auto-revert-buffer-list' include: 1) this has more
|
||||
entries when in global-auto-revert-mode; 2) this prioritizes
|
||||
buffers not reverted last time due to user interruption. "
|
||||
(let ((bufs (delq nil
|
||||
;; Buffers with remote contents shall be reverted only
|
||||
;; if the connection is established already.
|
||||
(mapcar
|
||||
(lambda (buf)
|
||||
(and (buffer-live-p buf)
|
||||
(with-current-buffer buf
|
||||
(and
|
||||
(or (not (file-remote-p default-directory))
|
||||
(file-remote-p default-directory nil t))
|
||||
buf))))
|
||||
(auto-revert--polled-buffers))))
|
||||
remaining new)
|
||||
;; Partition `bufs' into two halves depending on whether or not
|
||||
;; the buffers are in `auto-revert-remaining-buffers'. The two
|
||||
;; halves are then re-joined with the "remaining" buffers at the
|
||||
;; head of the list.
|
||||
(dolist (buf auto-revert-remaining-buffers)
|
||||
(when (memq buf bufs)
|
||||
(push buf remaining)))
|
||||
(dolist (buf bufs)
|
||||
(unless (memq buf remaining)
|
||||
(push buf new)))
|
||||
(nreverse (nconc new remaining))))
|
||||
|
||||
(defun auto-revert-buffer (buf)
|
||||
"Revert a single buffer.
|
||||
|
||||
This is performed as specified by Auto-Revert and Global
|
||||
Auto-Revert Modes."
|
||||
(if (not (buffer-live-p buf))
|
||||
(auto-revert-remove-current-buffer buf)
|
||||
(with-current-buffer buf
|
||||
;; Test if someone has turned off Auto-Revert Mode
|
||||
;; in a non-standard way, for example by changing
|
||||
;; major mode.
|
||||
(when (and (not auto-revert-mode)
|
||||
(not auto-revert-tail-mode))
|
||||
(auto-revert-remove-current-buffer))
|
||||
(when (auto-revert-active-p)
|
||||
;; Enable file notification.
|
||||
;; Don't bother creating a notifier for non-file buffers
|
||||
;; unless it explicitly indicates that this works.
|
||||
(when (and auto-revert-use-notify
|
||||
(not auto-revert-notify-watch-descriptor)
|
||||
(or buffer-file-name
|
||||
buffer-auto-revert-by-notification))
|
||||
(auto-revert-notify-add-watch))
|
||||
(auto-revert-handler)))))
|
||||
|
||||
(defun auto-revert-buffers ()
|
||||
"Revert buffers as specified by Auto-Revert and Global Auto-Revert Mode.
|
||||
|
||||
|
|
@ -894,67 +950,19 @@ are checked first the next time this function is called.
|
|||
This function is also responsible for removing buffers no longer in
|
||||
Auto-Revert Mode from `auto-revert-buffer-list', and for canceling
|
||||
the timer when no buffers need to be checked."
|
||||
|
||||
(save-match-data
|
||||
(let ((bufs (auto-revert--polled-buffers))
|
||||
remaining new)
|
||||
;; Buffers with remote contents shall be reverted only if the
|
||||
;; connection is established already.
|
||||
(setq bufs (delq nil
|
||||
(mapcar
|
||||
(lambda (buf)
|
||||
(and (buffer-live-p buf)
|
||||
(with-current-buffer buf
|
||||
(and
|
||||
(or (not (file-remote-p default-directory))
|
||||
(file-remote-p default-directory nil t))
|
||||
buf))))
|
||||
bufs)))
|
||||
;; Partition `bufs' into two halves depending on whether or not
|
||||
;; the buffers are in `auto-revert-remaining-buffers'. The two
|
||||
;; halves are then re-joined with the "remaining" buffers at the
|
||||
;; head of the list.
|
||||
(dolist (buf auto-revert-remaining-buffers)
|
||||
(if (memq buf bufs)
|
||||
(push buf remaining)))
|
||||
(dolist (buf bufs)
|
||||
(if (not (memq buf remaining))
|
||||
(push buf new)))
|
||||
(setq bufs (nreverse (nconc new remaining)))
|
||||
(let ((bufs (auto-revert--buffer-candidates)))
|
||||
(while (and bufs
|
||||
(not (and auto-revert-stop-on-user-input
|
||||
(input-pending-p))))
|
||||
(let ((buf (car bufs)))
|
||||
(if (not (buffer-live-p buf))
|
||||
;; Remove dead buffer from `auto-revert-buffer-list'.
|
||||
(auto-revert-remove-current-buffer buf)
|
||||
(with-current-buffer buf
|
||||
;; Test if someone has turned off Auto-Revert Mode
|
||||
;; in a non-standard way, for example by changing
|
||||
;; major mode.
|
||||
(if (and (not auto-revert-mode)
|
||||
(not auto-revert-tail-mode)
|
||||
(memq buf auto-revert-buffer-list))
|
||||
(auto-revert-remove-current-buffer))
|
||||
(when (auto-revert-active-p)
|
||||
;; Enable file notification.
|
||||
;; Don't bother creating a notifier for non-file buffers
|
||||
;; unless it explicitly indicates that this works.
|
||||
(when (and auto-revert-use-notify
|
||||
(not auto-revert-notify-watch-descriptor)
|
||||
(or buffer-file-name
|
||||
buffer-auto-revert-by-notification))
|
||||
(auto-revert-notify-add-watch))
|
||||
(auto-revert-handler)))))
|
||||
(setq bufs (cdr bufs)))
|
||||
(auto-revert-buffer (pop bufs)))
|
||||
(setq auto-revert-remaining-buffers bufs)
|
||||
;; Check if we should cancel the timer.
|
||||
(unless (auto-revert--need-polling-p)
|
||||
(if (timerp auto-revert-timer)
|
||||
(cancel-timer auto-revert-timer))
|
||||
(when (timerp auto-revert-timer)
|
||||
(cancel-timer auto-revert-timer))
|
||||
(setq auto-revert-timer nil)))))
|
||||
|
||||
|
||||
;; The end:
|
||||
(provide 'autorevert)
|
||||
|
||||
|
|
|
|||
|
|
@ -709,6 +709,10 @@ as measured in the number of days before December 31, 1 BC (Gregorian).")
|
|||
"The beginning of the Julian date calendar,
|
||||
as measured in the integer number of days before December 31, 1 BC (Gregorian).")
|
||||
|
||||
(defconst math-unix-epoch 719163
|
||||
"The beginning of Unix time: days from December 31, 1 BC (Gregorian)
|
||||
to Jan 1, 1970 AD.")
|
||||
|
||||
(defun math-format-date-part (x)
|
||||
(cond ((stringp x)
|
||||
x)
|
||||
|
|
@ -730,7 +734,8 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
|
|||
(math-floor math-fd-date)
|
||||
math-julian-date-beginning-int)))
|
||||
((eq x 'U)
|
||||
(math-format-number (nth 1 (math-date-parts math-fd-date 719164))))
|
||||
(math-format-number (nth 1 (math-date-parts math-fd-date
|
||||
math-unix-epoch))))
|
||||
((memq x '(IYYY Iww w))
|
||||
(progn
|
||||
(or math-fd-iso-dt
|
||||
|
|
@ -1173,7 +1178,7 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
|
|||
(setq num (math-match-substring math-pd-str 0)
|
||||
math-pd-str (substring math-pd-str (match-end 0))
|
||||
num (math-date-to-dt
|
||||
(math-add 719164
|
||||
(math-add math-unix-epoch
|
||||
(math-div (math-read-number num)
|
||||
'(float 864 2))))
|
||||
hour (nth 3 num)
|
||||
|
|
@ -1434,11 +1439,11 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)."
|
|||
(defun calcFunc-unixtime (date &optional zone)
|
||||
(if (math-realp date)
|
||||
(progn
|
||||
(setq date (math-add 719163 (math-div date '(float 864 2))))
|
||||
(setq date (math-add math-unix-epoch (math-div date '(float 864 2))))
|
||||
(list 'date (math-sub date (math-div (calcFunc-tzone zone date)
|
||||
'(float 864 2)))))
|
||||
(if (eq (car date) 'date)
|
||||
(math-add (nth 1 (math-date-parts (nth 1 date) 719163))
|
||||
(math-add (nth 1 (math-date-parts (nth 1 date) math-unix-epoch))
|
||||
(calcFunc-tzone zone date))
|
||||
(math-reject-arg date 'datep))))
|
||||
|
||||
|
|
@ -1870,8 +1875,8 @@ and ends on the last Sunday of October at 2 a.m."
|
|||
(and days (= day (car days))
|
||||
(setq holiday t)))
|
||||
(let* ((weekdays (nth 3 math-holidays-cache))
|
||||
(weeks (1- (/ (+ day 6) 7)))
|
||||
(wkday (- day 1 (* weeks 7))))
|
||||
(weeks (/ day 7))
|
||||
(wkday (mod day 7))) ; Day of week: 0=Sunday, 6=Saturday
|
||||
(setq delta (+ delta (* weeks (length weekdays))))
|
||||
(while (and weekdays (< (car weekdays) wkday))
|
||||
(setq weekdays (cdr weekdays)
|
||||
|
|
@ -1905,14 +1910,15 @@ and ends on the last Sunday of October at 2 a.m."
|
|||
(setq delta (1+ delta)))
|
||||
(setq day (+ day delta)))
|
||||
(let* ((weekdays (nth 3 math-holidays-cache))
|
||||
(bweek (- 7 (length weekdays)))
|
||||
(weeks (1- (/ (+ day (1- bweek)) bweek)))
|
||||
(wkday (- day 1 (* weeks bweek)))
|
||||
(bweek (- 7 (length weekdays))) ; Business days in a week, 1..7.
|
||||
(weeks (/ day bweek)) ; Whole weeks.
|
||||
(wkday (mod day bweek)) ; Business day in last week, 0..bweek-1
|
||||
(w 0))
|
||||
(setq day (+ day (* weeks (length weekdays))))
|
||||
;; Add business days in the last week; `w' is weekday, 0..6.
|
||||
(while (if (memq w weekdays)
|
||||
(setq day (1+ day))
|
||||
(> (setq wkday (1- wkday)) 0))
|
||||
(>= (setq wkday (1- wkday)) 0))
|
||||
(setq w (1+ w)))
|
||||
(let ((hours (nth 7 math-holidays-cache)))
|
||||
(if hours
|
||||
|
|
|
|||
|
|
@ -37,14 +37,14 @@
|
|||
;;; Updated April 2002 by Jochen Küpper
|
||||
|
||||
;;; Updated August 2007, using
|
||||
;;; CODATA (http://physics.nist.gov/cuu/Constants/index.html)
|
||||
;;; NIST (http://physics.nist.gov/Pubs/SP811/appenB9.html)
|
||||
;;; CODATA (https://physics.nist.gov/cuu/Constants/index.html)
|
||||
;;; NIST (https://physics.nist.gov/Pubs/SP811/appenB9.html)
|
||||
;;; ESUWM (Encyclopaedia of Scientific Units, Weights and
|
||||
;;; Measures, by François Cardarelli)
|
||||
;;; All conversions are exact unless otherwise noted.
|
||||
|
||||
;; CODATA values updated February 2016, using 2014 adjustment
|
||||
;; http://arxiv.org/pdf/1507.07956.pdf
|
||||
;; https://arxiv.org/pdf/1507.07956.pdf
|
||||
|
||||
;; Updated November 2018 for the redefinition of the SI
|
||||
;; https://www.bipm.org/utils/en/pdf/CGPM/Draft-Resolution-A-EN.pdf
|
||||
|
|
@ -59,7 +59,7 @@
|
|||
( mi "5280 ft" "Mile" )
|
||||
( au "149597870691. m" "Astronomical Unit" nil
|
||||
"149597870691 m (*)")
|
||||
;; (approx) NASA JPL (http://neo.jpl.nasa.gov/glossary/au.html)
|
||||
;; (approx) NASA JPL (https://neo.jpl.nasa.gov/glossary/au.html)
|
||||
( lyr "c yr" "Light Year" )
|
||||
( pc "3.0856775854*10^16 m" "Parsec (**)" nil
|
||||
"3.0856775854 10^16 m (*)") ;; (approx) ESUWM
|
||||
|
|
|
|||
|
|
@ -1096,7 +1096,7 @@ Otherwise, use symbolic time zones like \"CET\"."
|
|||
"Name of buffer used for sunrise/sunset times.")
|
||||
|
||||
(defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*"
|
||||
"Name of the buffer used by `list-yahrzeit-dates'.")
|
||||
"Name of the buffer used by `calendar-hebrew-list-yahrzeits'.")
|
||||
|
||||
(defmacro calendar-increment-month (mon yr n &optional nmonths)
|
||||
"Increment the variables MON and YR by N months.
|
||||
|
|
|
|||
|
|
@ -555,7 +555,7 @@ relative only to the time worked today, and not to past time."
|
|||
OLD-DEFAULT hours are set for every day that has no number indicated."
|
||||
(interactive "P")
|
||||
(if old-default (setq old-default (prefix-numeric-value old-default))
|
||||
(error "`timelog-make-hours-explicit' requires an explicit argument"))
|
||||
(error "`timeclock-make-hours-explicit' requires an explicit argument"))
|
||||
(let ((extant-timelog (find-buffer-visiting timeclock-file))
|
||||
current-date)
|
||||
(with-current-buffer (find-file-noselect timeclock-file t)
|
||||
|
|
|
|||
|
|
@ -301,7 +301,7 @@
|
|||
manipulation of `ede-projects' with equivalent and better
|
||||
functions.
|
||||
(ede-proj-load): Replace call to test if dir has project to
|
||||
explicity ask filesystem if Project.ede is there.
|
||||
explicitly ask filesystem if Project.ede is there.
|
||||
|
||||
* ede/config.el:
|
||||
* ede/detect.el: New files.
|
||||
|
|
@ -2101,7 +2101,7 @@
|
|||
by calling `srecode-cpp-apply-templates'.
|
||||
|
||||
* srecode/compile.el (srecode-compile-templates): Fix directory
|
||||
compare of built-in templates. Give built-ins lower piority.
|
||||
compare of built-in templates. Give built-ins lower priority.
|
||||
Support special variable "project".
|
||||
(srecode-compile-template-table): Set :project slot of new tables.
|
||||
(srecode-compile-one-template-tag):
|
||||
|
|
|
|||
|
|
@ -215,7 +215,7 @@ the ordering list `autoconf-preferred-macro-order'."
|
|||
(defun autoconf-insert-new-macro (macro &optional param)
|
||||
"Add a call to MACRO in the current autoconf file.
|
||||
Deals with macro order. See `autoconf-preferred-macro-order' and
|
||||
`autoconf-multi-macros'.
|
||||
`autoconf-multiple-macros'.
|
||||
Optional argument PARAM is the parameter to pass to the macro as one string."
|
||||
(cond ((member macro autoconf-multiple-macros)
|
||||
;; This occurs multiple times
|
||||
|
|
|
|||
|
|
@ -25,7 +25,7 @@
|
|||
;;
|
||||
;; Detection comes in multiple forms:
|
||||
;;
|
||||
;; `ede-detect-scan-directory-for-project' -
|
||||
;; `ede--detect-scan-directory-for-project' -
|
||||
;; Scan for a project via the file system.
|
||||
;; `ede-detect-directory-for-project' -
|
||||
;; Check our file cache for a project. If that fails, use
|
||||
|
|
|
|||
|
|
@ -69,7 +69,7 @@ Attempts a simple prototype for calling or using TAG."
|
|||
;; Note: Analyzer from Henry S. Thompson
|
||||
(define-lex-regex-analyzer semantic-lex-scheme-symbol
|
||||
"Detect and create symbol and keyword tokens."
|
||||
"\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)"
|
||||
"\\(\\sw\\|\\s_\\)+"
|
||||
;; (message "symbol: %s" (match-string 0))
|
||||
(semantic-lex-push-token
|
||||
(semantic-lex-token
|
||||
|
|
|
|||
|
|
@ -321,7 +321,7 @@ If NOSNARF is `lex', then return the semantic lex token."
|
|||
(defvar semantic-java-doc-line-tags nil
|
||||
"Valid javadoc line tags.
|
||||
Ordered following Sun's Tag Convention at
|
||||
<http://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>")
|
||||
<https://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>")
|
||||
|
||||
(defvar semantic-java-doc-with-name-tags nil
|
||||
"Javadoc tags which have a name.")
|
||||
|
|
|
|||
|
|
@ -164,7 +164,7 @@ Has virtual :start and :end initializers.")
|
|||
|
||||
(cl-defmethod srecode-overlaid-text ((olaid srecode-overlaid) &optional set-to)
|
||||
"Return the text under OLAID.
|
||||
If SET-TO is a string, then replace the text of OLAID wit SET-TO."
|
||||
If SET-TO is a string, then replace the text of OLAID with SET-TO."
|
||||
(let* ((ol (oref olaid overlay))
|
||||
(start (overlay-start ol)))
|
||||
(if (not (stringp set-to))
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@ numbers, (RED GREEN BLUE), each between 0.0 and 1.0 inclusive.
|
|||
Optional argument FRAME specifies the frame where the color is to be
|
||||
displayed. If FRAME is omitted or nil, use the selected frame.
|
||||
If FRAME cannot display COLOR, return nil."
|
||||
;; `colors-values' maximum value is either 65535 or 65280 depending on the
|
||||
;; `color-values' maximum value is either 65535 or 65280 depending on the
|
||||
;; display system. So we use a white conversion to get the max value.
|
||||
(let ((valmax (float (car (color-values "#ffffffffffff")))))
|
||||
(mapcar (lambda (x) (/ x valmax)) (color-values color frame))))
|
||||
|
|
|
|||
|
|
@ -1773,7 +1773,7 @@ Argument 0 is the command name."
|
|||
((>= mth 0) (1- (- count mth)))
|
||||
(t (1- (- mth))))))
|
||||
(mapconcat
|
||||
(function (lambda (a) a)) (nthcdr n (nreverse (nthcdr m args))) " "))))
|
||||
(lambda (a) a) (nthcdr n (nreverse (nthcdr m args))) " "))))
|
||||
|
||||
;;
|
||||
;; Input processing stuff
|
||||
|
|
|
|||
|
|
@ -2041,7 +2041,7 @@ Patched to remove the most recent completion."
|
|||
|
||||
;; All common separators (eg. space "(" ")" """) characters go through a
|
||||
;; function to add new words to the list of words to complete from.
|
||||
;; If the character before this was an alpha-numeric then this adds the
|
||||
;; If the character before this was an alphanumeric then this adds the
|
||||
;; symbol before point to the completion list (using ADD-COMPLETION).
|
||||
|
||||
(defvar completion-separator-chars
|
||||
|
|
|
|||
|
|
@ -210,7 +210,7 @@ multilingual development.
|
|||
|
||||
This is a fairly large file, not typically present on GNU systems.
|
||||
At the time of writing it is at the URL
|
||||
`http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'."
|
||||
`https://www.unicode.org/Public/UNIDATA/UnicodeData.txt'."
|
||||
:group 'mule
|
||||
:version "22.1"
|
||||
:type '(choice (const :tag "None" nil)
|
||||
|
|
|
|||
|
|
@ -4227,22 +4227,50 @@ format, use `\\[universal-argument] \\[dired]'.")
|
|||
"Non-nil means the Dired sort command is disabled.
|
||||
The idea is to set this buffer-locally in special Dired buffers.")
|
||||
|
||||
(defcustom dired-switches-in-mode-line nil
|
||||
"How to indicate `dired-actual-switches' in mode-line.
|
||||
Possible values:
|
||||
* `nil': Indicate name-or-date sort order, if possible.
|
||||
Else show full switches.
|
||||
* `as-is': Show full switches.
|
||||
* Integer: Show only the first N chars of full switches.
|
||||
* Function: Pass `dired-actual-switches' as arg and show result."
|
||||
:group 'Dired-Plus
|
||||
:type '(choice
|
||||
(const :tag "Indicate by name or date, else full" nil)
|
||||
(const :tag "Show full switches" as-is)
|
||||
(integer :tag "Show first N chars of switches" :value 10)
|
||||
(function :tag "Format with function" :value identity)))
|
||||
|
||||
(defun dired-sort-set-mode-line ()
|
||||
;; Set mode line display according to dired-actual-switches.
|
||||
;; Mode line display of "by name" or "by date" guarantees the user a
|
||||
;; match with the corresponding regexps. Non-matching switches are
|
||||
;; shown literally.
|
||||
"Set mode-line according to option `dired-switches-in-mode-line'."
|
||||
(when (eq major-mode 'dired-mode)
|
||||
(setq mode-name
|
||||
(let (case-fold-search)
|
||||
(cond ((string-match-p
|
||||
dired-sort-by-name-regexp dired-actual-switches)
|
||||
"Dired by name")
|
||||
((string-match-p
|
||||
dired-sort-by-date-regexp dired-actual-switches)
|
||||
"Dired by date")
|
||||
(t
|
||||
(concat "Dired " dired-actual-switches)))))
|
||||
(let ((case-fold-search nil))
|
||||
(if dired-switches-in-mode-line
|
||||
(concat
|
||||
"Dired"
|
||||
(cond ((integerp dired-switches-in-mode-line)
|
||||
(let* ((l1 (length dired-actual-switches))
|
||||
(xs (substring
|
||||
dired-actual-switches
|
||||
0 (min l1 dired-switches-in-mode-line)))
|
||||
(l2 (length xs)))
|
||||
(if (zerop l2)
|
||||
xs
|
||||
(concat " " xs (and (< l2 l1) "…")))))
|
||||
((functionp dired-switches-in-mode-line)
|
||||
(format " %s" (funcall
|
||||
dired-switches-in-mode-line
|
||||
dired-actual-switches)))
|
||||
(t (concat " " dired-actual-switches))))
|
||||
(cond ((string-match-p dired-sort-by-name-regexp
|
||||
dired-actual-switches)
|
||||
"Dired by name")
|
||||
((string-match-p dired-sort-by-date-regexp
|
||||
dired-actual-switches)
|
||||
"Dired by date")
|
||||
(t (concat "Dired " dired-actual-switches))))))
|
||||
(force-mode-line-update)))
|
||||
|
||||
(define-obsolete-function-alias 'dired-sort-set-modeline
|
||||
|
|
|
|||
|
|
@ -24,8 +24,8 @@
|
|||
|
||||
;; doc-view.el requires GNU Emacs 22.1 or newer. You also need Ghostscript,
|
||||
;; `dvipdf' (comes with Ghostscript) or `dvipdfm' (comes with teTeX or TeXLive)
|
||||
;; and `pdftotext', which comes with xpdf (http://www.foolabs.com/xpdf/) or
|
||||
;; poppler (http://poppler.freedesktop.org/).
|
||||
;; and `pdftotext', which comes with xpdf (https://www.foolabs.com/xpdf/) or
|
||||
;; poppler (https://poppler.freedesktop.org/).
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
|
|
@ -514,7 +514,7 @@ Typically \"page-%s.png\".")
|
|||
;; Toggle between text and image display or editing
|
||||
(define-key map (kbd "C-c C-c") 'doc-view-toggle-display)
|
||||
map)
|
||||
"Keymap used by `doc-minor-view-mode'.")
|
||||
"Keymap used by `doc-view-minor-mode'.")
|
||||
|
||||
;;;; Navigation Commands
|
||||
|
||||
|
|
|
|||
|
|
@ -99,7 +99,7 @@ but not `C-u X' or `ESC X' since the X is not the prefix key."
|
|||
(load-library "isearch"))
|
||||
|
||||
(define-key isearch-mode-map [ignore]
|
||||
(function (lambda () (interactive) (isearch-update))))
|
||||
(lambda () (interactive) (isearch-update)))
|
||||
|
||||
(defun double-translate-key (prompt)
|
||||
;; Translate input events using double map.
|
||||
|
|
|
|||
|
|
@ -162,6 +162,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry.
|
|||
(message "")))
|
||||
(when select
|
||||
(set-buffer buffer)
|
||||
(goto-char select)
|
||||
(let ((opoint (point-marker)))
|
||||
(Buffer-menu-execute)
|
||||
(goto-char (point-min))
|
||||
|
|
|
|||
|
|
@ -219,7 +219,7 @@ BUFFER is put back into its original major mode."
|
|||
'electric-help-retain))))
|
||||
(Electric-command-loop
|
||||
'exit
|
||||
(function (lambda ()
|
||||
(lambda ()
|
||||
(sit-for 0) ;necessary if last command was end-of-buffer or
|
||||
;beginning-of-buffer - otherwise pos-visible-in-window-p
|
||||
;will yield a wrong result.
|
||||
|
|
@ -241,7 +241,7 @@ BUFFER is put back into its original major mode."
|
|||
(t
|
||||
(cond (standard "Press SPC to scroll, DEL to scroll back, q to exit, r to retain ")
|
||||
(both)
|
||||
(t (setq both (substitute-command-keys "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain ")))))))))
|
||||
(t (setq both (substitute-command-keys "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "))))))))
|
||||
t))))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -424,7 +424,7 @@ If multiple rules match, only first one is executed.")
|
|||
;;
|
||||
;; FIXME: when `newline'ing, we exceptionally
|
||||
;; prevent a specific behavior of
|
||||
;; `eletric-pair-mode', that of opening an extra
|
||||
;; `electric-pair-mode', that of opening an extra
|
||||
;; newline between newly inserted matching paris.
|
||||
;; In theory that behavior should be provided by
|
||||
;; `electric-layout-mode' instead, which should be
|
||||
|
|
|
|||
|
|
@ -256,13 +256,12 @@ expression, in which case we want to handle forms differently."
|
|||
;; the doc-string in FORM.
|
||||
;; Those properties are now set in lisp-mode.el.
|
||||
|
||||
(defun autoload-find-generated-file ()
|
||||
(defun autoload-find-generated-file (file)
|
||||
"Visit the autoload file for the current buffer, and return its buffer."
|
||||
(let ((enable-local-variables :safe)
|
||||
(enable-local-eval nil)
|
||||
(find-file-hook nil)
|
||||
(delay-mode-hooks t)
|
||||
(file (autoload-generated-file)))
|
||||
(delay-mode-hooks t))
|
||||
;; We used to use `raw-text' to read this file, but this causes
|
||||
;; problems when the file contains non-ASCII characters.
|
||||
(with-current-buffer (find-file-noselect
|
||||
|
|
@ -270,18 +269,20 @@ expression, in which case we want to handle forms differently."
|
|||
(if (zerop (buffer-size)) (insert (autoload-rubric file nil t)))
|
||||
(current-buffer))))
|
||||
|
||||
(defun autoload-generated-file ()
|
||||
"Return `generated-autoload-file' as an absolute name.
|
||||
If local to the current buffer, expand using the default directory;
|
||||
otherwise, using `source-directory'/lisp."
|
||||
(expand-file-name generated-autoload-file
|
||||
(defun autoload-generated-file (outfile)
|
||||
"Return OUTFILE as an absolute name.
|
||||
If `generated-autoload-file' is bound locally in the current
|
||||
buffer, that is used instead, and it is expanded using the
|
||||
default directory; otherwise, `source-directory'/lisp is used."
|
||||
(expand-file-name (if (local-variable-p 'generated-autoload-file)
|
||||
generated-autoload-file
|
||||
outfile)
|
||||
;; File-local settings of generated-autoload-file should
|
||||
;; be interpreted relative to the file's location,
|
||||
;; of course.
|
||||
(if (not (local-variable-p 'generated-autoload-file))
|
||||
(expand-file-name "lisp" source-directory))))
|
||||
|
||||
|
||||
(defun autoload-read-section-header ()
|
||||
"Read a section header form.
|
||||
Since continuation lines have been marked as comments,
|
||||
|
|
@ -456,13 +457,12 @@ which lists the file name and which functions are in it, etc."
|
|||
(defvar no-update-autoloads nil
|
||||
"File local variable to prevent scanning this file for autoload cookies.")
|
||||
|
||||
(defun autoload-file-load-name (file)
|
||||
(defun autoload-file-load-name (file outfile)
|
||||
"Compute the name that will be used to load FILE."
|
||||
;; OUTFILE should be the name of the global loaddefs.el file, which
|
||||
;; is expected to be at the root directory of the files we're
|
||||
;; scanning for autoloads and will be in the `load-path'.
|
||||
(let* ((outfile (default-value 'generated-autoload-file))
|
||||
(name (file-relative-name file (file-name-directory outfile)))
|
||||
(let* ((name (file-relative-name file (file-name-directory outfile)))
|
||||
(names '())
|
||||
(dir (file-name-directory outfile)))
|
||||
;; If `name' has directory components, only keep the
|
||||
|
|
@ -492,8 +492,9 @@ If FILE is being visited in a buffer, the contents of the buffer
|
|||
are used.
|
||||
Return non-nil in the case where no autoloads were added at point."
|
||||
(interactive "fGenerate autoloads for file: ")
|
||||
(let ((generated-autoload-file buffer-file-name))
|
||||
(autoload-generate-file-autoloads file (current-buffer))))
|
||||
(let ((autoload-modified-buffers nil))
|
||||
(autoload-generate-file-autoloads file (current-buffer) buffer-file-name)
|
||||
autoload-modified-buffers))
|
||||
|
||||
(defvar autoload-compute-prefixes t
|
||||
"If non-nil, autoload will add code to register the prefixes used in a file.
|
||||
|
|
@ -610,7 +611,7 @@ Don't try to split prefixes that are already longer than that.")
|
|||
`(register-definition-prefixes ,file ',(sort (delq nil strings)
|
||||
'string<))))))
|
||||
|
||||
(defun autoload--setup-output (otherbuf outbuf absfile load-name)
|
||||
(defun autoload--setup-output (otherbuf outbuf absfile load-name output-file)
|
||||
(let ((outbuf
|
||||
(or (if otherbuf
|
||||
;; A file-local setting of
|
||||
|
|
@ -618,7 +619,7 @@ Don't try to split prefixes that are already longer than that.")
|
|||
;; should ignore OUTBUF.
|
||||
nil
|
||||
outbuf)
|
||||
(autoload-find-destination absfile load-name)
|
||||
(autoload-find-destination absfile load-name output-file)
|
||||
;; The file has autoload cookies, but they're
|
||||
;; already up-to-date. If OUTFILE is nil, the
|
||||
;; entries are in the expected OUTBUF,
|
||||
|
|
@ -675,23 +676,16 @@ Don't try to split prefixes that are already longer than that.")
|
|||
More specifically those definitions will not be considered for the
|
||||
`register-definition-prefixes' call.")
|
||||
|
||||
;; When called from `generate-file-autoloads' we should ignore
|
||||
;; `generated-autoload-file' altogether. When called from
|
||||
;; `update-file-autoloads' we don't know `outbuf'. And when called from
|
||||
;; `update-directory-autoloads' it's in between: we know the default
|
||||
;; `outbuf' but we should obey any file-local setting of
|
||||
;; `generated-autoload-file'.
|
||||
(defun autoload-generate-file-autoloads (file &optional outbuf outfile)
|
||||
"Insert an autoload section for FILE in the appropriate buffer.
|
||||
Autoloads are generated for defuns and defmacros in FILE
|
||||
marked by `generate-autoload-cookie' (which see).
|
||||
|
||||
If FILE is being visited in a buffer, the contents of the buffer are used.
|
||||
OUTBUF is the buffer in which the autoload statements should be inserted.
|
||||
If OUTBUF is nil, it will be determined by `autoload-generated-file'.
|
||||
|
||||
If provided, OUTFILE is expected to be the file name of OUTBUF.
|
||||
If OUTFILE is non-nil and FILE specifies a `generated-autoload-file'
|
||||
different from OUTFILE, then OUTBUF is ignored.
|
||||
If OUTBUF is nil, the output will go to OUTFILE, unless there's a
|
||||
buffer-local setting of `generated-autoload-file' in FILE.
|
||||
|
||||
Return non-nil if and only if FILE adds no autoloads to OUTFILE
|
||||
\(or OUTBUF if OUTFILE is nil). The actual return value is
|
||||
|
|
@ -719,16 +713,19 @@ FILE's modification time."
|
|||
(setq load-name
|
||||
(if (stringp generated-autoload-load-name)
|
||||
generated-autoload-load-name
|
||||
(autoload-file-load-name absfile)))
|
||||
(autoload-file-load-name absfile outfile)))
|
||||
;; FIXME? Comparing file-names for equality with just equal
|
||||
;; is fragile, eg if one has an automounter prefix and one
|
||||
;; does not, but both refer to the same physical file.
|
||||
(when (and outfile
|
||||
(not outbuf)
|
||||
(not
|
||||
(if (memq system-type '(ms-dos windows-nt))
|
||||
(equal (downcase outfile)
|
||||
(downcase (autoload-generated-file)))
|
||||
(equal outfile (autoload-generated-file)))))
|
||||
(downcase (autoload-generated-file
|
||||
outfile)))
|
||||
(equal outfile (autoload-generated-file
|
||||
outfile)))))
|
||||
(setq otherbuf t))
|
||||
(save-excursion
|
||||
(save-restriction
|
||||
|
|
@ -742,7 +739,8 @@ FILE's modification time."
|
|||
(file-name-sans-extension
|
||||
(file-name-nondirectory file))))
|
||||
(setq output-start (autoload--setup-output
|
||||
otherbuf outbuf absfile load-name))
|
||||
otherbuf outbuf absfile
|
||||
load-name outfile))
|
||||
(let ((standard-output (marker-buffer output-start))
|
||||
(print-quoted t))
|
||||
(princ `(push (purecopy
|
||||
|
|
@ -760,7 +758,8 @@ FILE's modification time."
|
|||
;; If not done yet, figure out where to insert this text.
|
||||
(unless output-start
|
||||
(setq output-start (autoload--setup-output
|
||||
otherbuf outbuf absfile load-name)))
|
||||
otherbuf outbuf absfile
|
||||
load-name outfile)))
|
||||
(autoload--print-cookie-text output-start load-name file))
|
||||
((= (following-char) ?\;)
|
||||
;; Don't read the comment.
|
||||
|
|
@ -791,7 +790,7 @@ FILE's modification time."
|
|||
((not otherbuf)
|
||||
(unless output-start
|
||||
(setq output-start (autoload--setup-output
|
||||
nil outbuf absfile load-name)))
|
||||
nil outbuf absfile load-name outfile)))
|
||||
(let ((autoload-print-form-outbuf
|
||||
(marker-buffer output-start)))
|
||||
(autoload-print-form form)))
|
||||
|
|
@ -803,9 +802,8 @@ FILE's modification time."
|
|||
;; then passing otherbuf=nil is enough, but if
|
||||
;; outbuf is nil, that won't cut it, so we
|
||||
;; locally bind generated-autoload-file.
|
||||
(let ((generated-autoload-file
|
||||
(default-value 'generated-autoload-file)))
|
||||
(autoload--setup-output nil outbuf absfile load-name)))
|
||||
(autoload--setup-output nil outbuf absfile load-name
|
||||
outfile))
|
||||
(autoload-print-form-outbuf
|
||||
(marker-buffer other-output-start)))
|
||||
(autoload-print-form form)
|
||||
|
|
@ -927,19 +925,23 @@ Return FILE if there was no autoload cookie in it, else nil."
|
|||
(interactive (list (read-file-name "Update autoloads for file: ")
|
||||
current-prefix-arg
|
||||
(read-file-name "Write autoload definitions to file: ")))
|
||||
(let* ((generated-autoload-file (or outfile generated-autoload-file))
|
||||
(autoload-modified-buffers nil)
|
||||
(setq outfile (or outfile generated-autoload-file))
|
||||
(let* ((autoload-modified-buffers nil)
|
||||
;; We need this only if the output file handles more than one input.
|
||||
;; See https://debbugs.gnu.org/22213#38 and subsequent.
|
||||
(autoload-timestamps t)
|
||||
(no-autoloads (autoload-generate-file-autoloads file)))
|
||||
(no-autoloads (autoload-generate-file-autoloads
|
||||
file nil
|
||||
(if (local-variable-p 'generated-autoload-file)
|
||||
generated-autoload-file
|
||||
outfile))))
|
||||
(if autoload-modified-buffers
|
||||
(if save-after (autoload-save-buffers))
|
||||
(if (called-interactively-p 'interactive)
|
||||
(message "Autoload section for %s is up to date." file)))
|
||||
(if no-autoloads file)))
|
||||
|
||||
(defun autoload-find-destination (file load-name)
|
||||
(defun autoload-find-destination (file load-name output-file)
|
||||
"Find the destination point of the current buffer's autoloads.
|
||||
FILE is the file name of the current buffer.
|
||||
LOAD-NAME is the name as it appears in the output.
|
||||
|
|
@ -949,12 +951,12 @@ removes any prior now out-of-date autoload entries."
|
|||
(catch 'up-to-date
|
||||
(let* ((buf (current-buffer))
|
||||
(existing-buffer (if buffer-file-name buf))
|
||||
(output-file (autoload-generated-file))
|
||||
(output-file (autoload-generated-file output-file))
|
||||
(output-time (if (file-exists-p output-file)
|
||||
(file-attribute-modification-time
|
||||
(file-attributes output-file))))
|
||||
(found nil))
|
||||
(with-current-buffer (autoload-find-generated-file)
|
||||
(with-current-buffer (autoload-find-generated-file output-file)
|
||||
;; This is to make generated-autoload-file have Unix EOLs, so
|
||||
;; that it is portable to all platforms.
|
||||
(or (eq 0 (coding-system-eol-type buffer-file-coding-system))
|
||||
|
|
@ -1035,12 +1037,31 @@ The function does NOT recursively descend into subdirectories of the
|
|||
directory or directories specified.
|
||||
|
||||
In an interactive call, prompt for a default output file for the
|
||||
autoload definitions, and temporarily bind the variable
|
||||
`generated-autoload-file' to this value. When called from Lisp,
|
||||
use the existing value of `generated-autoload-file'. If any Lisp
|
||||
file binds `generated-autoload-file' as a file-local variable,
|
||||
write its autoloads into the specified file instead."
|
||||
autoload definitions. When called from Lisp, use the existing
|
||||
value of `generated-autoload-file'. If any Lisp file binds
|
||||
`generated-autoload-file' as a file-local variable, write its
|
||||
autoloads into the specified file instead."
|
||||
(declare (obsolete make-directory-autoloads "28.1"))
|
||||
(interactive "DUpdate autoloads from directory: ")
|
||||
(make-directory-autoloads
|
||||
dirs
|
||||
(if (called-interactively-p 'interactive)
|
||||
(read-file-name "Write autoload definitions to file: ")
|
||||
generated-autoload-file)))
|
||||
|
||||
;;;###autoload
|
||||
(defun make-directory-autoloads (dir output-file)
|
||||
"Update autoload definitions for Lisp files in the directories DIRS.
|
||||
DIR can be either a single directory or a list of
|
||||
directories. (The latter usage is discouraged.)
|
||||
|
||||
The autoloads will be written to OUTPUT-FILE. If any Lisp file
|
||||
binds `generated-autoload-file' as a file-local variable, write
|
||||
its autoloads into the specified file instead.
|
||||
|
||||
The function does NOT recursively descend into subdirectories of the
|
||||
directory or directories specified."
|
||||
(interactive "DUpdate autoloads from directory: \nFWrite to file: ")
|
||||
(let* ((files-re (let ((tmp nil))
|
||||
(dolist (suf (get-load-suffixes))
|
||||
;; We don't use module-file-suffix below because
|
||||
|
|
@ -1051,10 +1072,10 @@ write its autoloads into the specified file instead."
|
|||
(push suf tmp)))
|
||||
(concat "\\`[^=.].*" (regexp-opt tmp t) "\\'")))
|
||||
(files (apply #'nconc
|
||||
(mapcar (lambda (dir)
|
||||
(directory-files (expand-file-name dir)
|
||||
t files-re))
|
||||
dirs)))
|
||||
(mapcar (lambda (d)
|
||||
(directory-files (expand-file-name d)
|
||||
t files-re))
|
||||
(if (consp dir) dir (list dir)))))
|
||||
(done ()) ;Files processed; to remove duplicates.
|
||||
(changed nil) ;Non-nil if some change occurred.
|
||||
(last-time)
|
||||
|
|
@ -1062,16 +1083,12 @@ write its autoloads into the specified file instead."
|
|||
;; files because of file-local autoload-generated-file settings.
|
||||
(no-autoloads nil)
|
||||
(autoload-modified-buffers nil)
|
||||
(generated-autoload-file
|
||||
(if (called-interactively-p 'interactive)
|
||||
(read-file-name "Write autoload definitions to file: ")
|
||||
generated-autoload-file))
|
||||
(output-time
|
||||
(if (file-exists-p generated-autoload-file)
|
||||
(file-attribute-modification-time
|
||||
(file-attributes generated-autoload-file)))))
|
||||
(and (file-exists-p output-file)
|
||||
(file-attribute-modification-time
|
||||
(file-attributes output-file)))))
|
||||
|
||||
(with-current-buffer (autoload-find-generated-file)
|
||||
(with-current-buffer (autoload-find-generated-file output-file)
|
||||
(save-excursion
|
||||
;; Canonicalize file names and remove the autoload file itself.
|
||||
(setq files (delete (file-relative-name buffer-file-name)
|
||||
|
|
@ -1128,8 +1145,7 @@ write its autoloads into the specified file instead."
|
|||
(progress (make-progress-reporter
|
||||
(byte-compile-info
|
||||
(concat "Scraping files for "
|
||||
(file-relative-name
|
||||
generated-autoload-file)))
|
||||
(file-relative-name output-file)))
|
||||
0 (length files) nil 10))
|
||||
(file-count 0)
|
||||
file-time)
|
||||
|
|
@ -1207,7 +1223,7 @@ should be non-nil)."
|
|||
(let ((args command-line-args-left))
|
||||
(batch-update-autoloads--summary args)
|
||||
(setq command-line-args-left nil)
|
||||
(apply #'update-directory-autoloads args)))
|
||||
(make-directory-autoloads args generated-autoload-file)))
|
||||
|
||||
(provide 'autoload)
|
||||
|
||||
|
|
|
|||
|
|
@ -922,11 +922,15 @@ Output stream used is value of `standard-output'."
|
|||
(princ (backtrace-to-string (backtrace-get-frames 'backtrace)))
|
||||
nil)
|
||||
|
||||
(defun backtrace-to-string(&optional frames)
|
||||
(defun backtrace-to-string (&optional frames)
|
||||
"Format FRAMES, a list of `backtrace-frame' objects, for output.
|
||||
Return the result as a string. If FRAMES is nil, use all
|
||||
function calls currently active."
|
||||
(unless frames (setq frames (backtrace-get-frames 'backtrace-to-string)))
|
||||
(substring-no-properties
|
||||
(backtrace--to-string
|
||||
(or frames (backtrace-get-frames 'backtrace-to-string)))))
|
||||
|
||||
(defun backtrace--to-string (frames)
|
||||
(let ((backtrace-fontify nil))
|
||||
(with-temp-buffer
|
||||
(backtrace-mode)
|
||||
|
|
@ -934,8 +938,7 @@ function calls currently active."
|
|||
backtrace-frames frames
|
||||
backtrace-print-function #'cl-prin1)
|
||||
(backtrace-print)
|
||||
(substring-no-properties (filter-buffer-substring (point-min)
|
||||
(point-max))))))
|
||||
(filter-buffer-substring (point-min) (point-max)))))
|
||||
|
||||
(provide 'backtrace)
|
||||
|
||||
|
|
|
|||
|
|
@ -3255,7 +3255,8 @@ for symbols generated by the byte compiler itself."
|
|||
(t "."))))
|
||||
(if (eq (car-safe (symbol-function (car form))) 'macro)
|
||||
(byte-compile-report-error
|
||||
(format "Forgot to expand macro %s in %S" (car form) form)))
|
||||
(format "`%s' defined after use in %S (missing `require' of a library file?)"
|
||||
(car form) form)))
|
||||
(if (and handler
|
||||
;; Make sure that function exists.
|
||||
(and (functionp handler)
|
||||
|
|
|
|||
|
|
@ -2999,7 +2999,7 @@ Supported keywords for slots are:
|
|||
constrs))
|
||||
(pcase-dolist (`(,cname ,args ,doc) constrs)
|
||||
(let* ((anames (cl--arglist-args args))
|
||||
(make (cl-mapcar (function (lambda (s d) (if (memq s anames) s d)))
|
||||
(make (cl-mapcar (lambda (s d) (if (memq s anames) s d))
|
||||
slots defaults))
|
||||
;; `cl-defsubst' is fundamentally broken: it substitutes
|
||||
;; its arguments into the body's `sexp' much too naively
|
||||
|
|
|
|||
|
|
@ -320,6 +320,17 @@ the debugger will not be entered."
|
|||
(message "Error in debug printer: %S" err)
|
||||
(prin1 obj stream))))
|
||||
|
||||
(make-obsolete 'debugger-insert-backtrace
|
||||
"use a `backtrace-mode' buffer or `backtrace-to-string'."
|
||||
"Emacs 27.1")
|
||||
|
||||
(defun debugger-insert-backtrace (frames do-xrefs)
|
||||
"Format and insert the backtrace FRAMES at point.
|
||||
Make functions into cross-reference buttons if DO-XREFS is non-nil."
|
||||
(insert (if do-xrefs
|
||||
(backtrace--to-string frames)
|
||||
(backtrace-to-string frames))))
|
||||
|
||||
(defun debugger-setup-buffer (args)
|
||||
"Initialize the `*Backtrace*' buffer for entry to the debugger.
|
||||
That buffer should be current already and in debugger-mode."
|
||||
|
|
@ -527,6 +538,9 @@ The environment used is the one when entering the activation frame at point."
|
|||
(let ((str (eval-expression-print-format val)))
|
||||
(if str (princ str t))))))))
|
||||
|
||||
(define-obsolete-function-alias 'debugger-toggle-locals
|
||||
'backtrace-toggle-locals "28.1")
|
||||
|
||||
|
||||
(defvar debugger-mode-map
|
||||
(let ((map (make-keymap)))
|
||||
|
|
@ -621,6 +635,9 @@ Complete list of commands:
|
|||
(buffer-substring (line-beginning-position 0)
|
||||
(line-end-position 0)))))
|
||||
|
||||
(define-obsolete-function-alias 'debug-help-follow
|
||||
'backtrace-help-follow-symbol "28.1")
|
||||
|
||||
|
||||
;; When you change this, you may also need to change the number of
|
||||
;; frames that the debugger skips.
|
||||
|
|
|
|||
|
|
@ -201,7 +201,7 @@ This is used with the `object-write' method.")
|
|||
"Saving this object should make backup files.
|
||||
Setting to nil will mean no backups are made."))
|
||||
"This special class enables persistence through save files
|
||||
Use the `object-save' method to write this object to disk. The save
|
||||
Use the `object-write' method to write this object to disk. The save
|
||||
format is Emacs Lisp code which calls the constructor for the saved
|
||||
object. For this reason, only slots which do not have an `:initarg'
|
||||
specified will not be saved."
|
||||
|
|
|
|||
|
|
@ -736,7 +736,7 @@ run. ARGS are the arguments to `debugger'."
|
|||
;; This means we have to limit `print-level' and
|
||||
;; `print-length' when printing result objects. That
|
||||
;; might not be worth while when we can also use
|
||||
;; `ert-results-rerun-test-debugging-errors-at-point',
|
||||
;; `ert-results-rerun-test-at-point-debugging-errors',
|
||||
;; (i.e., when running interactively) but having the
|
||||
;; backtrace ready for printing is important for batch
|
||||
;; use.
|
||||
|
|
@ -958,7 +958,7 @@ 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 cases in
|
||||
;; `ert-insert-human-readable-selector'.
|
||||
;; `ert--insert-human-readable-selector'.
|
||||
(pcase-exhaustive selector
|
||||
('nil nil)
|
||||
('t (pcase-exhaustive universe
|
||||
|
|
|
|||
|
|
@ -117,7 +117,7 @@ instead (which see).")
|
|||
"Create a new generic mode MODE.
|
||||
|
||||
A \"generic\" mode is a simple major mode with basic support for
|
||||
comment syntax and Font Lock mode, but otherwise do not have a
|
||||
comment syntax and Font Lock mode, but otherwise does not have
|
||||
any special keystrokes or functionality available.
|
||||
|
||||
MODE is the name of the command for the generic mode; don't quote it.
|
||||
|
|
|
|||
|
|
@ -1013,7 +1013,6 @@ untar into a directory named DIR; otherwise, signal an error."
|
|||
(write-region (autoload-rubric file "package" nil) nil file nil 'silent))
|
||||
file)
|
||||
|
||||
(defvar generated-autoload-file)
|
||||
(defvar autoload-timestamps)
|
||||
(defvar version-control)
|
||||
|
||||
|
|
@ -1021,14 +1020,14 @@ untar into a directory named DIR; otherwise, signal an error."
|
|||
"Generate autoloads in PKG-DIR for package named NAME."
|
||||
(let* ((auto-name (format "%s-autoloads.el" name))
|
||||
;;(ignore-name (concat name "-pkg.el"))
|
||||
(generated-autoload-file (expand-file-name auto-name pkg-dir))
|
||||
(output-file (expand-file-name auto-name pkg-dir))
|
||||
;; We don't need 'em, and this makes the output reproducible.
|
||||
(autoload-timestamps nil)
|
||||
(backup-inhibited t)
|
||||
(version-control 'never))
|
||||
(package-autoload-ensure-default-file generated-autoload-file)
|
||||
(update-directory-autoloads pkg-dir)
|
||||
(let ((buf (find-buffer-visiting generated-autoload-file)))
|
||||
(package-autoload-ensure-default-file output-file)
|
||||
(make-directory-autoloads pkg-dir output-file)
|
||||
(let ((buf (find-buffer-visiting output-file)))
|
||||
(when buf (kill-buffer buf)))
|
||||
auto-name))
|
||||
|
||||
|
|
@ -3623,7 +3622,7 @@ This is used for `tabulated-list-format' in `package-menu-mode'."
|
|||
(string< a b))))
|
||||
|
||||
(defun package-menu--populate-new-package-list ()
|
||||
"Decide which packages are new in `package-archives-contents'.
|
||||
"Decide which packages are new in `package-archive-contents'.
|
||||
Store this list in `package-menu--new-package-list'."
|
||||
;; Find which packages are new.
|
||||
(when package-menu--old-archive-contents
|
||||
|
|
|
|||
|
|
@ -301,7 +301,7 @@ Except for Lisp syntax this is the same as `reb-regexp'.")
|
|||
"Keymap used by the RE Builder for the subexpression mode.")
|
||||
|
||||
(defun reb-mode-common ()
|
||||
"Setup functions common to functions `reb-mode' and `reb-mode-lisp'."
|
||||
"Setup functions common to functions `reb-mode' and `reb-lisp-mode'."
|
||||
|
||||
(setq reb-mode-string ""
|
||||
reb-valid-string ""
|
||||
|
|
@ -513,7 +513,7 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
|
|||
(reb-update-overlays subexp))
|
||||
|
||||
(defun reb-auto-update (_beg _end _lenold &optional force)
|
||||
"Called from `after-update-functions' to update the display.
|
||||
"Called from `after-change-functions' to update the display.
|
||||
BEG, END and LENOLD are passed in from the hook.
|
||||
An actual update is only done if the regexp has changed or if the
|
||||
optional fourth argument FORCE is non-nil."
|
||||
|
|
|
|||
|
|
@ -1379,9 +1379,10 @@ the prefix fallback behavior."
|
|||
|
||||
(cond
|
||||
(cua-mode
|
||||
(setq cua--saved-state
|
||||
(list
|
||||
(and (boundp 'delete-selection-mode) delete-selection-mode)))
|
||||
(unless cua--saved-state
|
||||
(setq cua--saved-state
|
||||
(list
|
||||
(and (boundp 'delete-selection-mode) delete-selection-mode))))
|
||||
(if cua-delete-selection
|
||||
(delete-selection-mode 1)
|
||||
(if (and (boundp 'delete-selection-mode) delete-selection-mode)
|
||||
|
|
|
|||
|
|
@ -735,7 +735,7 @@ If command is repeated at same position, delete the rectangle."
|
|||
(setq cua--last-killed-rectangle (cons (and kill-ring (car kill-ring)) killed-rectangle))
|
||||
(if ring
|
||||
(kill-new (mapconcat
|
||||
(function (lambda (row) (concat row "\n")))
|
||||
(lambda (row) (concat row "\n"))
|
||||
killed-rectangle "")))))
|
||||
|
||||
(defun cua--activate-rectangle ()
|
||||
|
|
@ -1071,7 +1071,7 @@ The text previously in the rectangle is overwritten by the blanks."
|
|||
(cua--copy-rectangle-to-global-mark t))
|
||||
(let* ((rect (cua--extract-rectangle))
|
||||
(text (mapconcat
|
||||
(function (lambda (row) (concat row "\n")))
|
||||
(lambda (row) (concat row "\n"))
|
||||
rect "")))
|
||||
(setq arg (cua--prefix-arg arg))
|
||||
(if cua--register
|
||||
|
|
|
|||
|
|
@ -49,6 +49,13 @@
|
|||
(defvar epa-mail-mode-on-hook nil)
|
||||
(defvar epa-mail-mode-off-hook nil)
|
||||
|
||||
(defcustom epa-mail-offer-skip t
|
||||
"If non-nil, when a recipient has no key, ask whether to skip it.
|
||||
Otherwise, signal an error."
|
||||
:type 'boolean
|
||||
:version "28.1"
|
||||
:group 'epa-mail)
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode epa-mail-mode
|
||||
"A minor-mode for composing encrypted/clearsigned mails."
|
||||
|
|
@ -218,10 +225,12 @@ If no one is selected, symmetric encryption will be performed. "
|
|||
recipient))
|
||||
'encrypt)))
|
||||
(unless (or recipient-key
|
||||
(y-or-n-p
|
||||
(format
|
||||
"No public key for %s; skip it? "
|
||||
recipient)))
|
||||
(and epa-mail-offer-skip
|
||||
(y-or-n-p
|
||||
(format
|
||||
"No public key for %s; skip it? "
|
||||
recipient)))
|
||||
)
|
||||
(error "No public key for %s" recipient))
|
||||
(if recipient-key (list recipient-key))))
|
||||
default-recipients)))))
|
||||
|
|
|
|||
51
lisp/epa.el
51
lisp/epa.el
|
|
@ -435,33 +435,34 @@ q trust status questionable. - trust status unspecified.
|
|||
(unless (and epa-keys-buffer
|
||||
(buffer-live-p epa-keys-buffer))
|
||||
(setq epa-keys-buffer (generate-new-buffer "*Keys*")))
|
||||
(with-current-buffer epa-keys-buffer
|
||||
(epa-key-list-mode)
|
||||
;; C-c C-c is the usual way to finish the selection (bug#11159).
|
||||
(define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit)
|
||||
(let ((inhibit-read-only t)
|
||||
buffer-read-only)
|
||||
(erase-buffer)
|
||||
(insert prompt "\n"
|
||||
(substitute-command-keys "\
|
||||
(save-window-excursion
|
||||
(with-current-buffer epa-keys-buffer
|
||||
(epa-key-list-mode)
|
||||
;; C-c C-c is the usual way to finish the selection (bug#11159).
|
||||
(define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit)
|
||||
(let ((inhibit-read-only t)
|
||||
buffer-read-only)
|
||||
(erase-buffer)
|
||||
(insert prompt "\n"
|
||||
(substitute-command-keys "\
|
||||
- `\\[epa-mark-key]' to mark a key on the line
|
||||
- `\\[epa-unmark-key]' to unmark a key on the line\n"))
|
||||
(insert-button "[Cancel]"
|
||||
'action (lambda (_button) (abort-recursive-edit)))
|
||||
(insert " ")
|
||||
(insert-button "[OK]"
|
||||
'action (lambda (_button) (exit-recursive-edit)))
|
||||
(insert "\n\n")
|
||||
(epa--insert-keys keys)
|
||||
(setq epa-exit-buffer-function #'abort-recursive-edit)
|
||||
(goto-char (point-min))
|
||||
(let ((display-buffer-mark-dedicated 'soft))
|
||||
(pop-to-buffer (current-buffer))))
|
||||
(unwind-protect
|
||||
(progn
|
||||
(recursive-edit)
|
||||
(epa--marked-keys))
|
||||
(kill-buffer epa-keys-buffer))))
|
||||
(insert-button "[Cancel]"
|
||||
'action (lambda (_button) (abort-recursive-edit)))
|
||||
(insert " ")
|
||||
(insert-button "[OK]"
|
||||
'action (lambda (_button) (exit-recursive-edit)))
|
||||
(insert "\n\n")
|
||||
(epa--insert-keys keys)
|
||||
(setq epa-exit-buffer-function #'abort-recursive-edit)
|
||||
(goto-char (point-min))
|
||||
(let ((display-buffer-mark-dedicated 'soft))
|
||||
(pop-to-buffer (current-buffer))))
|
||||
(unwind-protect
|
||||
(progn
|
||||
(recursive-edit)
|
||||
(epa--marked-keys))
|
||||
(kill-buffer epa-keys-buffer)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun epa-select-keys (context prompt &optional names secret)
|
||||
|
|
|
|||
|
|
@ -7296,7 +7296,7 @@
|
|||
again.
|
||||
(erc): Require cl for delete-if.
|
||||
(erc-button-remove-old-buttons): Rewrote using delete-if to
|
||||
prevent excesive consing. Having the marker list is still ugly,
|
||||
prevent excessive consing. Having the marker list is still ugly,
|
||||
so another solution needs to be found.
|
||||
|
||||
2003-01-17 Jorgen Schaefer <forcer@users.sourceforge.net>
|
||||
|
|
@ -10260,7 +10260,7 @@
|
|||
Upcased the command defuns (erc-cmd-join is now erc-cmd-JOIN)
|
||||
Fixed erc-complete to not require erc-command-table.
|
||||
Implemented erc-cmd-HELP
|
||||
(You have to try that, its tooo coool!)
|
||||
(You have to try that, its too coool!)
|
||||
e.g. /help auto-q
|
||||
fixed autoloads for erc-add-pal and so on to be interactive.
|
||||
|
||||
|
|
@ -11242,7 +11242,7 @@
|
|||
2001-10-29 Mario Lang <mlang@delysid.org>
|
||||
|
||||
* erc.el:
|
||||
Imenu fixed somehow, added IRC services interactive function for indentify to NickServ. Read the diff
|
||||
Imenu fixed somehow, added IRC services interactive function for identify to NickServ. Read the diff
|
||||
|
||||
2001-10-26 Gergely Nagy <algernon@debian.org>
|
||||
|
||||
|
|
@ -11316,7 +11316,7 @@
|
|||
|
||||
* erc-speak.el:
|
||||
* Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons,
|
||||
it's reallllly cool now!!!
|
||||
it's really cool now!!!
|
||||
|
||||
* erc-speak.el: *** empty log message ***
|
||||
|
||||
|
|
|
|||
|
|
@ -198,12 +198,12 @@ PAR is a number of a regexp grouping whose text will be passed to
|
|||
:inline t
|
||||
(integer :tag "Regexp section number")))))
|
||||
|
||||
(defcustom erc-emacswiki-url "http://www.emacswiki.org/cgi-bin/wiki.pl?"
|
||||
(defcustom erc-emacswiki-url "https://www.emacswiki.org/cgi-bin/wiki.pl?"
|
||||
"URL of the EmacsWiki Homepage."
|
||||
:group 'erc-button
|
||||
:type 'string)
|
||||
|
||||
(defcustom erc-emacswiki-lisp-url "http://www.emacswiki.org/elisp/"
|
||||
(defcustom erc-emacswiki-lisp-url "https://www.emacswiki.org/elisp/"
|
||||
"URL of the EmacsWiki ELisp area."
|
||||
:group 'erc-button
|
||||
:type 'string)
|
||||
|
|
|
|||
|
|
@ -860,7 +860,7 @@ is in `erc-mode'."
|
|||
|
||||
(defvar erc-track-last-non-erc-buffer nil
|
||||
"Stores the name of the last buffer you were in before activating
|
||||
`erc-track-switch-buffers'.")
|
||||
`erc-track-switch-buffer'.")
|
||||
|
||||
(defun erc-track-sort-by-activest ()
|
||||
"Sort erc-modified-channels-alist by activity.
|
||||
|
|
|
|||
|
|
@ -5039,7 +5039,7 @@ information if it is not already present in the user or channel
|
|||
lists.
|
||||
|
||||
If, and only if, changes are made, or the user is added,
|
||||
`erc-channel-members-updated-hook' is run, and t is returned.
|
||||
`erc-channel-members-changed-hook' is run, and t is returned.
|
||||
|
||||
See also: `erc-update-user' and `erc-update-channel-member'."
|
||||
(let* (changed user-changed
|
||||
|
|
@ -6072,7 +6072,7 @@ Sets the buffer local variables:
|
|||
- `erc-session-connector'
|
||||
- `erc-session-server'
|
||||
- `erc-session-port'
|
||||
- `erc-session-full-name'
|
||||
- `erc-session-user-full-name'
|
||||
- `erc-server-current-nick'"
|
||||
(setq erc-session-connector erc-server-connect-function
|
||||
erc-session-server (erc-compute-server server)
|
||||
|
|
|
|||
|
|
@ -534,7 +534,7 @@ list."
|
|||
string)))
|
||||
|
||||
(defun eshell-directory-files-and-attributes (dir &optional full match nosort id-format)
|
||||
"Make sure to use the handler for `directory-file-and-attributes'."
|
||||
"Make sure to use the handler for `directory-files-and-attributes'."
|
||||
(let* ((dir (expand-file-name dir)))
|
||||
(if (string-equal (file-remote-p dir 'method) "ftp")
|
||||
(let ((files (directory-files dir full match nosort)))
|
||||
|
|
|
|||
|
|
@ -463,8 +463,8 @@ Possible options are:
|
|||
(eshell-as-subcommand ,(eshell-parse-command cmd))
|
||||
(ignore
|
||||
(nconc eshell-this-command-hook
|
||||
(list (function (lambda ()
|
||||
(delete-file ,temp))))))
|
||||
(list (lambda ()
|
||||
(delete-file ,temp)))))
|
||||
(quote ,temp)))
|
||||
(goto-char (1+ end)))))))
|
||||
((eq (char-after) ?\()
|
||||
|
|
|
|||
|
|
@ -1770,7 +1770,7 @@ If FRAME is nil, that stands for the selected frame."
|
|||
(defun defined-colors-with-face-attributes (&optional frame)
|
||||
"Return a list of colors supported for a particular frame.
|
||||
See `defined-colors' for arguments and return value. In contrast
|
||||
to `define-colors' the elements of the returned list are color
|
||||
to `defined-colors' the elements of the returned list are color
|
||||
strings with text properties, that make the color names render
|
||||
with the color they represent as background color."
|
||||
(mapcar
|
||||
|
|
|
|||
|
|
@ -172,7 +172,7 @@ well-formed, such as \"user@host\" or \"<user@host>\"."
|
|||
:version "25.2") ; nil -> t
|
||||
|
||||
(defcustom ffap-ftp-default-user "anonymous"
|
||||
"User name in FTP file names generated by `ffap-host-to-path'.
|
||||
"User name in FTP file names generated by `ffap-host-to-filename'.
|
||||
Note this name may be omitted if it equals the default
|
||||
\(either `efs-default-user' or `ange-ftp-default-user')."
|
||||
:type 'string
|
||||
|
|
|
|||
|
|
@ -46,7 +46,7 @@
|
|||
;; * `file-cache-add-file-list': Adds a list of files to the cache
|
||||
;;
|
||||
;; The following functions use the regular expressions in
|
||||
;; `file-cache-delete-regexps' to eliminate unwanted files:
|
||||
;; `file-cache-filter-regexps' to eliminate unwanted files:
|
||||
;;
|
||||
;; * `file-cache-add-directory': Adds the files in a directory to the
|
||||
;; cache. You can also specify a regular expression to match the files
|
||||
|
|
|
|||
|
|
@ -1395,7 +1395,7 @@ it means chase no more than that many links and then stop."
|
|||
newname))
|
||||
|
||||
;; A handy function to display file sizes in human-readable form.
|
||||
;; See http://en.wikipedia.org/wiki/Kibibyte for the reference.
|
||||
;; See https://en.wikipedia.org/wiki/Kibibyte for the reference.
|
||||
(defun file-size-human-readable (file-size &optional flavor space unit)
|
||||
"Produce a string showing FILE-SIZE in human-readable form.
|
||||
|
||||
|
|
@ -7779,7 +7779,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions,
|
|||
(let (delete-by-moving-to-trash)
|
||||
(rename-file fn new-fn))))
|
||||
;; Otherwise, use the freedesktop.org method, as specified at
|
||||
;; http://freedesktop.org/wiki/Specifications/trash-spec
|
||||
;; https://freedesktop.org/wiki/Specifications/trash-spec
|
||||
(t
|
||||
(let* ((xdg-data-dir
|
||||
(directory-file-name
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@
|
|||
|
||||
;; BTW, if you close a fileset, files, which have been changed, will
|
||||
;; be silently saved. Change this behavior by setting
|
||||
;; `filesets-save-buffer-fn'.
|
||||
;; `filesets-save-buffer-function'.
|
||||
|
||||
;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'):
|
||||
;; - Elisp
|
||||
|
|
|
|||
|
|
@ -109,8 +109,8 @@
|
|||
;; file.
|
||||
|
||||
;; CREDITS:
|
||||
;; Many thanks go to TUSC Computer Systems Pty Ltd for providing an environ-
|
||||
;; ment that made the development of this package possible.
|
||||
;; Many thanks go to TUSC Computer Systems Pty Ltd for providing an
|
||||
;; environment that made the development of this package possible.
|
||||
;;
|
||||
;; Many thanks also go to all those who provided valuable feedback throughout
|
||||
;; the development of this package:
|
||||
|
|
|
|||
|
|
@ -113,7 +113,7 @@
|
|||
;; whatever you would like to do. These functions are then added to
|
||||
;; a hook.
|
||||
;;
|
||||
;; The keymap `follow-key-map' contains key bindings activated by
|
||||
;; The keymap `follow-mode-map' contains key bindings activated by
|
||||
;; `follow-mode'.
|
||||
;;
|
||||
;; Example:
|
||||
|
|
@ -356,7 +356,7 @@ property `follow-mode-use-cache' to non-nil.")
|
|||
Used by `follow-window-size-change'.")
|
||||
|
||||
(defvar follow-windows-start-end-cache nil
|
||||
"Cache used by `follow-window-start-end'.")
|
||||
"Cache used by `follow-window-start' and `follow-window-end'.")
|
||||
|
||||
(defvar follow-fixed-window nil
|
||||
"If non-nil, the current window must not be scrolled.
|
||||
|
|
|
|||
|
|
@ -822,7 +822,7 @@ happens, so the major mode can be corrected."
|
|||
;; `font-lock-keywords-alist'.
|
||||
(when top-cell
|
||||
(dolist (keyword-list-how-pair (cdr top-cell))
|
||||
;; `keywords-list-how-pair' is a cons with a list of
|
||||
;; `keyword-list-how-pair' is a cons with a list of
|
||||
;; keywords in the car top-cell and the original how
|
||||
;; argument in the cdr top-cell.
|
||||
(setcar keyword-list-how-pair
|
||||
|
|
|
|||
|
|
@ -286,7 +286,7 @@
|
|||
;; record.
|
||||
;;
|
||||
;; `write-file-functions' is defined to save the actual data file
|
||||
;; instead of the buffer data, `revert-file-hook' is defined to
|
||||
;; instead of the buffer data, `revert-buffer-function' is defined to
|
||||
;; revert a forms to original.
|
||||
|
||||
;;; Code:
|
||||
|
|
|
|||
|
|
@ -3378,7 +3378,7 @@
|
|||
|
||||
* gnus-async.el (gnus-asynchronous): Move defcustom of
|
||||
gnus-asynchronous away from defgroup of gnus-asynchronous.
|
||||
This seems to fix an intermittant error in which loading gnus-async
|
||||
This seems to fix an intermittent error in which loading gnus-async
|
||||
fails to define gnus-asynchronous (the variable).
|
||||
|
||||
* gnus-sum.el: Concur with Steve Young, 5th argument to 'load' is
|
||||
|
|
@ -7096,7 +7096,7 @@
|
|||
* nnimap.el (nnimap-callback-callback-function):
|
||||
(nnimap-callback-buffer): Remove, these cannot be global but must
|
||||
be embedded into the callback.
|
||||
(nnimap-make-callback): New. Embedd article number, callback and
|
||||
(nnimap-make-callback): New. Embed article number, callback and
|
||||
buffer in function.
|
||||
(nnimap-callback, nnimap-request-article-part): Update.
|
||||
|
||||
|
|
@ -8031,7 +8031,7 @@
|
|||
(message-xpost-fup2-header, message-xpost-insert-note)
|
||||
(message-xpost-fup2, message-reduce-to-to-cc): New functions
|
||||
adopted from message-utils.el. Add functions to the keymap, mode
|
||||
describtion and menu.
|
||||
description and menu.
|
||||
(message-change-subject, message-xpost-fup2): Signal error if
|
||||
current header is empty.
|
||||
(message-xpost-insert-note): Change insert position.
|
||||
|
|
@ -8612,7 +8612,7 @@
|
|||
2002-06-11 Simon Josefsson <jas@extundo.com>
|
||||
|
||||
* gnus-int.el (gnus-request-move-article): Agent expire article if
|
||||
successfuly moved.
|
||||
successfully moved.
|
||||
|
||||
2002-06-11 Niklas Morberg <niklas.morberg@axis.com>
|
||||
|
||||
|
|
@ -9073,7 +9073,7 @@
|
|||
|
||||
2002-04-13 Josh Huber <huber@alum.wpi.edu>
|
||||
|
||||
* mml-sec.el (mml-secure-message): Change to support arbritrary
|
||||
* mml-sec.el (mml-secure-message): Change to support arbitrary
|
||||
modes.
|
||||
* mml-sec.el (mml-secure-message-encrypt-(smime|pgp|pgpmime)):
|
||||
changed to support "signencrypt" mode.
|
||||
|
|
|
|||
|
|
@ -170,7 +170,7 @@
|
|||
2015-02-09 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* mm-decode.el (mm-convert-shr-links): Don't overwrite the faces from
|
||||
shr, beacause that breaks folding.
|
||||
shr, because that breaks folding.
|
||||
(mm-shr): Don't shorten the width when using fonts.
|
||||
|
||||
2015-02-05 Teodor Zlatanov <tzz@lifelogs.com>
|
||||
|
|
@ -596,7 +596,7 @@
|
|||
|
||||
2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-art.el (gnus-article-edit-part): Don't modifiy markers.
|
||||
* gnus-art.el (gnus-article-edit-part): Don't modify markers.
|
||||
(gnus-article-read-summary-keys):
|
||||
Don't bug out when there is no article in the summary buffer.
|
||||
(gnus-mime-buttonize-attachments-in-header):
|
||||
|
|
@ -1318,7 +1318,7 @@
|
|||
2013-08-06 Jan Tatarik <jan.tatarik@gmail.com>
|
||||
|
||||
* gnus-icalendar.el (gnus-icalendar-event-from-ical): Replace pcase
|
||||
with cond for backwards compatability.
|
||||
with cond for backwards compatibility.
|
||||
|
||||
2013-08-06 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
|
|
@ -2221,7 +2221,7 @@
|
|||
|
||||
2013-04-04 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* mml.el (mml-minibuffer-read-description): Use `default' insted of
|
||||
* mml.el (mml-minibuffer-read-description): Use `default' instead of
|
||||
`initial-input' for the argument name.
|
||||
Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
|
||||
|
||||
|
|
@ -5541,7 +5541,7 @@
|
|||
(registry-prune-hard): Use it.
|
||||
|
||||
* gnus-registry.el (gnus-registry-fixup-registry): Set prune-factor to
|
||||
0.1 expicitly.
|
||||
0.1 explicitly.
|
||||
|
||||
2011-05-13 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
|
|
@ -8758,7 +8758,7 @@
|
|||
|
||||
* shr.el (shr-generic): The text nodes should be text, not :text.
|
||||
|
||||
* nnir.el (nnir-search-engine): Ressurect variable, since it's used
|
||||
* nnir.el (nnir-search-engine): Resurrect variable, since it's used
|
||||
later in the file.
|
||||
|
||||
2010-10-30 Andrew Cohen <cohen@andy.bu.edu>
|
||||
|
|
@ -9481,7 +9481,7 @@
|
|||
nil.
|
||||
|
||||
* gnus-start.el (gnus-get-unread-articles): Require gnus-agent before
|
||||
bidning gnus-agent variables.
|
||||
binding gnus-agent variables.
|
||||
|
||||
* shr.el (shr-render-td): Use a cache for the table rendering function
|
||||
to avoid getting an exponential rendering behavior in nested tables.
|
||||
|
|
@ -11849,7 +11849,7 @@
|
|||
|
||||
2010-08-13 Teodor Zlatanov <tzz@lifelogs.com>
|
||||
|
||||
Doc fixes and keep unknown groups (ammended for nunion bug fix).
|
||||
Doc fixes and keep unknown groups (amended for nunion bug fix).
|
||||
|
||||
* gnus-sync.el: Fix docs.
|
||||
(gnus-sync-save): Keep unknown groups in `gnus-sync-newsrc-loader'.
|
||||
|
|
@ -18925,7 +18925,7 @@
|
|||
* message.el: Autoload gmm-image-load-path.
|
||||
(message-tool-bar-retro): Prepend "gnus/" subdirectory to some
|
||||
icon file names. Use old Emacs 21 "mail_send.xpm" icon for
|
||||
consitency.
|
||||
consistency.
|
||||
|
||||
* gmm-utils.el (gmm-image-load-path): Also search in
|
||||
"../etc/images". Don't set gmm-image-load-path if we don't find
|
||||
|
|
@ -19523,7 +19523,7 @@
|
|||
|
||||
* nnml.el: Don't require gnus-bcklg. Autoload it.
|
||||
(nnml-use-compressed-files, nnml-save-mail): Support other
|
||||
comression programs such as bzip2.
|
||||
compression programs such as bzip2.
|
||||
|
||||
2005-12-17 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
@ -21227,7 +21227,7 @@
|
|||
(nntp-with-open-group): Allow debugging.
|
||||
|
||||
* nnheader.el (mail-header-set-extra): Make into a function
|
||||
because I just could't understand how to quote the list properly.
|
||||
because I just couldn't understand how to quote the list properly.
|
||||
|
||||
* dns.el (query-dns-cached): New function.
|
||||
|
||||
|
|
@ -24966,7 +24966,7 @@
|
|||
functions as needing (default), or not needing,
|
||||
gnus-convert-old-newsrc's "backup before upgrading warning".
|
||||
(gnus-convert-converter-needs-prompt): Tests whether the user
|
||||
should be protected from potentially irreversable changes by the
|
||||
should be protected from potentially irreversible changes by the
|
||||
function.
|
||||
|
||||
* legacy-gnus-agent.el: New. Provides converters that are only
|
||||
|
|
|
|||
|
|
@ -1368,7 +1368,11 @@ CRLF (RFC 5321 SMTP)."
|
|||
;; input (3.1, 3.3)
|
||||
;; - if line-length is set, error on input exceeding the limit (3.1)
|
||||
;; - reject characters outside base encoding (3.3, also section 12)
|
||||
(let ((splitstr (split-string str "[\n\r \t]+" t)))
|
||||
;;
|
||||
;; RFC 5322 section 2.2.3 consideration:
|
||||
;; Because base 64-encoded strings can appear in long header fields, remove
|
||||
;; folding whitespace while still observing the RFC 4648 decisions above.
|
||||
(let ((splitstr (split-string str "[ \t]*[\r\n]+[ \t]?" t)))
|
||||
(when (and reject-newlines (> (length splitstr) 1))
|
||||
(error "Invalid Base64 string"))
|
||||
(dolist (substr splitstr)
|
||||
|
|
@ -1424,7 +1428,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
|
|||
(autoload 'ido-completing-read "ido")
|
||||
(defun gnus-ido-completing-read (prompt collection &optional require-match
|
||||
initial-input history def)
|
||||
"Call `ido-completing-read-function'."
|
||||
"Call `ido-completing-read'."
|
||||
(ido-completing-read prompt collection nil require-match
|
||||
initial-input history def))
|
||||
|
||||
|
|
|
|||
|
|
@ -5659,7 +5659,7 @@ The result is a fixnum."
|
|||
(mail-file-babyl-p filename))
|
||||
;; gnus-output-to-mail does the wrong thing with live, mbox
|
||||
;; Rmail buffers in Emacs 23.
|
||||
;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255
|
||||
;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255
|
||||
(let ((buff (find-buffer-visiting filename)))
|
||||
(and buff (with-current-buffer buff
|
||||
(eq major-mode 'rmail-mode)))))
|
||||
|
|
@ -8100,7 +8100,7 @@ See `gmm-tool-bar-from-list' for the format of the list."
|
|||
(library image &optional path no-error))
|
||||
|
||||
(defun message-make-tool-bar (&optional force)
|
||||
"Make a message mode tool bar from `message-tool-bar-list'.
|
||||
"Make a message mode tool bar from `message-tool-bar'.
|
||||
When FORCE, rebuild the tool bar."
|
||||
(when (and (boundp 'tool-bar-mode)
|
||||
tool-bar-mode
|
||||
|
|
@ -8591,7 +8591,7 @@ Meant for use on `completion-at-point-functions'."
|
|||
|
||||
;; FIXME: What is the most common term (circular letter, form letter, serial
|
||||
;; letter, standard letter) for such kind of letter? See also
|
||||
;; <http://en.wikipedia.org/wiki/Form_letter>
|
||||
;; <https://en.wikipedia.org/wiki/Form_letter>
|
||||
|
||||
;; FIXME: Maybe extent message-mode's font-lock support to recognize
|
||||
;; `message-form-letter-separator', i.e. highlight each message like a single
|
||||
|
|
|
|||
|
|
@ -70,7 +70,7 @@
|
|||
(mm-coding-system-p 'cp932))
|
||||
'((windows-31j . cp932)))
|
||||
;; Charset name: GBK, Charset aliases: CP936, MS936, windows-936
|
||||
;; http://www.iana.org/assignments/charset-reg/GBK
|
||||
;; https://www.iana.org/assignments/charset-reg/GBK
|
||||
;; Emacs 22.1 has cp936, but not gbk, so we alias it:
|
||||
,@(when (and (not (mm-coding-system-p 'gbk))
|
||||
(mm-coding-system-p 'cp936))
|
||||
|
|
|
|||
|
|
@ -938,9 +938,47 @@ If no one is selected, symmetric encryption will be performed. "
|
|||
(signal (car error) (cdr error))))
|
||||
cipher))
|
||||
|
||||
;; Should probably be removed and the interface should be different.
|
||||
(defvar mml-secure-allow-signing-with-unknown-recipient nil
|
||||
"Variable to bind to allow automatic recipient selection.")
|
||||
(defun mml-secure-sender-sign-query (protocol sender)
|
||||
"Query whether to use SENDER to sign when using PROTOCOL.
|
||||
PROTOCOL will be `OpenPGP' or `CMS' (smime).
|
||||
This can also save the resulting value of
|
||||
`mml-secure-smime-sign-with-sender' or
|
||||
`mml-secure-openpgp-sign-with-sender' via Customize.
|
||||
Returns non-nil if the user has chosen to use SENDER."
|
||||
(let ((buffer (get-buffer-create "*MML sender signing options*"))
|
||||
(options '((?a "always" "Sign using this sender now and sign with message sender in future.")
|
||||
(?s "session only" "Sign using this sender now, and sign with message sender for this session only.")
|
||||
(?n "no" "Do not sign this message (and error out)")))
|
||||
answer done val)
|
||||
(save-window-excursion
|
||||
(pop-to-buffer buffer)
|
||||
(erase-buffer)
|
||||
(insert (format "No %s signing key was found for this message.\nThe sender of this message is \"%s\".\nWould you like to attempt looking up a signing key based on it?"
|
||||
(if (eq protocol 'OpenPGP)
|
||||
"openpgp" "smime")
|
||||
sender))
|
||||
(while (not done)
|
||||
(setq answer (read-multiple-choice "Sign this message using the sender?" options))
|
||||
(cl-case (car answer)
|
||||
(?a
|
||||
(if (eq protocol 'OpenPGP)
|
||||
(progn
|
||||
(setq mml-secure-openpgp-sign-with-sender t)
|
||||
(customize-save-variable
|
||||
'mml-secure-openpgp-sign-with-sender t))
|
||||
(setq mml-secure-smime-sign-with-sender t)
|
||||
(customize-save-variable 'mml-secure-smime-sign-with-sender t))
|
||||
(setq done t
|
||||
val t))
|
||||
(?s
|
||||
(if (eq protocol 'OpenPGP)
|
||||
(setq mml-secure-openpgp-sign-with-sender t)
|
||||
(setq mml-secure-smime-sign-with-sender t))
|
||||
(setq done t
|
||||
val t))
|
||||
(?n
|
||||
(setq done t)))))
|
||||
val))
|
||||
|
||||
(defun mml-secure-epg-sign (protocol mode)
|
||||
;; Based on code appearing inside mml2015-epg-sign.
|
||||
|
|
@ -950,15 +988,21 @@ If no one is selected, symmetric encryption will be performed. "
|
|||
(signers (mml-secure-signers context signer-names))
|
||||
signature micalg)
|
||||
(unless signers
|
||||
(let ((maybe-msg
|
||||
(if mml-secure-smime-sign-with-sender
|
||||
"."
|
||||
"; try setting `mml-secure-smime-sign-with-sender'.")))
|
||||
;; If `mml-secure-smime-sign-with-sender' is already non-nil
|
||||
;; then there's no point advising the user to examine it. If
|
||||
;; there are any other variables worth examining, please
|
||||
;; improve this error message by having it mention them.
|
||||
(unless mml-secure-allow-signing-with-unknown-recipient
|
||||
(if (and (not noninteractive)
|
||||
(mml-secure-sender-sign-query protocol sender))
|
||||
(setq signer-names (mml-secure-signer-names protocol sender)
|
||||
signers (mml-secure-signers context signer-names)))
|
||||
(unless signers
|
||||
(let ((maybe-msg
|
||||
(if (or mml-secure-smime-sign-with-sender
|
||||
mml-secure-openpgp-sign-with-sender)
|
||||
"."
|
||||
"; try setting `mml-secure-smime-sign-with-sender' or 'mml-secure-openpgp-sign-with-sender'.")))
|
||||
;; If `mml-secure-smime-sign-with-sender' or
|
||||
;; `mml-secure-openpgp-sign-with-sender' are already non-nil
|
||||
;; then there's no point advising the user to examine them.
|
||||
;; If there are any other variables worth examining, please
|
||||
;; improve this error message by having it mention them.
|
||||
(error "Couldn't find any signer names%s" maybe-msg))))
|
||||
(when (eq 'OpenPGP protocol)
|
||||
(setf (epg-context-armor context) t)
|
||||
|
|
|
|||
|
|
@ -178,7 +178,7 @@ The hook functions will be called with the full group name as argument."
|
|||
(define-obsolete-variable-alias 'nndiary-request-update-info-hooks
|
||||
'nndiary-request-update-info-functions "24.3")
|
||||
(defcustom nndiary-request-update-info-functions nil
|
||||
"Hook run after `nndiary-request-update-info-group' is executed.
|
||||
"Hook run after `nndiary-request-update-info' is executed.
|
||||
The hook functions will be called with the full group name as argument."
|
||||
:group 'nndiary
|
||||
:type 'hook)
|
||||
|
|
|
|||
|
|
@ -1767,7 +1767,7 @@ This variable is set by `nnmaildir-request-article'.")
|
|||
nnmaildir--cur-server nil)
|
||||
|
||||
;; This slightly obscure invocation of `alist-get' removes SERVER from
|
||||
;; `nnmaildir-servers'.
|
||||
;; `nnmaildir--servers'.
|
||||
(setf (alist-get (nnmaildir--srv-address server)
|
||||
nnmaildir--servers server 'remove #'equal)
|
||||
server))
|
||||
|
|
|
|||
|
|
@ -450,7 +450,7 @@ nnrss: %s: Not valid XML %s and libxml-parse-html-region doesn't work %s"
|
|||
(defun nnrss-normalize-date (date)
|
||||
"Return a date string of DATE in the style of RFC 822 and its successors.
|
||||
This function handles the ISO 8601 date format described in
|
||||
URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style
|
||||
URL `https://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style
|
||||
which RSS 2.0 allows."
|
||||
(let (case-fold-search vector year month day time zone cts given)
|
||||
(cond ((null date)) ; do nothing for this case
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@
|
|||
|
||||
;; Author: Alex Schroeder <alex@gnu.org>
|
||||
;; Keywords: network
|
||||
;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?SpamStat
|
||||
;; URL: https://www.emacswiki.org/cgi-bin/wiki.pl?SpamStat
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -886,7 +886,7 @@ and their encoded form is inserted byte by byte."
|
|||
(when (null encoded)
|
||||
(setq internal (encode-coding-string internal 'utf-8-emacs)
|
||||
internal-hex
|
||||
(mapconcat (function (lambda (c) (format "%x" c)))
|
||||
(mapconcat (lambda (c) (format "%x" c))
|
||||
internal " "))
|
||||
(if (yes-or-no-p
|
||||
(format-message
|
||||
|
|
@ -899,7 +899,7 @@ and their encoded form is inserted byte by byte."
|
|||
(substitute-command-keys "try \\[hexl-insert-hex-string]"))))
|
||||
(while (> num 0)
|
||||
(mapc
|
||||
(function (lambda (c) (hexl-insert-char c 1))) encoded)
|
||||
(lambda (c) (hexl-insert-char c 1)) encoded)
|
||||
(setq num (1- num))))))))
|
||||
|
||||
(defun hexl-self-insert-command (arg)
|
||||
|
|
|
|||
|
|
@ -820,6 +820,7 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search."
|
|||
(font-lock-add-keywords nil hi-lock-file-patterns t)
|
||||
(font-lock-flush)))
|
||||
|
||||
;;;###autoload
|
||||
(defun hi-lock-find-patterns ()
|
||||
"Add patterns from the current buffer to the list of hi-lock patterns."
|
||||
(interactive)
|
||||
|
|
|
|||
|
|
@ -60,12 +60,12 @@
|
|||
;; =============
|
||||
;;
|
||||
;; * The ImageMagick package. Currently, `convert' and `mogrify' are
|
||||
;; used. Find it here: http://www.imagemagick.org.
|
||||
;; used. Find it here: https://www.imagemagick.org.
|
||||
;;
|
||||
;; * For non-lossy rotation of JPEG images, the JpegTRAN program is
|
||||
;; needed.
|
||||
;;
|
||||
;; * For `image-dired-get-exif-data' and `image-dired-write-exif-data' to work,
|
||||
;; * For `image-dired-get-exif-data' and `image-dired-set-exif-data' to work,
|
||||
;; the command line tool `exiftool' is needed. It can be found here:
|
||||
;; http://www.sno.phy.queensu.ca/~phil/exiftool/. These two functions
|
||||
;; are, among other things, used for writing comments to image files
|
||||
|
|
@ -205,7 +205,7 @@ the index.html page that image-dired creates."
|
|||
:group 'image-dired)
|
||||
|
||||
(defcustom image-dired-gallery-image-root-url
|
||||
"http://your.own.server/image-diredpics"
|
||||
"https://your.own.server/image-diredpics"
|
||||
"URL where the full size images are to be found.
|
||||
Note that this path has to be configured in your web server. Image-Dired
|
||||
expects to find pictures in this directory."
|
||||
|
|
@ -213,7 +213,7 @@ expects to find pictures in this directory."
|
|||
:group 'image-dired)
|
||||
|
||||
(defcustom image-dired-gallery-thumb-image-root-url
|
||||
"http://your.own.server/image-diredthumbs"
|
||||
"https://your.own.server/image-diredthumbs"
|
||||
"URL where the thumbnail images are to be found.
|
||||
Note that this path has to be configured in your web server. Image-Dired
|
||||
expects to find pictures in this directory."
|
||||
|
|
@ -309,7 +309,7 @@ temporary file name (typically generated by pnqnq)."
|
|||
:group 'image-dired)
|
||||
|
||||
(defcustom image-dired-cmd-optipng-options '("-o5" "%t")
|
||||
"Arguments passed to `image-dired-optipng-program'.
|
||||
"Arguments passed to `image-dired-cmd-optipng-program'.
|
||||
Available format specifiers are described in
|
||||
`image-dired-cmd-create-thumbnail-options'."
|
||||
:version "26.1"
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue