diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2015-05-25 13:06:11 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-05-25 13:22:36 -0700 |
commit | 1efdf7feb3e1a56649ea5da621cdf246d9a4ec50 (patch) | |
tree | 9d39a432c32de5c2c099fad246d7d1d1c9224384 | |
parent | 175a07a1329eb03176882436af86b3401c91ab77 (diff) | |
download | emacs-1efdf7feb3e1a56649ea5da621cdf246d9a4ec50.tar.gz |
Make TAGS files more portable to MS-Windows
* etc/NEWS: Document this.
* lib-src/etags.c (readline_internal) [DOS_NT]:
Don't treat CRs differently from GNUish hosts.
* lisp/progmodes/etags.el (etags-goto-tag-location):
Adjust STARTPOS to account for the skipped CRs in dos-style files.
-rw-r--r-- | etc/NEWS | 3 | ||||
-rw-r--r-- | lib-src/etags.c | 9 | ||||
-rw-r--r-- | lisp/progmodes/etags.el | 11 |
3 files changed, 12 insertions, 11 deletions
@@ -992,6 +992,9 @@ of Windows starting with Windows 9X. +++ ** Emacs running on MS-Windows now supports the daemon mode. +** The byte counts in etags-generated TAGS files are now the same on +MS-Windows as they are on other platforms. + ** OS X 10.5 or older is no longer supported. ** OS X on PowerPC is no longer supported. diff --git a/lib-src/etags.c b/lib-src/etags.c index f124d290da3..8b7f53c808b 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -6075,16 +6075,7 @@ readline_internal (linebuffer *lbp, FILE *stream, char const *filename) if (p > buffer && p[-1] == '\r') { p -= 1; -#ifdef DOS_NT - /* Assume CRLF->LF translation will be performed by Emacs - when loading this file, so CRs won't appear in the buffer. - It would be cleaner to compensate within Emacs; - however, Emacs does not know how many CRs were deleted - before any given point in the file. */ - chars_deleted = 1; -#else chars_deleted = 2; -#endif } else { diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 60ea456d57c..9ff164e15ef 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1355,9 +1355,16 @@ hits the start of file." pat (concat (if (eq selective-display t) "\\(^\\|\^m\\)" "^") (regexp-quote (car tag-info)))) - ;; The character position in the tags table is 0-origin. + ;; The character position in the tags table is 0-origin and counts CRs. ;; Convert it to a 1-origin Emacs character position. - (if startpos (setq startpos (1+ startpos))) + (when startpos + (setq startpos (1+ startpos)) + (when (and line + (eq 1 (coding-system-eol-type buffer-file-coding-system))) + ;; Act as if CRs were elided from all preceding lines. + ;; Although this doesn't always give exactly the correct position, + ;; it does typically improve the guess. + (setq startpos (- startpos (1- line))))) ;; If no char pos was given, try the given line number. (or startpos (if line |