Function: ps-mode-uncomment-region

ps-mode-uncomment-region is an interactive and byte-compiled function defined in ps-mode.el.gz.

Signature

(ps-mode-uncomment-region BEGIN END)

Documentation

Uncomment region.

Only one % is removed, and it has to be in the first column.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ps-mode.el.gz
(defun ps-mode-uncomment-region (begin end)
  "Uncomment region.

Only one `%' is removed, and it has to be in the first column."
  (interactive "r")
  (let ((endm (make-marker)))
    (set-marker endm end)
    (save-excursion
      (goto-char begin)
      (if (looking-at "^%")
	  (delete-char 1))
      (while (and (= (forward-line) 0)
		  (< (point) (marker-position endm)))
	(if (looking-at "%")
	    (delete-char 1))))
    (set-marker endm nil)))