Merge from origin/emacs-27
a5f7c26907(origin/emacs-27) * admin/authors.el: Add an author alias.d87a4d1f4eLimit RLIMIT_NOFILE to FD_SETSIZE on macOSe5ca8e5e73Fix Elisp manual entry on 'set-window-configuration'485f24223f; Update ChangeLog.38f200254fb; Update etc/AUTHORSc7adc851ad* admin/authors.el: Add missing author aliases.4acdd7fe58Fix edge case errors in filename-matching regexps5f36e21fe5Clarify the doc string of 'yank'13301d4266New function erc-track-switch-buffer-other-window38f7538d8fNew function erc-switch-to-buffer-other-window # Conflicts: # etc/NEWS
This commit is contained in:
Glenn Morris
commit
97e48510ad
48 changed files with 1324 additions and 170 deletions
1090
ChangeLog.3
1090
ChangeLog.3
File diff suppressed because it is too large
Load diff
|
|
@ -207,6 +207,11 @@ files.")
|
|||
("Yoshinori Koseki" "KOSEKI Yoshinori" "小関 吉則")
|
||||
("Yutaka NIIBE" "NIIBE Yutaka")
|
||||
(nil "stardiviner")
|
||||
(nil "lin.sun")
|
||||
("Nitish Chinta" "nitishch")
|
||||
("Carlos Pita" "memeplex")
|
||||
("Vinicius Jose Latorre" "viniciusjl")
|
||||
("Gaby Launay" "galaunay")
|
||||
)
|
||||
"Alist of author aliases.
|
||||
|
||||
|
|
@ -278,7 +283,7 @@ If REALNAME is nil, ignore that author.")
|
|||
|
||||
|
||||
(defvar authors-obsolete-files-regexps
|
||||
'(".*loaddefs.el$" ; not obsolete, but auto-generated
|
||||
'(".*loaddefs\\.el$" ; not obsolete, but auto-generated
|
||||
"\\.\\(bzr\\|cvs\\|git\\)ignore$" ; obsolete or uninteresting
|
||||
"\\.arch-inventory$"
|
||||
"ChangeLog\\(\\.[0-9]+\\)?\\'"
|
||||
|
|
@ -288,9 +293,9 @@ If REALNAME is nil, ignore that author.")
|
|||
"\\`\\(indent\\|automated\\)\\'" "indent/" "mod-test/"
|
||||
"-resources/"
|
||||
"unidata/.*\\.txt\\'"
|
||||
"BidiCharacterTest.txt"
|
||||
"BidiCharacterTest\\.txt"
|
||||
;; TODO lib/? Matches other things?
|
||||
"build-aux/" "m4/" "Emacs.xcodeproj" "mapfiles" "\\.map\\'"
|
||||
"build-aux/" "m4/" "Emacs\\.xcodeproj" "mapfiles" "\\.map\\'"
|
||||
"preferences\\.\\(nib\\|gorm\\)"
|
||||
;; Generated files that have since been removed.
|
||||
"\\(refcard\\(-de\\|-pl\\)?\\|calccard\\|dired-ref\\|orgcard\\|\
|
||||
|
|
@ -1183,7 +1188,7 @@ ediff\\|emerge\\|log-edit\\|log-view\\|pcvs\\|smerge-mode\\|vc\\)\\.el\\'"
|
|||
("\\`org-\\(ascii\\|beamer\\|html\\|icalendar\\|jsinfo\\|latex\
|
||||
\\|odt\\|publish\\)\\.el\\'" "ox-\\1.el")
|
||||
;; From test/ to test/automated/.
|
||||
("comint-testsuite.el" "automated/\\&")
|
||||
("comint-testsuite\\.el" "automated/\\&")
|
||||
("\\`\\(bytecomp\\|font-parse\\|icalendar\\|occur\\|newsticker\\)\
|
||||
-testsuite\\.el" "\\1-tests.el")
|
||||
("automated/flymake/warnpred/\\(Makefile\\|test\\.\\(?:c\\|pl\\)\\)\\'"
|
||||
|
|
|
|||
|
|
@ -5871,25 +5871,26 @@ which window parameters (if any) are saved by this function.
|
|||
|
||||
@defun set-window-configuration configuration
|
||||
This function restores the configuration of windows and buffers as
|
||||
specified by @var{configuration}, for the frame that @var{configuration}
|
||||
was created for.
|
||||
specified by @var{configuration}, for the frame that
|
||||
@var{configuration} was created for, regardless of whether that frame
|
||||
is selected or not. The argument @var{configuration} must be a value
|
||||
that was previously returned by @code{current-window-configuration}
|
||||
for that frame.
|
||||
|
||||
The argument @var{configuration} must be a value that was previously
|
||||
returned by @code{current-window-configuration}. The configuration is
|
||||
restored in the frame from which @var{configuration} was made, whether
|
||||
that frame is selected or not. In some rare cases this may trigger
|
||||
execution of the @code{window-size-change-functions} (@pxref{Window
|
||||
Hooks}) even if the size of windows did not change at all. The
|
||||
@code{window-configuration-change-hook} functions will be called if and
|
||||
only if at least one window was added to or deleted from the frame.
|
||||
If the frame from which @var{configuration} was saved is dead, all
|
||||
this function does is to restore the value of the variable
|
||||
@code{minibuffer-scroll-window} and to adjust the value returned by
|
||||
@code{minibuffer-selected-window}. In this case, the function returns
|
||||
@code{nil}. Otherwise, it returns @code{t}.
|
||||
|
||||
If the frame from which @var{configuration} was saved is dead, all this
|
||||
function does is restore the three variables @code{window-min-height},
|
||||
@code{window-min-width} and @code{minibuffer-scroll-window}. In this
|
||||
case, the function returns @code{nil}. Otherwise, it returns @code{t}.
|
||||
If the buffer of a window of @var{configuration} has been killed since
|
||||
@var{configuration} was made, that window is, as a rule, removed from
|
||||
the restored configuration. However, if that window is the last
|
||||
window remaining in the restored configuration, another live buffer is
|
||||
shown in it.
|
||||
|
||||
Here is a way of using this function to get the same effect
|
||||
as @code{save-window-excursion}:
|
||||
Here is a way of using this function to get the same effect as
|
||||
@code{save-window-excursion}:
|
||||
|
||||
@example
|
||||
@group
|
||||
|
|
|
|||
108
etc/AUTHORS
108
etc/AUTHORS
|
|
@ -97,11 +97,11 @@ Alakazam Petrofsky: changed hanoi.el
|
|||
Alan Mackenzie: wrote cc-awk.el
|
||||
and co-wrote cc-align.el cc-cmds.el cc-defs.el cc-engine.el cc-fonts.el
|
||||
cc-langs.el cc-mode.el cc-styles.el cc-vars.el
|
||||
and changed cc-mode.texi bytecomp.el follow.el display.texi subr.el
|
||||
and changed cc-mode.texi bytecomp.el display.texi follow.el subr.el
|
||||
edebug.el progmodes/compile.el programs.texi syntax.texi modes.texi
|
||||
font-lock.el isearch.el text.texi help.el ispell.el lread.c syntax.c
|
||||
windows.texi .dir-locals.el control.texi cus-start.el
|
||||
and 147 other files
|
||||
and 148 other files
|
||||
|
||||
Alan Modra: changed unexelf.c
|
||||
|
||||
|
|
@ -113,9 +113,9 @@ Alan Shutko: changed diary-lib.el calendar.el bindings.el cal-hebrew.el
|
|||
|
||||
Alan Third: wrote dabbrev-tests.el image-transforms-tests.el
|
||||
and changed nsterm.m nsterm.h nsfns.m nsmenu.m ns-win.el nsimage.m
|
||||
image.c macfont.m configure.ac frame.el xdisp.c display.texi image.el
|
||||
macos.texi xterm.c Info.plist.in conf_post.h dispextern.h frame.c
|
||||
frame.h frames.texi and 21 other files
|
||||
image.c macfont.m configure.ac frame.el xdisp.c macos.texi display.texi
|
||||
image.el xterm.c Info.plist.in conf_post.h dispextern.h frame.c frame.h
|
||||
frames.texi and 21 other files
|
||||
|
||||
Alastair Burt: changed gnus-art.el smiley.el
|
||||
|
||||
|
|
@ -235,12 +235,11 @@ Alp Aker: changed nsfont.m nsterm.m buff-menu.el nsfns.m nsmenu.m
|
|||
Ami Fischman: changed bindings.el calendar.el diary-lib.el print.c
|
||||
savehist.el vc-git.el
|
||||
|
||||
Amin Bandali: changed erc-button.el erc-desktop-notifications.el
|
||||
erc-autoaway.el erc-compat.el erc-fill.el erc-ibuffer.el erc-imenu.el
|
||||
erc-join.el erc-lang.el erc-list.el erc-log.el erc-match.el
|
||||
erc-notify.el erc-pcomplete.el erc-replace.el erc-ring.el
|
||||
erc-services.el erc-sound.el erc-speedbar.el erc-spelling.el
|
||||
erc-stamp.el and 4 other files
|
||||
Amin Bandali: changed erc.el erc-button.el erc-desktop-notifications.el
|
||||
erc-track.el erc-autoaway.el erc-compat.el erc-fill.el erc-ibuffer.el
|
||||
erc-imenu.el erc-join.el erc-lang.el erc-list.el erc-log.el
|
||||
erc-match.el erc-notify.el erc-pcomplete.el erc-replace.el erc-ring.el
|
||||
erc-services.el erc-sound.el erc-speedbar.el and 5 other files
|
||||
|
||||
Anand Mitra: changed gnus-sum.el
|
||||
|
||||
|
|
@ -298,7 +297,7 @@ Andreas Rottmann: changed emacsclient.1 emacsclient.c misc.texi server.el
|
|||
Andreas Schwab: changed configure.ac lisp.h xdisp.c process.c alloc.c
|
||||
coding.c Makefile.in files.el fileio.c keyboard.c lread.c xterm.c fns.c
|
||||
editfns.c emacs.c src/Makefile.in print.c eval.c font.c xfns.c sysdep.c
|
||||
and 650 other files
|
||||
and 651 other files
|
||||
|
||||
Andreas Seltenreich: changed nnweb.el gnus.texi message.el gnus-sum.el
|
||||
gnus.el nnslashdot.el gnus-srvr.el gnus-util.el mm-url.el mm-uu.el
|
||||
|
|
@ -332,6 +331,8 @@ and changed nnir.el gnus-sum.el nnimap.el gnus-msg.el gnus.texi
|
|||
|
||||
Andrew Csillag: wrote m4-mode.el
|
||||
|
||||
Andrew Eggenberger: changed cl-extra.el seq.el
|
||||
|
||||
Andrew G Cohen: changed gnus-sum.el gnus-art.el
|
||||
|
||||
Andrew Hall: changed paren.el
|
||||
|
|
@ -695,8 +696,8 @@ Carl Edman: co-wrote ns-win.el
|
|||
|
||||
Carl Henrik Lunde: changed format-spec.el
|
||||
|
||||
Carlos Pita: changed erc-pcomplete.el image-mode.el progmodes/python.el
|
||||
sh-script.el
|
||||
Carlos Pita: changed progmodes/python.el erc-pcomplete.el fringe.c
|
||||
gtkutil.c image-mode.el keyboard.c sh-script.el
|
||||
|
||||
Carsten Bormann: changed ibmrs6000.h latin-post.el
|
||||
|
||||
|
|
@ -1354,9 +1355,9 @@ Dmitry Gutov: wrote elisp-mode-tests.el jit-lock-tests.el json-tests.el
|
|||
vc-hg-tests.el xref-tests.el
|
||||
and changed ruby-mode.el xref.el project.el vc-git.el elisp-mode.el
|
||||
etags.el ruby-mode-tests.el js.el package.el vc-hg.el vc.el
|
||||
symref/grep.el log-edit.el dired-aux.el simple.el menu-bar.el
|
||||
minibuffer.el package-test.el progmodes/grep.el vc-svn.el eldoc.el
|
||||
and 110 other files
|
||||
symref/grep.el log-edit.el dired-aux.el simple.el minibuffer.el
|
||||
menu-bar.el package-test.el progmodes/grep.el vc-svn.el eldoc.el
|
||||
and 111 other files
|
||||
|
||||
Dmitry Kurochkin: changed isearch.el
|
||||
|
||||
|
|
@ -1444,7 +1445,7 @@ Eli Zaretskii: wrote [bidirectional display in xdisp.c]
|
|||
and changed xdisp.c msdos.c w32.c display.texi w32fns.c simple.el
|
||||
files.el fileio.c keyboard.c w32term.c w32proc.c emacs.c files.texi
|
||||
text.texi dispnew.c frames.texi lisp.h dispextern.h window.c process.c
|
||||
term.c and 1184 other files
|
||||
term.c and 1187 other files
|
||||
|
||||
Emanuele Giaquinta: changed configure.ac rxvt.el charset.c etags.c
|
||||
fontset.c frame.el gnus-faq.texi loadup.el lread.c sh-script.el
|
||||
|
|
@ -2039,7 +2040,7 @@ Ian Lance Taylor: changed sco4.h
|
|||
Ian T Zimmerman: wrote gametree.el
|
||||
and changed ange-ftp.el desktop.el tex-mode.el
|
||||
|
||||
İ. Göktuğ Kayaalp: changed eww.el vc-rcs.el
|
||||
İ. Göktuğ Kayaalp: changed eww.el frames.texi mwheel.el vc-rcs.el
|
||||
|
||||
Igor Kuzmin: wrote cconv.el
|
||||
|
||||
|
|
@ -2433,7 +2434,7 @@ and changed flymake.el flymake-proc.el icomplete.el minibuffer.el
|
|||
flymake-tests.el flymake.texi elisp-mode.el flymake-elisp.el
|
||||
electric.el flymake-ui.el text.texi json-tests.el tex-mode.el
|
||||
errors-and-warnings.c json.c xref.el auth-source-pass.el linum.el
|
||||
maintaining.texi message.el progmodes/python.el and 29 other files
|
||||
maintaining.texi message.el progmodes/python.el and 30 other files
|
||||
|
||||
Jochen Hein: changed gnus-art.el
|
||||
|
||||
|
|
@ -2713,13 +2714,15 @@ Juri Linkov: wrote files-x.el misearch.el replace-tests.el tab-bar.el
|
|||
and changed isearch.el info.el simple.el replace.el dired.el dired-aux.el
|
||||
progmodes/grep.el progmodes/compile.el startup.el subr.el diff-mode.el
|
||||
files.el menu-bar.el faces.el bindings.el display.texi image-mode.el
|
||||
desktop.el comint.el minibuffer.el search.texi and 418 other files
|
||||
desktop.el comint.el minibuffer.el search.texi and 419 other files
|
||||
|
||||
Jussi Lahdenniemi: changed w32fns.c ms-w32.h msdos.texi w32.c w32.h
|
||||
w32console.c w32heap.c w32inevt.c w32term.h
|
||||
|
||||
Justin Bogner: changed fortune.el
|
||||
|
||||
Justin Burkett: changed window.el
|
||||
|
||||
Justin Gordon: changed ox-md.el
|
||||
|
||||
Justin Sheehy: changed gnus-sum.el nntp.el
|
||||
|
|
@ -3119,8 +3122,6 @@ Liam Stitt: changed url-file.el url-vars.el
|
|||
|
||||
Liang Wang: changed etags.el
|
||||
|
||||
Lin Sun: changed makefile-edit.el
|
||||
|
||||
Lixin Chin: changed bibtex.el
|
||||
|
||||
Lloyd Zusman: changed mml.el pgg-gpg.el
|
||||
|
|
@ -3348,9 +3349,9 @@ Martin Neitzel: changed supercite.el
|
|||
Martin Pohlack: changed iimage.el pc-select.el
|
||||
|
||||
Martin Rudalics: changed window.el window.c windows.texi frame.c xdisp.c
|
||||
w32fns.c frames.texi xterm.c w32term.c frame.el xfns.c display.texi
|
||||
w32fns.c xterm.c frames.texi w32term.c xfns.c frame.el display.texi
|
||||
help.el buffer.c window.h cus-start.el frame.h dispnew.c mouse.el
|
||||
nsfns.m dired.el and 209 other files
|
||||
nsfns.m gtkutil.c and 209 other files
|
||||
|
||||
Martin Stjernholm: wrote cc-bytecomp.el
|
||||
and co-wrote cc-align.el cc-cmds.el cc-compat.el cc-defs.el cc-engine.el
|
||||
|
|
@ -3450,10 +3451,10 @@ Matt Hodges: changed textmodes/table.el faces.el iswitchb.el simple.el
|
|||
locate.el paragraphs.el pcomplete.el repeat.el and 3 other files
|
||||
|
||||
Mattias Engdegård: changed rx.el searching.texi rx-tests.el autorevert.el
|
||||
regexp-opt.el calc-tests.el filenotify.el subr.el progmodes/compile.el
|
||||
files.el mouse.el bytecomp.el compile-tests.el autorevert-tests.el
|
||||
byte-opt.el bytecomp-tests.el calc-alg.el compilation.txt font.c
|
||||
regex-emacs.c regexp-opt-tests.el and 121 other files
|
||||
calc-tests.el regexp-opt.el filenotify.el subr.el files.el
|
||||
progmodes/compile.el mouse.el bytecomp.el compile-tests.el
|
||||
autorevert-tests.el byte-opt.el bytecomp-tests.el calc-alg.el
|
||||
compilation.txt dired.el font.c regex-emacs.c and 161 other files
|
||||
|
||||
Matt Lundin: changed org-agenda.el org.el org-bibtex.el org-footnote.el
|
||||
ox-publish.el org-bbdb.el org-datetree.el org-gnus.el
|
||||
|
|
@ -3854,7 +3855,7 @@ Nil Geisweiller: changed flymake.el
|
|||
|
||||
Nils Ackermann: changed message.el nnmh.el reftex-vars.el
|
||||
|
||||
Nitish Chandra: changed simple.el
|
||||
Nitish Chinta: changed progmodes/python.el sendmail.el simple.el
|
||||
|
||||
N. Jackson: changed emacs.texi forms.texi
|
||||
|
||||
|
|
@ -3870,10 +3871,10 @@ Noah Lavine: changed tramp.el
|
|||
Noah Swainland: changed calc.el
|
||||
|
||||
Noam Postavsky: changed progmodes/python.el lisp-mode.el bytecomp.el
|
||||
lisp-mode-tests.el term.el xdisp.c cl-macs.el eval.c
|
||||
emacs-lisp/debug.el simple.el data.c modes.texi subr.el elisp-mode.el
|
||||
ert.el help-fns.el isearch.el processes.texi cl-print.el ffap.el
|
||||
print.c and 357 other files
|
||||
lisp-mode-tests.el term.el xdisp.c eval.c cl-macs.el data.c
|
||||
emacs-lisp/debug.el simple.el help-fns.el modes.texi subr.el
|
||||
elisp-mode.el ert.el isearch.el processes.texi cl-print.el diff-mode.el
|
||||
ffap.el and 359 other files
|
||||
|
||||
Nobuyoshi Nakada: co-wrote ruby-mode.el
|
||||
and changed ruby-mode-tests.el
|
||||
|
|
@ -4168,15 +4169,15 @@ Philipp Stephani: wrote callint-tests.el checkdoc-tests.el
|
|||
lread-tests.el mouse-tests.el xt-mouse-tests.el
|
||||
and changed emacs-module.c emacs-module-tests.el json.c json-tests.el
|
||||
eval.c mod-test.c lisp.h lread.c nsterm.m configure.ac bytecomp.el
|
||||
internals.texi gtkutil.c emacs-module.h.in files.el alloc.c electric.el
|
||||
test/Makefile.in editfns.c electric-tests.el emacs.c
|
||||
and 126 other files
|
||||
internals.texi gtkutil.c emacs-module.h.in files.el alloc.c
|
||||
electric-tests.el electric.el test/Makefile.in editfns.c emacs.c
|
||||
and 127 other files
|
||||
|
||||
Phillip Lord: wrote ps-print-tests.el
|
||||
and changed build-zips.sh lisp/Makefile.in undo.c simple.el
|
||||
build-dep-zips.py test/Makefile.in Makefile Makefile.in emacs.nsi
|
||||
keyboard.c viper-cmd.el README-windows-binaries README.W32
|
||||
elisp-mode-tests.el ldefs-clean.el loadup.el README-scripts autoload.el
|
||||
and changed build-zips.sh lisp/Makefile.in undo.c build-dep-zips.py
|
||||
simple.el test/Makefile.in Makefile Makefile.in emacs.nsi keyboard.c
|
||||
viper-cmd.el README-windows-binaries README.W32 elisp-mode-tests.el
|
||||
ldefs-clean.el loadup.el README-scripts autoload.el
|
||||
automated/Makefile.in cmds.c dired.el and 171 other files
|
||||
|
||||
Phil Sainty: wrote autoload-longlines-mode-tests.el
|
||||
|
|
@ -4412,11 +4413,11 @@ Roberto Rodríguez: changed glossary.texi widget.texi
|
|||
Robert P. Goldman: changed org.texi ob-exp.el org.el ox-latex.el
|
||||
|
||||
Robert Pluim: wrote nsm-tests.el
|
||||
and changed process.c gtkutil.c processes.texi vc-git.el configure.ac
|
||||
ftfont.c network-stream.el nsm.el process-tests.el files.texi font.c
|
||||
ftcrfont.c gnus-icalendar.el gnutls.el gtkutil.h
|
||||
network-stream-tests.el text.texi w32.c xfns.c xftfont.c auth.texi
|
||||
and 83 other files
|
||||
and changed process.c ftfont.c gtkutil.c processes.texi vc-git.el
|
||||
configure.ac font.c network-stream.el nsm.el process-tests.el xfns.c
|
||||
dispextern.h files.texi ftcrfont.c gnus-icalendar.el gnutls.el
|
||||
gtkutil.h network-stream-tests.el nsterm.m text.texi w32.c
|
||||
and 90 other files
|
||||
|
||||
Robert Thorpe: changed cus-start.el indent.el
|
||||
|
||||
|
|
@ -4649,6 +4650,8 @@ and changed ob-maxima.el ob-octave.el
|
|||
|
||||
Sergey Poznyakoff: changed rmail.el mh-mime.el rmail.texi smtpmail.el
|
||||
|
||||
Sergey Trofimov: changed window.el
|
||||
|
||||
Sergey Vinokurov: changed emacs-module-tests.el emacs-module.c mod-test.c
|
||||
|
||||
Sergio Durigan Junior: changed eudcb-bbdb.el gdb-mi.el
|
||||
|
|
@ -4772,7 +4775,7 @@ Stefan Kangas: wrote bookmark-tests.el delim-col-tests.el morse-tests.el
|
|||
and changed bookmark.el package.el efaq.texi package.texi ibuffer.el
|
||||
mwheel.el cperl-mode.el fns.c gud.el simple.el subr.el autoinsert.el
|
||||
comint-tests.el cus-edit.el delim-col.el dired-aux.el dired-x.el
|
||||
em-term.el ert.texi flow-fill.el frames.texi and 146 other files
|
||||
em-term.el ert.texi flow-fill.el frames.texi and 147 other files
|
||||
|
||||
Stefan Merten: co-wrote rst.el
|
||||
|
||||
|
|
@ -4806,10 +4809,11 @@ Stefan Wiens: changed gnus-sum.el
|
|||
|
||||
Steinar Bang: changed gnus-setup.el imap.el
|
||||
|
||||
Štěpán Němec: changed INSTALL calc-ext.el cl.texi comint.el edebug.texi
|
||||
font-lock.el functions.texi leim-ext.el loading.texi maps.texi
|
||||
mark.texi message.texi mini.texi minibuf.texi misc.texi programs.texi
|
||||
subr.el tips.texi url-vars.el url.texi vc-git.el and 3 other files
|
||||
Štěpán Němec: changed INSTALL calc-ext.el checkdoc.el cl.texi comint.el
|
||||
edebug.texi font-lock.el functions.texi gnus-sum.el insdel.c
|
||||
leim-ext.el loading.texi maps.texi mark.texi message.texi mini.texi
|
||||
minibuf.texi misc.texi programs.texi subr.el text.texi
|
||||
and 7 other files
|
||||
|
||||
Stephan Stahl: changed which-func.el buff-menu.el buffer.c dired-x.texi
|
||||
ediff-mult.el
|
||||
|
|
@ -5567,6 +5571,8 @@ Zhang Weize: wrote ob-plantuml.el
|
|||
|
||||
Zhongwei Yao: changed tramp-adb.el
|
||||
|
||||
Zhu Zihao: changed svg.el
|
||||
|
||||
Zoltan Kemenczy: changed gud.el
|
||||
|
||||
Zoran Milojevic: changed avoid.el
|
||||
|
|
|
|||
10
etc/NEWS.27
10
etc/NEWS.27
|
|
@ -1647,6 +1647,16 @@ adjacent to an apostrophe, like "nick's".
|
|||
*** Set 'erc-button-url-regexp' to 'browse-url-button-regexp'
|
||||
which better handles surrounding pair of parentheses.
|
||||
|
||||
---
|
||||
*** New function 'erc-switch-to-buffer-other-window'
|
||||
which is like 'erc-switch-to-buffer', but opens the buffer in another
|
||||
window.
|
||||
|
||||
---
|
||||
*** New function 'erc-track-switch-buffer-other-window'
|
||||
which is like 'erc-track-switch-buffer', but opens the buffer in
|
||||
another window.
|
||||
|
||||
** EUDC
|
||||
|
||||
---
|
||||
|
|
|
|||
|
|
@ -190,7 +190,7 @@ CONTENTS is the contents of a password-store formatted file."
|
|||
(let ((store-dir (expand-file-name auth-source-pass-filename)))
|
||||
(mapcar
|
||||
(lambda (file) (file-name-sans-extension (file-relative-name file store-dir)))
|
||||
(directory-files-recursively store-dir "\\.gpg$"))))
|
||||
(directory-files-recursively store-dir "\\.gpg\\'"))))
|
||||
|
||||
(defun auth-source-pass--find-match (host user port)
|
||||
"Return password-store entry data matching HOST, USER and PORT.
|
||||
|
|
|
|||
|
|
@ -707,7 +707,7 @@ and done items are always shown on visiting a category."
|
|||
shortf todo-show-first)))
|
||||
(when (eq todo-show-first 'regexp)
|
||||
(let ((rxfiles (directory-files todo-directory t
|
||||
".*\\.todr$" t)))
|
||||
"\\.todr\\'" t)))
|
||||
(when (and rxfiles (> (length rxfiles) 1))
|
||||
(let ((rxf (mapcar #'todo-short-file-name rxfiles)))
|
||||
(setq fi-file (todo-absolute-file-name
|
||||
|
|
@ -4054,7 +4054,7 @@ regexp items."
|
|||
(defun todo-find-filtered-items-file ()
|
||||
"Choose a filtered items file and visit it."
|
||||
(interactive)
|
||||
(let ((files (directory-files todo-directory t "\\.tod[rty]$" t))
|
||||
(let ((files (directory-files todo-directory t "\\.tod[rty]\\'" t))
|
||||
falist file)
|
||||
(dolist (f files)
|
||||
(let ((sf-name (todo-short-file-name f))
|
||||
|
|
@ -4187,7 +4187,7 @@ multifile commands for further details."
|
|||
(regexp ".todr")))))
|
||||
(multi (> (length flist) 1))
|
||||
(rxfiles (when regexp
|
||||
(directory-files todo-directory t ".*\\.todr$" t)))
|
||||
(directory-files todo-directory t "\\.todr\\'" t)))
|
||||
(file-exists (or (file-exists-p fname) rxfiles))
|
||||
bufname)
|
||||
(cond ((and top new (natnump new))
|
||||
|
|
@ -6154,7 +6154,7 @@ the empty string (i.e., no time string)."
|
|||
"The :set function for user option `todo-nondiary-marker'."
|
||||
(let* ((oldvalue (symbol-value symbol))
|
||||
(files (append todo-files todo-archives
|
||||
(directory-files todo-directory t "\\.tod[rty]$" t))))
|
||||
(directory-files todo-directory t "\\.tod[rty]\\'" t))))
|
||||
(custom-set-default symbol value)
|
||||
;; Need to reset these to get font-locking right.
|
||||
(setq todo-nondiary-start (nth 0 todo-nondiary-marker)
|
||||
|
|
@ -6207,7 +6207,7 @@ the empty string (i.e., no time string)."
|
|||
"The :set function for user option `todo-done-string'."
|
||||
(let ((oldvalue (symbol-value symbol))
|
||||
(files (append todo-files todo-archives
|
||||
(directory-files todo-directory t "\\.todr$" t))))
|
||||
(directory-files todo-directory t "\\.todr\\'" t))))
|
||||
(custom-set-default symbol value)
|
||||
;; Need to reset this to get font-locking right.
|
||||
(setq todo-done-string-start
|
||||
|
|
@ -6236,7 +6236,7 @@ the empty string (i.e., no time string)."
|
|||
"The :set function for user option `todo-comment-string'."
|
||||
(let ((oldvalue (symbol-value symbol))
|
||||
(files (append todo-files todo-archives
|
||||
(directory-files todo-directory t "\\.todr$" t))))
|
||||
(directory-files todo-directory t "\\.todr\\'" t))))
|
||||
(custom-set-default symbol value)
|
||||
(when (not (equal value oldvalue))
|
||||
(dolist (f files)
|
||||
|
|
@ -6262,7 +6262,7 @@ the empty string (i.e., no time string)."
|
|||
"The :set function for user option `todo-highlight-item'."
|
||||
(let ((oldvalue (symbol-value symbol))
|
||||
(files (append todo-files todo-archives
|
||||
(directory-files todo-directory t "\\.tod[rty]$" t))))
|
||||
(directory-files todo-directory t "\\.tod[rty]\\'" t))))
|
||||
(custom-set-default symbol value)
|
||||
(when (not (equal value oldvalue))
|
||||
(dolist (f files)
|
||||
|
|
|
|||
|
|
@ -181,7 +181,9 @@ is specified by `semanticdb-default-save-directory'."
|
|||
"Load all semanticdb controlled EBROWSE caches."
|
||||
(interactive)
|
||||
(let ((f (directory-files semanticdb-default-save-directory
|
||||
t (concat semanticdb-ebrowse-default-file-name "-load.el$") t)))
|
||||
t (concat semanticdb-ebrowse-default-file-name
|
||||
"-load\\.el\\'")
|
||||
t)))
|
||||
(while f
|
||||
(load (car f) nil t)
|
||||
(setq f (cdr f)))
|
||||
|
|
|
|||
|
|
@ -495,7 +495,7 @@ that start with that symbol."
|
|||
(setq tabs (cdr tabs)))
|
||||
r))
|
||||
(t
|
||||
(directory-files default-directory nil "\\.texi$"))
|
||||
(directory-files default-directory nil "\\.texi\\'"))
|
||||
)))
|
||||
|
||||
;; Turns out this might not be useful.
|
||||
|
|
|
|||
|
|
@ -327,7 +327,7 @@ if that file is NEW, otherwise assume the mode has not changed."
|
|||
;; 4) - Find new files and add them to the map.
|
||||
(dolist (dir srecode-map-load-path)
|
||||
(when (file-exists-p dir)
|
||||
(dolist (f (directory-files dir t "\\.srt$"))
|
||||
(dolist (f (directory-files dir t "\\.srt\\'"))
|
||||
(when (and (not (backup-file-name-p f))
|
||||
(not (auto-save-file-name-p f))
|
||||
(file-readable-p f))
|
||||
|
|
|
|||
|
|
@ -3236,7 +3236,7 @@ Any other value means to ask for each directory."
|
|||
:group 'dired)
|
||||
|
||||
;; Match anything but `.' and `..'.
|
||||
(defvar dired-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")
|
||||
(defvar dired-re-no-dot (rx (or (not ".") "...")))
|
||||
|
||||
;; Delete file, possibly delete a directory and all its files.
|
||||
;; This function is useful outside of dired. One could change its name
|
||||
|
|
|
|||
|
|
@ -1047,7 +1047,7 @@ write its autoloads into the specified file instead."
|
|||
;; what is the suffix for the underlying OS.
|
||||
(unless (string-match "\\.\\(elc\\|so\\|dll\\)" suf)
|
||||
(push suf tmp)))
|
||||
(concat "^[^=.].*" (regexp-opt tmp t) "\\'")))
|
||||
(concat "\\`[^=.].*" (regexp-opt tmp t) "\\'")))
|
||||
(files (apply #'nconc
|
||||
(mapcar (lambda (dir)
|
||||
(directory-files (expand-file-name dir)
|
||||
|
|
|
|||
|
|
@ -99,7 +99,8 @@ See the documentation for `list-load-path-shadows' for further information."
|
|||
(setq true-names (append true-names (list dir)))
|
||||
(setq dir (directory-file-name (or pp ".")))
|
||||
(setq curr-files (if (file-accessible-directory-p dir)
|
||||
(directory-files dir nil ".\\.elc?\\(\\.gz\\)?$" t)))
|
||||
(directory-files dir nil
|
||||
"\\.elc?\\(?:\\.gz\\)?\\'" t)))
|
||||
(and curr-files
|
||||
(not noninteractive)
|
||||
(message "Checking %d files in %s..." (length curr-files) dir))
|
||||
|
|
|
|||
|
|
@ -921,11 +921,7 @@ is relative to `erc-track-switch-direction'."
|
|||
(setq offset 0)))
|
||||
(car (nth offset erc-modified-channels-alist))))
|
||||
|
||||
(defun erc-track-switch-buffer (arg)
|
||||
"Switch to the next active ERC buffer, or if there are no active buffers,
|
||||
switch back to the last non-ERC buffer visited. Next is defined by
|
||||
`erc-track-switch-direction', a negative argument will reverse this."
|
||||
(interactive "p")
|
||||
(defun erc-track--switch-buffer (fun arg)
|
||||
(if (not erc-track-mode)
|
||||
(message (concat "Enable the ERC track module if you want to use the"
|
||||
" tracking minor mode"))
|
||||
|
|
@ -934,12 +930,30 @@ switch back to the last non-ERC buffer visited. Next is defined by
|
|||
(unless (eq major-mode 'erc-mode)
|
||||
(setq erc-track-last-non-erc-buffer (current-buffer)))
|
||||
;; and jump to the next active channel
|
||||
(switch-to-buffer (erc-track-get-active-buffer arg)))
|
||||
(funcall fun (erc-track-get-active-buffer arg)))
|
||||
;; if no active channels, switch back to what we were doing before
|
||||
((and erc-track-last-non-erc-buffer
|
||||
erc-track-switch-from-erc
|
||||
(buffer-live-p erc-track-last-non-erc-buffer))
|
||||
(switch-to-buffer erc-track-last-non-erc-buffer)))))
|
||||
erc-track-switch-from-erc
|
||||
(buffer-live-p erc-track-last-non-erc-buffer))
|
||||
(funcall fun erc-track-last-non-erc-buffer)))))
|
||||
|
||||
(defun erc-track-switch-buffer (arg)
|
||||
"Switch to the next active ERC buffer.
|
||||
If there are no active ERC buffers, switch back to the last
|
||||
non-ERC buffer visited. The order of buffers is defined by
|
||||
`erc-track-switch-direction', and a negative argument will
|
||||
reverse it."
|
||||
(interactive "p")
|
||||
(erc-track--switch-buffer 'switch-to-buffer arg))
|
||||
|
||||
(defun erc-track-switch-buffer-other-window (arg)
|
||||
"Switch to the next active ERC buffer in another window.
|
||||
If there are no active ERC buffers, switch back to the last
|
||||
non-ERC buffer visited. The order of buffers is defined by
|
||||
`erc-track-switch-direction', and a negative argument will
|
||||
reverse it."
|
||||
(interactive "p")
|
||||
(erc-track--switch-buffer 'switch-to-buffer-other-window arg))
|
||||
|
||||
(provide 'erc-track)
|
||||
|
||||
|
|
|
|||
|
|
@ -1762,29 +1762,38 @@ nil."
|
|||
res)))
|
||||
|
||||
(define-obsolete-function-alias 'erc-iswitchb 'erc-switch-to-buffer "25.1")
|
||||
(defun erc--switch-to-buffer (&optional arg)
|
||||
(read-buffer "Switch to ERC buffer: "
|
||||
(when (boundp 'erc-modified-channels-alist)
|
||||
(buffer-name (caar (last erc-modified-channels-alist))))
|
||||
t
|
||||
;; Only allow ERC buffers in the same session.
|
||||
(let ((proc (unless arg erc-server-process)))
|
||||
(lambda (bufname)
|
||||
(let ((buf (if (consp bufname)
|
||||
(cdr bufname) (get-buffer bufname))))
|
||||
(when buf
|
||||
(erc--buffer-p buf (lambda () t) proc)
|
||||
(with-current-buffer buf
|
||||
(and (derived-mode-p 'erc-mode)
|
||||
(or (null proc)
|
||||
(eq proc erc-server-process))))))))))
|
||||
(defun erc-switch-to-buffer (&optional arg)
|
||||
"Prompt for a ERC buffer to switch to.
|
||||
When invoked with prefix argument, use all erc buffers. Without prefix
|
||||
ARG, allow only buffers related to same session server.
|
||||
"Prompt for an ERC buffer to switch to.
|
||||
When invoked with prefix argument, use all ERC buffers. Without
|
||||
prefix ARG, allow only buffers related to same session server.
|
||||
If `erc-track-mode' is in enabled, put the last element of
|
||||
`erc-modified-channels-alist' in front of the buffer list."
|
||||
(interactive "P")
|
||||
(switch-to-buffer
|
||||
(read-buffer "Switch to ERC buffer: "
|
||||
(when (boundp 'erc-modified-channels-alist)
|
||||
(buffer-name (caar (last erc-modified-channels-alist))))
|
||||
t
|
||||
;; Only allow ERC buffers in the same session.
|
||||
(let ((proc (unless arg erc-server-process)))
|
||||
(lambda (bufname)
|
||||
(let ((buf (if (consp bufname)
|
||||
(cdr bufname) (get-buffer bufname))))
|
||||
(when buf
|
||||
(erc--buffer-p buf (lambda () t) proc)
|
||||
(with-current-buffer buf
|
||||
(and (derived-mode-p 'erc-mode)
|
||||
(or (null proc)
|
||||
(eq proc erc-server-process)))))))))))
|
||||
(switch-to-buffer (erc--switch-to-buffer arg)))
|
||||
(defun erc-switch-to-buffer-other-window (&optional arg)
|
||||
"Prompt for an ERC buffer to switch to in another window.
|
||||
When invoked with prefix argument, use all ERC buffers. Without
|
||||
prefix ARG, allow only buffers related to same session server.
|
||||
If `erc-track-mode' is in enabled, put the last element of
|
||||
`erc-modified-channels-alist' in front of the buffer list."
|
||||
(interactive "P")
|
||||
(switch-to-buffer-other-window (erc--switch-to-buffer arg)))
|
||||
|
||||
(defun erc-channel-list (proc)
|
||||
"Return a list of channel buffers.
|
||||
|
|
|
|||
|
|
@ -2668,7 +2668,7 @@ since only a single case-insensitive search through the alist is made."
|
|||
("\\.pas\\'" . pascal-mode)
|
||||
("\\.\\(dpr\\|DPR\\)\\'" . delphi-mode)
|
||||
("\\.ad[abs]\\'" . ada-mode)
|
||||
("\\.ad[bs].dg\\'" . ada-mode)
|
||||
("\\.ad[bs]\\.dg\\'" . ada-mode)
|
||||
("\\.\\([pP]\\([Llm]\\|erl\\|od\\)\\|al\\)\\'" . perl-mode)
|
||||
("Imakefile\\'" . makefile-imake-mode)
|
||||
("Makeppfile\\(?:\\.mk\\)?\\'" . makefile-makepp-mode) ; Put this before .mk
|
||||
|
|
@ -2819,7 +2819,7 @@ ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|CBR\\|7Z\\)\\'" . archive-mo
|
|||
("\\.properties\\(?:\\.[a-zA-Z0-9._-]+\\)?\\'" . conf-javaprop-mode)
|
||||
("\\.toml\\'" . conf-toml-mode)
|
||||
("\\.desktop\\'" . conf-desktop-mode)
|
||||
("/\\.redshift.conf\\'" . conf-windows-mode)
|
||||
("/\\.redshift\\.conf\\'" . conf-windows-mode)
|
||||
("\\`/etc/\\(?:DIR_COLORS\\|ethers\\|.?fstab\\|.*hosts\\|lesskey\\|login\\.?de\\(?:fs\\|vperm\\)\\|magic\\|mtab\\|pam\\.d/.*\\|permissions\\(?:\\.d/.+\\)?\\|protocols\\|rpc\\|services\\)\\'" . conf-space-mode)
|
||||
("\\`/etc/\\(?:acpid?/.+\\|aliases\\(?:\\.d/.+\\)?\\|default/.+\\|group-?\\|hosts\\..+\\|inittab\\|ksysguarddrc\\|opera6rc\\|passwd-?\\|shadow-?\\|sysconfig/.+\\)\\'" . conf-mode)
|
||||
;; ChangeLog.old etc. Other change-log-mode entries are above;
|
||||
|
|
@ -5753,7 +5753,7 @@ If called interactively, then PARENTS is non-nil."
|
|||
(write-region "" nil filename nil 0))
|
||||
|
||||
(defconst directory-files-no-dot-files-regexp
|
||||
"^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"
|
||||
"[^.]\\|\\.\\.\\."
|
||||
"Regexp matching any file name except \".\" and \"..\".")
|
||||
|
||||
(defun files--force (no-such fn &rest args)
|
||||
|
|
|
|||
|
|
@ -188,7 +188,7 @@ from; the default is `load-path'."
|
|||
;; Allow compressed files also.
|
||||
(setq package--builtins nil)
|
||||
(setq finder-keywords-hash (make-hash-table :test 'eq))
|
||||
(let* ((el-file-regexp "^\\([^=].*\\)\\.el\\(\\.\\(gz\\|Z\\)\\)?$")
|
||||
(let* ((el-file-regexp "\\`\\([^=].*\\)\\.el\\(\\.\\(gz\\|Z\\)\\)?\\'")
|
||||
(file-count 0)
|
||||
(files (cl-loop for d in (or dirs load-path)
|
||||
when (file-exists-p (directory-file-name d))
|
||||
|
|
|
|||
|
|
@ -1430,7 +1430,7 @@ like an INI file. You can add this hook to `find-file-hook'."
|
|||
"nowait"
|
||||
"internal")
|
||||
'(("^\\([-A-Za-z0-9_]+\\)" 1 font-lock-type-face))
|
||||
'("/etc/inetd.conf\\'")
|
||||
'("/etc/inetd\\.conf\\'")
|
||||
(list
|
||||
(function
|
||||
(lambda ()
|
||||
|
|
@ -1630,7 +1630,7 @@ like an INI file. You can add this hook to `find-file-hook'."
|
|||
(2 font-lock-variable-name-face)
|
||||
(3 font-lock-constant-face)))
|
||||
;; List of additional automode-alist expressions
|
||||
'("/etc/named.boot\\'")
|
||||
'("/etc/named\\.boot\\'")
|
||||
;; List of set up functions to call
|
||||
nil))
|
||||
|
||||
|
|
@ -1667,7 +1667,7 @@ like an INI file. You can add this hook to `find-file-hook'."
|
|||
;; List of additional font-lock-expressions
|
||||
nil
|
||||
;; List of additional auto-mode-alist expressions
|
||||
'("/etc/resolv[e]?.conf\\'")
|
||||
'("/etc/resolve?\\.conf\\'")
|
||||
;; List of set up functions to call
|
||||
nil))
|
||||
|
||||
|
|
@ -1803,7 +1803,7 @@ like an INI file. You can add this hook to `find-file-hook'."
|
|||
;; List of additional font-lock-expressions
|
||||
nil
|
||||
;; List of additional automode-alist expressions
|
||||
'("/etc/modules.conf" "/etc/conf.modules")
|
||||
'("/etc/modules\\.conf" "/etc/conf\\.modules")
|
||||
;; List of set up functions to call
|
||||
nil))
|
||||
|
||||
|
|
|
|||
|
|
@ -2074,7 +2074,7 @@ doesn't exist, to valid the overview buffer."
|
|||
(file-attributes (directory-files-and-attributes
|
||||
(gnus-agent-article-name
|
||||
"" gnus-agent-read-agentview)
|
||||
nil "^[0-9]+$" t)))
|
||||
nil "\\`[0-9]+\\'" t)))
|
||||
(while file-attributes
|
||||
(let ((fa (pop file-attributes)))
|
||||
(unless (file-attribute-type (cdr fa))
|
||||
|
|
@ -3850,7 +3850,8 @@ If REREAD is not nil, downloaded articles are marked as unread."
|
|||
(sort (delq nil (mapcar (lambda (name)
|
||||
(and (not (file-directory-p (nnheader-concat dir name)))
|
||||
(string-to-number name)))
|
||||
(directory-files dir nil "^[0-9]+$" t)))
|
||||
(directory-files
|
||||
dir nil "\\`[0-9]+\\'" t)))
|
||||
'>)
|
||||
(progn (gnus-make-directory dir) nil)))
|
||||
nov-arts
|
||||
|
|
@ -4110,7 +4111,7 @@ agent has fetched."
|
|||
(setq delta sum))
|
||||
(let ((sum (- (nth 2 entry)))
|
||||
(info (directory-files-and-attributes
|
||||
path nil "^-?[0-9]+$" t))
|
||||
path nil "\\`-?[0-9]+\\'" t))
|
||||
file)
|
||||
(while (setq file (pop info))
|
||||
(cl-incf sum (float (or (file-attribute-size (cdr file)) 0))))
|
||||
|
|
|
|||
|
|
@ -501,7 +501,7 @@ Returns the list of articles removed."
|
|||
(when (file-exists-p dir)
|
||||
(setq articles
|
||||
(sort (mapcar (lambda (name) (string-to-number name))
|
||||
(directory-files dir nil "^[0-9]+$" t))
|
||||
(directory-files dir nil "\\`[0-9]+\\'" t))
|
||||
'<))
|
||||
;; Update the cache active file, just to synch more.
|
||||
(if articles
|
||||
|
|
|
|||
|
|
@ -2981,7 +2981,7 @@ The list is determined from the variable `gnus-score-file-alist'."
|
|||
(if (file-directory-p (car files))
|
||||
(setq out (nconc (directory-files
|
||||
(car files) t
|
||||
(concat (gnus-score-file-regexp) "$"))))
|
||||
(concat (gnus-score-file-regexp) "\\'"))))
|
||||
(push (car files) out))
|
||||
(setq files (cdr files)))
|
||||
(setq gnus-internal-global-score-files out)))
|
||||
|
|
|
|||
|
|
@ -768,7 +768,7 @@ nil. See also `gnus-bind-print-variables'."
|
|||
If there's no subdirectory, delete DIRECTORY as well."
|
||||
(when (file-directory-p directory)
|
||||
(let ((files (directory-files
|
||||
directory t "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))
|
||||
directory t (rx (or (not ".") "..."))))
|
||||
file dir)
|
||||
(while files
|
||||
(setq file (pop files))
|
||||
|
|
|
|||
|
|
@ -1674,7 +1674,7 @@ Gnus might fail to display all of it.")
|
|||
did-unpack))
|
||||
|
||||
(defun gnus-uu-dir-files (dir)
|
||||
(let ((dirs (directory-files dir t "[^/][^\\.][^\\.]?$"))
|
||||
(let ((dirs (directory-files dir t (rx (or (not ".") "..."))))
|
||||
files file)
|
||||
(while dirs
|
||||
(if (file-directory-p (setq file (car dirs)))
|
||||
|
|
|
|||
|
|
@ -219,7 +219,7 @@ are generated if and only if they are also in `message-draft-headers'."
|
|||
(nnheader-re-read-dir pathname)
|
||||
(setq dir (mapcar (lambda (name) (string-to-number (substring name 1)))
|
||||
(ignore-errors (directory-files
|
||||
pathname nil "^#[0-9]+#$" t))))
|
||||
pathname nil "\\`#[0-9]+#\\'" t))))
|
||||
(dolist (n dir)
|
||||
(unless (file-exists-p
|
||||
(setq file (expand-file-name (int-to-string n) pathname)))
|
||||
|
|
|
|||
|
|
@ -172,7 +172,7 @@ as unread by Gnus.")
|
|||
(setq dir
|
||||
(sort
|
||||
(mapcar 'string-to-number
|
||||
(directory-files pathname nil "^[0-9]+$" t))
|
||||
(directory-files pathname nil "\\`[0-9]+\\'" t))
|
||||
'<))
|
||||
(cond
|
||||
(dir
|
||||
|
|
@ -360,7 +360,7 @@ as unread by Gnus.")
|
|||
(nnmh-possibly-change-directory group server)
|
||||
(let ((articles (mapcar 'string-to-number
|
||||
(directory-files
|
||||
nnmh-current-directory nil "^[0-9]+$"))))
|
||||
nnmh-current-directory nil "\\`[0-9]+\\'"))))
|
||||
(when articles
|
||||
(setcar active (apply 'min articles))
|
||||
(setcdr active (apply 'max articles))))))
|
||||
|
|
@ -371,7 +371,7 @@ as unread by Gnus.")
|
|||
;; Delete all articles in GROUP.
|
||||
(if (not force)
|
||||
() ; Don't delete the articles.
|
||||
(let ((articles (directory-files nnmh-current-directory t "^[0-9]+$")))
|
||||
(let ((articles (directory-files nnmh-current-directory t "\\`[0-9]+\\'")))
|
||||
(while articles
|
||||
(when (file-writable-p (car articles))
|
||||
(nnheader-message 5 "Deleting article %s in %s..."
|
||||
|
|
@ -485,7 +485,7 @@ as unread by Gnus.")
|
|||
;; Find the highest number in the group.
|
||||
(let ((files (sort
|
||||
(mapcar 'string-to-number
|
||||
(directory-files dir nil "^[0-9]+$"))
|
||||
(directory-files dir nil "\\`[0-9]+\\'"))
|
||||
'>)))
|
||||
(when files
|
||||
(setcdr active (car files)))))
|
||||
|
|
@ -509,7 +509,7 @@ as unread by Gnus.")
|
|||
(let* ((dir nnmh-current-directory)
|
||||
(files (sort (mapcar 'string-to-number
|
||||
(directory-files nnmh-current-directory
|
||||
nil "^[0-9]+$" t))
|
||||
nil "\\`[0-9]+\\'" t))
|
||||
'<))
|
||||
(nnmh-file (concat dir ".nnmh-articles"))
|
||||
new articles)
|
||||
|
|
|
|||
|
|
@ -260,7 +260,7 @@ there.")
|
|||
t)
|
||||
;; Yes, completely empty spool directories *are* possible.
|
||||
;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>
|
||||
(when (setq dir (directory-files pathname nil "^[0-9]+$" t))
|
||||
(when (setq dir (directory-files pathname nil "\\`[0-9]+\\'" t))
|
||||
(setq dir (sort (mapcar 'string-to-number dir) '<)))
|
||||
(if dir
|
||||
(nnheader-insert
|
||||
|
|
|
|||
|
|
@ -557,7 +557,7 @@ check the variable `spam-stat-score-data'."
|
|||
|
||||
(defun spam-stat-process-directory (dir func)
|
||||
"Process all the regular files in directory DIR using function FUNC."
|
||||
(let* ((files (directory-files dir t "^[^.]"))
|
||||
(let* ((files (directory-files dir t "\\`[^.]"))
|
||||
(max (/ (length files) 100.0))
|
||||
(count 0))
|
||||
(with-temp-buffer
|
||||
|
|
@ -601,7 +601,7 @@ If VERBOSE is non-nil display names of files detected as spam or
|
|||
non-spam in a temporary buffer. If it is the symbol `ham',
|
||||
display non-spam files; otherwise display spam files."
|
||||
(interactive "DDirectory: ")
|
||||
(let* ((files (directory-files dir t "^[^.]"))
|
||||
(let* ((files (directory-files dir t "\\`[^.]"))
|
||||
display-files
|
||||
buffer-score
|
||||
(total (length files))
|
||||
|
|
|
|||
|
|
@ -623,7 +623,7 @@ FILE is the file where FUNCTION was probably defined."
|
|||
;; of the *packages* in which the function is defined.
|
||||
(let* ((name (symbol-name symbol))
|
||||
(re (concat "\\_<" (regexp-quote name) "\\_>"))
|
||||
(news (directory-files data-directory t "\\`NEWS.[1-9]"))
|
||||
(news (directory-files data-directory t "\\`NEWS\\.[1-9]"))
|
||||
(place nil)
|
||||
(first nil))
|
||||
(with-temp-buffer
|
||||
|
|
|
|||
|
|
@ -361,7 +361,7 @@ With argument, display info only for the selected version."
|
|||
(setq res (cons (match-string-no-properties 1) res)))))
|
||||
(cons "NEWS"
|
||||
(directory-files data-directory nil
|
||||
"^NEWS\\.[0-9][-0-9]*$" nil)))
|
||||
"\\`NEWS\\.[0-9][-0-9]*\\'" nil)))
|
||||
(sort (delete-dups res) #'string>)))
|
||||
(current (car all-versions)))
|
||||
(setq version (completing-read
|
||||
|
|
|
|||
|
|
@ -3059,7 +3059,7 @@ of each directory."
|
|||
(while quail-dirs
|
||||
(setq dirname (car quail-dirs))
|
||||
(when dirname
|
||||
(setq pkg-list (directory-files dirname 'full "\\.el$"))
|
||||
(setq pkg-list (directory-files dirname 'full "\\.el\\'"))
|
||||
(while pkg-list
|
||||
(with-temp-buffer
|
||||
(insert-file-contents (car pkg-list))
|
||||
|
|
|
|||
|
|
@ -553,7 +553,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
|
|||
(if (file-directory-p filename)
|
||||
(progn
|
||||
(message "Converting all tit files in the directory %s" filename)
|
||||
(setq files (directory-files filename t "\\.tit$")))
|
||||
(setq files (directory-files filename t "\\.tit\\'")))
|
||||
(setq files (list filename)))
|
||||
(while files
|
||||
(setq file (expand-file-name (car files)))
|
||||
|
|
|
|||
|
|
@ -223,7 +223,7 @@ your primary spool is. If this fails, set it to something like
|
|||
;; So I create a vm-spool-files entry for each of those mail drops
|
||||
(mapcar 'file-name-sans-extension
|
||||
(directory-files mspools-folder-directory nil
|
||||
(format "^[^.]+\\.%s" mspools-suffix)))
|
||||
(format "\\`[^.]+\\.%s" mspools-suffix)))
|
||||
))
|
||||
))
|
||||
|
||||
|
|
@ -357,7 +357,7 @@ nil."
|
|||
(if (null mspools-folder-directory)
|
||||
(error "Set `mspools-folder-directory' to where the spool files are"))
|
||||
(setq folders (directory-files mspools-folder-directory nil
|
||||
(format "^[^.]+\\.%s$" mspools-suffix)))
|
||||
(format "\\`[^.]+\\.%s\\'" mspools-suffix)))
|
||||
(setq folders (mapcar 'mspools-size-folder folders))
|
||||
(setq folders (delq nil folders))
|
||||
(setq mspools-files folders)
|
||||
|
|
|
|||
|
|
@ -474,7 +474,7 @@ the frame where you have the RMAIL buffer displayed."
|
|||
:type 'directory
|
||||
:group 'rmail-files)
|
||||
;;;###autoload
|
||||
(defcustom rmail-secondary-file-regexp (purecopy "\\.xmail$")
|
||||
(defcustom rmail-secondary-file-regexp (purecopy "\\.xmail\\'")
|
||||
"Regexp for which files are secondary Rmail files."
|
||||
:type 'regexp
|
||||
:group 'rmail-files)
|
||||
|
|
@ -4364,7 +4364,8 @@ This has an effect only if a summary buffer exists."
|
|||
(font-lock-fontify-region (point-min) (point-max)))))))
|
||||
|
||||
;;; Speedbar support for RMAIL files.
|
||||
(defcustom rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$"
|
||||
(defcustom rmail-speedbar-match-folder-regexp
|
||||
"\\`[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?\\'"
|
||||
"Regexp matching Rmail folder names to be displayed in Speedbar.
|
||||
Enabling this permits Speedbar to display your folders for easy
|
||||
browsing, and moving of messages."
|
||||
|
|
|
|||
|
|
@ -4170,8 +4170,7 @@ directory, so that Emacs will know its current contents."
|
|||
(ange-ftp-delete-directory file recursive trash)
|
||||
(delete-file file trash)))
|
||||
;; We do not want to delete "." and "..".
|
||||
(directory-files
|
||||
dir 'full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")))
|
||||
(directory-files dir 'full (rx (or (not ".") "...")))))
|
||||
(if parsed
|
||||
(let* ((host (nth 0 parsed))
|
||||
(user (nth 1 parsed))
|
||||
|
|
|
|||
|
|
@ -2464,7 +2464,7 @@ remote file names."
|
|||
(regexp-opt
|
||||
(mapcar
|
||||
#'file-name-sans-extension
|
||||
(directory-files dir nil "^tramp.+\\.elc?$"))
|
||||
(directory-files dir nil "\\`tramp.+\\.elc?\\'"))
|
||||
'paren))))
|
||||
(mapatoms
|
||||
(lambda (atom)
|
||||
|
|
|
|||
|
|
@ -94,7 +94,7 @@ is left in the `*gulp*' buffer at the end."
|
|||
(interactive "DRequest updates for Lisp directory: \nP")
|
||||
(with-current-buffer (get-buffer-create gulp-tmp-buffer)
|
||||
(let ((m-p-alist (gulp-create-m-p-alist
|
||||
(directory-files dir nil "^[^=].*\\.el$" t)
|
||||
(directory-files dir nil "\\`[^=].*\\.el\\'" t)
|
||||
dir))
|
||||
;; Temporarily inhibit undo in the *gulp* buffer.
|
||||
(buffer-undo-list t)
|
||||
|
|
|
|||
|
|
@ -597,18 +597,20 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see
|
|||
(unless (file-writable-p rl-dir)
|
||||
(error "No writable revlib directory found"))
|
||||
(message "Revlib at %s" rl-dir)
|
||||
(let* ((archives (directory-files rl-dir 'full "[^.]\\|..."))
|
||||
(let* ((archives (directory-files rl-dir 'full (rx (or (not ".") "..."))))
|
||||
(categories
|
||||
(apply 'append
|
||||
(mapcar (lambda (dir)
|
||||
(when (file-directory-p dir)
|
||||
(directory-files dir 'full "[^.]\\|...")))
|
||||
(directory-files dir 'full
|
||||
(rx (or (not ".") "...")))))
|
||||
archives)))
|
||||
(branches
|
||||
(apply 'append
|
||||
(mapcar (lambda (dir)
|
||||
(when (file-directory-p dir)
|
||||
(directory-files dir 'full "[^.]\\|...")))
|
||||
(directory-files dir 'full
|
||||
(rx (or (not ".") "...")))))
|
||||
categories)))
|
||||
(versions
|
||||
(apply 'append
|
||||
|
|
|
|||
|
|
@ -3055,7 +3055,7 @@ of `org-babel-temporary-directory'."
|
|||
(delete-file file)))
|
||||
;; We do not want to delete "." and "..".
|
||||
(directory-files org-babel-temporary-directory 'full
|
||||
"^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))
|
||||
(rx (or (not ".") "..."))))
|
||||
(delete-directory org-babel-temporary-directory))
|
||||
(error
|
||||
(message "Failed to remove temporary Org-babel directory %s"
|
||||
|
|
|
|||
|
|
@ -1883,7 +1883,7 @@ It's only used when `ebnf-syntax' is `iso-ebnf'."
|
|||
:group 'ebnf-syntactic)
|
||||
|
||||
|
||||
(defcustom ebnf-file-suffix-regexp "\\.[Bb][Nn][Ff]$"
|
||||
(defcustom ebnf-file-suffix-regexp "\\.[Bb][Nn][Ff]\\'"
|
||||
"Specify file name suffix that contains EBNF.
|
||||
|
||||
See `ebnf-eps-directory' command."
|
||||
|
|
@ -2715,7 +2715,7 @@ Used in functions `ebnf-reset-style', `ebnf-push-style' and
|
|||
(ebnf-syntax . 'ebnf)
|
||||
(ebnf-iso-alternative-p . nil)
|
||||
(ebnf-iso-normalize-p . nil)
|
||||
(ebnf-file-suffix-regexp . "\\.[Bb][Nn][Ff]$")
|
||||
(ebnf-file-suffix-regexp . "\\.[Bb][Nn][Ff]\\'")
|
||||
(ebnf-eps-prefix . "ebnf--")
|
||||
(ebnf-eps-header-font . '(11 Helvetica "Black" "White" bold))
|
||||
(ebnf-eps-header . nil)
|
||||
|
|
|
|||
|
|
@ -155,7 +155,7 @@ See `compilation-error-regexp-alist'.")
|
|||
If PROGRAM is non-nil, use that instead of \"find\"."
|
||||
;; Pick file to search from location we know
|
||||
(let* ((dir (file-truename data-directory))
|
||||
(file (car (directory-files dir nil "^[^.]"))))
|
||||
(file (car (directory-files dir nil "\\`[^.]"))))
|
||||
(with-temp-buffer
|
||||
(call-process (or program "find")
|
||||
nil
|
||||
|
|
|
|||
|
|
@ -5146,10 +5146,11 @@ property, in the way that `yank' does."
|
|||
|
||||
(defun yank (&optional arg)
|
||||
"Reinsert (\"paste\") the last stretch of killed text.
|
||||
More precisely, reinsert the most recent kill, which is the
|
||||
stretch of killed text most recently killed OR yanked. Put point
|
||||
at the end, and set mark at the beginning without activating it.
|
||||
With just \\[universal-argument] as argument, put point at beginning, and mark at end.
|
||||
More precisely, reinsert the most recent kill, which is the stretch of
|
||||
text most recently killed OR yanked, as returned by `current-kill' (which
|
||||
see). Put point at the end, and set mark at the beginning without
|
||||
activating it. With just \\[universal-argument] as argument, put point
|
||||
at beginning, and mark at end.
|
||||
With argument N, reinsert the Nth most recent kill.
|
||||
|
||||
This command honors the `yank-handled-properties' and
|
||||
|
|
|
|||
|
|
@ -1373,10 +1373,10 @@ please check its value")
|
|||
((not (eq system-type 'windows-nt))
|
||||
(concat "~" init-file-user "/.emacs"))
|
||||
;; Else deal with the Windows situation.
|
||||
((directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$")
|
||||
((directory-files "~" nil "\\`\\.emacs\\(\\.elc?\\)?\\'")
|
||||
;; Prefer .emacs on Windows.
|
||||
"~/.emacs")
|
||||
((directory-files "~" nil "^_emacs\\(\\.elc?\\)?$")
|
||||
((directory-files "~" nil "\\`_emacs\\(\\.elc?\\)?\\'")
|
||||
;; Also support _emacs for compatibility, but warn about it.
|
||||
(push `(initialization
|
||||
,(format-message
|
||||
|
|
|
|||
|
|
@ -377,7 +377,7 @@ found on the last `refer-find-entry' or `refer-find-next-entry'."
|
|||
dir files)
|
||||
(while (setq dir (car dirs))
|
||||
(setq files
|
||||
(append (directory-files dir t "\\.bib$")
|
||||
(append (directory-files dir t "\\.bib\\'")
|
||||
files))
|
||||
(setq dirs (cdr dirs)))
|
||||
files))
|
||||
|
|
|
|||
|
|
@ -37,7 +37,7 @@
|
|||
(mapc (lambda (f)
|
||||
(if (string-match "url-\\(.*\\).el$" f)
|
||||
(push (match-string 1 f) schemes)))
|
||||
(directory-files d nil "^url-.*\\.el$")))
|
||||
(directory-files d nil "\\`url-.*\\.el\\'")))
|
||||
load-path)
|
||||
(put 'url-extension-protocols 'schemes schemes)
|
||||
schemes)))))
|
||||
|
|
|
|||
|
|
@ -247,7 +247,7 @@ to the RCS command."
|
|||
(setq subdir (expand-file-name "RCS"
|
||||
(file-name-directory file)))))
|
||||
(not (directory-files (file-name-directory file)
|
||||
nil ".*,v$" t))
|
||||
nil ",v\\'" t))
|
||||
(yes-or-no-p "Create RCS subdirectory? ")
|
||||
(make-directory subdir))
|
||||
(apply #'vc-do-command "*vc*" 0 "ci" file
|
||||
|
|
@ -312,8 +312,7 @@ whether to remove it."
|
|||
(and (string= (file-name-nondirectory (directory-file-name dir)) "RCS")
|
||||
;; check whether RCS dir is empty, i.e. it does not
|
||||
;; contain any files except "." and ".."
|
||||
(not (directory-files dir nil
|
||||
"^\\([^.]\\|\\.[^.]\\|\\.\\.[^.]\\).*"))
|
||||
(not (directory-files dir nil (rx (or (not ".") "..."))))
|
||||
(yes-or-no-p (format "Directory %s is empty; remove it? " dir))
|
||||
(delete-directory dir)))))
|
||||
|
||||
|
|
|
|||
15
src/nsterm.m
15
src/nsterm.m
|
|
@ -5837,6 +5837,21 @@ - (void)applicationDidFinishLaunching: (NSNotification *)notification
|
|||
#endif
|
||||
|
||||
#ifdef NS_IMPL_COCOA
|
||||
/* Some functions/methods in CoreFoundation/Foundation increase the
|
||||
maximum number of open files for the process in their first call.
|
||||
We make dummy calls to them and then reduce the resource limit
|
||||
here, since pselect cannot handle file descriptors that are
|
||||
greater than or equal to FD_SETSIZE. */
|
||||
CFSocketGetTypeID ();
|
||||
CFFileDescriptorGetTypeID ();
|
||||
[[NSFileHandle alloc] init];
|
||||
struct rlimit rlim;
|
||||
if (getrlimit (RLIMIT_NOFILE, &rlim) == 0
|
||||
&& rlim.rlim_cur > FD_SETSIZE)
|
||||
{
|
||||
rlim.rlim_cur = FD_SETSIZE;
|
||||
setrlimit (RLIMIT_NOFILE, &rlim);
|
||||
}
|
||||
if ([NSApp activationPolicy] == NSApplicationActivationPolicyProhibited) {
|
||||
/* Set the app's activation policy to regular when we run outside
|
||||
of a bundle. This is already done for us by Info.plist when we
|
||||
|
|
|
|||
|
|
@ -668,7 +668,7 @@ This tests also `access-file', `file-readable-p' and `file-regular-p'."
|
|||
(setq attr (directory-files-and-attributes tmp-name 'full))
|
||||
(dolist (elt attr)
|
||||
(should (equal (file-attributes (car elt)) (cdr elt))))
|
||||
(setq attr (directory-files-and-attributes tmp-name nil "^b"))
|
||||
(setq attr (directory-files-and-attributes tmp-name nil "\\`b"))
|
||||
(should (equal (mapcar #'car attr) '("bar"))))
|
||||
|
||||
;; Cleanup.
|
||||
|
|
|
|||
|
|
@ -3350,7 +3350,7 @@ They might differ only in time attributes or directory size."
|
|||
(tramp--test-file-attributes-equal-p
|
||||
(file-attributes (car elt)) (cdr elt))))
|
||||
|
||||
(setq attr (directory-files-and-attributes tmp-name2 nil "^b"))
|
||||
(setq attr (directory-files-and-attributes tmp-name2 nil "\\`b"))
|
||||
(should (equal (mapcar #'car attr) '("bar" "boz"))))
|
||||
|
||||
;; Cleanup.
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue