aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris2012-02-28 00:17:21 -0800
committerGlenn Morris2012-02-28 00:17:21 -0800
commit44e97401cda5b464505ac798ae7f71dce0d2a06e (patch)
tree4d24550756a7e70b8bf593edd241ed0988d60c07 /lisp
parenta34baa83cc0a770f9a5d845174281122dda91656 (diff)
downloademacs-44e97401cda5b464505ac798ae7f71dce0d2a06e.tar.gz
emacs-44e97401cda5b464505ac798ae7f71dce0d2a06e.zip
Standardize possessive apostrophe usage in manuals, docs, and comments
Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-02/msg00649.html
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog21
-rw-r--r--lisp/bookmark.el4
-rw-r--r--lisp/bs.el4
-rw-r--r--lisp/calendar/timeclock.el4
-rw-r--r--lisp/cedet/ChangeLog5
-rw-r--r--lisp/cedet/semantic.el6
-rw-r--r--lisp/cedet/semantic/db-el.el4
-rw-r--r--lisp/cedet/semantic/db.el4
-rw-r--r--lisp/emacs-lisp/authors.el4
-rw-r--r--lisp/emacs-lisp/easymenu.el2
-rw-r--r--lisp/emacs-lisp/ert.el2
-rw-r--r--lisp/emacs-lisp/ewoc.el2
-rw-r--r--lisp/emacs-lisp/regexp-opt.el2
-rw-r--r--lisp/emulation/cua-base.el6
-rw-r--r--lisp/emulation/tpu-edt.el6
-rw-r--r--lisp/emulation/viper-util.el6
-rw-r--r--lisp/emulation/viper.el4
-rw-r--r--lisp/erc/erc-compat.el4
-rw-r--r--lisp/eshell/em-unix.el4
-rw-r--r--lisp/eshell/em-xtra.el4
-rw-r--r--lisp/eshell/eshell.el4
-rw-r--r--lisp/files.el4
-rw-r--r--lisp/filesets.el4
-rw-r--r--lisp/font-lock.el4
-rw-r--r--lisp/gnus/gmm-utils.el6
-rw-r--r--lisp/gnus/gnus-agent.el4
-rw-r--r--lisp/gnus/gnus-score.el2
-rw-r--r--lisp/gnus/mm-decode.el4
-rw-r--r--lisp/help.el5
-rw-r--r--lisp/htmlfontify.el8
-rw-r--r--lisp/image.el6
-rw-r--r--lisp/international/mule.el4
-rw-r--r--lisp/mail/feedmail.el2
-rw-r--r--lisp/mh-e/mh-compat.el6
-rw-r--r--lisp/net/browse-url.el4
-rw-r--r--lisp/net/eudc.el4
-rw-r--r--lisp/net/secrets.el4
-rw-r--r--lisp/play/gomoku.el4
-rw-r--r--lisp/play/handwrite.el4
-rw-r--r--lisp/play/landmark.el4
-rw-r--r--lisp/progmodes/antlr-mode.el8
-rw-r--r--lisp/progmodes/vhdl-mode.el6
-rw-r--r--lisp/shell.el4
-rw-r--r--lisp/textmodes/sgml-mode.el2
-rw-r--r--lisp/vc/diff-mode.el6
-rw-r--r--lisp/vc/ediff-util.el2
-rw-r--r--lisp/vc/vc-bzr.el4
-rw-r--r--lisp/w32-fns.el4
48 files changed, 123 insertions, 98 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b822cc1cdb..ab70527073a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,24 @@
12012-02-28 Glenn Morris <rgm@gnu.org>
2
3 * shell.el (shell-mode):
4 * progmodes/vhdl-mode.el (wildcard-to-regexp, file-expand-wildcards):
5 * play/landmark.el (landmark-font-lock-face-O):
6 * play/handwrite.el (handwrite):
7 * play/gomoku.el (gomoku-O):
8 * net/browse-url.el (browse-url-browser-display):
9 * international/mule.el (define-charset):
10 * htmlfontify.el (hfy-etags-cmd, hfy-face-attr-for-class):
11 * filesets.el (filesets-find-file-delay):
12 * eshell/em-xtra.el (eshell-xtra):
13 * eshell/em-unix.el (eshell-grep):
14 * emulation/viper.el (viper-mode):
15 * emacs-lisp/regexp-opt.el (regexp-opt-group):
16 * emacs-lisp/easymenu.el (easy-menu-define):
17 * calendar/timeclock.el (timeclock-use-display-time):
18 * bs.el (bs-mode):
19 * bookmark.el (bookmark-save-flag):
20 Doc fix (standardize possessive apostrophe usage).
21
12012-02-27 Chong Yidong <cyd@gnu.org> 222012-02-27 Chong Yidong <cyd@gnu.org>
2 23
3 * emulation/viper-cmd.el (viper-intercept-ESC-key): Fix 24 * emulation/viper-cmd.el (viper-intercept-ESC-key): Fix
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 20a4e52810b..33b91fd7db2 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1,6 +1,6 @@
1;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later 1;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later
2 2
3;; Copyright (C) 1993-1997, 2001-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1993-1997, 2001-2012 Free Software Foundation, Inc.
4 4
5;; Author: Karl Fogel <kfogel@red-bean.com> 5;; Author: Karl Fogel <kfogel@red-bean.com>
6;; Maintainer: Karl Fogel <kfogel@red-bean.com> 6;; Maintainer: Karl Fogel <kfogel@red-bean.com>
@@ -65,7 +65,7 @@
65--> t means save bookmarks when Emacs is killed. 65--> t means save bookmarks when Emacs is killed.
66--> Otherwise, it should be a number that is the frequency with which 66--> Otherwise, it should be a number that is the frequency with which
67 the bookmark list is saved (i.e.: the number of times which 67 the bookmark list is saved (i.e.: the number of times which
68 Emacs' bookmark list may be modified before it is automatically 68 Emacs's bookmark list may be modified before it is automatically
69 saved.). If it is a number, Emacs will also automatically save 69 saved.). If it is a number, Emacs will also automatically save
70 bookmarks when it is killed. 70 bookmarks when it is killed.
71 71
diff --git a/lisp/bs.el b/lisp/bs.el
index 4e54ef882fe..64c1183b64d 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -1,6 +1,6 @@
1;;; bs.el --- menu for selecting and displaying buffers -*- lexical-binding: t -*- 1;;; bs.el --- menu for selecting and displaying buffers -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 1998-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
4;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de> 4;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de>
5;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de> 5;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de>
6;; Keywords: convenience 6;; Keywords: convenience
@@ -618,7 +618,7 @@ Used from `window-size-change-functions'."
618(put 'bs-mode 'mode-class 'special) 618(put 'bs-mode 'mode-class 'special)
619 619
620(define-derived-mode bs-mode nil "Buffer-Selection-Menu" 620(define-derived-mode bs-mode nil "Buffer-Selection-Menu"
621 "Major mode for editing a subset of Emacs' buffers. 621 "Major mode for editing a subset of Emacs's buffers.
622\\<bs-mode-map> 622\\<bs-mode-map>
623Aside from two header lines each line describes one buffer. 623Aside from two header lines each line describes one buffer.
624Move to a line representing the buffer you want to edit and select 624Move to a line representing the buffer you want to edit and select
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 9b766e17d5c..7f9b46dfd82 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -1,6 +1,6 @@
1;;; timeclock.el --- mode for keeping track of how much you work 1;;; timeclock.el --- mode for keeping track of how much you work
2 2
3;; Copyright (C) 1999-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
4 4
5;; Author: John Wiegley <johnw@gnu.org> 5;; Author: John Wiegley <johnw@gnu.org>
6;; Created: 25 Mar 1999 6;; Created: 25 Mar 1999
@@ -150,7 +150,7 @@ This variable only has effect if set with \\[customize]."
150(defcustom timeclock-use-display-time t 150(defcustom timeclock-use-display-time t
151 "If non-nil, use `display-time-hook' for doing modeline updates. 151 "If non-nil, use `display-time-hook' for doing modeline updates.
152The advantage of this is that one less timer has to be set running 152The advantage of this is that one less timer has to be set running
153amok in Emacs' process space. The disadvantage is that it requires 153amok in Emacs's process space. The disadvantage is that it requires
154you to have `display-time' running. If you don't want to use 154you to have `display-time' running. If you don't want to use
155`display-time', but still want the modeline to show how much time is 155`display-time', but still want the modeline to show how much time is
156left, set this variable to nil. Changing the value of this variable 156left, set this variable to nil. Changing the value of this variable
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 361ccba10cc..4dc5fe4df21 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,8 @@
12012-02-28 Glenn Morris <rgm@gnu.org>
2
3 * semantic/db.el (semanticdb-search-results-table):
4 Doc fix (standardize possessive apostrophe usage).
5
12012-02-09 Juanma Barranquero <lekktu@gmail.com> 62012-02-09 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * ede/auto.el (ede-directory-safe-p, ede-add-project-to-global-list): 8 * ede/auto.el (ede-directory-safe-p, ede-add-project-to-global-list):
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 1f07867bac5..0ed031019be 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -1,6 +1,6 @@
1;;; semantic.el --- Semantic buffer evaluator. 1;;; semantic.el --- Semantic buffer evaluator.
2 2
3;; Copyright (C) 1999-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
4 4
5;; Author: Eric M. Ludlam <zappo@gnu.org> 5;; Author: Eric M. Ludlam <zappo@gnu.org>
6;; Keywords: syntax tools 6;; Keywords: syntax tools
@@ -623,7 +623,7 @@ was marked unparseable, then do nothing, and return the cache."
623 623
624;;;; Parse the whole system. 624;;;; Parse the whole system.
625 ((semantic-parse-tree-needs-rebuild-p) 625 ((semantic-parse-tree-needs-rebuild-p)
626 ;; Use Emacs' built-in progress-reporter 626 ;; Use Emacs's built-in progress-reporter
627 (let ((semantic--progress-reporter 627 (let ((semantic--progress-reporter
628 (and (>= (point-max) semantic-minimum-working-buffer-size) 628 (and (>= (point-max) semantic-minimum-working-buffer-size)
629 (eq semantic-working-type 'percent) 629 (eq semantic-working-type 'percent)
@@ -762,7 +762,7 @@ This function returns semantic tags without overlays."
762 ;; Designated to ignore. 762 ;; Designated to ignore.
763 (setq stream (car nontermsym)) 763 (setq stream (car nontermsym))
764 (if stream 764 (if stream
765 ;; Use Emacs' built-in progress reporter: 765 ;; Use Emacs's built-in progress reporter:
766 (and (boundp 'semantic--progress-reporter) 766 (and (boundp 'semantic--progress-reporter)
767 semantic--progress-reporter 767 semantic--progress-reporter
768 (eq semantic-working-type 'percent) 768 (eq semantic-working-type 'percent)
diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el
index ce6f33f0d18..23410b1eb1b 100644
--- a/lisp/cedet/semantic/db-el.el
+++ b/lisp/cedet/semantic/db-el.el
@@ -1,6 +1,6 @@
1;;; semantic/db-el.el --- Semantic database extensions for Emacs Lisp 1;;; semantic/db-el.el --- Semantic database extensions for Emacs Lisp
2 2
3;;; Copyright (C) 2002-2012 Free Software Foundation, Inc. 3;;; Copyright (C) 2002-2012 Free Software Foundation, Inc.
4 4
5;; Author: Eric M. Ludlam <zappo@gnu.org> 5;; Author: Eric M. Ludlam <zappo@gnu.org>
6;; Keywords: tags 6;; Keywords: tags
@@ -132,7 +132,7 @@ For Emacs Lisp system DB, there isn't one."
132 "Convert one TAG, originating from Emacs OBJ, into standardized form. 132 "Convert one TAG, originating from Emacs OBJ, into standardized form.
133If Emacs cannot resolve this symbol to a particular file, then return nil." 133If Emacs cannot resolve this symbol to a particular file, then return nil."
134 ;; Here's the idea. For each tag, get the name, then use 134 ;; Here's the idea. For each tag, get the name, then use
135 ;; Emacs' `symbol-file' to get the source. Once we have that, 135 ;; Emacs's `symbol-file' to get the source. Once we have that,
136 ;; we can use more typical semantic searching techniques to 136 ;; we can use more typical semantic searching techniques to
137 ;; get a regularly parsed tag. 137 ;; get a regularly parsed tag.
138 (let* ((type (cond ((semantic-tag-of-class-p tag 'function) 138 (let* ((type (cond ((semantic-tag-of-class-p tag 'function)
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index d6e4fff83c8..4e09f9fc3f2 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -1,6 +1,6 @@
1;;; semantic/db.el --- Semantic tag database manager 1;;; semantic/db.el --- Semantic tag database manager
2 2
3;; Copyright (C) 2000-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2000-2012 Free Software Foundation, Inc.
4 4
5;; Author: Eric M. Ludlam <zappo@gnu.org> 5;; Author: Eric M. Ludlam <zappo@gnu.org>
6;; Keywords: tags 6;; Keywords: tags
@@ -205,7 +205,7 @@ If one doesn't exist, create it."
205 ) 205 )
206 "Table used for search results when there is no file or table association. 206 "Table used for search results when there is no file or table association.
207Examples include search results from external sources such as from 207Examples include search results from external sources such as from
208Emacs' own symbol table, or from external libraries.") 208Emacs's own symbol table, or from external libraries.")
209 209
210(defmethod semanticdb-refresh-table ((obj semanticdb-search-results-table) &optional force) 210(defmethod semanticdb-refresh-table ((obj semanticdb-search-results-table) &optional force)
211 "If the tag list associated with OBJ is loaded, refresh it. 211 "If the tag list associated with OBJ is loaded, refresh it.
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el
index f12beed3271..22e0ade987d 100644
--- a/lisp/emacs-lisp/authors.el
+++ b/lisp/emacs-lisp/authors.el
@@ -1,4 +1,4 @@
1;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: utf-8;-*- 1;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding: utf-8;-*-
2 2
3;; Copyright (C) 2000-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2000-2012 Free Software Foundation, Inc.
4 4
@@ -25,7 +25,7 @@
25;;; Commentary: 25;;; Commentary:
26 26
27;; Use M-x authors RET to create an *Authors* buffer that can used as 27;; Use M-x authors RET to create an *Authors* buffer that can used as
28;; or merged with Emacs' AUTHORS file. 28;; or merged with Emacs's AUTHORS file.
29 29
30;;; Code: 30;;; Code:
31 31
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 2ced0e8a466..b3e54b415d8 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -99,7 +99,7 @@ KEYS is expanded with `substitute-command-keys' before it is used.
99 99
100KEYS is nil, a string or a vector; nil or a keyboard equivalent to this 100KEYS is nil, a string or a vector; nil or a keyboard equivalent to this
101menu item. 101menu item.
102This is a hint that will considerably speed up Emacs' first display of 102This is a hint that will considerably speed up Emacs's first display of
103a menu. Use `:key-sequence nil' when you know that this menu item has no 103a menu. Use `:key-sequence nil' when you know that this menu item has no
104keyboard equivalent. 104keyboard equivalent.
105 105
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index be8eb77f170..9cbe29bf322 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -862,7 +862,7 @@ run. DEBUGGER-ARGS are the arguments to `debugger'."
862 (make-ert-test-failed :condition condition 862 (make-ert-test-failed :condition condition
863 :backtrace backtrace 863 :backtrace backtrace
864 :infos infos)))) 864 :infos infos))))
865 ;; Work around Emacs' heuristic (in eval.c) for detecting 865 ;; Work around Emacs's heuristic (in eval.c) for detecting
866 ;; errors in the debugger. 866 ;; errors in the debugger.
867 (incf num-nonmacro-input-events) 867 (incf num-nonmacro-input-events)
868 ;; FIXME: We should probably implement more fine-grained 868 ;; FIXME: We should probably implement more fine-grained
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index eed25ecfb85..4fd87209b38 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -26,7 +26,7 @@
26;;; Commentary: 26;;; Commentary:
27 27
28;; Ewoc Was Once Cookie 28;; Ewoc Was Once Cookie
29;; But now it's Emacs' Widget for Object Collections 29;; But now it's Emacs's Widget for Object Collections
30 30
31;; As the name implies this derives from the `cookie' package (part 31;; As the name implies this derives from the `cookie' package (part
32;; of Elib). The changes are pervasive though mostly superficial: 32;; of Elib). The changes are pervasive though mostly superficial:
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index ac391fed2c2..6d12fe19277 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -143,7 +143,7 @@ This means the number of non-shy regexp grouping constructs
143 "Return a regexp to match a string in the sorted list STRINGS. 143 "Return a regexp to match a string in the sorted list STRINGS.
144If PAREN non-nil, output regexp parentheses around returned regexp. 144If PAREN non-nil, output regexp parentheses around returned regexp.
145If LAX non-nil, don't output parentheses if it doesn't require them. 145If LAX non-nil, don't output parentheses if it doesn't require them.
146Merges keywords to avoid backtracking in Emacs' regexp matcher." 146Merges keywords to avoid backtracking in Emacs's regexp matcher."
147 ;; The basic idea is to find the shortest common prefix or suffix, remove it 147 ;; The basic idea is to find the shortest common prefix or suffix, remove it
148 ;; and recurse. If there is no prefix, we divide the list into two so that 148 ;; and recurse. If there is no prefix, we divide the list into two so that
149 ;; \(at least) one half will have at least a one-character common prefix. 149 ;; \(at least) one half will have at least a one-character common prefix.
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index a7cc40cea4b..9e7be0f670d 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1,6 +1,6 @@
1;;; cua-base.el --- emulate CUA key bindings 1;;; cua-base.el --- emulate CUA key bindings
2 2
3;; Copyright (C) 1997-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1997-2012 Free Software Foundation, Inc.
4 4
5;; Author: Kim F. Storm <storm@cua.dk> 5;; Author: Kim F. Storm <storm@cua.dk>
6;; Keywords: keyboard emulations convenience cua 6;; Keywords: keyboard emulations convenience cua
@@ -116,7 +116,7 @@
116 116
117;; CUA register support 117;; CUA register support
118;; -------------------- 118;; --------------------
119;; Emacs' standard register support is also based on a separate set of 119;; Emacs's standard register support is also based on a separate set of
120;; "register commands". 120;; "register commands".
121;; 121;;
122;; CUA's register support is activated by providing a numeric 122;; CUA's register support is activated by providing a numeric
@@ -134,7 +134,7 @@
134 134
135;; CUA rectangle support 135;; CUA rectangle support
136;; --------------------- 136;; ---------------------
137;; Emacs' normal rectangle support is based on interpreting the region 137;; Emacs's normal rectangle support is based on interpreting the region
138;; between the mark and point as a "virtual rectangle", and using a 138;; between the mark and point as a "virtual rectangle", and using a
139;; completely separate set of "rectangle commands" [C-x r ...] on the 139;; completely separate set of "rectangle commands" [C-x r ...] on the
140;; region to copy, kill, fill a.s.o. the virtual rectangle. 140;; region to copy, kill, fill a.s.o. the virtual rectangle.
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 305e3e73be0..eaf88ccdf85 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1,6 +1,6 @@
1;;; tpu-edt.el --- Emacs emulating TPU emulating EDT 1;;; tpu-edt.el --- Emacs emulating TPU emulating EDT
2 2
3;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc.
4 4
5;; Author: Rob Riepel <riepel@networking.stanford.edu> 5;; Author: Rob Riepel <riepel@networking.stanford.edu>
6;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> 6;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
@@ -89,7 +89,7 @@
89;; details. 89;; details.
90 90
91;; Like TPU, Emacs uses multiple buffers. Some buffers are used to hold 91;; Like TPU, Emacs uses multiple buffers. Some buffers are used to hold
92;; files you are editing; other "internal" buffers are used for Emacs' own 92;; files you are editing; other "internal" buffers are used for Emacs's own
93;; purposes (like showing you help). Here are some commands for dealing 93;; purposes (like showing you help). Here are some commands for dealing
94;; with buffers. 94;; with buffers.
95 95
@@ -197,7 +197,7 @@
197 197
198;; ; Emacs uses Control-s and Control-q. Problems can occur when using 198;; ; Emacs uses Control-s and Control-q. Problems can occur when using
199;; ; Emacs on terminals that use these codes for flow control (Xon/Xoff 199;; ; Emacs on terminals that use these codes for flow control (Xon/Xoff
200;; ; flow control). These lines disable Emacs' use of these characters. 200;; ; flow control). These lines disable Emacs's use of these characters.
201;; (global-unset-key "\C-s") 201;; (global-unset-key "\C-s")
202;; (global-unset-key "\C-q") 202;; (global-unset-key "\C-q")
203 203
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 7cba5441c23..cdeef733bc5 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1,6 +1,6 @@
1;;; viper-util.el --- Utilities used by viper.el 1;;; viper-util.el --- Utilities used by viper.el
2 2
3;; Copyright (C) 1994-1997, 1999-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1994-1997, 1999-2012 Free Software Foundation, Inc.
4 4
5;; Author: Michael Kifer <kifer@cs.stonybrook.edu> 5;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
6;; Package: viper 6;; Package: viper
@@ -295,7 +295,7 @@ Otherwise return the normal value."
295 result)) 295 result))
296 296
297;; Emacs used to count each multibyte character as several positions in the buffer, 297;; Emacs used to count each multibyte character as several positions in the buffer,
298;; so we had to use Emacs' chars-in-region to count characters. Since 20.3, 298;; so we had to use Emacs's chars-in-region to count characters. Since 20.3,
299;; Emacs counts multibyte characters as 1 position. XEmacs has always been 299;; Emacs counts multibyte characters as 1 position. XEmacs has always been
300;; counting each char as just one pos. So, now we can simply subtract beg from 300;; counting each char as just one pos. So, now we can simply subtract beg from
301;; end to determine the number of characters in a region. 301;; end to determine the number of characters in a region.
@@ -1112,7 +1112,7 @@ Otherwise return the normal value."
1112 lis))) 1112 lis)))
1113 1113
1114 1114
1115;; Smooths out the difference between Emacs' unread-command-events 1115;; Smooths out the difference between Emacs's unread-command-events
1116;; and XEmacs unread-command-event. Arg is a character, an event, a list of 1116;; and XEmacs unread-command-event. Arg is a character, an event, a list of
1117;; events or a sequence of keys. 1117;; events or a sequence of keys.
1118;; 1118;;
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index d304a247bb8..12c186e234e 100644
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -87,7 +87,7 @@
87;; facility in the original Vi. 87;; facility in the original Vi.
88;; First, one can execute any Emacs command while defining a 88;; First, one can execute any Emacs command while defining a
89;; macro, not just the Vi commands. Second, macros are defined in a 89;; macro, not just the Vi commands. Second, macros are defined in a
90;; WYSYWYG mode, using an interface to Emacs' WYSIWYG style of defining 90;; WYSYWYG mode, using an interface to Emacs's WYSIWYG style of defining
91;; macros. Third, in Viper, one can define macros that are specific to 91;; macros. Third, in Viper, one can define macros that are specific to
92;; a given buffer, a given major mode, or macros defined for all buffers. 92;; a given buffer, a given major mode, or macros defined for all buffers.
93;; The same macro name can have several different definitions: 93;; The same macro name can have several different definitions:
@@ -561,7 +561,7 @@ and improving upon much of it.
561 use Emacs productively, you are advised to reach user level 3 or higher. 561 use Emacs productively, you are advised to reach user level 3 or higher.
562 562
563 At user level 2 or higher, ^X and ^C have Emacs, not Vi, bindings; 563 At user level 2 or higher, ^X and ^C have Emacs, not Vi, bindings;
564 ^Z toggles Vi/Emacs states; ^G is Emacs' keyboard-quit (like ^C in Vi). 564 ^Z toggles Vi/Emacs states; ^G is Emacs's keyboard-quit (like ^C in Vi).
565 565
566 2. Vi exit functions (e.g., :wq, ZZ) work on INDIVIDUAL files -- they 566 2. Vi exit functions (e.g., :wq, ZZ) work on INDIVIDUAL files -- they
567 do not cause Emacs to quit, except at user level 1 (for a novice). 567 do not cause Emacs to quit, except at user level 1 (for a novice).
diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el
index 4057d1eabc2..1fb3930091e 100644
--- a/lisp/erc/erc-compat.el
+++ b/lisp/erc/erc-compat.el
@@ -1,6 +1,6 @@
1;;; erc-compat.el --- ERC compatibility code for XEmacs 1;;; erc-compat.el --- ERC compatibility code for XEmacs
2 2
3;; Copyright (C) 2002-2003, 2005-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2003, 2005-2012 Free Software Foundation, Inc.
4 4
5;; Author: Alex Schroeder <alex@gnu.org> 5;; Author: Alex Schroeder <alex@gnu.org>
6;; URL: http://www.emacswiki.org/cgi-bin/wiki/ERC 6;; URL: http://www.emacswiki.org/cgi-bin/wiki/ERC
@@ -70,7 +70,7 @@ See `erc-encoding-coding-alist'."
70are placed. 70are placed.
71Note that this should end with a directory separator.") 71Note that this should end with a directory separator.")
72 72
73;; XEmacs' `replace-match' does not replace matching subexpressions in strings. 73;; XEmacs's `replace-match' does not replace matching subexpressions in strings.
74(defun erc-replace-match-subexpression-in-string 74(defun erc-replace-match-subexpression-in-string
75 (newtext string match subexp start &optional fixedcase literal) 75 (newtext string match subexp start &optional fixedcase literal)
76 "Replace the subexpression SUBEXP of the last match in STRING with NEWTEXT. 76 "Replace the subexpression SUBEXP of the last match in STRING with NEWTEXT.
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index 6ac53e30e86..1875506fe9d 100644
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -1,6 +1,6 @@
1;;; em-unix.el --- UNIX command aliases 1;;; em-unix.el --- UNIX command aliases
2 2
3;; Copyright (C) 1999-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
4 4
5;; Author: John Wiegley <johnw@gnu.org> 5;; Author: John Wiegley <johnw@gnu.org>
6 6
@@ -712,7 +712,7 @@ available..."
712 712
713(defun eshell-grep (command args &optional maybe-use-occur) 713(defun eshell-grep (command args &optional maybe-use-occur)
714 "Generic service function for the various grep aliases. 714 "Generic service function for the various grep aliases.
715It calls Emacs' grep utility if the command is not redirecting output, 715It calls Emacs's grep utility if the command is not redirecting output,
716and if it's not part of a command pipeline. Otherwise, it calls the 716and if it's not part of a command pipeline. Otherwise, it calls the
717external command." 717external command."
718 (if (and maybe-use-occur eshell-no-grep-available) 718 (if (and maybe-use-occur eshell-no-grep-available)
diff --git a/lisp/eshell/em-xtra.el b/lisp/eshell/em-xtra.el
index 4f9b921d5ef..3dfb33d37e3 100644
--- a/lisp/eshell/em-xtra.el
+++ b/lisp/eshell/em-xtra.el
@@ -1,6 +1,6 @@
1;;; em-xtra.el --- extra alias functions 1;;; em-xtra.el --- extra alias functions
2 2
3;; Copyright (C) 1999-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
4 4
5;; Author: John Wiegley <johnw@gnu.org> 5;; Author: John Wiegley <johnw@gnu.org>
6 6
@@ -32,7 +32,7 @@
32(eshell-defgroup eshell-xtra nil 32(eshell-defgroup eshell-xtra nil
33 "This module defines some extra alias functions which are entirely 33 "This module defines some extra alias functions which are entirely
34optional. They can be viewed as samples for how to write Eshell alias 34optional. They can be viewed as samples for how to write Eshell alias
35functions, or as aliases which make some of Emacs' behavior more 35functions, or as aliases which make some of Emacs's behavior more
36naturally accessible within Emacs." 36naturally accessible within Emacs."
37 :tag "Extra alias functions" 37 :tag "Extra alias functions"
38 :group 'eshell-module) 38 :group 'eshell-module)
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el
index e4478aefd6d..224451eacba 100644
--- a/lisp/eshell/eshell.el
+++ b/lisp/eshell/eshell.el
@@ -140,12 +140,12 @@
140;; paragraph wasn't discovered until two months after I wrote the 140;; paragraph wasn't discovered until two months after I wrote the
141;; text; it was not intentional). 141;; text; it was not intentional).
142;; 142;;
143;; @ Emacs' register and bookmarking facilities can be used for 143;; @ Emacs's register and bookmarking facilities can be used for
144;; remembering where you've been, and what you've seen -- to varying 144;; remembering where you've been, and what you've seen -- to varying
145;; levels of persistence. They could perhaps even be tied to 145;; levels of persistence. They could perhaps even be tied to
146;; specific "moments" during eshell execution, which would include 146;; specific "moments" during eshell execution, which would include
147;; the environment at that time, as well as other variables. 147;; the environment at that time, as well as other variables.
148;; Although this would require functionality orthogonal to Emacs' 148;; Although this would require functionality orthogonal to Emacs's
149;; own bookmarking facilities, the interface used could be made to 149;; own bookmarking facilities, the interface used could be made to
150;; operate very similarly. 150;; operate very similarly.
151;; 151;;
diff --git a/lisp/files.el b/lisp/files.el
index acd04de34ec..8ebb98c001b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -22,7 +22,7 @@
22 22
23;;; Commentary: 23;;; Commentary:
24 24
25;; Defines most of Emacs's file- and directory-handling functions, 25;; Defines most of Emacs'ss file- and directory-handling functions,
26;; including basic file visiting, backup generation, link handling, 26;; including basic file visiting, backup generation, link handling,
27;; ITS-id version control, load- and write-hook handling, and the like. 27;; ITS-id version control, load- and write-hook handling, and the like.
28 28
@@ -5259,7 +5259,7 @@ non-nil, it is called instead of rereading visited file contents."
5259 (unlock-buffer))) 5259 (unlock-buffer)))
5260 (widen) 5260 (widen)
5261 (let ((coding-system-for-read 5261 (let ((coding-system-for-read
5262 ;; Auto-saved file should be read by Emacs' 5262 ;; Auto-saved file should be read by Emacs's
5263 ;; internal coding. 5263 ;; internal coding.
5264 (if auto-save-p 'auto-save-coding 5264 (if auto-save-p 'auto-save-coding
5265 (or coding-system-for-read 5265 (or coding-system-for-read
diff --git a/lisp/filesets.el b/lisp/filesets.el
index cecf14753f4..86ebe47580b 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1,6 +1,6 @@
1;;; filesets.el --- handle group of files 1;;; filesets.el --- handle group of files
2 2
3;; Copyright (C) 2002-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2012 Free Software Foundation, Inc.
4 4
5;; Author: Thomas Link <sanobast-emacs@yahoo.de> 5;; Author: Thomas Link <sanobast-emacs@yahoo.de>
6;; Maintainer: FSF 6;; Maintainer: FSF
@@ -518,7 +518,7 @@ Caveat: Changes will take effect after rebuilding the menu."
518This is for calls via `filesets-find-or-display-file' 518This is for calls via `filesets-find-or-display-file'
519or `filesets-find-file'. 519or `filesets-find-file'.
520 520
521Set this to 0, if you don't use XEmacs' buffer tabs." 521Set this to 0, if you don't use XEmacs's buffer tabs."
522 :set (function filesets-set-default) 522 :set (function filesets-set-default)
523 :type 'number 523 :type 'number
524 :group 'filesets) 524 :group 'filesets)
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 1a7022da012..4222791705b 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1,6 +1,6 @@
1;;; font-lock.el --- Electric font lock mode 1;;; font-lock.el --- Electric font lock mode
2 2
3;; Copyright (C) 1992-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1992-2012 Free Software Foundation, Inc.
4 4
5;; Author: Jamie Zawinski 5;; Author: Jamie Zawinski
6;; Richard Stallman 6;; Richard Stallman
@@ -67,7 +67,7 @@
67;; 67;;
68;; The syntactic keyword pass places `syntax-table' text properties in the 68;; The syntactic keyword pass places `syntax-table' text properties in the
69;; buffer according to the variable `font-lock-syntactic-keywords'. It is 69;; buffer according to the variable `font-lock-syntactic-keywords'. It is
70;; necessary because Emacs' syntax table is not powerful enough to describe all 70;; necessary because Emacs's syntax table is not powerful enough to describe all
71;; the different syntactic constructs required by the sort of people who decide 71;; the different syntactic constructs required by the sort of people who decide
72;; that a single quote can be syntactic or not depending on the time of day. 72;; that a single quote can be syntactic or not depending on the time of day.
73;; (What sort of person could decide to overload the meaning of a quote?) 73;; (What sort of person could decide to overload the meaning of a quote?)
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index 347f34b3228..975b83370ba 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -1,6 +1,6 @@
1;;; gmm-utils.el --- Utility functions for Gnus, Message and MML 1;;; gmm-utils.el --- Utility functions for Gnus, Message and MML
2 2
3;; Copyright (C) 2006-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2006-2012 Free Software Foundation, Inc.
4 4
5;; Author: Reiner Steib <reiner.steib@gmx.de> 5;; Author: Reiner Steib <reiner.steib@gmx.de>
6;; Keywords: news 6;; Keywords: news
@@ -352,7 +352,7 @@ compatibility with versions of Emacs that lack the variable
352 dir (expand-file-name "../" dir)))) 352 dir (expand-file-name "../" dir))))
353 (setq image-directory-load-path dir)) 353 (setq image-directory-load-path dir))
354 354
355 ;; If `image-directory-load-path' isn't Emacs' image directory, 355 ;; If `image-directory-load-path' isn't Emacs's image directory,
356 ;; it's probably a user preference, so use it. Then use a 356 ;; it's probably a user preference, so use it. Then use a
357 ;; relative setting if possible; otherwise, use 357 ;; relative setting if possible; otherwise, use
358 ;; `image-directory-load-path'. 358 ;; `image-directory-load-path'.
@@ -383,7 +383,7 @@ compatibility with versions of Emacs that lack the variable
383 ;; Set it to nil if image is not found. 383 ;; Set it to nil if image is not found.
384 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) 384 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei)
385 ((file-exists-p (expand-file-name image d1ei)) d1ei))))) 385 ((file-exists-p (expand-file-name image d1ei)) d1ei)))))
386 ;; Use Emacs' image directory. 386 ;; Use Emacs's image directory.
387 (image-directory-load-path 387 (image-directory-load-path
388 (setq image-directory image-directory-load-path)) 388 (setq image-directory image-directory-load-path))
389 (no-error 389 (no-error
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 5178220af8f..bbd3c95265d 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -1,6 +1,6 @@
1;;; gnus-agent.el --- unplugged support for Gnus 1;;; gnus-agent.el --- unplugged support for Gnus
2 2
3;; Copyright (C) 1997-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1997-2012 Free Software Foundation, Inc.
4 4
5;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6;; This file is part of GNU Emacs. 6;; This file is part of GNU Emacs.
@@ -602,7 +602,7 @@ manipulated as follows:
602 (make-mode-line-mouse-map mouse-button mouse-func) 602 (make-mode-line-mouse-map mouse-button mouse-func)
603 'mouse-face 603 'mouse-face
604 (if (and (featurep 'xemacs) 604 (if (and (featurep 'xemacs)
605 ;; XEmacs' `facep' only checks for a face 605 ;; XEmacs's `facep' only checks for a face
606 ;; object, not for a face name, so it's useless 606 ;; object, not for a face name, so it's useless
607 ;; to check with `facep'. 607 ;; to check with `facep'.
608 (find-face 'modeline)) 608 (find-face 'modeline))
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 8f06359ace8..f86b6f837a7 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -3028,7 +3028,7 @@ If ADAPT, return the home adaptive file instead."
3028 (* (abs score) 3028 (* (abs score)
3029 gnus-score-decay-scale))))))) 3029 gnus-score-decay-scale)))))))
3030 (if (and (featurep 'xemacs) 3030 (if (and (featurep 'xemacs)
3031 ;; XEmacs' floor can handle only the floating point 3031 ;; XEmacs's floor can handle only the floating point
3032 ;; number below the half of the maximum integer. 3032 ;; number below the half of the maximum integer.
3033 (> (abs n) (lsh -1 -2))) 3033 (> (abs n) (lsh -1 -2)))
3034 (string-to-number 3034 (string-to-number
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 09617384049..4a6da2d437c 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1,6 +1,6 @@
1;;; mm-decode.el --- Functions for decoding MIME things 1;;; mm-decode.el --- Functions for decoding MIME things
2 2
3;; Copyright (C) 1998-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
4 4
5;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 6;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
@@ -1493,7 +1493,7 @@ be determined."
1493 (let ((image (mm-get-image handle))) 1493 (let ((image (mm-get-image handle)))
1494 (or (not image) 1494 (or (not image)
1495 (if (featurep 'xemacs) 1495 (if (featurep 'xemacs)
1496 ;; XEmacs' glyphs can actually tell us about their width, so 1496 ;; XEmacs's glyphs can actually tell us about their width, so
1497 ;; let's be nice and smart about them. 1497 ;; let's be nice and smart about them.
1498 (or mm-inline-large-images 1498 (or mm-inline-large-images
1499 (and (<= (glyph-width image) (window-pixel-width)) 1499 (and (<= (glyph-width image) (window-pixel-width))
diff --git a/lisp/help.el b/lisp/help.el
index a38211332c6..1a6aa9d13d2 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1,7 +1,6 @@
1;;; help.el --- help commands for Emacs 1;;; help.el --- help commands for Emacs
2 2
3;; Copyright (C) 1985-1986, 1993-1994, 1998-2012 3;; Copyright (C) 1985-1986, 1993-1994, 1998-2012 Free Software Foundation, Inc.
4;; Free Software Foundation, Inc.
5 4
6;; Maintainer: FSF 5;; Maintainer: FSF
7;; Keywords: help, internal 6;; Keywords: help, internal
@@ -24,7 +23,7 @@
24 23
25;;; Commentary: 24;;; Commentary:
26 25
27;; This code implements GNU Emacs' on-line help system, the one invoked by 26;; This code implements GNU Emacs's on-line help system, the one invoked by
28;; `M-x help-for-help'. 27;; `M-x help-for-help'.
29 28
30;;; Code: 29;;; Code:
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 4c811d885d7..b94d4293fa7 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -1,6 +1,6 @@
1;;; htmlfontify.el --- htmlize a buffer/source tree with optional hyperlinks 1;;; htmlfontify.el --- htmlize a buffer/source tree with optional hyperlinks
2 2
3;; Copyright (C) 2002-2003, 2009-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2003, 2009-2012 Free Software Foundation, Inc.
4 4
5;; Emacs Lisp Archive Entry 5;; Emacs Lisp Archive Entry
6;; Package: htmlfontify 6;; Package: htmlfontify
@@ -376,7 +376,7 @@ commands in `hfy-etags-cmd-alist'."
376 "The etags equivalent command to run in a source directory to generate a tags 376 "The etags equivalent command to run in a source directory to generate a tags
377file for the whole source tree from there on down. The command should emit 377file for the whole source tree from there on down. The command should emit
378the etags output on stdout.\n 378the etags output on stdout.\n
379Two canned commands are provided - they drive Emacs' etags and 379Two canned commands are provided - they drive Emacs's etags and
380exuberant-ctags' etags respectively." 380exuberant-ctags' etags respectively."
381 :group 'htmlfontify 381 :group 'htmlfontify
382 :tag "etags-command" 382 :tag "etags-command"
@@ -859,13 +859,13 @@ If CLASS is set, it must be a `defface' alist key [see below],
859in which case the first face specification returned by `hfy-combined-face-spec' 859in which case the first face specification returned by `hfy-combined-face-spec'
860which *doesn't* clash with CLASS is returned.\n 860which *doesn't* clash with CLASS is returned.\n
861\(A specification with a class of t is considered to match any class you 861\(A specification with a class of t is considered to match any class you
862specify - this matches Emacs' behavior when deciding on which face attributes 862specify - this matches Emacs's behavior when deciding on which face attributes
863to use, to the best of my understanding).\n 863to use, to the best of my understanding).\n
864If CLASS is nil, then you just get whatever `face-attr-construct' returns, 864If CLASS is nil, then you just get whatever `face-attr-construct' returns,
865ie the current specification in effect for FACE.\n 865ie the current specification in effect for FACE.\n
866*NOTE*: This function forces any face that is not 'default and which has 866*NOTE*: This function forces any face that is not 'default and which has
867no :inherit property to inherit from 'default (this is because 'default 867no :inherit property to inherit from 'default (this is because 'default
868is magical in that Emacs' fonts behave as if they inherit implicitly from 868is magical in that Emacs's fonts behave as if they inherit implicitly from
869'default, but no such behavior exists in HTML/CSS).\n 869'default, but no such behavior exists in HTML/CSS).\n
870See also `hfy-display-class' for details of valid values for CLASS." 870See also `hfy-display-class' for details of valid values for CLASS."
871 (let ((face-spec 871 (let ((face-spec
diff --git a/lisp/image.el b/lisp/image.el
index ab3f437a971..162cc8bb0ed 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -1,6 +1,6 @@
1;;; image.el --- image API 1;;; image.el --- image API
2 2
3;; Copyright (C) 1998-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
4 4
5;; Maintainer: FSF 5;; Maintainer: FSF
6;; Keywords: multimedia 6;; Keywords: multimedia
@@ -163,7 +163,7 @@ compatibility with versions of Emacs that lack the variable
163 dir (expand-file-name "../" dir)))) 163 dir (expand-file-name "../" dir))))
164 (setq image-directory-load-path dir)) 164 (setq image-directory-load-path dir))
165 165
166 ;; If `image-directory-load-path' isn't Emacs' image directory, 166 ;; If `image-directory-load-path' isn't Emacs's image directory,
167 ;; it's probably a user preference, so use it. Then use a 167 ;; it's probably a user preference, so use it. Then use a
168 ;; relative setting if possible; otherwise, use 168 ;; relative setting if possible; otherwise, use
169 ;; `image-directory-load-path'. 169 ;; `image-directory-load-path'.
@@ -194,7 +194,7 @@ compatibility with versions of Emacs that lack the variable
194 ;; Set it to nil if image is not found. 194 ;; Set it to nil if image is not found.
195 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) 195 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei)
196 ((file-exists-p (expand-file-name image d1ei)) d1ei))))) 196 ((file-exists-p (expand-file-name image d1ei)) d1ei)))))
197 ;; Use Emacs' image directory. 197 ;; Use Emacs's image directory.
198 (image-directory-load-path 198 (image-directory-load-path
199 (setq image-directory image-directory-load-path)) 199 (setq image-directory image-directory-load-path))
200 (no-error 200 (no-error
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index d4dd4e4cf24..7bf15009687 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1,6 +1,6 @@
1;;; mule.el --- basic commands for multilingual environment 1;;; mule.el --- basic commands for multilingual environment
2 2
3;; Copyright (C) 1997-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1997-2012 Free Software Foundation, Inc.
4;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 4;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 5;; 2005, 2006, 2007, 2008, 2009, 2010, 2011
6;; National Institute of Advanced Industrial Science and Technology (AIST) 6;; National Institute of Advanced Industrial Science and Technology (AIST)
@@ -165,7 +165,7 @@ compatibility.
165 165
166VALUE must be a nonnegative integer that can be used as an invalid 166VALUE must be a nonnegative integer that can be used as an invalid
167code point of the charset. If the minimum code is 0 and the maximum 167code point of the charset. If the minimum code is 0 and the maximum
168code is greater than Emacs' maximum integer value, `:invalid-code' 168code is greater than Emacs's maximum integer value, `:invalid-code'
169should not be omitted. 169should not be omitted.
170 170
171`:code-offset' 171`:code-offset'
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index e45bbfe2ca0..039f3dca4a2 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -10,7 +10,7 @@
10 10
11;;; Commentary: 11;;; Commentary:
12 12
13;; A replacement for parts of Emacs' sendmail.el (specifically, 13;; A replacement for parts of sendmail.el (specifically,
14;; it's what handles your outgoing mail after you hit C-c C-c in mail 14;; it's what handles your outgoing mail after you hit C-c C-c in mail
15;; mode). See below for a list of additional features, including the 15;; mode). See below for a list of additional features, including the
16;; ability to queue messages for later sending. This replaces 16;; ability to queue messages for later sending. This replaces
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 97d9c4eb69d..4a93109e7a4 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -1,6 +1,6 @@
1;;; mh-compat.el --- make MH-E compatible with various versions of Emacs 1;;; mh-compat.el --- make MH-E compatible with various versions of Emacs
2 2
3;; Copyright (C) 2006-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2006-2012 Free Software Foundation, Inc.
4 4
5;; Author: Bill Wohler <wohler@newt.com> 5;; Author: Bill Wohler <wohler@newt.com>
6;; Maintainer: Bill Wohler <wohler@newt.com> 6;; Maintainer: Bill Wohler <wohler@newt.com>
@@ -174,7 +174,7 @@ compatibility with versions of Emacs that lack the variable
174 dir (expand-file-name "../" dir)))) 174 dir (expand-file-name "../" dir))))
175 (setq image-directory-load-path dir)) 175 (setq image-directory-load-path dir))
176 176
177 ;; If `image-directory-load-path' isn't Emacs' image directory, 177 ;; If `image-directory-load-path' isn't Emacs's image directory,
178 ;; it's probably a user preference, so use it. Then use a 178 ;; it's probably a user preference, so use it. Then use a
179 ;; relative setting if possible; otherwise, use 179 ;; relative setting if possible; otherwise, use
180 ;; `image-directory-load-path'. 180 ;; `image-directory-load-path'.
@@ -205,7 +205,7 @@ compatibility with versions of Emacs that lack the variable
205 ;; Set it to nil if image is not found. 205 ;; Set it to nil if image is not found.
206 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) 206 (cond ((file-exists-p (expand-file-name image d2ei)) d2ei)
207 ((file-exists-p (expand-file-name image d1ei)) d1ei))))) 207 ((file-exists-p (expand-file-name image d1ei)) d1ei)))))
208 ;; Use Emacs' image directory. 208 ;; Use Emacs's image directory.
209 (image-directory-load-path 209 (image-directory-load-path
210 (setq image-directory image-directory-load-path)) 210 (setq image-directory image-directory-load-path))
211 (no-error 211 (no-error
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 50423208e34..0bfc8eda3b1 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1,6 +1,6 @@
1;;; browse-url.el --- pass a URL to a WWW browser 1;;; browse-url.el --- pass a URL to a WWW browser
2 2
3;; Copyright (C) 1995-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1995-2012 Free Software Foundation, Inc.
4 4
5;; Author: Denis Howe <dbh@doc.ic.ac.uk> 5;; Author: Denis Howe <dbh@doc.ic.ac.uk>
6;; Maintainer: FSF 6;; Maintainer: FSF
@@ -297,7 +297,7 @@ Defaults to the value of `browse-url-netscape-arguments' at the time
297 :group 'browse-url) 297 :group 'browse-url)
298 298
299(defcustom browse-url-browser-display nil 299(defcustom browse-url-browser-display nil
300 "The X display for running the browser, if not same as Emacs'." 300 "The X display for running the browser, if not same as Emacs's."
301 :type '(choice string (const :tag "Default" nil)) 301 :type '(choice string (const :tag "Default" nil))
302 :group 'browse-url) 302 :group 'browse-url)
303 303
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 275f5f0fcbe..3f24a78cbbe 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,6 +1,6 @@
1;;; eudc.el --- Emacs Unified Directory Client 1;;; eudc.el --- Emacs Unified Directory Client
2 2
3;; Copyright (C) 1998-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
4 4
5;; Author: Oscar Figueiredo <oscar@cpe.fr> 5;; Author: Oscar Figueiredo <oscar@cpe.fr>
6;; Maintainer: Pavel Janík <Pavel@Janik.cz> 6;; Maintainer: Pavel Janík <Pavel@Janik.cz>
@@ -133,7 +133,7 @@
133 (setq plist (cdr (cdr plist)))) 133 (setq plist (cdr (cdr plist))))
134 nil)) 134 nil))
135 135
136;; Emacs' plist-get lacks third parameter 136;; Emacs's plist-get lacks third parameter
137(defun eudc-plist-get (plist prop &optional default) 137(defun eudc-plist-get (plist prop &optional default)
138 "Extract a value from a property list. 138 "Extract a value from a property list.
139PLIST is a property list, which is a list of the form 139PLIST is a property list, which is a list of the form
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 46f45c501d2..a79defed295 100644
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -78,7 +78,7 @@
78;; (secrets-create-collection "my collection") 78;; (secrets-create-collection "my collection")
79 79
80;; There exists a special collection called "session", which has the 80;; There exists a special collection called "session", which has the
81;; lifetime of the corresponding client session (aka Emacs' 81;; lifetime of the corresponding client session (aka Emacs's
82;; lifetime). It is created automatically when Emacs uses the Secret 82;; lifetime). It is created automatically when Emacs uses the Secret
83;; Service interface, and it is deleted when Emacs is killed. 83;; Service interface, and it is deleted when Emacs is killed.
84;; Therefore, it can be used to store and retrieve secret items 84;; Therefore, it can be used to store and retrieve secret items
@@ -99,7 +99,7 @@
99 99
100;; Secret items can be added or deleted to a collection. In the 100;; Secret items can be added or deleted to a collection. In the
101;; following examples, we use the special collection "session", which 101;; following examples, we use the special collection "session", which
102;; is bound to Emacs' lifetime. 102;; is bound to Emacs's lifetime.
103;; 103;;
104;; (secrets-delete-item "session" "my item") 104;; (secrets-delete-item "session" "my item")
105;; (secrets-create-item "session" "my item" "geheim" 105;; (secrets-create-item "session" "my item" "geheim"
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index a8ab13bd528..6b6e81dfaba 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -1,6 +1,6 @@
1;;; gomoku.el --- Gomoku game between you and Emacs 1;;; gomoku.el --- Gomoku game between you and Emacs
2 2
3;; Copyright (C) 1988, 1994, 1996, 2001-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1988, 1994, 1996, 2001-2012 Free Software Foundation, Inc.
4 4
5;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> 5;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr>
6;; Maintainer: FSF 6;; Maintainer: FSF
@@ -161,7 +161,7 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
161 161
162(defface gomoku-O 162(defface gomoku-O
163 '((((class color)) (:foreground "red" :weight bold))) 163 '((((class color)) (:foreground "red" :weight bold)))
164 "Face to use for Emacs' O." 164 "Face to use for Emacs's O."
165 :group 'gomoku) 165 :group 'gomoku)
166 166
167(defface gomoku-X 167(defface gomoku-X
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index e2aec709b99..d2e307c0145 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1,6 +1,6 @@
1;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*- 1;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-
2 2
3;; Copyright (C) 1996, 2001-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1996, 2001-2012 Free Software Foundation, Inc.
4 4
5;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>) 5;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
6;; Created: October 21 1996 6;; Created: October 21 1996
@@ -189,7 +189,7 @@ Variables: `handwrite-linespace' (default 12)
189 (setq next-line-add-newlines t) 189 (setq next-line-add-newlines t)
190 (switch-to-buffer ps-buf-name) 190 (switch-to-buffer ps-buf-name)
191 (handwrite-insert-header buf-name) 191 (handwrite-insert-header buf-name)
192 (insert "%%Creator: GNU Emacs' handwrite version " emacs-version "\n") 192 (insert "%%Creator: GNU Emacs's handwrite version " emacs-version "\n")
193 (handwrite-insert-preamble) 193 (handwrite-insert-preamble)
194 (handwrite-insert-info) 194 (handwrite-insert-info)
195 (handwrite-insert-font) 195 (handwrite-insert-font)
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index a769101ad0b..29bb8a40e8f 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1,6 +1,6 @@
1;;; landmark.el --- neural-network robot that learns landmarks 1;;; landmark.el --- neural-network robot that learns landmarks
2 2
3;; Copyright (C) 1996-1997, 2000-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1996-1997, 2000-2012 Free Software Foundation, Inc.
4 4
5;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>) 5;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>)
6;; Created: December 16, 1996 - first release to usenet 6;; Created: December 16, 1996 - first release to usenet
@@ -210,7 +210,7 @@
210 210
211(defface landmark-font-lock-face-O '((((class color)) :foreground "red") 211(defface landmark-font-lock-face-O '((((class color)) :foreground "red")
212 (t :weight bold)) 212 (t :weight bold))
213 "Face to use for Emacs' O." 213 "Face to use for Emacs's O."
214 :version "22.1" 214 :version "22.1"
215 :group 'landmark) 215 :group 'landmark)
216 216
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index 634570cf3e4..9c9a8e09d49 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -1,6 +1,6 @@
1;;; antlr-mode.el --- major mode for ANTLR grammar files 1;;; antlr-mode.el --- major mode for ANTLR grammar files
2 2
3;; Copyright (C) 1999-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
4 4
5;; Author: Christoph.Wedler@sap.com 5;; Author: Christoph.Wedler@sap.com
6;; Keywords: languages, ANTLR, code generator 6;; Keywords: languages, ANTLR, code generator
@@ -961,7 +961,7 @@ group. The string matched by the first group is highlighted with
961 (antlr-re-search-forward 961 (antlr-re-search-forward
962 "^\\(private\\|public\\|protected\\)\\>[ \t]*\\(\\(\\sw+[ \t]*\\(:\\)?\\)\\)?" 962 "^\\(private\\|public\\|protected\\)\\>[ \t]*\\(\\(\\sw+[ \t]*\\(:\\)?\\)\\)?"
963 limit)) 963 limit))
964 (1 font-lock-type-face) ; not XEmacs' java level-3 fruit salad 964 (1 font-lock-type-face) ; not XEmacs's java level-3 fruit salad
965 (3 (if (antlr-upcase-p (char-after (match-beginning 3))) 965 (3 (if (antlr-upcase-p (char-after (match-beginning 3)))
966 antlr-tokendef-face 966 antlr-tokendef-face
967 antlr-ruledef-face) nil t) 967 antlr-ruledef-face) nil t)
@@ -1030,7 +1030,7 @@ not to confuse their context_cache.")
1030(define-abbrev-table 'antlr-mode-abbrev-table ()) 1030(define-abbrev-table 'antlr-mode-abbrev-table ())
1031 1031
1032(defvar antlr-slow-cache-enabling-symbol 'loudly 1032(defvar antlr-slow-cache-enabling-symbol 'loudly
1033;; Emacs' font-lock changes buffer's tick counter, therefore this value should 1033;; Emacs's font-lock changes buffer's tick counter, therefore this value should
1034;; be a parameter of a font-lock function, but not any other variable of 1034;; be a parameter of a font-lock function, but not any other variable of
1035;; functions which call `antlr-slow-syntactic-context'. 1035;; functions which call `antlr-slow-syntactic-context'.
1036 "If value is a bound symbol, cache will be used even with text changes. 1036 "If value is a bound symbol, cache will be used even with text changes.
@@ -1113,7 +1113,7 @@ WARNING: this may alter `match-data'."
1113 (or (buffer-syntactic-context) (buffer-syntactic-context-depth)) 1113 (or (buffer-syntactic-context) (buffer-syntactic-context-depth))
1114 :EMACS 1114 :EMACS
1115 (let ((orig (point)) diff state 1115 (let ((orig (point)) diff state
1116 ;; Arg, Emacs' (buffer-modified-tick) changes with font-lock. Use 1116 ;; Arg, Emacs's (buffer-modified-tick) changes with font-lock. Use
1117 ;; hack that `loudly' is bound during font-locking => cache use will 1117 ;; hack that `loudly' is bound during font-locking => cache use will
1118 ;; increase from 7% to 99.99% during font-locking. 1118 ;; increase from 7% to 99.99% during font-locking.
1119 (tick (or (boundp antlr-slow-cache-enabling-symbol) 1119 (tick (or (boundp antlr-slow-cache-enabling-symbol)
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index d765a960470..c9bf638bb59 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -1,6 +1,6 @@
1;;; vhdl-mode.el --- major mode for editing VHDL code 1;;; vhdl-mode.el --- major mode for editing VHDL code
2 2
3;; Copyright (C) 1992-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1992-2012 Free Software Foundation, Inc.
4 4
5;; Authors: Reto Zimmermann <reto@gnu.org> 5;; Authors: Reto Zimmermann <reto@gnu.org>
6;; Rodney J. Whitby <software.vhdl-mode@rwhitby.net> 6;; Rodney J. Whitby <software.vhdl-mode@rwhitby.net>
@@ -2040,7 +2040,7 @@ Ignore byte-compiler warnings you might see."
2040;; `wildcard-to-regexp' is included only in XEmacs 21 2040;; `wildcard-to-regexp' is included only in XEmacs 21
2041(unless (fboundp 'wildcard-to-regexp) 2041(unless (fboundp 'wildcard-to-regexp)
2042 (defun wildcard-to-regexp (wildcard) 2042 (defun wildcard-to-regexp (wildcard)
2043 "Simplified version of `wildcard-to-regexp' from Emacs' `files.el'." 2043 "Simplified version of `wildcard-to-regexp' from Emacs's `files.el'."
2044 (let* ((i (string-match "[*?]" wildcard)) 2044 (let* ((i (string-match "[*?]" wildcard))
2045 (result (substring wildcard 0 i)) 2045 (result (substring wildcard 0 i))
2046 (len (length wildcard))) 2046 (len (length wildcard)))
@@ -2087,7 +2087,7 @@ Ignore byte-compiler warnings you might see."
2087;; `file-expand-wildcards' undefined (XEmacs) 2087;; `file-expand-wildcards' undefined (XEmacs)
2088(unless (fboundp 'file-expand-wildcards) 2088(unless (fboundp 'file-expand-wildcards)
2089 (defun file-expand-wildcards (pattern &optional full) 2089 (defun file-expand-wildcards (pattern &optional full)
2090 "Taken from Emacs' `files.el'." 2090 "Taken from Emacs's `files.el'."
2091 (let* ((nondir (file-name-nondirectory pattern)) 2091 (let* ((nondir (file-name-nondirectory pattern))
2092 (dirpart (file-name-directory pattern)) 2092 (dirpart (file-name-directory pattern))
2093 (dirs (if (and dirpart (string-match "[[*?]" dirpart)) 2093 (dirs (if (and dirpart (string-match "[[*?]" dirpart))
diff --git a/lisp/shell.el b/lisp/shell.el
index 1ed43863452..7c5ce49a967 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -1,6 +1,6 @@
1;;; shell.el --- specialized comint.el for running the shell -*- lexical-binding: t -*- 1;;; shell.el --- specialized comint.el for running the shell -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 1988, 1993-1997, 2000-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1988, 1993-1997, 2000-2012 Free Software Foundation, Inc.
4 4
5;; Author: Olin Shivers <shivers@cs.cmu.edu> 5;; Author: Olin Shivers <shivers@cs.cmu.edu>
6;; Simon Marshall <simon@gnu.org> 6;; Simon Marshall <simon@gnu.org>
@@ -471,7 +471,7 @@ to continue it.
471keep this buffer's default directory the same as the shell's working directory. 471keep this buffer's default directory the same as the shell's working directory.
472While directory tracking is enabled, the shell's working directory is displayed 472While directory tracking is enabled, the shell's working directory is displayed
473by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. 473by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field.
474\\[dirs] queries the shell and resyncs Emacs' idea of what the current 474\\[dirs] queries the shell and resyncs Emacs's idea of what the current
475 directory stack is. 475 directory stack is.
476\\[shell-dirtrack-mode] turns directory tracking on and off. 476\\[shell-dirtrack-mode] turns directory tracking on and off.
477\(The `dirtrack' package provides an alternative implementation of this 477\(The `dirtrack' package provides an alternative implementation of this
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 4e8f0a5a82c..09f6b6b7cf2 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -62,7 +62,7 @@
62 :group 'sgml 62 :group 'sgml
63 :type 'hook) 63 :type 'hook)
64 64
65;; As long as Emacs' syntax can't be complemented with predicates to context 65;; As long as Emacs's syntax can't be complemented with predicates to context
66;; sensitively confirm the syntax of characters, we have to live with this 66;; sensitively confirm the syntax of characters, we have to live with this
67;; kludgy kind of tradeoff. 67;; kludgy kind of tradeoff.
68(defvar sgml-specials '(?\") 68(defvar sgml-specials '(?\")
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index ba4a2766526..16e33889c31 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -1,6 +1,6 @@
1;;; diff-mode.el --- a mode for viewing/editing context diffs -*- lexical-binding: t -*- 1;;; diff-mode.el --- a mode for viewing/editing context diffs -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 1998-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
4 4
5;; Author: Stefan Monnier <monnier@iro.umontreal.ca> 5;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
6;; Keywords: convenience patch diff vc 6;; Keywords: convenience patch diff vc
@@ -27,7 +27,7 @@
27;; to the corresponding source file. 27;; to the corresponding source file.
28 28
29;; Inspired by Pavel Machek's patch-mode.el (<pavel@@atrey.karlin.mff.cuni.cz>) 29;; Inspired by Pavel Machek's patch-mode.el (<pavel@@atrey.karlin.mff.cuni.cz>)
30;; Some efforts were spent to have it somewhat compatible with XEmacs' 30;; Some efforts were spent to have it somewhat compatible with XEmacs's
31;; diff-mode as well as with compilation-minor-mode 31;; diff-mode as well as with compilation-minor-mode
32 32
33;; Bugs: 33;; Bugs:
@@ -121,7 +121,7 @@ when editing big diffs)."
121 ("{" . diff-file-prev) 121 ("{" . diff-file-prev)
122 ("\C-m" . diff-goto-source) 122 ("\C-m" . diff-goto-source)
123 ([mouse-2] . diff-goto-source) 123 ([mouse-2] . diff-goto-source)
124 ;; From XEmacs' diff-mode. 124 ;; From XEmacs's diff-mode.
125 ("W" . widen) 125 ("W" . widen)
126 ;;("." . diff-goto-source) ;display-buffer 126 ;;("." . diff-goto-source) ;display-buffer
127 ;;("f" . diff-goto-source) ;find-file 127 ;;("f" . diff-goto-source) ;find-file
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 87740cdc75a..78a2163f653 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -3103,7 +3103,7 @@ Hit \\[ediff-recenter] to reset the windows afterward."
3103;; according to context. 3103;; according to context.
3104;; If DEFAULT-FILE is set, it should be used as the default value. 3104;; If DEFAULT-FILE is set, it should be used as the default value.
3105;; If DEFAULT-DIR is non-nil, use it as the default directory. 3105;; If DEFAULT-DIR is non-nil, use it as the default directory.
3106;; Otherwise, use the value of Emacs' variable `default-directory.' 3106;; Otherwise, use the value of `default-directory.'
3107(defun ediff-read-file-name (prompt default-dir default-file &optional no-dirs) 3107(defun ediff-read-file-name (prompt default-dir default-file &optional no-dirs)
3108 ;; hack default-dir if it is not set 3108 ;; hack default-dir if it is not set
3109 (setq default-dir 3109 (setq default-dir
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 8c397144bf2..9f35fc8f035 100644
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -1,6 +1,6 @@
1;;; vc-bzr.el --- VC backend for the bzr revision control system 1;;; vc-bzr.el --- VC backend for the bzr revision control system
2 2
3;; Copyright (C) 2006-2012 Free Software Foundation, Inc. 3;; Copyright (C) 2006-2012 Free Software Foundation, Inc.
4 4
5;; Author: Dave Love <fx@gnu.org> 5;; Author: Dave Love <fx@gnu.org>
6;; Riccardo Murri <riccardo.murri@gmail.com> 6;; Riccardo Murri <riccardo.murri@gmail.com>
@@ -431,7 +431,7 @@ If any error occurred in running `bzr status', then return nil."
431 (skip-chars-forward " \n\t") ;Throw away spaces. 431 (skip-chars-forward " \n\t") ;Throw away spaces.
432 (cons status 432 (cons status
433 ;; "bzr" will output warnings and informational messages to 433 ;; "bzr" will output warnings and informational messages to
434 ;; stderr; due to Emacs' `vc-do-command' (and, it seems, 434 ;; stderr; due to Emacs's `vc-do-command' (and, it seems,
435 ;; `start-process' itself) limitations, we cannot catch stderr 435 ;; `start-process' itself) limitations, we cannot catch stderr
436 ;; and stdout into different buffers. So, if there's anything 436 ;; and stdout into different buffers. So, if there's anything
437 ;; left in the buffer after removing the above status 437 ;; left in the buffer after removing the above status
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index aba14480fa9..aff2df3dc77 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -1,6 +1,6 @@
1;;; w32-fns.el --- Lisp routines for 32-bit Windows 1;;; w32-fns.el --- Lisp routines for 32-bit Windows
2 2
3;; Copyright (C) 1994, 2001-2012 Free Software Foundation, Inc. 3;; Copyright (C) 1994, 2001-2012 Free Software Foundation, Inc.
4 4
5;; Author: Geoff Voelker <voelker@cs.washington.edu> 5;; Author: Geoff Voelker <voelker@cs.washington.edu>
6;; Keywords: internal 6;; Keywords: internal
@@ -161,7 +161,7 @@ You should set this to t when using a non-system shell.\n\n"))))
161(add-hook 'before-init-hook 'set-default-process-coding-system) 161(add-hook 'before-init-hook 'set-default-process-coding-system)
162 162
163 163
164;;; Basic support functions for managing Emacs' locale setting 164;;; Basic support functions for managing Emacs's locale setting
165 165
166(defvar w32-valid-locales nil 166(defvar w32-valid-locales nil
167 "List of locale ids known to be supported.") 167 "List of locale ids known to be supported.")