aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris2018-04-04 07:50:45 -0700
committerGlenn Morris2018-04-04 07:50:45 -0700
commit2f779d8ce804de84fed55a6b0aa74499ef369852 (patch)
tree6c2ce6ccea8faceb9c3bfa93536788e5bdaf2510 /lisp
parentbc17d5d12474e57bb50535224be3c96349df383a (diff)
parent3109d2bb17f975c045e1b683e73254e6d24ab017 (diff)
downloademacs-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.el33
-rw-r--r--lisp/cus-start.el7
-rw-r--r--lisp/emacs-lisp/macroexp.el6
-rw-r--r--lisp/files.el5
-rw-r--r--lisp/term.el5
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."
1948The absolute date is the number of days elapsed since the (imaginary) 1947The absolute date is the number of days elapsed since the (imaginary)
1949Gregorian date Sunday, December 31, 1 BC. This function does not 1948Gregorian date Sunday, December 31, 1 BC. This function does not
1950handle dates in years BC." 1949handle 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