(inferior-octave-complete): Use comint-line-beginning-position.

[gnu-emacs] / lisp / cus-face.el

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 2b32ce3f5227030c6a0c42d0335e696045a9f0d8..bfe2d39b3e2323490ae64b571320e8960470a1cf 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -5,7 +5,6 @@
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: help, faces
 ;; Version: Emacs
-;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ (probably obsolete)
 
 ;; This file is part of GNU Emacs.
 
@@ -56,7 +55,7 @@
        (if (memq window-system '(x w32))
            (make-face-x-resource-internal face))))
     (when (and doc (null (face-documentation face)))
-      (set-face-documentation face doc))
+      (set-face-documentation face (purecopy doc)))
     (custom-handle-all-keywords face args 'custom-face)
     (run-hooks 'custom-define-hook))
   face)