X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/3260d9c4edcb845b7b441d42c294942957bee5ce..3782446f0bbdc76405aadc6c73f78ce37153fd55:/el/dot-emacs.el?ds=sidebyside

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 0ff628b..23b2c97 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -588,6 +588,15 @@ Even if an existing window in some random frame looks tempting."
 Pretend they don't exist.  They might be on other display devices."
   (ad-set-arg 2 nil))
 
+;; Rename buffers along with files.
+
+(defadvice rename-file (after mdw-rename-buffers (from to &optional forcep)
+			compile activate)
+  (let ((buffer (get-file-buffer from)))
+    (when buffer
+      (with-current-buffer buffer
+	(set-visited-file-name to nil t)))))
+
 ;;;--------------------------------------------------------------------------
 ;;; Improved compilation machinery.
 
@@ -1291,7 +1300,14 @@ case."
   (set (make-local-variable 'mdw-do-misc-mode-hacking) t)
   (local-set-key [C-return] 'newline)
   (make-local-variable 'page-delimiter)
-  (setq page-delimiter "\f\\|^.*-\\{6\\}.*$")
+  (setq page-delimiter (concat       "^" "\f"
+			       "\\|" "^"
+				     ".\\{0,4\\}"
+				     "-\\{5\\}"
+				     "\\(" " " ".*" " " "\\)?"
+				     "-+"
+				     ".\\{0,2\\}"
+				     "$"))
   (setq comment-column 40)
   (auto-fill-mode 1)
   (setq fill-column mdw-text-width)