Menu
▾
▴
[MLton-commit] r5084
|
From: Vesa K. <ve...@ml...> - 2007-01-30 05:06:23
|
Fixed to work when buffer has no file name. ---------------------------------------------------------------------- U mlton/trunk/ide/emacs/def-use-util.el ---------------------------------------------------------------------- Modified: mlton/trunk/ide/emacs/def-use-util.el =================================================================== --- mlton/trunk/ide/emacs/def-use-util.el 2007-01-30 08:40:24 UTC (rev 5083) +++ mlton/trunk/ide/emacs/def-use-util.el 2007-01-30 13:06:22 UTC (rev 5084) @@ -20,7 +20,9 @@ (defun def-use-buffer-true-file-name () "Returns the true filename of the current buffer." - (def-use-file-truename (buffer-file-name))) + (let ((name (buffer-file-name))) + (when name + (def-use-file-truename name)))) (defun def-use-point-at-next-line () "Returns point at the beginning of the next line." |
