mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 08:41:47 -07:00
Code Issues Projects Releases Wiki Activity

Clarify doc string of internal compilation function

Browse source 
* lisp/progmodes/compile.el (compilation-get-file-structure):
Clarify doc string (bug#3137).

(cherry picked from commit 123191decb)
This commit is contained in:
Lars Ingebrigtsen 2016-04-27 20:40:59 +02:00
parent d8affa3dc5
commit 9bd2af866b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/compile.el
View file

@ -2753,7 +2753,9 @@ FILE should be (FILENAME) or (RELATIVE-FILENAME . DIRNAME).
In the former case, FILENAME may be relative or absolute. In the former case, FILENAME may be relative or absolute.
The file-structure looks like this: The file-structure looks like this:
((FILENAME [DIR-FROM-PREV-MSG]) FMT LINE-STRUCT...)" ((FILENAME [TRUE-DIRNAME]) FMT ...)
TRUE-DIRNAME is the `file-truename' of DIRNAME, if given."
(or (gethash file compilation-locs) (or (gethash file compilation-locs)
;; File was not previously encountered, at least not in the form passed. ;; File was not previously encountered, at least not in the form passed.
;; Let's normalize it and look again. ;; Let's normalize it and look again.
@ -2808,7 +2810,7 @@ The file-structure looks like this:
(let ((fs (compilation-get-file-structure file))) (let ((fs (compilation-get-file-structure file)))
(cl-assert (eq fs (gethash file compilation-locs))) (cl-assert (eq fs (gethash file compilation-locs)))
(cl-assert (eq fs (gethash (cons (caar fs) (cadr (car fs))) (cl-assert (eq fs (gethash (cons (caar fs) (cadr (car fs)))
compilation-locs))) compilation-locs)))
(maphash (lambda (k v) (maphash (lambda (k v)
(if (eq v fs) (remhash k compilation-locs))) (if (eq v fs) (remhash k compilation-locs)))
compilation-locs))) compilation-locs)))