Mercurial > emacs
comparison lisp/desktop.el @ 14756:aabf776c3b6a
Global var `misc' renamed.
(desktop-buffer-misc): Renamed from misc. Add defvar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Mar 1996 16:42:06 +0000 |
| parents | 3d473ed8c718 |
| children | a1e88c05b53c |
comparison
equal
deleted
inserted
replaced
| 14755:3d473ed8c718 | 14756:aabf776c3b6a |
|---|---|
| 163 (defvar desktop-buffer-file-name nil | 163 (defvar desktop-buffer-file-name nil |
| 164 "When desktop creates a buffer, this holds the file name to visit.") | 164 "When desktop creates a buffer, this holds the file name to visit.") |
| 165 | 165 |
| 166 (defvar desktop-buffer-name nil | 166 (defvar desktop-buffer-name nil |
| 167 "When desktop creates a buffer, this holds the desired buffer name.") | 167 "When desktop creates a buffer, this holds the desired buffer name.") |
| 168 | |
| 169 (defvar desktop-buffer-misc nil | |
| 170 "When desktop creates a buffer, this holds a list of misc info. | |
| 171 It is used by the `desktop-buffer-handlers' functions.") | |
| 168 | 172 |
| 169 (defvar desktop-buffer-handlers | 173 (defvar desktop-buffer-handlers |
| 170 '(desktop-buffer-dired | 174 '(desktop-buffer-dired |
| 171 desktop-buffer-rmail | 175 desktop-buffer-rmail |
| 172 desktop-buffer-mh | 176 desktop-buffer-mh |
| 487 ;; | 491 ;; |
| 488 (defun desktop-buffer-info () "Load an info file." | 492 (defun desktop-buffer-info () "Load an info file." |
| 489 (if (eq 'Info-mode desktop-buffer-major-mode) | 493 (if (eq 'Info-mode desktop-buffer-major-mode) |
| 490 (progn | 494 (progn |
| 491 (require 'info) | 495 (require 'info) |
| 492 (Info-find-node (nth 0 misc) (nth 1 misc)) | 496 (Info-find-node (nth 0 desktop-buffer-misc) (nth 1 desktop-buffer-misc)) |
| 493 t))) | 497 t))) |
| 494 ;; ---------------------------------------------------------------------------- | 498 ;; ---------------------------------------------------------------------------- |
| 495 (defun desktop-buffer-rmail () "Load an RMAIL file." | 499 (defun desktop-buffer-rmail () "Load an RMAIL file." |
| 496 (if (eq 'rmail-mode desktop-buffer-major-mode) | 500 (if (eq 'rmail-mode desktop-buffer-major-mode) |
| 497 (condition-case error | 501 (condition-case error |
| 508 (mh-visit-folder desktop-buffer-name) | 512 (mh-visit-folder desktop-buffer-name) |
| 509 t))) | 513 t))) |
| 510 ;; ---------------------------------------------------------------------------- | 514 ;; ---------------------------------------------------------------------------- |
| 511 (defun desktop-buffer-dired () "Load a directory using dired." | 515 (defun desktop-buffer-dired () "Load a directory using dired." |
| 512 (if (eq 'dired-mode desktop-buffer-major-mode) | 516 (if (eq 'dired-mode desktop-buffer-major-mode) |
| 513 (if (file-directory-p (file-name-directory (car misc))) | 517 (if (file-directory-p (file-name-directory (car desktop-buffer-misc))) |
| 514 (progn | 518 (progn |
| 515 (dired (car misc)) | 519 (dired (car desktop-buffer-misc)) |
| 516 (mapcar 'dired-insert-subdir (cdr misc)) | 520 (mapcar 'dired-insert-subdir (cdr desktop-buffer-misc)) |
| 517 t) | 521 t) |
| 518 (message "Directory %s no longer exists." (car misc)) | 522 (message "Directory %s no longer exists." (car desktop-buffer-misc)) |
| 519 (sit-for 1) | 523 (sit-for 1) |
| 520 'ignored))) | 524 'ignored))) |
| 521 ;; ---------------------------------------------------------------------------- | 525 ;; ---------------------------------------------------------------------------- |
| 522 (defun desktop-buffer-file () "Load a file." | 526 (defun desktop-buffer-file () "Load a file." |
| 523 (if desktop-buffer-file-name | 527 (if desktop-buffer-file-name |
| 531 ;; ---------------------------------------------------------------------------- | 535 ;; ---------------------------------------------------------------------------- |
| 532 ;; Create a buffer, load its file, set is mode, ...; called from Desktop file | 536 ;; Create a buffer, load its file, set is mode, ...; called from Desktop file |
| 533 ;; only. | 537 ;; only. |
| 534 (defun desktop-create-buffer (ver desktop-buffer-file-name desktop-buffer-name | 538 (defun desktop-create-buffer (ver desktop-buffer-file-name desktop-buffer-name |
| 535 desktop-buffer-major-mode | 539 desktop-buffer-major-mode |
| 536 mim pt mk ro misc &optional locals) | 540 mim pt mk ro desktop-buffer-misc &optional locals) |
| 537 (let ((hlist desktop-buffer-handlers) | 541 (let ((hlist desktop-buffer-handlers) |
| 538 (result) | 542 (result) |
| 539 (handler)) | 543 (handler)) |
| 540 (while (and (not result) hlist) | 544 (while (and (not result) hlist) |
| 541 (setq handler (car hlist)) | 545 (setq handler (car hlist)) |
| 568 )))) | 572 )))) |
| 569 | 573 |
| 570 ;; Backward compatibility -- update parameters to 205 standards. | 574 ;; Backward compatibility -- update parameters to 205 standards. |
| 571 (defun desktop-buffer (desktop-buffer-file-name desktop-buffer-name | 575 (defun desktop-buffer (desktop-buffer-file-name desktop-buffer-name |
| 572 desktop-buffer-major-mode | 576 desktop-buffer-major-mode |
| 573 mim pt mk ro tl fc cfs cr misc) | 577 mim pt mk ro tl fc cfs cr desktop-buffer-misc) |
| 574 (desktop-create-buffer 205 desktop-buffer-file-name desktop-buffer-name | 578 (desktop-create-buffer 205 desktop-buffer-file-name desktop-buffer-name |
| 575 desktop-buffer-major-mode (cdr mim) pt mk ro misc | 579 desktop-buffer-major-mode (cdr mim) pt mk ro |
| 580 desktop-buffer-misc | |
| 576 (list (cons 'truncate-lines tl) | 581 (list (cons 'truncate-lines tl) |
| 577 (cons 'fill-column fc) | 582 (cons 'fill-column fc) |
| 578 (cons 'case-fold-search cfs) | 583 (cons 'case-fold-search cfs) |
| 579 (cons 'case-replace cr) | 584 (cons 'case-replace cr) |
| 580 (cons 'overwrite-mode (car mim))))) | 585 (cons 'overwrite-mode (car mim))))) |