aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2016-11-04 15:02:03 -0700
committerPaul Eggert2016-11-04 15:02:03 -0700
commitae0a1a890ec7b885e85cd945a21ca42fed80df3d (patch)
tree495f1d851cb3a43a0e677bff9c09d4211a35fbde /lisp
parent66b5222c3cd72839bf72e0b2a03912719c930451 (diff)
parentacae275b2752357497a2411876b83240ce7c8aec (diff)
downloademacs-ae0a1a890ec7b885e85cd945a21ca42fed80df3d.tar.gz
emacs-ae0a1a890ec7b885e85cd945a21ca42fed80df3d.zip
Merge from origin/emacs-25
acae275 ; Spelling fixes d8fac73 Update README for precompiled windows Emacs. 23570fd Clarify documentation of 'vc-responsible-backend' wrt symlinks f708cb2 Clarify doc string of 'transpose-sexps' cd05b1d Fix docstring of 'browse-url-firefox-new-window-is-tab' bdc89eb Improve documentation of 'font-lock-remove-keywords' 4a0c590 Fix documentation of the command summary key 0221b7a Mark relocation workarounds with REL_ALLOC
Diffstat (limited to 'lisp')
-rw-r--r--lisp/cedet/ede/locate.el4
-rw-r--r--lisp/cedet/semantic/db-typecache.el2
-rw-r--r--lisp/emacs-lisp/eieio-core.el2
-rw-r--r--lisp/emulation/edt.el2
-rw-r--r--lisp/erc/erc-backend.el6
-rw-r--r--lisp/international/ucs-normalize.el2
-rw-r--r--lisp/language/ind-util.el2
-rw-r--r--lisp/mh-e/mh-search.el4
-rw-r--r--lisp/mh-e/mh-thread.el8
-rw-r--r--lisp/net/browse-url.el5
-rw-r--r--lisp/simple.el10
-rw-r--r--lisp/subr.el2
-rw-r--r--lisp/vc/vc.el6
13 files changed, 30 insertions, 25 deletions
diff --git a/lisp/cedet/ede/locate.el b/lisp/cedet/ede/locate.el
index 38d23883951..8564719c810 100644
--- a/lisp/cedet/ede/locate.el
+++ b/lisp/cedet/ede/locate.el
@@ -124,12 +124,12 @@ based on `ede-locate-setup-options'."
124 t) 124 t)
125 125
126(cl-defmethod ede-locate-flush-hash ((loc ede-locate-base)) 126(cl-defmethod ede-locate-flush-hash ((loc ede-locate-base))
127 "For LOC, flush hashtable and start from scratch." 127 "For LOC, flush hash table and start from scratch."
128 (oset loc hash (make-hash-table :test 'equal))) 128 (oset loc hash (make-hash-table :test 'equal)))
129 129
130(cl-defmethod ede-locate-file-in-hash ((loc ede-locate-base) 130(cl-defmethod ede-locate-file-in-hash ((loc ede-locate-base)
131 filestring) 131 filestring)
132 "For LOC, is the file FILESTRING in our hashtable?" 132 "For LOC, is the file FILESTRING in our hash table?"
133 (gethash filestring (oref loc hash))) 133 (gethash filestring (oref loc hash)))
134 134
135(cl-defmethod ede-locate-add-file-to-hash ((loc ede-locate-base) 135(cl-defmethod ede-locate-add-file-to-hash ((loc ede-locate-base)
diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 366af60034c..76382a30dd1 100644
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -56,7 +56,7 @@
56 (stream :initform nil 56 (stream :initform nil
57 :documentation 57 :documentation
58 "The searchable tag stream for this cache. 58 "The searchable tag stream for this cache.
59NOTE: Can I get rid of this? Use a hashtable instead?") 59NOTE: Can I get rid of this? Use a hash table instead?")
60 (dependants :initform nil 60 (dependants :initform nil
61 :documentation 61 :documentation
62 "Any other object that is dependent on typecache results. 62 "Any other object that is dependent on typecache results.
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el
index 52577adefac..624dccef075 100644
--- a/lisp/emacs-lisp/eieio-core.el
+++ b/lisp/emacs-lisp/eieio-core.el
@@ -460,7 +460,7 @@ See `defclass' for more information."
460 (cl--slot-descriptor-initform (aref slots i))))) 460 (cl--slot-descriptor-initform (aref slots i)))))
461 (setf (eieio--class-class-allocation-values newc) v)) 461 (setf (eieio--class-class-allocation-values newc) v))
462 462
463 ;; Attach slot symbols into a hashtable, and store the index of 463 ;; Attach slot symbols into a hash table, and store the index of
464 ;; this slot as the value this table. 464 ;; this slot as the value this table.
465 (let* ((slots (eieio--class-slots newc)) 465 (let* ((slots (eieio--class-slots newc))
466 ;; (cslots (eieio--class-class-slots newc)) 466 ;; (cslots (eieio--class-class-slots newc))
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 6bda15bf98d..f408ff73106 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -497,7 +497,7 @@ Argument NUM is the number of EOL marks to move."
497;;; of line, etc.) it takes a bit of special handling. 497;;; of line, etc.) it takes a bit of special handling.
498;;; 498;;;
499;;; The variable edt-word-entities contains a list of characters which 499;;; The variable edt-word-entities contains a list of characters which
500;;; are to be viewed as distinct words where ever they appear in the 500;;; are to be viewed as distinct words wherever they appear in the
501;;; buffer. This emulates the EDT line mode command SET ENTITY WORD. 501;;; buffer. This emulates the EDT line mode command SET ENTITY WORD.
502 502
503 503
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index 54c17bf73d9..288e8efe73e 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -108,7 +108,7 @@
108;;;; Variables and options 108;;;; Variables and options
109 109
110(defvar erc-server-responses (make-hash-table :test #'equal) 110(defvar erc-server-responses (make-hash-table :test #'equal)
111 "Hashtable mapping server responses to their handler hooks.") 111 "Hash table mapping server responses to their handler hooks.")
112 112
113(cl-defstruct (erc-response (:conc-name erc-response.)) 113(cl-defstruct (erc-response (:conc-name erc-response.))
114 (unparsed "" :type string) 114 (unparsed "" :type string)
@@ -1061,7 +1061,7 @@ See also `erc-server-responses'."
1061(defun erc-call-hooks (process message) 1061(defun erc-call-hooks (process message)
1062 "Call hooks associated with MESSAGE in PROCESS. 1062 "Call hooks associated with MESSAGE in PROCESS.
1063 1063
1064Finds hooks by looking in the `erc-server-responses' hashtable." 1064Finds hooks by looking in the `erc-server-responses' hash table."
1065 (let ((hook (or (erc-get-hook (erc-response.command message)) 1065 (let ((hook (or (erc-get-hook (erc-response.command message))
1066 'erc-default-server-functions))) 1066 'erc-default-server-functions)))
1067 (run-hook-with-args-until-success hook process message) 1067 (run-hook-with-args-until-success hook process message)
@@ -1218,7 +1218,7 @@ add things to `%s' instead."
1218 (put ',fn-name 'definition-name ',name) 1218 (put ',fn-name 'definition-name ',name)
1219 (put ',hook-name 'definition-name ',name) 1219 (put ',hook-name 'definition-name ',name)
1220 1220
1221 ;; Hashtable map of responses to hook variables 1221 ;; Hash table map of responses to hook variables
1222 ,@(cl-loop for response in (cons name aliases) 1222 ,@(cl-loop for response in (cons name aliases)
1223 for var in (cons hook-name var-alternates) 1223 for var in (cons hook-name var-alternates)
1224 collect `(puthash ,(format "%s" response) ',var 1224 collect `(puthash ,(format "%s" response) ',var
diff --git a/lisp/international/ucs-normalize.el b/lisp/international/ucs-normalize.el
index ac2a0d9e778..cf2e81e20f2 100644
--- a/lisp/international/ucs-normalize.el
+++ b/lisp/international/ucs-normalize.el
@@ -227,7 +227,7 @@
227 table)) 227 table))
228 228
229(defvar ucs-normalize-decomposition-pair-to-primary-composite nil 229(defvar ucs-normalize-decomposition-pair-to-primary-composite nil
230 "Hashtable of decomposed pair to primary composite. 230 "Hash table of decomposed pair to primary composite.
231Note that Hangul are excluded.") 231Note that Hangul are excluded.")
232 (setq ucs-normalize-decomposition-pair-to-primary-composite 232 (setq ucs-normalize-decomposition-pair-to-primary-composite
233 (ucs-normalize-make-hash-table-from-alist 233 (ucs-normalize-make-hash-table-from-alist
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index deea48933c8..f7424ecd84f 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -39,7 +39,7 @@
39(eval-and-compile 39(eval-and-compile
40 40
41(defun indian-regexp-of-hashtbl-keys (hashtbl) 41(defun indian-regexp-of-hashtbl-keys (hashtbl)
42 "Returns the regular expression of hashtable keys." 42 "Return the regular expression of hash table keys."
43 (let (keys) 43 (let (keys)
44 (maphash (lambda (key val) (push key keys)) hashtbl) 44 (maphash (lambda (key val) (push key keys)) hashtbl)
45 (regexp-opt keys))) 45 (regexp-opt keys)))
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index 6e607444ad8..d5a2d779b21 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1859,7 +1859,7 @@ PROC is used to convert the value to actual data."
1859(defun mh-index-update-maps (folder &optional origin-map) 1859(defun mh-index-update-maps (folder &optional origin-map)
1860 "Annotate all as yet unannotated messages in FOLDER with their MD5 hash. 1860 "Annotate all as yet unannotated messages in FOLDER with their MD5 hash.
1861As a side effect msg -> checksum map is updated. Optional 1861As a side effect msg -> checksum map is updated. Optional
1862argument ORIGIN-MAP is a hashtable which maps each message in the 1862argument ORIGIN-MAP is a hash table which maps each message in the
1863index folder to the original folder and message from whence it 1863index folder to the original folder and message from whence it
1864was copied. If present the checksum -> (origin-folder, 1864was copied. If present the checksum -> (origin-folder,
1865origin-index) map is updated too." 1865origin-index) map is updated too."
@@ -1913,7 +1913,7 @@ origin-index) map is updated too."
1913(defun mh-index-update-single-msg (msg checksum origin-map) 1913(defun mh-index-update-single-msg (msg checksum origin-map)
1914 "Update various maps for one message. 1914 "Update various maps for one message.
1915MSG is a index folder message, CHECKSUM its MD5 hash and 1915MSG is a index folder message, CHECKSUM its MD5 hash and
1916ORIGIN-MAP, if non-nil, a hashtable containing which maps each 1916ORIGIN-MAP, if non-nil, a hash table containing which maps each
1917message in the index folder to the folder and message that it was 1917message in the index folder to the folder and message that it was
1918copied from. The function updates the hash tables 1918copied from. The function updates the hash tables
1919`mh-index-msg-checksum-map' and `mh-index-checksum-origin-map'. 1919`mh-index-msg-checksum-map' and `mh-index-checksum-origin-map'.
diff --git a/lisp/mh-e/mh-thread.el b/lisp/mh-e/mh-thread.el
index e6acdba8b30..2a37cfc9e42 100644
--- a/lisp/mh-e/mh-thread.el
+++ b/lisp/mh-e/mh-thread.el
@@ -89,11 +89,11 @@
89 (real-child-p t)) 89 (real-child-p t))
90 90
91(defvar mh-thread-id-hash nil 91(defvar mh-thread-id-hash nil
92 "Hashtable used to canonicalize message identifiers.") 92 "Hash table used to canonicalize message identifiers.")
93(make-variable-buffer-local 'mh-thread-id-hash) 93(make-variable-buffer-local 'mh-thread-id-hash)
94 94
95(defvar mh-thread-subject-hash nil 95(defvar mh-thread-subject-hash nil
96 "Hashtable used to canonicalize subject strings.") 96 "Hash table used to canonicalize subject strings.")
97(make-variable-buffer-local 'mh-thread-subject-hash) 97(make-variable-buffer-local 'mh-thread-subject-hash)
98 98
99(defvar mh-thread-id-table nil 99(defvar mh-thread-id-table nil
@@ -109,11 +109,11 @@
109(make-variable-buffer-local 'mh-thread-id-index-map) 109(make-variable-buffer-local 'mh-thread-id-index-map)
110 110
111(defvar mh-thread-subject-container-hash nil 111(defvar mh-thread-subject-container-hash nil
112 "Hashtable used to group messages by subject.") 112 "Hash table used to group messages by subject.")
113(make-variable-buffer-local 'mh-thread-subject-container-hash) 113(make-variable-buffer-local 'mh-thread-subject-container-hash)
114 114
115(defvar mh-thread-duplicates nil 115(defvar mh-thread-duplicates nil
116 "Hashtable used to associate messages with the same message identifier.") 116 "Hash table used to associate messages with the same message identifier.")
117(make-variable-buffer-local 'mh-thread-duplicates) 117(make-variable-buffer-local 'mh-thread-duplicates)
118 118
119(defvar mh-thread-history () 119(defvar mh-thread-history ()
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 1bb48314bc8..15f6df742cc 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -365,10 +365,7 @@ If non-nil, then open the URL in a new tab rather than a new window if
365(defcustom browse-url-firefox-new-window-is-tab nil 365(defcustom browse-url-firefox-new-window-is-tab nil
366 "Whether to open up new windows in a tab or a new window. 366 "Whether to open up new windows in a tab or a new window.
367If non-nil, then open the URL in a new tab rather than a new window if 367If non-nil, then open the URL in a new tab rather than a new window if
368`browse-url-firefox' is asked to open it in a new window. 368`browse-url-firefox' is asked to open it in a new window."
369
370This option is currently ignored on MS-Windows, since the necessary
371functionality is not available there."
372 :type 'boolean 369 :type 'boolean
373 :group 'browse-url) 370 :group 'browse-url)
374 371
diff --git a/lisp/simple.el b/lisp/simple.el
index d915ee2eb63..fe613255ab0 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6783,9 +6783,13 @@ are interchanged."
6783 (transpose-subr 'forward-word arg)) 6783 (transpose-subr 'forward-word arg))
6784 6784
6785(defun transpose-sexps (arg) 6785(defun transpose-sexps (arg)
6786 "Like \\[transpose-words] but applies to sexps. 6786 "Like \\[transpose-chars] (`transpose-chars'), but applies to sexps.
6787Does not work on a sexp that point is in the middle of 6787Unlike `transpose-words', point must be between the two sexps and not
6788if it is a list or string." 6788in the middle of a sexp to be transposed.
6789With non-zero prefix arg ARG, effect is to take the sexp before point
6790and drag it forward past ARG other sexps (backward if ARG is negative).
6791If ARG is zero, the sexps ending at or after point and at or after mark
6792are interchanged."
6789 (interactive "*p") 6793 (interactive "*p")
6790 (transpose-subr 6794 (transpose-subr
6791 (lambda (arg) 6795 (lambda (arg)
diff --git a/lisp/subr.el b/lisp/subr.el
index fd46a818df9..ebcb1fd4b82 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -910,7 +910,7 @@ KEY is a string or vector representing a sequence of keystrokes."
910 910
911(defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix) 911(defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix)
912 "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF. 912 "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
913In other words, OLDDEF is replaced with NEWDEF where ever it appears. 913In other words, OLDDEF is replaced with NEWDEF wherever it appears.
914Alternatively, if optional fourth argument OLDMAP is specified, we redefine 914Alternatively, if optional fourth argument OLDMAP is specified, we redefine
915in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP. 915in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP.
916 916
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index ac020d09539..2ddf4e19e1f 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -959,7 +959,11 @@ use."
959If FILE is already registered, return the 959If FILE is already registered, return the
960backend of FILE. If FILE is not registered, then the 960backend of FILE. If FILE is not registered, then the
961first backend in `vc-handled-backends' that declares itself 961first backend in `vc-handled-backends' that declares itself
962responsible for FILE is returned." 962responsible for FILE is returned.
963
964Note that if FILE is a symbolic link, it will not be resolved --
965the responsible backend system for the symbolic link itself will
966be reported."
963 (or (and (not (file-directory-p file)) (vc-backend file)) 967 (or (and (not (file-directory-p file)) (vc-backend file))
964 (catch 'found 968 (catch 'found
965 ;; First try: find a responsible backend. If this is for registration, 969 ;; First try: find a responsible backend. If this is for registration,