procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

maint: shorten https://lists.gnu.org/archive/html/... links

Browse source
This commit is contained in:
Paul Eggert 2017-11-25 22:45:41 -08:00
parent 8be3aee281
commit a89f0b6f33
110 changed files with 715 additions and 716 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/lisp.el
View file

@ -402,7 +402,7 @@ is called as a function to find the defun's beginning."
"Return non-nil if the point is in an \"emptyish\" line.
This means a line that consists entirely of comments and/or
whitespace."
;; See https://lists.gnu.org/archive/html/help-gnu-emacs/2016-08/msg00141.html
;; See https://lists.gnu.org/r/help-gnu-emacs/2016-08/msg00141.html
(save-excursion
(forward-line 0)
(< (line-end-position)
@ -525,7 +525,7 @@ the one(s) already marked."
(interactive "p")
(setq arg (or arg 1))
;; There is no `mark-defun-back' function - see
;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2016-11/msg00079.html
;; https://lists.gnu.org/r/bug-gnu-emacs/2016-11/msg00079.html
;; for explanation
(when (eq last-command 'mark-defun-back)
(setq arg (- arg)))
@ -574,7 +574,7 @@ the one(s) already marked."
(goto-char beg)
(unless (= arg -1) ; beginning-of-defun behaves
; strange with zero arg - see
; https://lists.gnu.org/archive/html/bug-gnu-emacs/2017-02/msg00196.html
; https://lists.gnu.org/r/bug-gnu-emacs/2017-02/msg00196.html
(beginning-of-defun (1- (- arg))))
(push-mark end nil t))))))
(skip-chars-backward "[:space:]\n")