Mercurial > emacs
comparison lisp/longlines.el @ 92320:701bcde65619
(longlines-unload-function): New function.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 28 Feb 2008 23:41:52 +0000 |
| parents | 69b6b74891ef |
| children | ee5932bf781d |
comparison
equal
deleted
inserted
replaced
| 92319:ecc950616ed9 | 92320:701bcde65619 |
|---|---|
| 480 (add-to-list | 480 (add-to-list |
| 481 'format-alist | 481 'format-alist |
| 482 (list 'longlines "Automatically wrap long lines." nil nil | 482 (list 'longlines "Automatically wrap long lines." nil nil |
| 483 'longlines-encode-region t nil)) | 483 'longlines-encode-region t nil)) |
| 484 | 484 |
| 485 ;; Unloading | |
| 486 | |
| 487 (defun longlines-unload-function () | |
| 488 "Unload the longlines library." | |
| 489 (save-current-buffer | |
| 490 (dolist (buffer (buffer-list)) | |
| 491 (set-buffer buffer) | |
| 492 (longlines-mode-off))) | |
| 493 ;; continue standard unloading | |
| 494 nil) | |
| 495 | |
| 485 (provide 'longlines) | 496 (provide 'longlines) |
| 486 | 497 |
| 487 ;; arch-tag: 3489d225-5506-47b9-8659-d8807b77c624 | 498 ;; arch-tag: 3489d225-5506-47b9-8659-d8807b77c624 |
| 488 ;;; longlines.el ends here | 499 ;;; longlines.el ends here |