Mercurial > hg > xemacs-beta

diff lisp/package-ui.el @ 1410:44de306310b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-04-14 03:40:26 by youngs] 2003-04-14 Steve Youngs <youngs@xemacs.org> * package-admin.el (package-admin-find-top-directory): Use 'directory-sep-char'. (package-admin-get-install-dir): Ditto. This is so PUI won't break on platforms that don't use '/' as the directory separator. * package-get.el (package-get-pgp-available-p): New. (package-get-require-signed-base-updates): Use it. (package-get-update-base-from-buffer): Move the code that finds the gpg stuff into `package-get-pgp-available-p'. Now if you have Mailcrypt and a PGP binary installed and set up on your system, PUI will automatically default to doing PGP verification, otherwise it'll default to off. (package-get-require-base): Use the DATUM arg to `error'. (package-get-locate-index-file): Ditto. (package-get-update-base): Ditto. (package-get-update-base-entries): Ditto. (package-get-all): Ditto. (package-get-dependencies): Ditto. (package-get-info): Ditto. (package-get): Ditto. * package-info.el (batch-update-package-info): Use the DATUM arg to `error'. * package-net.el (package-net-batch-generate-bin-ini): Use the DATUM arg to `error'. * package-ui.el (pui-toggle-package-key): Use the DATUM arg to `error'. (pui-toggle-package-delete-key): Ditto. (pui-install-selected-packages): Ditto. (pui-add-required-packages): Ditto. (pui-display-info): Ditto. (list-packages-mode): Ditto. * packages.el (package-require): Use the DATUM arg to `error'.
author youngs
date Mon, 14 Apr 2003 03:40:27 +0000
parents 69a674f5861f
children d90ba01b5346
line wrap: on
line diff
--- a/lisp/package-ui.el	Sun Apr 13 21:52:52 2003 +0000
+++ b/lisp/package-ui.el	Mon Apr 14 03:40:27 2003 +0000
@@ -282,7 +282,8 @@
 	(progn
 	  (pui-toggle-package extent)
 	  (forward-line 1))
-      (error "No package under cursor!"))))
+      (error 'invalid-operation
+	     "No package under cursor!"))))
 
 (defun pui-toggle-package-delete (extent)
   (let (pkg-sym)
@@ -305,7 +306,8 @@
 	(progn
 	  (pui-toggle-package-delete extent)
 	  (forward-line 1))
-      (error "No package under cursor!"))))
+      (error 'invalid-operation
+	     "No package under cursor!"))))
 
 (defun pui-current-package ()
   (let ((extent (extent-at (point) (current-buffer) 'pui)))
@@ -394,7 +396,8 @@
 	    (clear-message)))
       (if pui-deleted-packages
 	  (pui-list-packages)
-	(error "No packages have been selected!")))
+	(error 'invalid-operation
+	       "No packages have been selected!")))
     ;; sync with windows type systems
     (package-net-update-installed-db)))
 
@@ -452,7 +455,8 @@
                              nil nil nil nil nil 'pui)
                 (message "added dependencies"))
 	      (clear-message)))
-      (error "No packages have been selected!"))))
+      (error 'invalid-operation
+	     "No packages have been selected!"))))
 
 (defun pui-help-echo (extent &optional force-update)
   "Display additional package info in the modeline.
@@ -502,7 +506,8 @@
 	  (message (pui-help-echo extent t))
 	(if no-error
 	    (clear-message nil)
-	  (error "No package under cursor!"))))))
+	  (error 'invalid-operation
+		 "No package under cursor!"))))))
 
 (defvar pui-menu
   '("Packages"
@@ -550,7 +555,8 @@
   `\\[pui-toggle-verbosity-redisplay]' to toggle between a verbose and non-verbose display.
   `\\[pui-quit]' to kill this buffer.
 "
-  (error "You cannot enter this mode directly. Use `pui-list-packages'"))
+  (error 'invalid-operation
+	 "You cannot enter this mode directly. Use `pui-list-packages'"))
 
 (put 'list-packages-mode 'mode-class 'special)