mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(desktop-buffer-info, desktop-buffer-mh): Use with-no-warnings.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-07-07 21:04:28 +00:00
parent 774f8aee6f
commit 6df8016c93
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/desktop.el
View File

@ -795,7 +795,8 @@ This function always sets `desktop-enable' to t."
(second (nth 1 desktop-buffer-misc)))
(when (and first second)
(require 'info)
(Info-find-node first second)
(with-no-warnings
(Info-find-node first second))
(current-buffer))))))
;; ----------------------------------------------------------------------------
@ -814,7 +815,7 @@ This function always sets `desktop-enable' to t."
;; ----------------------------------------------------------------------------
(defun desktop-buffer-mh () "Load a folder in the mh system."
(if (eq 'mh-folder-mode desktop-buffer-major-mode)
(progn
(with-no-warnings
(mh-find-path)
(mh-visit-folder desktop-buffer-name)
(current-buffer))))