if (filename_is_absolute (uncompressed_name)) { /* file is an absolute file name. Canonicalise it. */ filename = absolute_filename (uncompressed_name, cwd); } else { /* file is a file name relative to cwd. Make it relative to the directory of the tags file. */ filename = relative_filename (uncompressed_name, tagfiledir); } fprintf (tagf, "\f\n%s,%d\n", filename, total_size_of_entries (head));
>>543 でっち上げてみた。 (defun my-forward-word (&optional arg) "Move to head of next word." (interactive "p") (save-match-data (goto-char (1- (re-search-forward "\\<." nil t (1+ arg))))))