Skip to content
Snippets Groups Projects
Commit 3caf8687 authored by martinb's avatar martinb
Browse files

minor doc fixes

parent 889243d5
No related branches found
No related tags found
No related merge requests found
......@@ -27,8 +27,8 @@
;;; Commentary:
;; Commands to send the region or a buffer your printer. Entry points
;; are `lpr-buffer', `print-buffer', lpr-region', or `print-region'; option
;; variables include `lpr-switches' and `lpr-command'.
;; are `lpr-buffer', `print-buffer', `lpr-region', and `print-region';
;; option variables include `lpr-switches' and `lpr-command'.
;;; Code:
......@@ -38,7 +38,7 @@
;;;###autoload
(defcustom lpr-switches nil
(defcustom lpr-switches nil
"*List of strings to pass as extra options for the printer program.
See `lpr-command'."
:type '(repeat (string :tag "Argument"))
......@@ -139,7 +139,7 @@
(defun print-region-1 (start end switches page-headers)
;; On some MIPS system, having a space in the job name
;; crashes the printer demon. But using dashes looks ugly
;; and it seems to annoying to do for that MIPS system.
;; and it seems too annoying to do for that MIPS system.
(let ((name (concat (buffer-name) " Emacs buffer"))
(title (concat (buffer-name) " Emacs buffer"))
(width tab-width)
......@@ -227,7 +227,7 @@
(while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t)
(setq c (preceding-char))
(delete-backward-char 1)
(insert
(insert
(if (< c ?\ )
(format "\\^%c" (+ c ?@))
(format "\\%02x" c)))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment