1871 |
(when (and filep v) |
(when (and filep v) |
1872 |
(setq v (with-temp-buffer |
(setq v (with-temp-buffer |
1873 |
(insert-file-contents v) |
(insert-file-contents v) |
1874 |
(goto-char (point-max)) |
(buffer-substring |
1875 |
(skip-chars-backward "\n") |
(point-min) |
1876 |
(delete-region (+ (point) (if (bolp) 0 1)) |
(progn |
1877 |
(point-max)) |
(goto-char (point-max)) |
1878 |
(buffer-string)))) |
(if (zerop (skip-chars-backward "\n")) |
1879 |
|
(point) |
1880 |
|
(1+ (point)))))))) |
1881 |
(setq results (delq (assoc element results) results)) |
(setq results (delq (assoc element results) results)) |
1882 |
(push (cons element v) results)))) |
(push (cons element v) results)))) |
1883 |
;; Now we have all the styles, so we insert them. |
;; Now we have all the styles, so we insert them. |