diff options
| author | Paul Eggert | 2016-11-04 15:02:03 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-11-04 15:02:03 -0700 |
| commit | ae0a1a890ec7b885e85cd945a21ca42fed80df3d (patch) | |
| tree | 495f1d851cb3a43a0e677bff9c09d4211a35fbde /lisp | |
| parent | 66b5222c3cd72839bf72e0b2a03912719c930451 (diff) | |
| parent | acae275b2752357497a2411876b83240ce7c8aec (diff) | |
| download | emacs-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.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db-typecache.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/edt.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-backend.el | 6 | ||||
| -rw-r--r-- | lisp/international/ucs-normalize.el | 2 | ||||
| -rw-r--r-- | lisp/language/ind-util.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-search.el | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-thread.el | 8 | ||||
| -rw-r--r-- | lisp/net/browse-url.el | 5 | ||||
| -rw-r--r-- | lisp/simple.el | 10 | ||||
| -rw-r--r-- | lisp/subr.el | 2 | ||||
| -rw-r--r-- | lisp/vc/vc.el | 6 |
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. |
| 59 | NOTE: Can I get rid of this? Use a hashtable instead?") | 59 | NOTE: 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 | ||
| 1064 | Finds hooks by looking in the `erc-server-responses' hashtable." | 1064 | Finds 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. |
| 231 | Note that Hangul are excluded.") | 231 | Note 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. |
| 1861 | As a side effect msg -> checksum map is updated. Optional | 1861 | As a side effect msg -> checksum map is updated. Optional |
| 1862 | argument ORIGIN-MAP is a hashtable which maps each message in the | 1862 | argument ORIGIN-MAP is a hash table which maps each message in the |
| 1863 | index folder to the original folder and message from whence it | 1863 | index folder to the original folder and message from whence it |
| 1864 | was copied. If present the checksum -> (origin-folder, | 1864 | was copied. If present the checksum -> (origin-folder, |
| 1865 | origin-index) map is updated too." | 1865 | origin-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. |
| 1915 | MSG is a index folder message, CHECKSUM its MD5 hash and | 1915 | MSG is a index folder message, CHECKSUM its MD5 hash and |
| 1916 | ORIGIN-MAP, if non-nil, a hashtable containing which maps each | 1916 | ORIGIN-MAP, if non-nil, a hash table containing which maps each |
| 1917 | message in the index folder to the folder and message that it was | 1917 | message in the index folder to the folder and message that it was |
| 1918 | copied from. The function updates the hash tables | 1918 | copied 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. |
| 367 | If non-nil, then open the URL in a new tab rather than a new window if | 367 | If 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 | |||
| 370 | This option is currently ignored on MS-Windows, since the necessary | ||
| 371 | functionality 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. |
| 6787 | Does not work on a sexp that point is in the middle of | 6787 | Unlike `transpose-words', point must be between the two sexps and not |
| 6788 | if it is a list or string." | 6788 | in the middle of a sexp to be transposed. |
| 6789 | With non-zero prefix arg ARG, effect is to take the sexp before point | ||
| 6790 | and drag it forward past ARG other sexps (backward if ARG is negative). | ||
| 6791 | If ARG is zero, the sexps ending at or after point and at or after mark | ||
| 6792 | are 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. |
| 913 | In other words, OLDDEF is replaced with NEWDEF where ever it appears. | 913 | In other words, OLDDEF is replaced with NEWDEF wherever it appears. |
| 914 | Alternatively, if optional fourth argument OLDMAP is specified, we redefine | 914 | Alternatively, if optional fourth argument OLDMAP is specified, we redefine |
| 915 | in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP. | 915 | in 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." | |||
| 959 | If FILE is already registered, return the | 959 | If FILE is already registered, return the |
| 960 | backend of FILE. If FILE is not registered, then the | 960 | backend of FILE. If FILE is not registered, then the |
| 961 | first backend in `vc-handled-backends' that declares itself | 961 | first backend in `vc-handled-backends' that declares itself |
| 962 | responsible for FILE is returned." | 962 | responsible for FILE is returned. |
| 963 | |||
| 964 | Note that if FILE is a symbolic link, it will not be resolved -- | ||
| 965 | the responsible backend system for the symbolic link itself will | ||
| 966 | be 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, |