From: Francois Fleuret <francois@fleuret.org>
Date: Sat, 6 Mar 2010 12:53:12 +0000 (+0100)
Subject: *** empty log message ***
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9bee030ce58a9af00286a3562b42a63cd205132;p=elisp.git

*** empty log message ***
---

diff --git a/emacs.el b/emacs.el
index 74119d2..f29ecbc 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1546,7 +1546,7 @@ int main(int argc, char **argv) {
   (interactive)
   (let ((flag-name (replace-regexp-in-string
                     "[\. \(\)]" "_"
-                    (upcase (file-name-nondirectory (buffer-name))))))
+                    (upcase (file-name-nondirectory (buffer-file-name))))))
     (goto-char (point-max))
     (insert "\n#endif\n")
     (goto-char (point-min))
@@ -2205,6 +2205,7 @@ next one. With universal argument, kill all killable buffers."
                              "-framedrop"
                              "-zoom"
                              "-subfont-osd-scale" "3"
+                             ;; "-stop-xscreensaver"
                              ;; "-osdlevel" "3"
                              )
         media/mplayer/timing-request-period 5.0