1871 |
(setq v (with-temp-buffer |
(setq v (with-temp-buffer |
1872 |
(insert-file-contents v) |
(insert-file-contents v) |
1873 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1874 |
(while (bolp) |
(skip-chars-backward "\n") |
1875 |
(delete-char -1)) |
(delete-region (+ (point) (if (bolp) 0 1)) |
1876 |
|
(point-max)) |
1877 |
(buffer-string)))) |
(buffer-string)))) |
1878 |
(setq results (delq (assoc element results) results)) |
(setq results (delq (assoc element results) results)) |
1879 |
(push (cons element v) results)))) |
(push (cons element v) results)))) |