Mercurial > emacs
comparison lisp/uniquify.el @ 79257:60995c957b44
(uniquify-unload-function): Add docstring.
(uniquify-unload-function): Remove variable.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 30 Oct 2007 00:20:44 +0000 |
| parents | ed916d33c5ff |
| children | 73661ddc7ac7 d3e87ee5aa0e |
comparison
equal
deleted
inserted
replaced
| 79256:02a9c3ab0adf | 79257:60995c957b44 |
|---|---|
| 474 (file-name-directory filename) ad-return-value)))) | 474 (file-name-directory filename) ad-return-value)))) |
| 475 | 475 |
| 476 ;;; The End | 476 ;;; The End |
| 477 | 477 |
| 478 (defun uniquify-unload-function () | 478 (defun uniquify-unload-function () |
| 479 "Unload the uniquify library." | |
| 479 (save-current-buffer | 480 (save-current-buffer |
| 480 (let ((buffers nil)) | 481 (let ((buffers nil)) |
| 481 (dolist (buf (buffer-list)) | 482 (dolist (buf (buffer-list)) |
| 482 (set-buffer buf) | 483 (set-buffer buf) |
| 483 (when uniquify-managed | 484 (when uniquify-managed |
| 489 (set-buffer (car buf)) | 490 (set-buffer (car buf)) |
| 490 (rename-buffer (cdr buf) t)))) | 491 (rename-buffer (cdr buf) t)))) |
| 491 ;; continue standard uploading | 492 ;; continue standard uploading |
| 492 nil) | 493 nil) |
| 493 | 494 |
| 494 (defvar uniquify-unload-function 'uniquify-unload-function) | |
| 495 | |
| 496 (provide 'uniquify) | 495 (provide 'uniquify) |
| 497 | 496 |
| 498 ;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065 | 497 ;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065 |
| 499 ;;; uniquify.el ends here | 498 ;;; uniquify.el ends here |