diff options
| author | Glenn Morris | 2018-04-04 07:50:45 -0700 |
|---|---|---|
| committer | Glenn Morris | 2018-04-04 07:50:45 -0700 |
| commit | 2f779d8ce804de84fed55a6b0aa74499ef369852 (patch) | |
| tree | 6c2ce6ccea8faceb9c3bfa93536788e5bdaf2510 /lisp | |
| parent | bc17d5d12474e57bb50535224be3c96349df383a (diff) | |
| parent | 3109d2bb17f975c045e1b683e73254e6d24ab017 (diff) | |
| download | emacs-2f779d8ce804de84fed55a6b0aa74499ef369852.tar.gz emacs-2f779d8ce804de84fed55a6b0aa74499ef369852.zip | |
Merge from origin/emacs-26
3109d2b (origin/emacs-26) ; * lisp/ldefs-boot.el: Update.
86825c4 * etc/NEWS: Remove temporary markup.
737d0a2 * Update etc/AUTHORS
fbd03ba * ChangeLog.3: Update
56794ac Fix Bug#31022
a231c33 Update "Calendrical Calculations" cites
1527235 ; * doc/lispref/compile.texi (Compilation Functions): Fix wor...
b07decd ; * doc/lispref/compile.texi (Compilation Functions): Fix typo
a64c11a Fix term.el rendering following a window resize (Bug#30544)
1e6f09a * files.el (auto-save-visited-mode): Don't prompt for filenames.
eb8b13f ; * etc/NEWS: Improve the entry about pinentry.el removal.
52501ec Quote a few backticks in docstrings.
Conflicts:
etc/NEWS
lisp/ldefs-boot.el
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/calendar.el | 33 | ||||
| -rw-r--r-- | lisp/cus-start.el | 7 | ||||
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 6 | ||||
| -rw-r--r-- | lisp/files.el | 5 | ||||
| -rw-r--r-- | lisp/term.el | 5 |
5 files changed, 32 insertions, 24 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 4bf8b67ee53..16009df8245 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -76,20 +76,19 @@ | |||
| 76 | ;; solar.el Sunrise/sunset, equinoxes/solstices | 76 | ;; solar.el Sunrise/sunset, equinoxes/solstices |
| 77 | 77 | ||
| 78 | ;; Technical details of all the calendrical calculations can be found in | 78 | ;; Technical details of all the calendrical calculations can be found in |
| 79 | ;; ``Calendrical Calculations: The Millennium Edition'' by Edward M. Reingold | 79 | ;; "Calendrical Calculations: The Ultimate Edition" by Edward M. Reingold |
| 80 | ;; and Nachum Dershowitz, Cambridge University Press (2001). | 80 | ;; and Nachum Dershowitz, Cambridge University Press (2018). |
| 81 | 81 | ||
| 82 | ;; An earlier version of the technical details appeared in | 82 | ;; An earlier version of the technical details appeared in "Calendrical |
| 83 | ;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold, | 83 | ;; Calculations" by Nachum Dershowitz and Edward M. Reingold, |
| 84 | ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), | 84 | ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), |
| 85 | ;; pages 899-928, and in ``Calendrical Calculations, Part II: Three Historical | 85 | ;; pages 899-928 <https://doi.org/10.1002/spe.4380200905> |
| 86 | ;; Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. Clamen, | 86 | ;; <https://pdfs.semanticscholar.org/83b1/14f570002a7a8e1d4e3730cd0e4cdbcad212.pdf>, |
| 87 | ;; Software--Practice and Experience, Volume 23, Number 4 (April, 1993), | 87 | ;; and in "Calendrical Calculations, Part II: Three Historical Calendars" by |
| 88 | ;; pages 383-404. | 88 | ;; E. M. Reingold, N. Dershowitz, and S. M. Clamen, Software--Practice and |
| 89 | 89 | ;; Experience, Volume 23, Number 4 (April, 1993), pages 383-404 | |
| 90 | ;; Hard copies of these two papers can be obtained by sending email to | 90 | ;; <https://doi.org/10.1002/spe.4380230404> |
| 91 | ;; reingold@cs.uiuc.edu with the SUBJECT "send-paper-cal" (no quotes) and | 91 | ;; <http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.42.6421&rep=rep1&type=pdf> |
| 92 | ;; the message BODY containing your mailing address (snail). | ||
| 93 | 92 | ||
| 94 | 93 | ||
| 95 | ;; A note on free variables: | 94 | ;; A note on free variables: |
| @@ -1948,10 +1947,12 @@ use instead of point." | |||
| 1948 | The absolute date is the number of days elapsed since the (imaginary) | 1947 | The absolute date is the number of days elapsed since the (imaginary) |
| 1949 | Gregorian date Sunday, December 31, 1 BC. This function does not | 1948 | Gregorian date Sunday, December 31, 1 BC. This function does not |
| 1950 | handle dates in years BC." | 1949 | handle dates in years BC." |
| 1951 | ;; See the footnote on page 384 of ``Calendrical Calculations, Part II: | 1950 | ;; For an explanation, see the footnote on page 384 of "Calendrical |
| 1952 | ;; Three Historical Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. | 1951 | ;; Calculations, Part II: Three Historical Calendars" by |
| 1953 | ;; Clamen, Software--Practice and Experience, Volume 23, Number 4 | 1952 | ;; E. M. Reingold, N. Dershowitz, and S. M. Clamen, |
| 1954 | ;; (April, 1993), pages 383-404 for an explanation. | 1953 | ;; Software--Practice and Experience, Volume 23, Number 4 (April, |
| 1954 | ;; 1993), pages 383-404 <https://doi.org/10.1002/spe.4380230404> | ||
| 1955 | ;; <http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.42.6421&rep=rep1&type=pdf>. | ||
| 1955 | (let* ((d0 (1- date)) | 1956 | (let* ((d0 (1- date)) |
| 1956 | (n400 (/ d0 146097)) | 1957 | (n400 (/ d0 146097)) |
| 1957 | (d1 (% d0 146097)) | 1958 | (d1 (% d0 146097)) |
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 9ba1e105a1b..f31d1df3097 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el | |||
| @@ -277,9 +277,10 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of | |||
| 277 | ((eq system-type 'darwin) | 277 | ((eq system-type 'darwin) |
| 278 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") | 278 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") |
| 279 | ;; See bug#7135. | 279 | ;; See bug#7135. |
| 280 | (let ((tmp (ignore-errors | 280 | (let* (file-name-handler-alist |
| 281 | (shell-command-to-string | 281 | (tmp (ignore-errors |
| 282 | "getconf DARWIN_USER_TEMP_DIR")))) | 282 | (shell-command-to-string |
| 283 | "getconf DARWIN_USER_TEMP_DIR")))) | ||
| 283 | (and (stringp tmp) | 284 | (and (stringp tmp) |
| 284 | (setq tmp (replace-regexp-in-string | 285 | (setq tmp (replace-regexp-in-string |
| 285 | "\n\\'" "" tmp)) | 286 | "\n\\'" "" tmp)) |
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index b2ac8be53cc..93678bad7a6 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el | |||
| @@ -318,7 +318,7 @@ definitions to shadow the loaded ones for use in file byte-compilation." | |||
| 318 | (cons (nreverse decls) body))) | 318 | (cons (nreverse decls) body))) |
| 319 | 319 | ||
| 320 | (defun macroexp-progn (exps) | 320 | (defun macroexp-progn (exps) |
| 321 | "Return an expression equivalent to `(progn ,@EXPS)." | 321 | "Return an expression equivalent to \\=`(progn ,@EXPS)." |
| 322 | (if (cdr exps) `(progn ,@exps) (car exps))) | 322 | (if (cdr exps) `(progn ,@exps) (car exps))) |
| 323 | 323 | ||
| 324 | (defun macroexp-unprogn (exp) | 324 | (defun macroexp-unprogn (exp) |
| @@ -327,14 +327,14 @@ Never returns an empty list." | |||
| 327 | (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp))) | 327 | (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp))) |
| 328 | 328 | ||
| 329 | (defun macroexp-let* (bindings exp) | 329 | (defun macroexp-let* (bindings exp) |
| 330 | "Return an expression equivalent to `(let* ,bindings ,exp)." | 330 | "Return an expression equivalent to \\=`(let* ,bindings ,exp)." |
| 331 | (cond | 331 | (cond |
| 332 | ((null bindings) exp) | 332 | ((null bindings) exp) |
| 333 | ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp))) | 333 | ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp))) |
| 334 | (t `(let* ,bindings ,exp)))) | 334 | (t `(let* ,bindings ,exp)))) |
| 335 | 335 | ||
| 336 | (defun macroexp-if (test then else) | 336 | (defun macroexp-if (test then else) |
| 337 | "Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)." | 337 | "Return an expression equivalent to \\=`(if ,TEST ,THEN ,ELSE)." |
| 338 | (cond | 338 | (cond |
| 339 | ((eq (car-safe else) 'if) | 339 | ((eq (car-safe else) 'if) |
| 340 | (cond | 340 | (cond |
diff --git a/lisp/files.el b/lisp/files.el index 6a13a9d71a6..83cba24336c 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -436,8 +436,9 @@ and toggle it if ARG is `toggle'." | |||
| 436 | auto-save-visited-interval :repeat | 436 | auto-save-visited-interval :repeat |
| 437 | #'save-some-buffers :no-prompt | 437 | #'save-some-buffers :no-prompt |
| 438 | (lambda () | 438 | (lambda () |
| 439 | (not (and buffer-auto-save-file-name | 439 | (and buffer-file-name |
| 440 | auto-save-visited-file-name))))))) | 440 | (not (and buffer-auto-save-file-name |
| 441 | auto-save-visited-file-name)))))))) | ||
| 441 | 442 | ||
| 442 | ;; The 'set' part is so we don't get a warning for using this variable | 443 | ;; The 'set' part is so we don't get a warning for using this variable |
| 443 | ;; above, while still catching code that _sets_ the variable to get | 444 | ;; above, while still catching code that _sets_ the variable to get |
diff --git a/lisp/term.el b/lisp/term.el index 91eab771cf0..d3a9ef30371 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -1138,6 +1138,11 @@ Entry to this mode runs the hooks on `term-mode-hook'." | |||
| 1138 | (setq term-current-row nil) | 1138 | (setq term-current-row nil) |
| 1139 | (setq term-current-column nil) | 1139 | (setq term-current-column nil) |
| 1140 | (term-set-scroll-region 0 height) | 1140 | (term-set-scroll-region 0 height) |
| 1141 | ;; `term-set-scroll-region' causes these to be set, we have to | ||
| 1142 | ;; clear them again since we're changing point (Bug#30544). | ||
| 1143 | (setq term-start-line-column nil) | ||
| 1144 | (setq term-current-row nil) | ||
| 1145 | (setq term-current-column nil) | ||
| 1141 | (goto-char point)))) | 1146 | (goto-char point)))) |
| 1142 | 1147 | ||
| 1143 | ;; Recursive routine used to check if any string in term-kill-echo-list | 1148 | ;; Recursive routine used to check if any string in term-kill-echo-list |