summaryrefslogtreecommitdiff
path: root/lisp/ps-samp.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2011-11-16 18:47:25 +0100
committerJuanma Barranquero <lekktu@gmail.com>2011-11-16 18:47:25 +0100
commit7877f37394a0bea045c8d0faf7db7a7e1b4ccdc1 (patch)
tree334fa246f6537c6fbdb73be78c873416b2b9bf44 /lisp/ps-samp.el
parent10649b828d6b2c7bfc41dde3386c980bcd48c0b3 (diff)
downloademacs-7877f37394a0bea045c8d0faf7db7a7e1b4ccdc1.tar.gz
Fix typos.
Diffstat (limited to 'lisp/ps-samp.el')
-rw-r--r--lisp/ps-samp.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ps-samp.el b/lisp/ps-samp.el
index 8b652b26082..bfdcd91d26a 100644
--- a/lisp/ps-samp.el
+++ b/lisp/ps-samp.el
@@ -237,7 +237,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If zeroconf is enabled, all CUPS printers can be detected. The
-;; "Postscript printer" menu will be modified dynamically, as printers
+;; "PostScript printer" menu will be modified dynamically, as printers
;; are added or removed.
;; Preconditions:
@@ -257,7 +257,7 @@
(require 'printing)
(require 'zeroconf)
-;; Add a Postscript printer to the "Postscript printer" menu.
+;; Add a PostScript printer to the "PostScript printer" menu.
(defun ps-add-printer (service)
(let ((name (zeroconf-service-name service))
(text (zeroconf-service-txt service))
@@ -267,7 +267,7 @@
;; `text' is an array of key=value strings like ("Duplex=T" "Copies=T").
(dolist (string text)
(let ((split (split-string string "=" t)))
- ;; If it is a Postscript printer, there must be a string like
+ ;; If it is a PostScript printer, there must be a string like
;; "pdl=application/postscript,application/vnd.hp-PCL,...".
(when (and (string-equal "pdl" (car split))
(string-match "application/postscript" (cadr split)))
@@ -288,7 +288,7 @@
"-H" (format "%s:%s" addr port))))
(pr-update-menus t))))
-;; Remove a printer from the "Postscript printer" menu.
+;; Remove a printer from the "PostScript printer" menu.
(defun ps-remove-printer (service)
(setq pr-ps-printer-alist
(delete (assoc (intern (zeroconf-service-name service))