Mercurial > emacs
comparison lisp/cus-edit.el @ 111945:c00190a8c8ef
Merge from emacs-23
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 13 Dec 2010 10:27:36 -0500 |
| parents | de901820e0bc 0e0f4eb1091a |
| children | e09ac5ef1fe4 |
comparison
equal
deleted
inserted
replaced
| 111884:9b5cce10c8e2 | 111945:c00190a8c8ef |
|---|---|
| 4424 (setq old-buffer-name (buffer-file-name)) | 4424 (setq old-buffer-name (buffer-file-name)) |
| 4425 (set-visited-file-name (file-chase-links filename))) | 4425 (set-visited-file-name (file-chase-links filename))) |
| 4426 | 4426 |
| 4427 (unless (eq major-mode 'emacs-lisp-mode) | 4427 (unless (eq major-mode 'emacs-lisp-mode) |
| 4428 (emacs-lisp-mode)) | 4428 (emacs-lisp-mode)) |
| 4429 (let ((inhibit-read-only t)) | 4429 (let ((inhibit-read-only t) |
| 4430 (print-length nil) | |
| 4431 (print-level nil)) | |
| 4430 (custom-save-variables) | 4432 (custom-save-variables) |
| 4431 (custom-save-faces)) | 4433 (custom-save-faces)) |
| 4432 (let ((file-precious-flag t)) | 4434 (let ((file-precious-flag t)) |
| 4433 (save-buffer)) | 4435 (save-buffer)) |
| 4434 (if old-buffer | 4436 (if old-buffer |