Update ps-mode.el from upstream

* lisp/progmodes/ps-mode.el (ps-mode-version): Bump to 1.1i.
(ps-mode-octal-region): Use string-make-unibyte.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02bfc7b75399ace7c45b46b806fae049fffa9653..1897e48d715e45413864d3c6a751c96e202df406 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-23  Peter Kleiweg  <p.c.j.kleiweg@rug.nl>
+
+       * progmodes/ps-mode.el (ps-mode-version): Bump to 1.1i.
+       (ps-mode-octal-region): Use string-make-unibyte.
+
 2013-02-23  Glenn Morris  <rgm@gnu.org>
 
        * emulation/viper-cmd.el (viper-submit-report):

diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index dcb3e667f7c641948213cc84ea074bce02e8a0c0..0f994a8422bc7020fc84217b5345800b1d3c9d5a 100644 (file)
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -5,7 +5,7 @@
 ;; Author:     Peter Kleiweg <p.c.j.kleiweg@rug.nl>
 ;; Maintainer: Peter Kleiweg <p.c.j.kleiweg@rug.nl>
 ;; Created:    20 Aug 1997
-;; Version:    1.1h
+;; Version:    1.1i
 ;; Keywords:   PostScript, languages
 
 ;; Yoni Rabkin <yoni@rabkins.net> contacted the maintainer of this
@@ -35,7 +35,7 @@
 \f
 ;;; Code:
 
-(defconst ps-mode-version "1.1h, 16 Jun 2005")
+(defconst ps-mode-version "1.1i, 17 May 2008")
 (defconst ps-mode-maintainer-address
   "Peter Kleiweg <p.c.j.kleiweg@rug.nl>, bug-gnu-emacs@gnu.org")
 
@@ -806,7 +806,7 @@ Only one `%' is removed, and it has to be in the first column."
         (while (re-search-forward "[\200-\377]" (marker-position endm) t)
           (setq i (1+ i))
           (backward-char)
-          (insert (format "\\%03o" (string-to-char (buffer-substring (point) (1+ (point))))))
+          (insert (format "\\%03o" (string-to-char (string-make-unibyte (buffer-substring (point) (1+ (point)))))))
           (delete-char 1))
         (message "%d change%s made" i (if (= i 1) "" "s"))
         (set-marker endm nil)))))